From b8813bf5332aa57a3c3cf5f7065a924d437c7f7d Mon Sep 17 00:00:00 2001 From: Srdjan Jankovic Date: Wed, 16 Nov 2011 15:08:14 +1300 Subject: [PATCH] bug_7235: Adding invoice number and vendor name to the moredetail page --- catalogue/moredetail.pl | 8 +++++++- .../prog/en/modules/catalogue/moredetail.tt | 7 ++++++- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index 6f6d10d..1f2a8e1 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -27,7 +27,8 @@ use C4::Biblio; use C4::Items; use C4::Branch; use C4::Acquisition; -use C4::Output; +use C4::Bookseller qw(GetBookSellerFromId); +use C4::Output; # contains gettemplate use C4::Auth; use C4::Serials; use C4::Dates qw/format_date/; @@ -143,6 +144,11 @@ foreach my $item (@items){ $item->{'ordernumber'} = $order->{'ordernumber'}; $item->{'basketno'} = $order->{'basketno'}; $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'}; + if ($item->{'basketno'}){ + my $basket = GetBasket($item->{'basketno'}); + my $bookseller = GetBookSellerFromId($basket->{'booksellerid'}); + $item->{'vendor'} = $bookseller->{'name'}; + } if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{wthdrawn}) { $item->{status_advisory} = 1; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt index 86c8a3f..3b07ed0 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt @@ -163,7 +163,12 @@ [% ELSE %] [% ITEM_DAT.dateaccessioned %] [% END %] - +
  • Vendor + [% ITEM_DAT.vendor %] +
  • +
  • Invoice number + [% ITEM_DAT.booksellerinvoicenumber %] +
  • Total Checkouts:[% IF ( ITEM_DAT.issues ) %][% ITEM_DAT.issues %][% ELSE %]0[% END %] (View item's checkout history)
  • -- 1.6.5