| 
      
            Lines 31-36
          use Koha::DateUtils qw( dt_from_string output_pref );
      
      
        Link Here
      
     | 
  
        
          | 31 | 
          use Koha::Acquisition::Order;  | 
          31 | 
          use Koha::Acquisition::Order;  | 
        
        
          | 32 | 
          use Koha::Acquisition::Bookseller;  | 
          32 | 
          use Koha::Acquisition::Bookseller;  | 
        
        
          | 33 | 
          use Koha::Number::Price;  | 
          33 | 
          use Koha::Number::Price;  | 
        
            
               | 
               | 
              34 | 
              use Koha::AdditionalField;  | 
            
        
          | 34 | 
           | 
          35 | 
           | 
        
        
          | 35 | 
          use C4::Koha qw( subfield_is_koha_internal_p );  | 
          36 | 
          use C4::Koha qw( subfield_is_koha_internal_p );  | 
        
        
          | 36 | 
           | 
          37 | 
           | 
        
  
    | 
      
            Lines 1865-1870
          sub TransferOrder {
      
      
        Link Here
      
     | 
  
        
          | 1865 | 
              $sth = $dbh->prepare($query);  | 
          1866 | 
              $sth = $dbh->prepare($query);  | 
        
        
          | 1866 | 
              $sth->execute($newordernumber, $ordernumber);  | 
          1867 | 
              $sth->execute($newordernumber, $ordernumber);  | 
        
        
          | 1867 | 
           | 
          1868 | 
           | 
        
            
               | 
               | 
              1869 | 
                  # Copy additional fields values  | 
            
            
              | 1870 | 
                  my $additional_fields = Koha::AdditionalField->all({tablename => 'aqorders'}); | 
            
            
              | 1871 | 
                  foreach my $af (@$additional_fields) { | 
            
            
              | 1872 | 
                      $af->fetch_values({record_id => $ordernumber}); | 
            
            
              | 1873 | 
                      $af->{values}->{$newordernumber} = $af->{values}->{$ordernumber}; | 
            
            
              | 1874 | 
                      $af->insert_values;  | 
            
            
              | 1875 | 
                  }  | 
            
            
              | 1876 | 
               | 
            
        
          | 1868 | 
              $query = q{ | 
          1877 | 
              $query = q{ | 
        
        
          | 1869 | 
                  INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)  | 
          1878 | 
                  INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)  | 
        
        
          | 1870 | 
                  VALUES (?, ?)  | 
          1879 | 
                  VALUES (?, ?)  | 
        
            
              | 1871 | 
              -   | 
               | 
               |