X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=acqui%2Forderreceive.pl;h=753071dea6ed795a6a5d7e435c8d7c514be7fbe0;hb=9638053a25a89040c21a38196dc6c4bb09e6010a;hp=f084f8faac9ba163b37ee16b7878ffdf0dcf38de;hpb=9fa574f6097b8fc1eb9efc5321141ec0d23d3268;p=koha_gimpoz diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl index f084f8faac..753071dea6 100755 --- a/acqui/orderreceive.pl +++ b/acqui/orderreceive.pl @@ -69,7 +69,8 @@ use C4::Acquisition; use C4::Auth; use C4::Output; use C4::Dates qw/format_date/; -use C4::Bookseller; +use C4::Bookseller qw/ GetBookSellerFromId /; +use C4::Budgets qw/ GetBudget /; use C4::Members; use C4::Branch; # GetBranches use C4::Items; @@ -90,7 +91,8 @@ my $datereceived = $input->param('datereceived'); $datereceived = $datereceived ? C4::Dates->new($datereceived, 'iso') : C4::Dates->new(); my $bookseller = GetBookSellerFromId($supplierid); -my $gst= $input->param('gst') || $bookseller->{gstrate} || C4::Context->preference("gist") || 0; +my $input_gst = ($input->param('gst') eq '' ? undef : $input->param('gst')); +my $gst= $input_gst // $bookseller->{gstrate} // C4::Context->preference("gist") // 0; my $results = SearchOrder($ordernumber,$search); @@ -132,6 +134,12 @@ if ( $count == 1 ) { if ( @$results[0]->{'unitprice'} == 0 ) { @$results[0]->{'unitprice'} = ''; } + + my $authorisedby = @$results[0]->{'authorisedby'}; + my $member = GetMember( borrowernumber => $authorisedby ); + + my $budget = GetBudget( @$results[0]->{'budget_id'} ); + $template->param( count => 1, biblionumber => @$results[0]->{'biblionumber'}, @@ -147,17 +155,19 @@ if ( $count == 1 ) { copyrightdate => @$results[0]->{'copyrightdate'}, isbn => @$results[0]->{'isbn'}, seriestitle => @$results[0]->{'seriestitle'}, - bookfund => @$results[0]->{'bookfundid'}, + bookfund => $budget->{budget_name}, quantity => @$results[0]->{'quantity'}, quantityreceivedplus1 => @$results[0]->{'quantityreceived'} + 1, quantityreceived => @$results[0]->{'quantityreceived'}, rrp => @$results[0]->{'rrp'}, ecost => @$results[0]->{'ecost'}, unitprice => @$results[0]->{'unitprice'}, + memberfirstname => $member->{firstname} || "", + membersurname => $member->{surname} || "", invoice => $invoice, datereceived => $datereceived->output(), - datereceived_iso => $datereceived->output('iso'), - notes => $order->{notes} + datereceived_iso => $datereceived->output('iso'), + notes => $order->{notes} ); } else {