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

(-)a/tools/batch_delete_records.pl (-9 / +8 lines)
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
- 

Return to bug 9565