|
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 514-521
if ( $op eq 'list' ) {
Link Here
|
| 514 |
push @cancelledorders_loop, $line; |
513 |
push @cancelledorders_loop, $line; |
| 515 |
} |
514 |
} |
| 516 |
|
515 |
|
| 517 |
my $contract = Koha::Acquisition::Contracts->find( $basket->{contractnumber} ); |
|
|
| 518 |
|
| 519 |
if ( $basket->{basketgroupid} ) { |
516 |
if ( $basket->{basketgroupid} ) { |
| 520 |
$basketgroup = GetBasketgroup( $basket->{basketgroupid} ); |
517 |
$basketgroup = GetBasketgroup( $basket->{basketgroupid} ); |
| 521 |
} |
518 |
} |
|
Lines 532-545
if ( $op eq 'list' ) {
Link Here
|
| 532 |
my $edi_order = $basket_obj->edi_order; |
529 |
my $edi_order = $basket_obj->edi_order; |
| 533 |
|
530 |
|
| 534 |
$template->param( |
531 |
$template->param( |
| 535 |
basketno => $basketno, |
532 |
basketno => $basketno, |
| 536 |
basket => $basket, |
533 |
basket => $basket, # FIXME Remove basket_obj and use the Koha::Acq::Basket object in the template |
|
|
534 |
basket_obj => $basket_obj, |
| 537 |
basketname => $basket->{'basketname'}, |
535 |
basketname => $basket->{'basketname'}, |
| 538 |
basketbranchcode => $basket->{branch}, |
536 |
basketbranchcode => $basket->{branch}, |
| 539 |
basketnote => $basket->{note}, |
537 |
basketnote => $basket->{note}, |
| 540 |
basketbooksellernote => $basket->{booksellernote}, |
538 |
basketbooksellernote => $basket->{booksellernote}, |
| 541 |
basketcontractno => $basket->{contractnumber}, |
|
|
| 542 |
basketcontractname => $contract->contractname, |
| 543 |
branches_loop => \@branches_loop, |
539 |
branches_loop => \@branches_loop, |
| 544 |
creationdate => $basket->{creationdate}, |
540 |
creationdate => $basket->{creationdate}, |
| 545 |
edi_order => $edi_order, |
541 |
edi_order => $edi_order, |