|
Lines 54-60
my @filters = $input->param("Filter");
Link Here
|
| 54 |
$filters[3]=format_date_in_iso($filters[3]); |
54 |
$filters[3]=format_date_in_iso($filters[3]); |
| 55 |
$filters[4]=format_date_in_iso($filters[4]); |
55 |
$filters[4]=format_date_in_iso($filters[4]); |
| 56 |
my $digits = $input->param("digits"); |
56 |
my $digits = $input->param("digits"); |
| 57 |
my $period = $input->param("period"); |
57 |
our $period = $input->param("period"); |
| 58 |
my $borstat = $input->param("status"); |
58 |
my $borstat = $input->param("status"); |
| 59 |
my $borstat1 = $input->param("activity"); |
59 |
my $borstat1 = $input->param("activity"); |
| 60 |
my $output = $input->param("output"); |
60 |
my $output = $input->param("output"); |
|
Lines 298-303
sub calculate {
Link Here
|
| 298 |
# warn " init table : $row->{rowtitle} / $col->{coltitle} "; |
298 |
# warn " init table : $row->{rowtitle} / $col->{coltitle} "; |
| 299 |
$table{$row->{rowtitle}}->{$col->{coltitle}}=0; |
299 |
$table{$row->{rowtitle}}->{$col->{coltitle}}=0; |
| 300 |
} |
300 |
} |
|
|
301 |
$row->{rowtitle} ||= ''; |
| 301 |
$table{$row->{rowtitle}}->{totalrow}=0; |
302 |
$table{$row->{rowtitle}}->{totalrow}=0; |
| 302 |
$table{$row->{rowtitle}}->{rowtitle_display} = $row->{rowtitle_display}; |
303 |
$table{$row->{rowtitle}}->{rowtitle_display} = $row->{rowtitle_display}; |
| 303 |
} |
304 |
} |
| 304 |
- |
|
|