Lines 355-361
sub calculate {
Link Here
|
355 |
$sth2->execute(@strparams2); |
355 |
$sth2->execute(@strparams2); |
356 |
while (my ($celvalue) = $sth2->fetchrow) { |
356 |
while (my ($celvalue) = $sth2->fetchrow) { |
357 |
my %cell; |
357 |
my %cell; |
358 |
if ($celvalue) { |
358 |
if (defined $celvalue) { |
359 |
$cell{coltitle} = $celvalue; |
359 |
$cell{coltitle} = $celvalue; |
360 |
# $cell{coltitle_display} = ($colfield eq 'branchcode') ? $branches->{$celvalue}->{branchname} : $celvalue; |
360 |
# $cell{coltitle_display} = ($colfield eq 'branchcode') ? $branches->{$celvalue}->{branchname} : $celvalue; |
361 |
$cell{coltitle_display} = $cathash{$celvalue} if ($column eq 'categorycode'); |
361 |
$cell{coltitle_display} = $cathash{$celvalue} if ($column eq 'categorycode'); |
362 |
- |
|
|