=cut
use strict;
+use warnings;
use CGI;
use C4::Auth;
use C4::Serials; # GetExpirationDate
use C4::Output;
use C4::Context;
-use C4::Dates;
+use C4::Dates qw/format_date format_date_in_iso/;
use Date::Calc qw/Today Date_to_Days/;
my $query = new CGI;
query => $query,
type => "intranet",
authnotrequired => 0,
- flagsrequired => { serials => 1 },
+ flagsrequired => { serials => 'check_expiration' },
debug => 1,
}
);