From 985e89fc09f36707f562dba68e1dfb4f55ed804e 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>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 C4/Members.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/C4/Members.pm b/C4/Members.pm
index a291b76c56..a4925b579c 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1183,6 +1183,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.5