projects
/
koha_gimpoz
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7144 followup DBrev number
[koha_gimpoz]
/
acqui
/
finishreceive.pl
diff --git
a/acqui/finishreceive.pl
b/acqui/finishreceive.pl
index
0f2f070
..
d09a40a
100755
(executable)
--- a/
acqui/finishreceive.pl
+++ b/
acqui/finishreceive.pl
@@
-34,7
+34,9
@@
use List::MoreUtils qw/any/;
my $input=new CGI;
my $flagsrequired = {acquisition => 'order_receive'};
my $input=new CGI;
my $flagsrequired = {acquisition => 'order_receive'};
-my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired, 'intranet');
+
+checkauth($input, 0, $flagsrequired, 'intranet');
+
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');
@@
-48,7
+50,7
@@
my $datereceived=$input->param('datereceived');
my $replacement=$input->param('rrp');
my $gst=$input->param('gst');
my $freight=$input->param('freight');
my $replacement=$input->param('rrp');
my $gst=$input->param('gst');
my $freight=$input->param('freight');
-my $
supplierid = $input->param('suppli
erid');
+my $
booksellerid = $input->param('booksell
erid');
my $cnt=0;
my $error_url_str;
my $ecost = $input->param('ecost');
my $cnt=0;
my $error_url_str;
my $ecost = $input->param('ecost');
@@
-99,7
+101,7
@@
if ($quantityrec > $origquantityrec ) {
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber );
update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber );
-print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&
supplierid=$suppli
erid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str");
+print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&
booksellerid=$booksell
erid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str");
################################ End of script ################################
################################ End of script ################################
@@
-107,7
+109,7
@@
sub update_item {
my ( $itemnumber ) = @_;
ModItem( {
my ( $itemnumber ) = @_;
ModItem( {
- booksellerid => $
suppli
erid,
+ booksellerid => $
booksell
erid,
dateaccessioned => $datereceived,
price => $unitprice,
replacementprice => $replacement,
dateaccessioned => $datereceived,
price => $unitprice,
replacementprice => $replacement,