Lines 196-201
else { #modify order
Link Here
|
196 |
my $suggestion; |
196 |
my $suggestion; |
197 |
$suggestion = GetSuggestionInfo($suggestionid) if $suggestionid; |
197 |
$suggestion = GetSuggestionInfo($suggestionid) if $suggestionid; |
198 |
|
198 |
|
|
|
199 |
my ( undef, $reserves ) = |
200 |
C4::Reserves::GetReservesFromBiblionumber( $biblionumber, 1 ); |
201 |
foreach my $res ( @{$reserves} ) { |
202 |
my $reserveborrower = GetMember( borrowernumber => $res->{borrowernumber} ); |
203 |
$res->{cardnumber} = $reserveborrower->{cardnumber}; |
204 |
$res->{firstname} = $reserveborrower->{firstname}; |
205 |
$res->{surname} = $reserveborrower->{surname}; |
206 |
} |
207 |
|
199 |
# get currencies (for change rates calcs if needed) |
208 |
# get currencies (for change rates calcs if needed) |
200 |
my $active_currency = GetCurrency(); |
209 |
my $active_currency = GetCurrency(); |
201 |
my $default_currency; |
210 |
my $default_currency; |
Lines 357-362
my @gst_values = map {
Link Here
|
357 |
option => $_ |
366 |
option => $_ |
358 |
}, split( '\|', C4::Context->preference("gist") ); |
367 |
}, split( '\|', C4::Context->preference("gist") ); |
359 |
|
368 |
|
|
|
369 |
my $items = get_items_list($ordernumber); |
370 |
|
360 |
$template->param( |
371 |
$template->param( |
361 |
existing => $biblionumber, |
372 |
existing => $biblionumber, |
362 |
ordernumber => $ordernumber, |
373 |
ordernumber => $ordernumber, |
Lines 399-404
$template->param(
Link Here
|
399 |
ean => $data->{'ean'}, |
410 |
ean => $data->{'ean'}, |
400 |
seriestitle => $data->{'seriestitle'}, |
411 |
seriestitle => $data->{'seriestitle'}, |
401 |
itemtypeloop => \@itemtypes, |
412 |
itemtypeloop => \@itemtypes, |
|
|
413 |
itemnumber => $items, |
402 |
quantity => $data->{'quantity'}, |
414 |
quantity => $data->{'quantity'}, |
403 |
quantityrec => $data->{'quantity'}, |
415 |
quantityrec => $data->{'quantity'}, |
404 |
rrp => $data->{'rrp'}, |
416 |
rrp => $data->{'rrp'}, |
Lines 413-418
$template->param(
Link Here
|
413 |
barcode_subfield => $barcode_subfield, |
425 |
barcode_subfield => $barcode_subfield, |
414 |
import_batch_id => $import_batch_id, |
426 |
import_batch_id => $import_batch_id, |
415 |
subscriptionid => $subscriptionid, |
427 |
subscriptionid => $subscriptionid, |
|
|
428 |
reserveloop => $reserves, |
416 |
acqcreate => C4::Context->preference("AcqCreateItem") eq "ordering" ? 1 : "", |
429 |
acqcreate => C4::Context->preference("AcqCreateItem") eq "ordering" ? 1 : "", |
417 |
(uc(C4::Context->preference("marcflavour"))) => 1 |
430 |
(uc(C4::Context->preference("marcflavour"))) => 1 |
418 |
); |
431 |
); |
Lines 553-555
sub Load_Duplicate {
Link Here
|
553 |
|
566 |
|
554 |
output_html_with_http_headers $input, $cookie, $template->output; |
567 |
output_html_with_http_headers $input, $cookie, $template->output; |
555 |
} |
568 |
} |
|
|
569 |
|
570 |
sub get_items_list { |
571 |
my $ordernumber = shift; |
572 |
my $list = []; |
573 |
|
574 |
@{$list} = map { GetItem($_) } GetItemnumbersFromOrder($ordernumber); |
575 |
return $list; |
576 |
} |