From d2f0dbcd84cc4f170b2edaeecfc5e593bd26aeb2 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Fri, 28 Oct 2011 15:54:53 +0200 Subject: [PATCH] Bug 6089: Show creator and budget on order receive page Reimplementing 3.0.x patch from Nahuel ANGELINETTI To test: 1) Create basket 2) Order something, note your fund 3) Receive title > Verify your name and selected fund display correctly --- acqui/orderreceive.pl | 15 ++++++++++++--- .../prog/en/modules/acqui/orderreceive.tt | 4 +++- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl index 98ba544..c3fea62 100755 --- a/acqui/orderreceive.pl +++ b/acqui/orderreceive.pl @@ -70,6 +70,7 @@ use C4::Auth; use C4::Output; use C4::Dates qw/format_date/; use C4::Bookseller qw/ GetBookSellerFromId /; +use C4::Budgets qw/ GetBudget /; use C4::Members; use C4::Branch; # GetBranches use C4::Items; @@ -133,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'}, @@ -148,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 { diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt index 7147b19..885b536 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/acqui/orderreceive.tt @@ -89,7 +89,9 @@
Accounting details
    -
  1. [% datereceived %]
  2. +
  3. [% datereceived %]
  4. +
  5. [% bookfund %]
  6. +
  7. [% IF ( memberfirstname ) %][% memberfirstname %][% END %] [% membersurname %]
  8. [% IF ( edit ) %] -- 1.7.5.4