projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
# Suite 330, Boston, MA 02111-1307 USA
use strict;
-use C4::Context;
+use CGI;
+use C4::Auth;
use C4::Output;
use C4::Output;
+use C4::Context;
use C4::Acquisition;
use C4::Biblio;
use C4::Acquisition;
use C4::Biblio;
-use C
GI
;
+use C
4::Items
;
use C4::Search;
my $input=new 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');
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, });
"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");
}
}
print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived");