| 
      
            Lines 25-30
          use C4::Auth;
      
      
        Link Here
      
     | 
  
        
          | 25 | 
          use C4::Context;  | 
          25 | 
          use C4::Context;  | 
        
        
          | 26 | 
          use C4::Output;  | 
          26 | 
          use C4::Output;  | 
        
        
          | 27 | 
           | 
          27 | 
           | 
        
            
               | 
               | 
              28 | 
              use Koha::Acquisition::Bookseller;  | 
            
        
          | 28 | 
          use Koha::Acquisition::Currency;  | 
          29 | 
          use Koha::Acquisition::Currency;  | 
        
        
          | 29 | 
          use Koha::Acquisition::Currencies;  | 
          30 | 
          use Koha::Acquisition::Currencies;  | 
        
        
          | 30 | 
           | 
          31 | 
           | 
        
  
    | 
      
            Lines 94-102
          if ( $op eq 'add_form' ) {
      
      
        Link Here
      
     | 
  
        
          | 94 | 
              # TODO rewrite the following when Koha::Acquisition::Orders will use Koha::Objects  | 
          95 | 
              # TODO rewrite the following when Koha::Acquisition::Orders will use Koha::Objects  | 
        
        
          | 95 | 
              my $schema = Koha::Database->schema;  | 
          96 | 
              my $schema = Koha::Database->schema;  | 
        
        
          | 96 | 
              my $nb_of_orders = $schema->resultset('Aqorder')->search( { currency => $currency->currency } )->count; | 
          97 | 
              my $nb_of_orders = $schema->resultset('Aqorder')->search( { currency => $currency->currency } )->count; | 
        
            
               | 
               | 
              98 | 
                  my $nb_of_vendors = Koha::Acquisition::Bookseller->search( { -or => { listprice => $currency->currency, invoiceprice => $currency->currency } }); | 
            
        
          | 97 | 
              $template->param(  | 
          99 | 
              $template->param(  | 
        
        
          | 98 | 
                  currency     => $currency,  | 
          100 | 
                  currency     => $currency,  | 
        
        
          | 99 | 
                  nb_of_orders => $nb_of_orders,  | 
          101 | 
                  nb_of_orders => $nb_of_orders,  | 
        
            
               | 
               | 
              102 | 
                      nb_of_vendors => $nb_of_vendors,  | 
            
        
          | 100 | 
              );  | 
          103 | 
              );  | 
        
        
          | 101 | 
          } elsif ( $op eq 'delete_confirmed' ) { | 
          104 | 
          } elsif ( $op eq 'delete_confirmed' ) { | 
        
        
          | 102 | 
              my $currency = Koha::Acquisition::Currencies->find($currency_code);  | 
          105 | 
              my $currency = Koha::Acquisition::Currencies->find($currency_code);  |