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