[Koha-cvs] CVS: koha moremember.pl,1.18,1.19

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv26151

Modified Files:
        moremember.pl 
Log Message:
(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.


Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** moremember.pl       5 Oct 2002 09:46:11 -0000       1.18
--- moremember.pl       10 Oct 2002 15:19:50 -0000      1.19
***************
*** 142,150 ****
    my $datedue=ParseDate($issue->[$i]{'date_due'});
    $issue->[$i]{'date_due'} = slashifyDate($issue->[$i]{'date_due'});
!   my %row = %$issue->[$i];
    if ($datedue < $today){  
      $row{'red'}=1; #print "<font color=red>";
    }
    #find the charge for an item
    my 
($charge,$itemtype)=calc_charges(undef,$dbh,$issue->[$i]{'itemnumber'},$bornum);
    $row{'itemtype'}=$itemtype;
--- 142,157 ----
    my $datedue=ParseDate($issue->[$i]{'date_due'});
    $issue->[$i]{'date_due'} = slashifyDate($issue->[$i]{'date_due'});
!   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;