Lines 230-236
if ( $orderinfo->{quantity} ne '0' ) {
Link Here
|
230 |
"aqorders.notes" => $$orderinfo{notes} ? $$orderinfo{notes} : "", |
230 |
"aqorders.notes" => $$orderinfo{notes} ? $$orderinfo{notes} : "", |
231 |
"aqorders.supplierreference" => $$orderinfo{supplierreference}?$$orderinfo{supplierreference}:"", |
231 |
"aqorders.supplierreference" => $$orderinfo{supplierreference}?$$orderinfo{supplierreference}:"", |
232 |
"aqorders.sort1" => $$orderinfo{sort1} ? $$orderinfo{sort1} : "", |
232 |
"aqorders.sort1" => $$orderinfo{sort1} ? $$orderinfo{sort1} : "", |
233 |
"aqorders.sort2" => $$orderinfo{sort2} ? $$orderinfo{sort2} : "" |
233 |
"aqorders.sort2" => $$orderinfo{sort2} ? $$orderinfo{sort2} : "", |
|
|
234 |
"aqorders.basketno" => $$orderinfo{basketno} ? $$orderinfo{basketno} : "", |
235 |
"aqbasket.booksellerid" => $$orderinfo{booksellerid} ? $$orderinfo{booksellerid} : "" |
234 |
} |
236 |
} |
235 |
); |
237 |
); |
236 |
|
238 |
|
Lines 288-297
if ( $orderinfo->{quantity} ne '0' ) {
Link Here
|
288 |
|
290 |
|
289 |
# Replacing or creating subfields |
291 |
# Replacing or creating subfields |
290 |
my ($t, $st); |
292 |
my ($t, $st); |
291 |
for my $tablefield (qw/branchcode quantity listprice uncertainprice rrp ecost notes supplierreference sort1 sort2/) { |
293 |
for my $tablefield (qw/branchcode quantity listprice uncertainprice rrp ecost notes supplierreference sort1 sort2 basketno/) { |
292 |
($t, $st) = GetMarcFromKohaField("aqorders.$tablefield", 'ACQ'); |
294 |
($t, $st) = GetMarcFromKohaField("aqorders.$tablefield", 'ACQ'); |
293 |
$_->update($st, $$orderinfo{$tablefield}) if ($$orderinfo{$tablefield} and $st); |
295 |
$_->update($st, $$orderinfo{$tablefield}) if ($$orderinfo{$tablefield} and $st); |
294 |
} |
296 |
} |
|
|
297 |
($t, $st) = GetMarcFromKohaField("aqbasket.booksellerid", 'ACQ'); |
298 |
$_->update($st, $$orderinfo{booksellerid}) if ($$orderinfo{booksellerid} and $st); |
295 |
ModBiblio($record, $$orderinfo{biblionumber}, 'ACQ'); |
299 |
ModBiblio($record, $$orderinfo{biblionumber}, 'ACQ'); |
296 |
} |
300 |
} |
297 |
} |
301 |
} |