|
Lines 136-141
my $bookseller = Koha::Acquisition::Booksellers->find( $booksellerid );
Link Here
|
| 136 |
output_and_exit( $input, $cookie, $template, 'unknown_basket') unless $basketobj; |
136 |
output_and_exit( $input, $cookie, $template, 'unknown_basket') unless $basketobj; |
| 137 |
output_and_exit( $input, $cookie, $template, 'unknown_vendor') unless $bookseller; |
137 |
output_and_exit( $input, $cookie, $template, 'unknown_vendor') unless $bookseller; |
| 138 |
|
138 |
|
|
|
139 |
$template->param( |
| 140 |
ordernumber => $ordernumber, |
| 141 |
basketno => $basketno, |
| 142 |
basket => $basket, |
| 143 |
booksellerid => $basket->{'booksellerid'}, |
| 144 |
name => $bookseller->name, |
| 145 |
); |
| 146 |
output_and_exit( $input, $cookie, $template, 'order_cannot_be_edited' ) |
| 147 |
if $ordernumber and $basketobj->closedate; |
| 148 |
|
| 139 |
my $contract = GetContract({ |
149 |
my $contract = GetContract({ |
| 140 |
contractnumber => $basket->{contractnumber} |
150 |
contractnumber => $basket->{contractnumber} |
| 141 |
}); |
151 |
}); |
|
Lines 407-416
$quantity //= 0;
Link Here
|
| 407 |
# fill template |
417 |
# fill template |
| 408 |
$template->param( |
418 |
$template->param( |
| 409 |
existing => $biblionumber, |
419 |
existing => $biblionumber, |
| 410 |
ordernumber => $ordernumber, |
|
|
| 411 |
# basket informations |
420 |
# basket informations |
| 412 |
basketno => $basketno, |
|
|
| 413 |
basket => $basket, |
| 414 |
basketname => $basket->{'basketname'}, |
421 |
basketname => $basket->{'basketname'}, |
| 415 |
basketnote => $basket->{'note'}, |
422 |
basketnote => $basket->{'note'}, |
| 416 |
booksellerid => $basket->{'booksellerid'}, |
423 |
booksellerid => $basket->{'booksellerid'}, |
|
Lines 435-441
$template->param(
Link Here
|
| 435 |
order_vendornote => $data->{'order_vendornote'}, |
442 |
order_vendornote => $data->{'order_vendornote'}, |
| 436 |
listincgst => $bookseller->listincgst, |
443 |
listincgst => $bookseller->listincgst, |
| 437 |
invoiceincgst => $bookseller->invoiceincgst, |
444 |
invoiceincgst => $bookseller->invoiceincgst, |
| 438 |
name => $bookseller->name, |
|
|
| 439 |
cur_active_sym => $active_currency->symbol, |
445 |
cur_active_sym => $active_currency->symbol, |
| 440 |
cur_active => $active_currency->currency, |
446 |
cur_active => $active_currency->currency, |
| 441 |
currencies => \@currencies, |
447 |
currencies => \@currencies, |