From d293d820c16d3b60bc828eb6d7a57029d04d6ecd Mon Sep 17 00:00:00 2001 From: plugz Date: Tue, 1 Jul 2003 10:31:30 +0000 Subject: [PATCH] Itemtypes, branch, and categories are displayed using their respective description to ease reading. --- moremember.pl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/moremember.pl b/moremember.pl index b838559e3b..b0da2bf56d 100755 --- a/moremember.pl +++ b/moremember.pl @@ -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 -- 2.39.5