use C4::Output;
use C4::Koha;
use C4::Circulation;
-use C4::Date;
+use C4::Dates qw/format_date format_date_in_iso/;
=head1 NAME
debug => 1,
});
$template->param(do_it => $do_it,
- DHTMLcalendar_dateformat => get_date_format_string_for_DHTMLcalendar(),
+ DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
);
if ($do_it) {
-
- #warn
-"line=$line, col=$column, pod=$podsp, rod=$rodsp, aod=$aodsp, calc=$calc, filters=@filters\n";
-
+ # warn "line=$line, col=$column, pod=$podsp, rod=$rodsp, aod=$aodsp, calc=$calc, filters=@filters\n";
my $results =
calculate( $line, $column, $podsp, $rodsp, $aodsp, $calc, \@filters );
if ( $output eq "screen" ) {
$template->param( mainloop => $results );
output_html_with_http_headers $input, $cookie, $template->output;
- exit(1);
}
else {
print $input->header(
print $sep. $col->{totalcol};
}
print $sep. @$results[0]->{total};
- exit(1);
}
+ exit(1);
}
else {
my $dbh = C4::Context->dbh;
my %labels;
my %select;
my $req;
- $req =
- $dbh->prepare(
- "SELECT distinctrow id,name FROM aqbooksellers ORDER BY name");
+ $req = $dbh->prepare("SELECT distinctrow id,name FROM aqbooksellers ORDER BY name");
$req->execute;
my @select;
push @select, "";
my @mime = ( C4::Context->preference("MIME") );
foreach my $mime (@mime) {
-
# warn "".$mime;
}