[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
Content-Type: text/plain; charset="utf-8"

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.

Signed-off-by: Marcel de Rooy <m.de.rooy at rijksmuseum.nl>
QA. This patch does only work when AcqCreateItem==placing an order. This is caused by an existing bug. See Bugzilla for more details.
---
 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.6.0.6