Itemtypes, branch, and categories are displayed using their respective description to ease reading.

This commit is contained in:
plugz 2003-07-01 10:31:30 +00:00
parent bee78deec1
commit d293d820c1
1 changed files with 7 additions and 1 deletions

View File

@ -117,6 +117,12 @@ if ($data->{'categorycode'} ne 'C'){
my %bor;
$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
# for (my $i;$i<$numaccts;$i++)
@ -172,7 +178,7 @@ for (my $i=0;$i<$count;$i++){
# 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{'itemtype'}=&ItemType($itemtype);
$row{'charge'}=$charge;
#check item is not reserved