Bug 30952: Fix "rows" forms

[koha-ffzg.git] / serials / checkexpiration.pl

diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl
index 2b6f202..e253f18 100755 (executable)
--- a/serials/checkexpiration.pl
+++ b/serials/checkexpiration.pl
@@ -44,11 +44,11 @@ The date to filter on.
 
 use Modern::Perl;
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Serials; # GetExpirationDate
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Serials qw( SearchSubscriptions GetExpirationDate );
+use C4::Output qw( output_html_with_http_headers );
 use C4::Context;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string );
 
 use DateTime;
 
@@ -60,7 +60,6 @@ my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user (
         query           => $query,
         type            => "intranet",
         flagsrequired   => { serials => 'check_expiration' },
-        debug           => 1,
     }
 );
 
@@ -69,7 +68,7 @@ my $issn  = $query->param('issn');
 my $branch = $query->param('branch');
 my $date = $query->param('date');
 $date = eval { dt_from_string( scalar $query->param('date') ) } if $date;
-my $showhistoricexpired = $query->param('showhistoryexpired');
+my $showhistoricexpired = $query->param('showhistoricexpired');
 
 if ($date) {
     my @subscriptions = SearchSubscriptions({ title => $title, issn => $issn, orderby => 'title' });
@@ -96,7 +95,7 @@ if ($date) {
         my $expirationdate_dt = dt_from_string( $expirationdate, 'iso' );
         my $today_dt = dt_from_string();
         if (   DateTime->compare( $date, $expirationdate_dt ) == 1
-            && ( $showhistoricexpired || DateTime->compare( $expiration_dt, $today_dt ) == 1 )
+            && ( $showhistoricexpired || DateTime->compare( $expirationdate_dt, $today_dt ) == 1 )
             && ( !$branch || ( $subscription->{'branchcode'} eq $branch ) ) ) {
             push @subscriptions_loop, $subscription;
         }
@@ -109,7 +108,6 @@ if ($date) {
         numsubscription     => scalar @subscriptions_loop,
         date                => $date,
         subscriptions_loop  => \@subscriptions_loop,
-        "BiblioDefaultView" . C4::Context->preference("BiblioDefaultView") => 1,
         searched                                                           => 1,
     );
 }