[Koha-cvs] CVS: koha moremember.pl,1.32,1.33

[Jerome Vizcaino]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv17394

Modified Files:
        moremember.pl 
Log Message:
Itemtypes, branch, and categories are displayed using their respective 
description to ease reading.


Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** moremember.pl       19 May 2003 13:59:12 -0000      1.32
--- moremember.pl       1 Jul 2003 10:31:30 -0000       1.33
***************
*** 118,121 ****
--- 118,127 ----
  $bor{'borrowernumber'}=$bornum;
  
+ # Converts the branchcode to the branch name
+ $data->{'branchcode'} = &getbranchname($data->{'branchcode'});
+ 
+ # Converts the categorycode to the description
+ $data->{'categorycode'} = &getborrowercategory($data->{'categorycode'});
+ 
  # FIXME
  # it looks like $numaccts is a temp variable and that the
***************
*** 173,177 ****
        # charge, for that matter).
        my 
($charge,$itemtype)=calc_charges(undef,$dbh,$issue->[$i]{'itemnumber'},$bornum);
!       $row{'itemtype'}=$itemtype;
        $row{'charge'}=$charge;
  
--- 179,183 ----
        # charge, for that matter).
        my 
($charge,$itemtype)=calc_charges(undef,$dbh,$issue->[$i]{'itemnumber'},$bornum);
!       $row{'itemtype'}=&ItemType($itemtype);
        $row{'charge'}=$charge;