fix for bug 1723. no auth on finishreceive.pl
authorRyan Higgins <rch@liblime.com>
Wed, 2 Jan 2008 01:45:30 +0000 (19:45 -0600)
committerJoshua Ferraro <jmf@liblime.com>
Wed, 2 Jan 2008 02:11:49 +0000 (20:11 -0600)
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
acqui/finishreceive.pl

index 71c548a..0a70e97 100755 (executable)
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
-use C4::Context;
+use CGI;
+use C4::Auth;
 use C4::Output;
+use C4::Context;
 use C4::Acquisition;
 use C4::Biblio;
-use CGI;
 use C4::Search;
 
 my $input=new CGI;
-
+my $flagsrequired = { acquisitions => 1};
+my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
 my $user=$input->remote_user;
 my $biblionumber = $input->param('biblionumber');
 my $biblioitemnumber=$input->param('biblioitemnumber');