| 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 78-86
          if ($date) {
      
      
        Link Here | 
        
          | 78 |         my $expirationdate = GetExpirationDate($subscriptionid); | 79 |         my $expirationdate = GetExpirationDate($subscriptionid); | 
        
          | 79 |  | 80 |  | 
        
          | 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 || $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 && $showexpiredtoday eq 'on') || (Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today)))  | 
            
              |  |  | 85 |             ) { | 
        
          | 84 |             $subscription->{expirationdate}=format_date($subscription->{expirationdate}); | 86 |             $subscription->{expirationdate}=format_date($subscription->{expirationdate}); | 
        
          | 85 |             push @subscriptions_loop,$subscription; | 87 |             push @subscriptions_loop,$subscription; | 
        
          | 86 |         } | 88 |         } | 
  
    | Lines 89-94
          if ($date) {
      
      
        Link Here | 
        
          | 89 |     $template->param ( | 91 |     $template->param ( | 
        
          | 90 |         title           => $title, | 92 |         title           => $title, | 
        
          | 91 |         issn            => $issn, | 93 |         issn            => $issn, | 
            
              |  |  | 94 |         showexpiredtoday => $showexpiredtoday, | 
        
          | 92 |         numsubscription => scalar @subscriptions_loop, | 95 |         numsubscription => scalar @subscriptions_loop, | 
        
          | 93 |         date => format_date($date), | 96 |         date => format_date($date), | 
        
          | 94 |         subscriptions_loop => \@subscriptions_loop, | 97 |         subscriptions_loop => \@subscriptions_loop, | 
            
              | 95 | -  |  |  |