|
Lines 31-37
use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSugge
Link Here
|
| 31 |
use Koha::Biblios; |
31 |
use Koha::Biblios; |
| 32 |
use Koha::Acquisition::Baskets; |
32 |
use Koha::Acquisition::Baskets; |
| 33 |
use Koha::Acquisition::Booksellers; |
33 |
use Koha::Acquisition::Booksellers; |
| 34 |
use Koha::Acquisition::Contracts; |
|
|
| 35 |
use Koha::Acquisition::Orders; |
34 |
use Koha::Acquisition::Orders; |
| 36 |
use Koha::Libraries; |
35 |
use Koha::Libraries; |
| 37 |
use C4::Letters qw( SendAlerts ); |
36 |
use C4::Letters qw( SendAlerts ); |
|
Lines 400-407
if ( $op eq 'list' ) {
Link Here
|
| 400 |
push @cancelledorders_loop, $line; |
399 |
push @cancelledorders_loop, $line; |
| 401 |
} |
400 |
} |
| 402 |
|
401 |
|
| 403 |
my $contract = Koha::Acquisition::Contracts->find( $basket->{contractnumber} ); |
|
|
| 404 |
|
| 405 |
if ( $basket->{basketgroupid} ) { |
402 |
if ( $basket->{basketgroupid} ) { |
| 406 |
$basketgroup = GetBasketgroup( $basket->{basketgroupid} ); |
403 |
$basketgroup = GetBasketgroup( $basket->{basketgroupid} ); |
| 407 |
} |
404 |
} |
|
Lines 418-431
if ( $op eq 'list' ) {
Link Here
|
| 418 |
my $edi_order = $basket_obj->edi_order; |
415 |
my $edi_order = $basket_obj->edi_order; |
| 419 |
|
416 |
|
| 420 |
$template->param( |
417 |
$template->param( |
| 421 |
basketno => $basketno, |
418 |
basketno => $basketno, |
| 422 |
basket => $basket, |
419 |
basket => $basket, # FIXME Remove basket_obj and use the Koha::Acq::Basket object in the template |
|
|
420 |
basket_obj => $basket_obj, |
| 423 |
basketname => $basket->{'basketname'}, |
421 |
basketname => $basket->{'basketname'}, |
| 424 |
basketbranchcode => $basket->{branch}, |
422 |
basketbranchcode => $basket->{branch}, |
| 425 |
basketnote => $basket->{note}, |
423 |
basketnote => $basket->{note}, |
| 426 |
basketbooksellernote => $basket->{booksellernote}, |
424 |
basketbooksellernote => $basket->{booksellernote}, |
| 427 |
basketcontractno => $basket->{contractnumber}, |
|
|
| 428 |
basketcontractname => $contract->contractname, |
| 429 |
branches_loop => \@branches_loop, |
425 |
branches_loop => \@branches_loop, |
| 430 |
creationdate => $basket->{creationdate}, |
426 |
creationdate => $basket->{creationdate}, |
| 431 |
edi_order => $edi_order, |
427 |
edi_order => $edi_order, |