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