Lines 310-319
sub calculate {
Link Here
|
310 |
$strsth .= " ORDER BY $line"; |
310 |
$strsth .= " ORDER BY $line"; |
311 |
|
311 |
|
312 |
my $sth = $dbh->prepare($strsth); |
312 |
my $sth = $dbh->prepare($strsth); |
313 |
if ( (@linefilter) and ( $linefilter[1] ) ) { |
313 |
if ( (@linefilter) and ( $linefilter[0] && $linefilter[1] ) ) { |
314 |
$sth->execute( $linefilter[0], $linefilter[1] ); |
314 |
$sth->execute( $linefilter[0], $linefilter[1] ); |
315 |
} elsif ( $linefilter[0] ) { |
315 |
} elsif ( $linefilter[0] ) { |
316 |
$sth->execute( $linefilter[0] ); |
316 |
$sth->execute( $linefilter[0] ); |
|
|
317 |
} elsif ( $linefilter[1] ) { |
318 |
$sth->execute( $linefilter[1] ); |
317 |
} else { |
319 |
} else { |
318 |
$sth->execute; |
320 |
$sth->execute; |
319 |
} |
321 |
} |
Lines 364-373
sub calculate {
Link Here
|
364 |
|
366 |
|
365 |
my $sth2 = $dbh->prepare($strsth2); |
367 |
my $sth2 = $dbh->prepare($strsth2); |
366 |
|
368 |
|
367 |
if ( (@colfilter) and ( $colfilter[1] ) ) { |
369 |
if ( (@colfilter) and ( $colfilter[0] and $colfilter[1] ) ) { |
368 |
$sth2->execute( $colfilter[0], $colfilter[1] ); |
370 |
$sth2->execute( $colfilter[0], $colfilter[1] ); |
369 |
} elsif ( $colfilter[0] ) { |
371 |
} elsif ( $colfilter[0] ) { |
370 |
$sth2->execute( $colfilter[0] ); |
372 |
$sth2->execute( $colfilter[0] ); |
|
|
373 |
} elsif ( $colfilter[1] ) { |
374 |
$sth2->execute( $colfilter[1] ); |
371 |
} else { |
375 |
} else { |
372 |
$sth2->execute; |
376 |
$sth2->execute; |
373 |
} |
377 |
} |
374 |
- |
|
|