@@ -, +, @@ --- C4/Acquisition.pm | 14 ++++---------- Koha/EDI.pm | 2 +- acqui/addorder.pl | 3 +-- acqui/basket.pl | 13 +++++-------- acqui/basketheader.pl | 3 +-- 5 files changed, 12 insertions(+), 23 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -224,7 +224,7 @@ close a basket (becomes unmodifiable, except for receives) =cut sub CloseBasket { - my ($basketno, $user, $edi_approval) = @_; + my ($basketno, $edi_approval) = @_; my $dbh = C4::Context->dbh; $dbh->do('UPDATE aqbasket SET closedate=now() WHERE basketno=?', {}, $basketno ); @@ -236,12 +236,10 @@ q{UPDATE aqorders SET orderstatus = 'ordered' WHERE basketno = ? AND orderstatus # Log the closure if (C4::Context->preference("AcqLog")) { my $action = $edi_approval ? 'APPROVE_BASKET' : 'CLOSE_BASKET'; - my $infos = $user ? sprintf("%010d", $user) : undef; logaction( 'ACQUISITIONS', $action, - $basketno, - $infos + $basketno ); } @@ -570,14 +568,10 @@ sub ModBasket { # Log the basket update if (C4::Context->preference("AcqLog")) { - my $infos = $basketinfo->{borrowernumber} ? - sprintf("%010d", $basketinfo->{borrowernumber}) : - undef; logaction( 'ACQUISITIONS', 'MODIFY_BASKET', - $basketinfo->{'basketno'}, - $infos + $basketinfo->{'basketno'} ); } @@ -620,7 +614,7 @@ case the AcqCreateItem syspref takes precedence). =cut sub ModBasketHeader { - my ($basketno, $basketname, $note, $booksellernote, $contractnumber, $booksellerid, $deliveryplace, $billingplace, $is_standing, $create_items, $borrowernumber) = @_; + my ($basketno, $basketname, $note, $booksellernote, $contractnumber, $booksellerid, $deliveryplace, $billingplace, $is_standing, $create_items) = @_; $is_standing ||= 0; my $query = qq{ --- a/Koha/EDI.pm +++ a/Koha/EDI.pm @@ -576,7 +576,7 @@ sub process_quote { ); # Close the basket, passing a flag indicating that this action # originated from an approval - CloseBasket($b, undef, 1); + CloseBasket($b, 1); } } --- a/acqui/addorder.pl +++ a/acqui/addorder.pl @@ -367,8 +367,7 @@ if (C4::Context->preference("AcqLog") && $basketno) { logaction( 'ACQUISITIONS', 'MODIFY_BASKET', - $basketno, - sprintf("%010d", $loggedinuser) + $basketno ); } --- a/acqui/basket.pl +++ a/acqui/basket.pl @@ -195,7 +195,7 @@ if ( $op eq 'delete_confirm' ) { if ($confirm) { my $basketno = $query->param('basketno'); my $booksellerid = $query->param('booksellerid'); - $basketno =~ /^\d+$/ and CloseBasket($basketno, $loggedinuser); + $basketno =~ /^\d+$/ and CloseBasket($basketno); # if requested, create basket group, close it and attach the basket if ($query->param('createbasketgroup')) { my $branchcode; @@ -209,8 +209,7 @@ if ( $op eq 'delete_confirm' ) { closed => 1, }); ModBasket( { basketno => $basketno, - basketgroupid => $basketgroupid, - borrowernumber => $loggedinuser } ); + basketgroupid => $basketgroupid } ); print $query->redirect('/cgi-bin/koha/acqui/basketgroup.pl?booksellerid='.$booksellerid.'&closed=1'); } else { print $query->redirect('/cgi-bin/koha/acqui/booksellers.pl?booksellerid=' . $booksellerid); @@ -243,8 +242,7 @@ elsif ( $op eq 'ediorder' ) { $branch = undef if(defined $branch and $branch eq ''); ModBasket({ basketno => $basket->{basketno}, - branch => $branch, - borrowernumber => $loggedinuser + branch => $branch }); print $query->redirect("/cgi-bin/koha/acqui/basket.pl?basketno=$basketno"); exit; @@ -538,7 +536,7 @@ sub edi_close_and_order { if ( create_edi_order($edi_params) ) { #$template->param( edifile => 1 ); } - CloseBasket($basketno, $loggedinuser); + CloseBasket($basketno); # if requested, create basket group, close it and attach the basket if ( $query->param('createbasketgroup') ) { @@ -560,8 +558,7 @@ sub edi_close_and_order { ModBasket( { basketno => $basketno, - basketgroupid => $basketgroupid, - borrowernumber => $loggedinuser + basketgroupid => $basketgroupid } ); print $query->redirect( --- a/acqui/basketheader.pl +++ a/acqui/basketheader.pl @@ -154,8 +154,7 @@ if ( $op eq 'add_form' ) { scalar $input->param('deliveryplace'), scalar $input->param('billingplace'), scalar $input->param('is_standing') ? 1 : undef, - scalar $input->param('create_items'), - $loggedinuser + scalar $input->param('create_items') ); } else { #New basket $basketno = NewBasket( --