View | Details | Raw Unified | Return to bug 39711
Collapse All | Expand All

(-)a/acqui/neworderempty.pl (-6 / +1 lines)
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
- 

Return to bug 39711