Lines 379-385
sub calculate {
Link Here
|
379 |
} |
379 |
} |
380 |
} |
380 |
} |
381 |
|
381 |
|
382 |
my $i = 0; |
382 |
my $i = 0; |
383 |
my $highlighted = -1; |
383 |
my $highlighted = -1; |
384 |
|
384 |
|
385 |
#Initialization of cell values..... |
385 |
#Initialization of cell values..... |
Lines 478-487
sub calculate {
Link Here
|
478 |
push @loopcell, { value => $value }; |
478 |
push @loopcell, { value => $value }; |
479 |
} |
479 |
} |
480 |
my $r = { |
480 |
my $r = { |
481 |
rowtitle => ( $row eq "zzEMPTY" ) ? "NULL" : $row, |
481 |
rowtitle => ( $row eq "zzEMPTY" ) ? "NULL" : $row, |
482 |
loopcell => \@loopcell, |
482 |
loopcell => \@loopcell, |
483 |
highlighted => ( $highlighted > 0 ), |
483 |
highlighted => ( $highlighted > 0 ), |
484 |
totalrow => $table{$row}->{totalrow} |
484 |
totalrow => $table{$row}->{totalrow} |
485 |
}; |
485 |
}; |
486 |
$r->{totalrow} = sprintf( "%.2f", $r->{totalrow} ) if ( $r->{totalrow} and grep /$process/, ( 3, 4, 5 ) ); |
486 |
$r->{totalrow} = sprintf( "%.2f", $r->{totalrow} ) if ( $r->{totalrow} and grep /$process/, ( 3, 4, 5 ) ); |
487 |
push @looprow, $r; |
487 |
push @looprow, $r; |