|
Lines 88-94
use C4::Search qw( FindDuplicate );
Link Here
|
| 88 |
use C4::ImportBatch qw( SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc ); |
88 |
use C4::ImportBatch qw( SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc ); |
| 89 |
|
89 |
|
| 90 |
use Koha::Acquisition::Booksellers; |
90 |
use Koha::Acquisition::Booksellers; |
| 91 |
use Koha::Acquisition::Contracts; |
|
|
| 92 |
use Koha::Acquisition::Currencies qw( get_active ); |
91 |
use Koha::Acquisition::Currencies qw( get_active ); |
| 93 |
use Koha::Biblios; |
92 |
use Koha::Biblios; |
| 94 |
use Koha::BiblioFrameworks; |
93 |
use Koha::BiblioFrameworks; |
|
Lines 152-165
$template->param(
Link Here
|
| 152 |
ordernumber => $ordernumber, |
151 |
ordernumber => $ordernumber, |
| 153 |
basketno => $basketno, |
152 |
basketno => $basketno, |
| 154 |
basket => $basket, |
153 |
basket => $basket, |
|
|
154 |
basket_obj => $basketobj, |
| 155 |
booksellerid => $basket->{'booksellerid'}, |
155 |
booksellerid => $basket->{'booksellerid'}, |
| 156 |
name => $bookseller->name, |
156 |
name => $bookseller->name, |
| 157 |
); |
157 |
); |
| 158 |
output_and_exit( $input, $cookie, $template, 'order_cannot_be_edited' ) |
158 |
output_and_exit( $input, $cookie, $template, 'order_cannot_be_edited' ) |
| 159 |
if $ordernumber and ( $basketobj->closedate || $data->{orderstatus} eq "complete" ); |
159 |
if $ordernumber and ( $basketobj->closedate || $data->{orderstatus} eq "complete" ); |
| 160 |
|
160 |
|
| 161 |
my $contract = Koha::Acquisition::Contracts->find( $basket->{contractnumber} ); |
|
|
| 162 |
|
| 163 |
my $listprice = 0; # the price, that can be in MARC record if we have one |
161 |
my $listprice = 0; # the price, that can be in MARC record if we have one |
| 164 |
if ( $ordernumber eq '' and defined $breedingid ) { |
162 |
if ( $ordernumber eq '' and defined $breedingid ) { |
| 165 |
|
163 |
|
|
Lines 453-460
$template->param(
Link Here
|
| 453 |
basketnote => $basket->{'note'}, |
451 |
basketnote => $basket->{'note'}, |
| 454 |
booksellerid => $basket->{'booksellerid'}, |
452 |
booksellerid => $basket->{'booksellerid'}, |
| 455 |
basketbooksellernote => $basket->{booksellernote}, |
453 |
basketbooksellernote => $basket->{booksellernote}, |
| 456 |
basketcontractno => $basket->{contractnumber}, |
|
|
| 457 |
basketcontractname => $contract->contractname, |
| 458 |
creationdate => $basket->{creationdate}, |
454 |
creationdate => $basket->{creationdate}, |
| 459 |
authorisedby => $basket->{'authorisedby'}, |
455 |
authorisedby => $basket->{'authorisedby'}, |
| 460 |
authorisedbyname => $basket->{'authorisedbyname'}, |
456 |
authorisedbyname => $basket->{'authorisedbyname'}, |
| 461 |
- |
|
|