| 
      
            Lines 25-31
          use C4::Search qw( enabled_staff_search_views );
      
      
        Link Here
      
     | 
  
        
          | 25 | 
           | 
          25 | 
           | 
        
        
          | 26 | 
          use Koha::AdditionalFields;  | 
          26 | 
          use Koha::AdditionalFields;  | 
        
        
          | 27 | 
          use Koha::AuthorisedValues;  | 
          27 | 
          use Koha::AuthorisedValues;  | 
        
          
            
              | 28 | 
              use Koha::DateUtils qw( output_pref );  | 
              28 | 
              use Koha::DateUtils qw( output_pref dt_from_string );  | 
            
        
          | 29 | 
          use Koha::Acquisition::Bookseller;  | 
          29 | 
          use Koha::Acquisition::Bookseller;  | 
        
        
          | 30 | 
          use Koha::Subscriptions;  | 
          30 | 
          use Koha::Subscriptions;  | 
        
        
          | 31 | 
           | 
          31 | 
           | 
        
  
    | 
      
            Lines 117-122
          $subs->{location} = $av->count ? $av->next->lib : '';
      
      
        Link Here
      
     | 
  
        
          | 117 | 
          $av = Koha::AuthorisedValues->search({ category => 'CCODE', authorised_value => $subs->{ccode} }); | 
          117 | 
          $av = Koha::AuthorisedValues->search({ category => 'CCODE', authorised_value => $subs->{ccode} }); | 
        
        
          | 118 | 
          $subs->{ccode} = $av->count ? $av->next->lib : ''; | 
          118 | 
          $subs->{ccode} = $av->count ? $av->next->lib : ''; | 
        
        
          | 119 | 
          $subs->{abouttoexpire}  = abouttoexpire($subs->{subscriptionid}); | 
          119 | 
          $subs->{abouttoexpire}  = abouttoexpire($subs->{subscriptionid}); | 
        
            
               | 
               | 
              120 | 
              $subs->{has_expired_already}  = dt_from_string($subs->{enddate})->compare(dt_from_string); | 
            
        
          | 120 | 
          $template->param(%{ $subs }); | 
          121 | 
          $template->param(%{ $subs }); | 
        
        
          | 121 | 
          $template->param(biblionumber_for_new_subscription => $subs->{bibnum}); | 
          122 | 
          $template->param(biblionumber_for_new_subscription => $subs->{bibnum}); | 
        
        
          | 122 | 
          my @irregular_issues = split /;/, $subs->{irregularity}; | 
          123 | 
          my @irregular_issues = split /;/, $subs->{irregularity}; | 
        
            
              | 123 | 
              -   | 
               | 
               |