Lines 74-80
if ($do_it) {
Link Here
|
74 |
if ( $output eq "screen" ) { |
74 |
if ( $output eq "screen" ) { |
75 |
$template->param( mainloop => $results ); |
75 |
$template->param( mainloop => $results ); |
76 |
output_html_with_http_headers $input, $cookie, $template->output; |
76 |
output_html_with_http_headers $input, $cookie, $template->output; |
77 |
exit(1); |
77 |
exit; |
78 |
} else { |
78 |
} else { |
79 |
print $input->header( |
79 |
print $input->header( |
80 |
-type => 'application/vnd.sun.xml.calc', |
80 |
-type => 'application/vnd.sun.xml.calc', |
Lines 104-110
if ($do_it) {
Link Here
|
104 |
print $sep. $col->{totalcol}; |
104 |
print $sep. $col->{totalcol}; |
105 |
} |
105 |
} |
106 |
print $sep. @$results[0]->{total}; |
106 |
print $sep. @$results[0]->{total}; |
107 |
exit(1); |
107 |
exit; |
108 |
} |
108 |
} |
109 |
} else { |
109 |
} else { |
110 |
my $dbh = C4::Context->dbh; |
110 |
my $dbh = C4::Context->dbh; |
Lines 618-622
sub calculate {
Link Here
|
618 |
push @mainloop, \%globalline; |
618 |
push @mainloop, \%globalline; |
619 |
return \@mainloop; |
619 |
return \@mainloop; |
620 |
} |
620 |
} |
621 |
|
|
|
622 |
1; |
623 |
- |