| Lines 1266-1271
          sub NewOrder {
      
      
        Link Here | 
        
          | 1266 |     my $dbh = C4::Context->dbh; | 1266 |     my $dbh = C4::Context->dbh; | 
        
          | 1267 |     my @params; | 1267 |     my @params; | 
        
          | 1268 |  | 1268 |  | 
            
              |  |  | 1269 |     croak "The ordernumber parameter should not be provided on calling NewOrder" | 
            
              | 1270 |       if $orderinfo->{ordernumber}; | 
        
          | 1269 |  | 1271 |  | 
        
          | 1270 |     # if these parameters are missing, we can't continue | 1272 |     # if these parameters are missing, we can't continue | 
        
          | 1271 |     for my $key (qw/basketno quantity biblionumber budget_id/) { | 1273 |     for my $key (qw/basketno quantity biblionumber budget_id/) { | 
  
    | Lines 1281-1286
          sub NewOrder {
      
      
        Link Here | 
        
          | 1281 |     my $schema = Koha::Database->new()->schema; | 1283 |     my $schema = Koha::Database->new()->schema; | 
        
          | 1282 |     my $columns = ' '.join(' ', $schema->source('Aqorder')->columns).' '; | 1284 |     my $columns = ' '.join(' ', $schema->source('Aqorder')->columns).' '; | 
        
          | 1283 |     my $new_order = { map { $columns =~ / $_ / ? ($_ => $orderinfo->{$_}) : () } keys(%$orderinfo) }; | 1285 |     my $new_order = { map { $columns =~ / $_ / ? ($_ => $orderinfo->{$_}) : () } keys(%$orderinfo) }; | 
            
              |  |  | 1286 |     $new_order->{ordernumber} ||= undef; | 
        
          | 1284 |  | 1287 |  | 
        
          | 1285 |     my $rs = $schema->resultset('Aqorder'); | 1288 |     my $rs = $schema->resultset('Aqorder'); | 
        
          | 1286 |     my $ordernumber = $rs->create($new_order)->id; | 1289 |     my $ordernumber = $rs->create($new_order)->id; |