|
Lines 554-561
sub calculate {
Link Here
|
| 554 |
# and the number matches the number of columns |
554 |
# and the number matches the number of columns |
| 555 |
my $colcount=0; |
555 |
my $colcount=0; |
| 556 |
foreach my $col ( @loopcol ) { |
556 |
foreach my $col ( @loopcol ) { |
| 557 |
my $value =$table{$row}->{(($col->{coltitle} eq "NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}} / $wgttable{$row}->{(($col->{coltitle} eq "NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}} if ($table{$row}->{(($col->{coltitle} eq "NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}}); |
557 |
my $value; |
| 558 |
|
558 |
if ($table{$row}->{ |
|
|
559 |
( ( $col->{coltitle} eq 'NULL' ) |
| 560 |
or ( $col->{coltitle} eq q{} ) |
| 561 |
) ? 'zzEMPTY' : $col->{coltitle} |
| 562 |
} |
| 563 |
) { |
| 564 |
$value = $table{$row}->{ |
| 565 |
( ( $col->{coltitle} eq 'NULL' ) |
| 566 |
or ( $col->{coltitle} eq q{} ) |
| 567 |
) ? 'zzEMPTY' : $col->{coltitle} |
| 568 |
} / $wgttable{$row}->{ |
| 569 |
( ( $col->{coltitle} eq 'NULL' ) |
| 570 |
or ( $col->{coltitle} eq q{} ) |
| 571 |
) ? 'zzEMPTY' : $col->{coltitle} |
| 572 |
}; |
| 573 |
} |
| 559 |
$table{$row}->{(($col->{coltitle} eq "NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}} = $value; |
574 |
$table{$row}->{(($col->{coltitle} eq "NULL")or ($col->{coltitle} eq ""))?"zzEMPTY":$col->{coltitle}} = $value; |
| 560 |
$table{$row}->{totalrow}+=$value; |
575 |
$table{$row}->{totalrow}+=$value; |
| 561 |
#warn "row : $row col:$col $cnttable{$row}->{(($col->{coltitle} eq \"NULL\")or ($col->{coltitle} eq \"\"))?\"zzEMPTY\":$col->{coltitle}}"; |
576 |
#warn "row : $row col:$col $cnttable{$row}->{(($col->{coltitle} eq \"NULL\")or ($col->{coltitle} eq \"\"))?\"zzEMPTY\":$col->{coltitle}}"; |
|
Lines 563-574
sub calculate {
Link Here
|
| 563 |
push @loopcell, {value => ($value)?sprintf("%.2f",$value):0 } ; |
578 |
push @loopcell, {value => ($value)?sprintf("%.2f",$value):0 } ; |
| 564 |
} |
579 |
} |
| 565 |
#warn "row : $row colcount:$colcount"; |
580 |
#warn "row : $row colcount:$colcount"; |
| 566 |
my $total = $table{$row}->{totalrow}/$colcount if ($colcount>0); |
581 |
my $total; |
| 567 |
push @looprow,{ 'rowtitle' => ($row eq "zzEMPTY")?"NULL":$row, |
582 |
if ( $colcount > 0 ) { |
| 568 |
'loopcell' => \@loopcell, |
583 |
$total = $table{$row}->{totalrow} / $colcount; |
| 569 |
'hilighted' => ($hilighted >0), |
584 |
} |
| 570 |
'totalrow' => ($total)?sprintf("%.2f",$total):0 |
585 |
push @looprow, |
| 571 |
}; |
586 |
{ 'rowtitle' => ( $row eq "zzEMPTY" ) ? "NULL" : $row, |
|
|
587 |
'loopcell' => \@loopcell, |
| 588 |
'hilighted' => ( $hilighted > 0 ), |
| 589 |
'totalrow' => ($total) ? sprintf( "%.2f", $total ) : 0 |
| 590 |
}; |
| 572 |
$hilighted = -$hilighted; |
591 |
$hilighted = -$hilighted; |
| 573 |
} |
592 |
} |
| 574 |
# |
593 |
# |