projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Visual alert (red) on overdue return.
[koha.git]
/
circ
/
overdue.pl
diff --git
a/circ/overdue.pl
b/circ/overdue.pl
index
e8e280f
..
7152d44
100755
(executable)
--- a/
circ/overdue.pl
+++ b/
circ/overdue.pl
@@
-46,7
+46,7
@@
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
query => $input,
type => "intranet",
authnotrequired => 0,
query => $input,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { reports => 1, circulate =>
1
},
+ flagsrequired => { reports => 1, circulate =>
"circulate_remaining_permissions"
},
debug => 1,
}
);
debug => 1,
}
);
@@
-56,7
+56,8
@@
my $dbh = C4::Context->dbh;
# download the complete CSV
if ($op eq 'csv') {
warn "BRANCH : $branchfilter";
# download the complete CSV
if ($op eq 'csv') {
warn "BRANCH : $branchfilter";
- my $csv = `../misc/cronjobs/overdue_notices.pl -csv -n -library $branchfilter`;
+ my $lib = $branchfilter ? "-library $branchfilter" :'';
+ my $csv = `../misc/cronjobs/overdue_notices.pl -csv -n $lib`;
print $input->header(-type => 'application/vnd.sun.xml.calc',
-encoding => 'utf-8',
-attachment=>"overdues.csv",
print $input->header(-type => 'application/vnd.sun.xml.calc',
-encoding => 'utf-8',
-attachment=>"overdues.csv",