From 876c36119194bc3035bf3052d5f0138819dc4adf Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Thu, 10 Oct 2002 15:19:50 +0000
Subject: [PATCH] (bug fix): Titles and due dates weren't being retrieved
 properly due to missing braces. Added bug report: the item type still isn't
 being displayed.

---
 moremember.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/moremember.pl b/moremember.pl
index 6b52724eb8..2baeec28d2 100755
--- a/moremember.pl
+++ b/moremember.pl
@@ -141,11 +141,18 @@ my @issuedata;
 for (my $i=0;$i<$count;$i++){
   my $datedue=ParseDate($issue->[$i]{'date_due'});
   $issue->[$i]{'date_due'} = slashifyDate($issue->[$i]{'date_due'});
-  my %row = %$issue->[$i];
+  my %row = %{$issue->[$i]};
   if ($datedue < $today){  
     $row{'red'}=1; #print "<font color=red>";
   }
   #find the charge for an item
+  # FIXME - This is expecting
+  # &C4::Circulation::Renewals2::calc_charges, but it's getting
+  # &C4::Circulation::Circ2::calc_charges, which only returns one
+  # element, so itemtype isn't being set.
+  # But &C4::Circulation::Renewals2::calc_charges doesn't appear to
+  # return the correct item type either (or a properly-formatted
+  # charge, for that matter).
   my ($charge,$itemtype)=calc_charges(undef,$dbh,$issue->[$i]{'itemnumber'},$bornum);
   $row{'itemtype'}=$itemtype;
   $row{'charge'}=$charge;
-- 
2.39.2