|
Lines 42-47
use Koha::AuthorisedValues;
Link Here
|
| 42 |
use Koha::BiblioFrameworks; |
42 |
use Koha::BiblioFrameworks; |
| 43 |
use Koha::ClassSources; |
43 |
use Koha::ClassSources; |
| 44 |
use Koha::Items; |
44 |
use Koha::Items; |
|
|
45 |
use Koha::Item::Bundles; |
| 45 |
|
46 |
|
| 46 |
use List::MoreUtils qw( none ); |
47 |
use List::MoreUtils qw( none ); |
| 47 |
|
48 |
|
|
Lines 70-87
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
| 70 |
} |
71 |
} |
| 71 |
); |
72 |
); |
| 72 |
|
73 |
|
| 73 |
my $schema = Koha::Database->new()->schema(); |
74 |
my @item_bundles = Koha::Item::Bundles->search( |
| 74 |
my $item_bundles_rs = Koha::Items->search( |
75 |
{}, |
| 75 |
{ |
76 |
{ group_by => [ 'host' ], columns => [ 'host' ] }, |
| 76 |
'item_bundles_hosts.item' => { '!=' => undef }, |
77 |
)->as_list; |
| 77 |
}, |
|
|
| 78 |
{ |
| 79 |
join => 'item_bundles_hosts', |
| 80 |
group_by => 'itemnumber', |
| 81 |
} |
| 82 |
); |
| 83 |
|
| 84 |
my @item_bundles = $item_bundles_rs->as_list; |
| 85 |
|
78 |
|
| 86 |
my @authorised_value_list; |
79 |
my @authorised_value_list; |
| 87 |
my $authorisedvalue_categories = ''; |
80 |
my $authorisedvalue_categories = ''; |
| 88 |
- |
|
|