| 
      
            Lines 51-57
          use C4::Branch;
      
      
        Link Here
      
     | 
  
        
          | 51 | 
          use C4::Output;  | 
          51 | 
          use C4::Output;  | 
        
        
          | 52 | 
          use C4::Context;  | 
          52 | 
          use C4::Context;  | 
        
        
          | 53 | 
          use C4::Dates qw/format_date format_date_in_iso/;  | 
          53 | 
          use C4::Dates qw/format_date format_date_in_iso/;  | 
        
          
            
              | 54 | 
              use Date::Calc qw/Today Date_to_Days/;  | 
              54 | 
              use Date::Calc qw/Date_to_Days/;  | 
            
        
          | 55 | 
           | 
          55 | 
           | 
        
        
          | 56 | 
          my $query = new CGI;  | 
          56 | 
          my $query = new CGI;  | 
        
        
          | 57 | 
           | 
          57 | 
           | 
        
  
    | 
      
            Lines 90-96
          if ($date) {
      
      
        Link Here
      
     | 
  
        
          | 90 | 
                  }  | 
          90 | 
                  }  | 
        
        
          | 91 | 
                  next if $subscription->{cannotedit}; | 
          91 | 
                  next if $subscription->{cannotedit}; | 
        
        
          | 92 | 
                  if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) &&  | 
          92 | 
                  if ( Date_to_Days(split "-",$expirationdate) < Date_to_Days(split "-",$date) &&  | 
        
            
              | 93 | 
                           Date_to_Days(split "-",$expirationdate) > Date_to_Days(&Today) &&  | 
               | 
               | 
            
        
          | 94 | 
                       ( !$branch || ($subscription->{'branchcode'} eq $branch) ) ) { | 
          93 | 
                       ( !$branch || ($subscription->{'branchcode'} eq $branch) ) ) { | 
        
        
          | 95 | 
                      $subscription->{expirationdate}=format_date($subscription->{expirationdate}); | 
          94 | 
                      $subscription->{expirationdate}=format_date($subscription->{expirationdate}); | 
        
        
          | 96 | 
                      push @subscriptions_loop,$subscription;  | 
          95 | 
                      push @subscriptions_loop,$subscription;  | 
        
  
    | 
      
            Lines 104-109
          if ($date) {
      
      
        Link Here
      
     | 
  
        
          | 104 | 
                  date => format_date($date),  | 
          103 | 
                  date => format_date($date),  | 
        
        
          | 105 | 
                  subscriptions_loop => \@subscriptions_loop,  | 
          104 | 
                  subscriptions_loop => \@subscriptions_loop,  | 
        
        
          | 106 | 
                  "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1, | 
          105 | 
                  "BiblioDefaultView".C4::Context->preference("BiblioDefaultView") => 1, | 
        
            
               | 
               | 
              106 | 
                      searched => 1,  | 
            
        
          | 107 | 
              );  | 
          107 | 
              );  | 
        
        
          | 108 | 
          }  | 
          108 | 
          }  | 
        
        
          | 109 | 
           | 
          109 | 
           | 
        
            
              | 110 | 
              -   | 
               | 
               |