###################################################################### # #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 ) ); }