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

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

Return to bug 6679