######################################################################
# #Author: Antje Parnitzke, E-Mail: antje.parnitzke@dlr.de 
# $user = create_new_user( $session, $ds, $data)
#
#  Creates a new user with given data from an import xmlfile
#
######################################################################

sub create_new_user
{
	my( $session, $ds, $data) = @_;
	
	my $userid = _create_userid( $session );
		
	# And work out the date joined.
	my $date_joined = EPrints::Utils::get_datestamp( time );
	
	$data->{userid} = $userid;
	$data->{joined} = $date_joined;

	$session->get_archive()->call(
		"set_user_defaults",
		$data,
		$session );
	
	# Add the user to the database...
	$session->get_db()->add_record( $ds, $data );
	
	# And return the new user as User object.
	return( EPrints::User->new( $session, $userid ) );
}