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