From 4bbbc6749e7b15ce5a8d977ef60059b0947c0c21 Mon Sep 17 00:00:00 2001 From: Liz Rea Date: Fri, 17 Jan 2014 22:09:30 +1300 Subject: [PATCH] Bug 11573 - Make fine display more consistent for rentals To test: 1. Set up an item type with a rental charge 2. issue an item from that item type 3. Check fines - the rental charge does not show the title of the issued item 4. Renew that item, the renewal charge does show the title of the issued item 5. Apply the patch 6. Repeat steps 1-4, both should show the title of the issued item in the description. This change is proposed in order to get rid of some double ups in the title on the boraccount template. --- C4/Circulation.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/C4/Circulation.pm b/C4/Circulation.pm index f8b204a..abee223 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -2776,16 +2776,17 @@ sub AddIssuingCharge { my $dbh = C4::Context->dbh; my $nextaccntno = getnextacctno( $borrowernumber ); my $manager_id = 0; + my $item = GetBiblioFromItemNumber($itemnumber); $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; my $query =" INSERT INTO accountlines (borrowernumber, itemnumber, accountno, date, amount, description, accounttype, amountoutstanding, manager_id) - VALUES (?, ?, ?,now(), ?, 'Rental', 'Rent',?,?) + VALUES (?, ?, ?,now(), ?, ?, 'Rent',?,?) "; my $sth = $dbh->prepare($query); - $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, $charge, $manager_id ); + $sth->execute( $borrowernumber, $itemnumber, $nextaccntno, $charge, "$item->{'title'} $item->{'barcode'}", $charge, $manager_id ); } =head2 GetTransfers -- 1.8.1.2