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