[Patches] [PATCH] Bug 6916 - item's acq date now takes you to its invoice

[koha-patchbot at kohaaloha.com]

From: Robin Sheat <robin at catalyst.net.nz>
Date: Fri, 16 Jul 2010 14:45:58 +1200
Subject: [PATCH] Bug 6916 - item's acq date now takes you to its invoice

When viewing an item's details, selecting the accession date for it now
takes you to the invoice for that item.

Signed-off-by: Katrin Fischer <Katrin.Fischer.83 at web.de>
This works as advertised.
1) Order and receive an item in acquisition
2) Search for it in staff and go to the 'items' tab
3) Click on the 'receive date' link

Fixed conflict in moredetail.pl.
---
 catalogue/moredetail.pl                            |    6 +++++-
 .../prog/en/modules/catalogue/moredetail.tt        |    2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl
index 6f6d10d..47e1adf 100755
--- a/catalogue/moredetail.pl
+++ b/catalogue/moredetail.pl
@@ -133,16 +133,20 @@ foreach my $item (@items){
     $item->{'datelastseen'}            = format_date( $item->{'datelastseen'} );
     $item->{'copyvol'}                 = $item->{'copynumber'};
 
+
     # item has a host number if its biblio number does not match the current bib
     if ($item->{biblionumber} ne $biblionumber){
         $item->{hostbiblionumber} = $item->{biblionumber};
         $item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title};
     }
 
-    my $order = GetOrderFromItemnumber( $item->{'itemnumber'} );
+    my $order  = GetOrderFromItemnumber( $item->{'itemnumber'} );
+    my $basket = GetBasket( $order->{'basketno'} );
+    $item->{'booksellerid'}            = $basket->{'booksellerid'};
     $item->{'ordernumber'}             = $order->{'ordernumber'};
     $item->{'basketno'}                = $order->{'basketno'};
     $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'};
+    $item->{'datereceived'}            = $order->{'datereceived'};
 
     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..36e7149 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/moredetail.tt
@@ -156,7 +156,7 @@
 
                     Accession Date:</span>
                     [% IF ( ITEM_DAT.basketno ) %]
-                    <a href="/cgi-bin/koha/acqui/basket.pl?basketno=[% ITEM_DAT.basketno %]">[% ITEM_DAT.dateaccessioned %]</a>
+                    <a href="/cgi-bin/koha/acqui/parcel.pl?supplierid=[% ITEM_DAT.booksellerid %]&invoice=[% ITEM_DAT.booksellerinvoicenumber %]&datereceived=[% ITEM_DAT.datereceived %]">[% ITEM_DAT.dateaccessioned %]</a>
                     [% ELSE %]
                     [% ITEM_DAT.dateaccessioned %]
                     [% END %]
-- 
1.7.5.4