X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Ffinishreceive.pl;h=d09a40ace0736fc141d010bf17c7efbe4401efa7;hb=00bd409a9a4e7576a2d5f613e7e86e26758ee287;hp=0f2f070c60015609d0881c848d5aff754ad77352;hpb=5900dfff9a455bbb60b33919faa9299843c42fd3;p=koha_gimpoz diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl index 0f2f070c60..d09a40ace0 100755 --- 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 ($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'); @@ -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 $supplierid = $input->param('supplierid'); +my $booksellerid = $input->param('booksellerid'); my $cnt=0; my $error_url_str; my $ecost = $input->param('ecost'); @@ -99,7 +101,7 @@ if ($quantityrec > $origquantityrec ) { update_item( $_ ) foreach GetItemnumbersFromOrder( $ordernumber ); -print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&supplierid=$supplierid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str"); +print $input->redirect("/cgi-bin/koha/acqui/parcel.pl?invoice=$invoiceno&booksellerid=$booksellerid&freight=$freight&gst=$gst&datereceived=$datereceived$error_url_str"); ################################ End of script ################################ @@ -107,7 +109,7 @@ sub update_item { my ( $itemnumber ) = @_; ModItem( { - booksellerid => $supplierid, + booksellerid => $booksellerid, dateaccessioned => $datereceived, price => $unitprice, replacementprice => $replacement,