# download the complete CSV
if ($op eq 'csv') {
warn "BRANCH : $branchfilter";
- my $csv = `../misc/cronjobs/overdue_notices.pl -csv -n -library $branchfilter`;
+ my $csv = `../misc/cronjobs/overdue_notices.pl -csv -n`; # -library $branchfilter`;
print $input->header(-type => 'application/vnd.sun.xml.calc',
-encoding => 'utf-8',
-attachment=>"overdues.csv",
query => $query,
type => "opac",
authnotrequired => 0,
- flagsrequired => {borrow => 1},
+ flagsrequired => {circulate => 1},
});
query => $query,
type => "opac",
authnotrequired => 1,
- flagsrequired => {borrow => 1},
+ flagsrequired => {circulate => 1},
debug => 1,
});
# end code modified by dan
query => $query,
type => "opac",
authnotrequired => 0,
- flagsrequired => { borrow => 1 },
+ flagsrequired => { circulate => 1 },
# End Code Modified by Christina Lee
});
query => $query,
type => "opac",
authnotrequired => 0,
- flagsrequired => { selfcheckout => 1 },
+ flagsrequired => { circulate => 1 },
});
my $issuerid = $loggedinuser;
query => $query,
type => "opac",
authnotrequired => 0,
- flagsrequired => { managesco => 1},
+ flagsrequired => { circulate => 1 },
debug => 1,
});
my $dbh = C4::Context->dbh;