|
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 |
} |