From b023de813bcfef8c2e18a0778d9e2495ed6dfb96 Mon Sep 17 00:00:00 2001
From: D Ruth Bavousett <ruth@bywatersolutions.com>
Date: Wed, 25 Apr 2012 06:06:31 -0700
Subject: [PATCH] Bug 8009: Item descriptive data not populated on pay.pl

GetBorNotifyAcctRecord was not populating the {title} element of the
hash, which pay.tt will use.

Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
---
 C4/Members.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/C4/Members.pm b/C4/Members.pm
index f5be65e7c6..b11d97640c 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1185,6 +1185,11 @@ sub GetBorNotifyAcctRecord {
     $sth->execute( $borrowernumber, $notifyid );
     my $total = 0;
     while ( my $data = $sth->fetchrow_hashref ) {
+        if ( $data->{itemnumber} ) {
+            my $biblio = GetBiblioFromItemNumber( $data->{itemnumber} );
+            $data->{biblionumber} = $biblio->{biblionumber};
+            $data->{title}        = $biblio->{title};
+        }
         $acctlines[$numlines] = $data;
         $numlines++;
         $total += int(100 * $data->{'amountoutstanding'});
-- 
2.39.2