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

(-)a/C4/Biblio.pm (-8 / +7 lines)
Lines 489-498 sub BiblioAutoLink { Link Here
489
489
490
    my $linker_module =
490
    my $linker_module =
491
      "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );
491
      "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );
492
    eval { eval "require $linker_module"; };
492
    eval { eval {require $linker_module}; };
493
    if ($@) {
493
    if ($@) {
494
        $linker_module = 'C4::Linker::Default';
494
        $linker_module = 'C4::Linker::Default';
495
        eval "require $linker_module";
495
        eval {require $linker_module};
496
    }
496
    }
497
    if ($@) {
497
    if ($@) {
498
        return 0, 0;
498
        return 0, 0;
Lines 888-894 Return the ISBD view which can be included in opac and intranet Link Here
888
sub GetISBDView {
888
sub GetISBDView {
889
    my ( $biblionumber, $template ) = @_;
889
    my ( $biblionumber, $template ) = @_;
890
    my $record   = GetMarcBiblio($biblionumber, 1);
890
    my $record   = GetMarcBiblio($biblionumber, 1);
891
    return undef unless defined $record;
891
    return unless defined $record;
892
    my $itemtype = &GetFrameworkCode($biblionumber);
892
    my $itemtype = &GetFrameworkCode($biblionumber);
893
    my ( $holdingbrtagf, $holdingbrtagsubf ) = &GetMarcFromKohaField( "items.holdingbranch", $itemtype );
893
    my ( $holdingbrtagf, $holdingbrtagsubf ) = &GetMarcFromKohaField( "items.holdingbranch", $itemtype );
894
    my $tagslib = &GetMarcStructure( 1, $itemtype );
894
    my $tagslib = &GetMarcStructure( 1, $itemtype );
Lines 1145-1151 C<$frameworkcode> is the framework code. Link Here
1145
1145
1146
=cut
1146
=cut
1147
1147
1148
sub GetUsedMarcStructure($) {
1148
sub GetUsedMarcStructure {
1149
    my $frameworkcode = shift || '';
1149
    my $frameworkcode = shift || '';
1150
    my $query = qq/
1150
    my $query = qq/
1151
        SELECT *
1151
        SELECT *
Lines 1210-1216 sub GetMarcBiblio { Link Here
1210
1210
1211
        return $record;
1211
        return $record;
1212
    } else {
1212
    } else {
1213
        return undef;
1213
        return;
1214
    }
1214
    }
1215
}
1215
}
1216
1216
Lines 3452-3458 sub _koha_delete_biblio { Link Here
3452
        $sth2->finish;
3452
        $sth2->finish;
3453
    }
3453
    }
3454
    $sth->finish;
3454
    $sth->finish;
3455
    return undef;
3455
    return;
3456
}
3456
}
3457
3457
3458
=head2 _koha_delete_biblioitems
3458
=head2 _koha_delete_biblioitems
Lines 3501-3507 sub _koha_delete_biblioitems { Link Here
3501
        $sth2->finish;
3501
        $sth2->finish;
3502
    }
3502
    }
3503
    $sth->finish;
3503
    $sth->finish;
3504
    return undef;
3504
    return;
3505
}
3505
}
3506
3506
3507
=head1 UNEXPORTED FUNCTIONS
3507
=head1 UNEXPORTED FUNCTIONS
3508
- 

Return to bug 6679