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

(-)a/C4/Biblio.pm (+3 lines)
Lines 650-655 sub AddAuthorityFromHeading { Link Here
650
    my $field = shift;
650
    my $field = shift;
651
    my $bib = shift;
651
    my $bib = shift;
652
652
653
    if(!defined $heading || !defined $field || !defined $bib){
654
       return 0;
655
    }
653
    my $authtypedata =
656
    my $authtypedata =
654
      C4::AuthoritiesMarc::GetAuthType( $heading->auth_type() );
657
      C4::AuthoritiesMarc::GetAuthType( $heading->auth_type() );
655
    my $marcrecordauth = MARC::Record->new();
658
    my $marcrecordauth = MARC::Record->new();
(-)a/t/Biblio.t (-2 / +2 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 46;
20
use Test::More tests => 47;
21
use Test::MockModule;
21
use Test::MockModule;
22
use Test::Warn;
22
use Test::Warn;
23
use DBD::Mock;
23
use DBD::Mock;
Lines 180-183 warnings_like { $ret = UpdateTotalIssues() } Link Here
180
180
181
ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist');
181
ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist');
182
182
183
is(C4::Biblio::AddAuthorityFromHeading(), 0, 'AddAuthorityFromHeading returns zero if not passed heading, field or bib');
183
1;
184
1;
184
- 

Return to bug 11299