|
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; |