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 400-405
$template->param(
Link Here
|
400 |
ean => $data->{'ean'}, |
411 |
ean => $data->{'ean'}, |
401 |
seriestitle => $data->{'seriestitle'}, |
412 |
seriestitle => $data->{'seriestitle'}, |
402 |
itemtypeloop => \@itemtypes, |
413 |
itemtypeloop => \@itemtypes, |
|
|
414 |
itemnumber => $items, |
403 |
quantity => $data->{'quantity'}, |
415 |
quantity => $data->{'quantity'}, |
404 |
quantityrec => $data->{'quantity'}, |
416 |
quantityrec => $data->{'quantity'}, |
405 |
rrp => $data->{'rrp'}, |
417 |
rrp => $data->{'rrp'}, |
Lines 414-419
$template->param(
Link Here
|
414 |
barcode_subfield => $barcode_subfield, |
426 |
barcode_subfield => $barcode_subfield, |
415 |
import_batch_id => $import_batch_id, |
427 |
import_batch_id => $import_batch_id, |
416 |
subscriptionid => $subscriptionid, |
428 |
subscriptionid => $subscriptionid, |
|
|
429 |
reserveloop => $reserves, |
417 |
acqcreate => C4::Context->preference("AcqCreateItem") eq "ordering" ? 1 : "", |
430 |
acqcreate => C4::Context->preference("AcqCreateItem") eq "ordering" ? 1 : "", |
418 |
(uc(C4::Context->preference("marcflavour"))) => 1 |
431 |
(uc(C4::Context->preference("marcflavour"))) => 1 |
419 |
); |
432 |
); |
Lines 554-556
sub Load_Duplicate {
Link Here
|
554 |
|
567 |
|
555 |
output_html_with_http_headers $input, $cookie, $template->output; |
568 |
output_html_with_http_headers $input, $cookie, $template->output; |
556 |
} |
569 |
} |
|
|
570 |
|
571 |
sub get_items_list { |
572 |
my $ordernumber = shift; |
573 |
my $list = []; |
574 |
|
575 |
@{$list} = map { GetItem($_) } GetItemnumbersFromOrder($ordernumber); |
576 |
return $list; |
577 |
} |