projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 10955 - Add ability to skip deletions in zebraqueue
[koha_fer]
/
reports
/
acquisitions_stats.pl
diff --git
a/reports/acquisitions_stats.pl
b/reports/acquisitions_stats.pl
index
de4b0f3
..
8d5cb1d
100755
(executable)
--- a/
reports/acquisitions_stats.pl
+++ b/
reports/acquisitions_stats.pl
@@
-72,10
+72,11
@@
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
our $sep = $input->param("sep") // '';
$sep = "\t" if ($sep eq 'tabulation');
our $sep = $input->param("sep") // '';
$sep = "\t" if ($sep eq 'tabulation');
+
$template->param(
do_it => $do_it,
$template->param(
do_it => $do_it,
- DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
);
);
+
if ($do_it) {
my $results =
calculate( $line, $column, $podsp, $rodsp, $calc, \@filters );
if ($do_it) {
my $results =
calculate( $line, $column, $podsp, $rodsp, $calc, \@filters );
@@
-127,7
+128,7
@@
else {
my @select;
my %select;
push @select, "";
my @select;
my %select;
push @select, "";
- $select{''} = "All
Item T
ypes";
+ $select{''} = "All
item t
ypes";
while ( my ( $value, $desc ) = $req->fetchrow ) {
push @select, $value;
$select{$value} = $desc;
while ( my ( $value, $desc ) = $req->fetchrow ) {
push @select, $value;
$select{$value} = $desc;
@@
-146,7
+147,7
@@
else {
undef @select;
undef %select;
push @select, "";
undef @select;
undef %select;
push @select, "";
- $select{''} = "All
budget
s";
+ $select{''} = "All
fund
s";
while ( my ( $value, $desc ) = $req->fetchrow ) {
push @select, $value;
while ( my ( $value, $desc ) = $req->fetchrow ) {
push @select, $value;