###################################################################### # # EPrint Editor # # Allows staff to remove EPrints or transfer them back to the # submission buffer. # ###################################################################### # # __COPYRIGHT__ # # Copyright 2022 University of Southampton. # EPrints 3.4 is supplied by EPrints Services. # # http://www.eprints.org/eprints-3.4/ # # __LICENSE__ # # This file is part of EPrints 3.4 L<http://www.eprints.org/>. # # EPrints 3.4 and this file are released under the terms of the # GNU Lesser General Public License version 3 as published by # the Free Software Foundation unless otherwise stated. # # EPrints 3.4 is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # See the GNU Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with EPrints 3.4. # If not, see L<http://www.gnu.org/licenses/>. # ###################################################################### use EPrints; use strict; use EPrints::ScreenProcessor; my $session = EPrints::Session->new(); EPrints::ScreenProcessor->process( session=>$session, template=>$session->config( "user_area_template" ), url=>$session->config( "rel_cgipath" )."/users/home" ); $session->terminate;