[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;