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