Lines 23-32
use Modern::Perl;
Link Here
|
23 |
use CGI; |
23 |
use CGI; |
24 |
use List::MoreUtils qw( uniq ); |
24 |
use List::MoreUtils qw( uniq ); |
25 |
|
25 |
|
26 |
use C4::Auth; |
26 |
use C4::Auth qw( get_template_and_user ); |
27 |
use C4::Output; |
27 |
use C4::Output qw( output_html_with_http_headers ); |
|
|
28 |
use C4::Biblio qw( GetMarcBiblio ); |
28 |
use C4::AuthoritiesMarc; |
29 |
use C4::AuthoritiesMarc; |
29 |
use C4::Biblio; |
|
|
30 |
use Koha::Virtualshelves; |
30 |
use Koha::Virtualshelves; |
31 |
|
31 |
|
32 |
use Koha::Authorities; |
32 |
use Koha::Authorities; |
Lines 87-94
if ( $op eq 'form' ) {
Link Here
|
87 |
for my $record_id ( uniq @record_ids ) { |
87 |
for my $record_id ( uniq @record_ids ) { |
88 |
if ( $recordtype eq 'biblio' ) { |
88 |
if ( $recordtype eq 'biblio' ) { |
89 |
# Retrieve biblio information |
89 |
# Retrieve biblio information |
90 |
my $biblio = Koha::Biblios->find( $record_id ); |
90 |
my $biblio_object = Koha::Biblios->find( $record_id ); |
91 |
unless ( $biblio ) { |
91 |
unless ( $biblio_object ) { |
92 |
push @messages, { |
92 |
push @messages, { |
93 |
type => 'warning', |
93 |
type => 'warning', |
94 |
code => 'biblio_not_exists', |
94 |
code => 'biblio_not_exists', |
Lines 96-107
if ( $op eq 'form' ) {
Link Here
|
96 |
}; |
96 |
}; |
97 |
next; |
97 |
next; |
98 |
} |
98 |
} |
99 |
my $holds_count = $biblio->holds->count; |
99 |
my $biblio = $biblio_object->unblessed; |
100 |
$biblio = $biblio->unblessed; |
|
|
101 |
my $record = &GetMarcBiblio({ biblionumber => $record_id }); |
100 |
my $record = &GetMarcBiblio({ biblionumber => $record_id }); |
102 |
$biblio->{itemnumbers} = [Koha::Items->search({ biblionumber => $record_id })->get_column('itemnumber')]; |
101 |
$biblio->{itemnumbers} = [Koha::Items->search({ biblionumber => $record_id })->get_column('itemnumber')]; |
103 |
$biblio->{holds_count} = $holds_count; |
102 |
$biblio->{holds_count} = $biblio_object->holds->count; |
104 |
$biblio->{issues_count} = C4::Biblio::CountItemsIssued( $record_id ); |
103 |
$biblio->{issues_count} = C4::Biblio::CountItemsIssued( $record_id ); |
|
|
104 |
$biblio->{subscriptions_count} = $biblio_object->subscriptions->count; |
105 |
push @records, $biblio; |
105 |
push @records, $biblio; |
106 |
} else { |
106 |
} else { |
107 |
# Retrieve authority information |
107 |
# Retrieve authority information |
108 |
- |
|
|