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