Visual tweaks for login screen.

[koha.git] / acqui / finishreceive.pl

diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index 71c548a..1d5b169 100755 (executable)
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -22,15 +22,18 @@
 # 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::Items;
 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');
@@ -73,7 +76,7 @@ if ($quantityrec > $origquantityrec ) {
                     "items.itype"          => $itemtype[$cnt],
                     "items.location"          => $location[$cnt],
                     "items.loan"             => 0, });
-               AddItem($itemRecord,$biblionumber);
+        AddItemFromMarc($itemRecord,$biblionumber);
     }
 }
     print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived");