#------------------------------------------------------------
# Copyright (C) 2006 RoyaltyShare, Inc.   All Rights Reserved
# $Id$
#------------------------------------------------------------
package AppUser::User::ContactForm;

use strict;
use warnings;

use lib '/app/tools/appuser/lib';
use AppUser::User::User;
use AppUser::DB::Item::User;
use AppUser::User::AccessLevelList;

use lib '/app/tools/rps/lib';
use RPS::LabelList;
use RPS::CountryList;

use Common::XMLObject;
use base 'Common::XMLObject';

sub _init {
    my ( $self, %args ) = @_;

    $self->SUPER::_init(%args);

    my $userID = $args{userID};

    $self->{AppUser} = AppUser::User::User->new( userID => $userID );

    return $self;
}

###
1;    #
###