| Lines 68-73
          my ( $template, $loggedinuser, $cookie ) = get_template_and_user (
      
      
        Link Here | 
        
          | 68 | my $title = $query->param('title'); | 68 | my $title = $query->param('title'); | 
        
          | 69 | my $issn  = $query->param('issn'); | 69 | my $issn  = $query->param('issn'); | 
        
          | 70 | my $date  = format_date_in_iso($query->param('date')); | 70 | my $date  = format_date_in_iso($query->param('date')); | 
            
              |  |  | 71 | my $showexpiredtoday = $query->param('showexpiredtoday'); | 
        
          | 71 |  | 72 |  | 
        
          | 72 | if ($date) { | 73 | if ($date) { | 
        
          | 73 |     my @subscriptions = GetSubscriptions( $title, $issn ); | 74 |     my @subscriptions = GetSubscriptions( $title, $issn ); | 
  
    | Lines 80-86
          if ($date) {
      
      
        Link Here | 
        
          | 80 |         $subscription->{expirationdate} = $expirationdate; | 81 |         $subscription->{expirationdate} = $expirationdate; | 
        
          | 81 |         next if $expirationdate !~ /\d{4}-\d{2}-\d{2}/; # next if not in ISO format. | 82 |         next if $expirationdate !~ /\d{4}-\d{2}-\d{2}/; # next if not in ISO format. | 
        
          | 82 |         if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) && | 83 |         if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) && | 
          
            
              | 83 | 			 Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today) ) { | 84 |             ($showexpiredtoday == 'on' || (Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today))) ) { | 
        
          | 84 |             $subscription->{expirationdate}=format_date($subscription->{expirationdate}); | 85 |             $subscription->{expirationdate}=format_date($subscription->{expirationdate}); | 
        
          | 85 |             push @subscriptions_loop,$subscription; | 86 |             push @subscriptions_loop,$subscription; | 
        
          | 86 |         } | 87 |         } | 
  
    | Lines 89-94
          if ($date) {
      
      
        Link Here | 
        
          | 89 |     $template->param ( | 90 |     $template->param ( | 
        
          | 90 |         title           => $title, | 91 |         title           => $title, | 
        
          | 91 |         issn            => $issn, | 92 |         issn            => $issn, | 
            
              |  |  | 93 |         showexpiredtoday => $showexpiredtoday, | 
        
          | 92 |         numsubscription => scalar @subscriptions_loop, | 94 |         numsubscription => scalar @subscriptions_loop, | 
        
          | 93 |         date => format_date($date), | 95 |         date => format_date($date), | 
        
          | 94 |         subscriptions_loop => \@subscriptions_loop, | 96 |         subscriptions_loop => \@subscriptions_loop, | 
            
              | 95 | -  |  |  |