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 |
- |
|
|