Lines 466-474
sub calculate {
Link Here
|
466 |
foreach my $row (@loopline) { |
466 |
foreach my $row (@loopline) { |
467 |
foreach my $col (@loopcol) { |
467 |
foreach my $col (@loopcol) { |
468 |
$debug and warn " init table : $row->{rowtitle} ( $row->{rowtitle_display} ) / $col->{coltitle} ( $col->{coltitle_display} ) "; |
468 |
$debug and warn " init table : $row->{rowtitle} ( $row->{rowtitle_display} ) / $col->{coltitle} ( $col->{coltitle_display} ) "; |
469 |
$table{ $row->{rowtitle} }->{ $col->{coltitle} } = 0; |
469 |
table_set(\%table, $row->{rowtitle}, $col->{coltitle}, 0); |
470 |
} |
470 |
} |
471 |
$table{ $row->{rowtitle} }->{totalrow} = 0; |
471 |
table_set(\%table, $row->{rowtitle}, 'totalrow', 0); |
472 |
} |
472 |
} |
473 |
|
473 |
|
474 |
# preparing calculation |
474 |
# preparing calculation |
Lines 572-585
sub calculate {
Link Here
|
572 |
($debug) and warn "filling table $row / $col / $value "; |
572 |
($debug) and warn "filling table $row / $col / $value "; |
573 |
unless ( defined $col ) { |
573 |
unless ( defined $col ) { |
574 |
$emptycol = 1; |
574 |
$emptycol = 1; |
575 |
$col = "zzEMPTY"; |
|
|
576 |
} |
575 |
} |
577 |
unless ( defined $row ) { |
576 |
unless ( defined $row ) { |
578 |
$emptyrow = 1; |
577 |
$emptyrow = 1; |
579 |
$row = "zzEMPTY"; |
|
|
580 |
} |
578 |
} |
581 |
$table{$row}->{$col} += $value; |
579 |
table_inc(\%table, $row, $col, $value); |
582 |
$table{$row}->{totalrow} += $value; |
580 |
table_inc(\%table, $row, 'totalrow', $value); |
583 |
$grantotal += $value; |
581 |
$grantotal += $value; |
584 |
} |
582 |
} |
585 |
push @loopcol, { coltitle => "NULL", coltitle_display => 'NULL' } if ($emptycol); |
583 |
push @loopcol, { coltitle => "NULL", coltitle_display => 'NULL' } if ($emptycol); |
Lines 591-597
sub calculate {
Link Here
|
591 |
#@loopcol ensures the order for columns is common with column titles |
589 |
#@loopcol ensures the order for columns is common with column titles |
592 |
# and the number matches the number of columns |
590 |
# and the number matches the number of columns |
593 |
foreach my $col (@loopcol) { |
591 |
foreach my $col (@loopcol) { |
594 |
my $value = $table{ null_to_zzempty( $row->{rowtitle} ) }->{ null_to_zzempty( $col->{coltitle} ) }; |
592 |
my $value = table_get(\%table, $row->{rowtitle}, $col->{coltitle}); |
595 |
push @loopcell, { value => $value }; |
593 |
push @loopcell, { value => $value }; |
596 |
} |
594 |
} |
597 |
my $rowtitle = ( $row->{rowtitle} eq "NULL" ) ? "zzEMPTY" : $row->{rowtitle}; |
595 |
my $rowtitle = ( $row->{rowtitle} eq "NULL" ) ? "zzEMPTY" : $row->{rowtitle}; |
Lines 599-612
sub calculate {
Link Here
|
599 |
{ 'rowtitle_display' => $row->{rowtitle_display}, |
597 |
{ 'rowtitle_display' => $row->{rowtitle_display}, |
600 |
'rowtitle' => $rowtitle, |
598 |
'rowtitle' => $rowtitle, |
601 |
'loopcell' => \@loopcell, |
599 |
'loopcell' => \@loopcell, |
602 |
'totalrow' => $table{$rowtitle}->{totalrow} |
600 |
'totalrow' => table_get(\%table, $rowtitle, 'totalrow'), |
603 |
}; |
601 |
}; |
604 |
} |
602 |
} |
605 |
for my $col (@loopcol) { |
603 |
for my $col (@loopcol) { |
606 |
my $total = 0; |
604 |
my $total = 0; |
607 |
foreach my $row (@looprow) { |
605 |
foreach my $row (@looprow) { |
608 |
$total += $table{ null_to_zzempty( $row->{rowtitle} ) }->{ null_to_zzempty( $col->{coltitle} ) }; |
606 |
$total += table_get(\%table, $row->{rowtitle}, $col->{coltitle}); |
609 |
$debug and warn "value added " . $table{ $row->{rowtitle} }->{ $col->{coltitle} } . "for line " . $row->{rowtitle}; |
607 |
$debug and warn "value added " . table_get(\%table, $row->{rowtitle}, $col->{coltitle}) . "for line " . $row->{rowtitle}; |
610 |
} |
608 |
} |
611 |
push @loopfooter, { 'totalcol' => $total }; |
609 |
push @loopfooter, { 'totalcol' => $total }; |
612 |
} |
610 |
} |
Lines 633-636
sub null_to_zzempty ($) {
Link Here
|
633 |
return $string; # else return the valid value |
631 |
return $string; # else return the valid value |
634 |
} |
632 |
} |
635 |
|
633 |
|
|
|
634 |
sub table_set { |
635 |
my ($table, $row, $col, $val) = @_; |
636 |
|
637 |
$table->{ null_to_zzempty(lc($row)) }->{ null_to_zzempty(lc($col)) } = $val; |
638 |
} |
639 |
|
640 |
sub table_get { |
641 |
my ($table, $row, $col) = @_; |
642 |
|
643 |
return $table->{ null_to_zzempty(lc($row)) }->{ null_to_zzempty(lc($col)) }; |
644 |
} |
645 |
|
646 |
sub table_inc { |
647 |
my ($table, $row, $col, $inc) = @_; |
648 |
|
649 |
$table->{ null_to_zzempty(lc($row)) }->{ null_to_zzempty(lc($col)) } += $inc; |
650 |
} |
651 |
|
636 |
1; |
652 |
1; |
637 |
- |
|
|