| 
      
            Lines 32-42
          use Module::Load::Conditional qw(can_load);
      
      
        Link Here
      
     | 
  
        
          | 32 | 
          use C4::Koha;  | 
          32 | 
          use C4::Koha;  | 
        
        
          | 33 | 
          use C4::Log;    # logaction  | 
          33 | 
          use C4::Log;    # logaction  | 
        
        
          | 34 | 
          use C4::Budgets;  | 
          34 | 
          use C4::Budgets;  | 
        
          
            
              | 35 | 
              use C4::ClassSource;  | 
              35 | 
              use C4::ClassSource qw( GetClassSort );  | 
            
            
              | 36 | 
              use C4::Charset;  | 
              36 | 
              use C4::Charset qw( SetUTF8Flag );  | 
            
        
          | 37 | 
          use C4::Linker;  | 
          37 | 
          use C4::Linker;  | 
        
        
          | 38 | 
          use C4::OAI::Sets;  | 
          38 | 
          use C4::OAI::Sets;  | 
        
        
          | 39 | 
          use C4::Debug;  | 
          39 | 
          use C4::Debug;  | 
        
            
               | 
               | 
              40 | 
              use C4::Items;  | 
            
        
          | 40 | 
           | 
          41 | 
           | 
        
        
          | 41 | 
          use Koha::Caches;  | 
          42 | 
          use Koha::Caches;  | 
        
        
          | 42 | 
          use Koha::Authority::Types;  | 
          43 | 
          use Koha::Authority::Types;  | 
        
  
    | 
      
            Lines 47-55
          use Koha::Holds;
      
      
        Link Here
      
     | 
  
        
          | 47 | 
          use Koha::SearchEngine;  | 
          48 | 
          use Koha::SearchEngine;  | 
        
        
          | 48 | 
          use Koha::Libraries;  | 
          49 | 
          use Koha::Libraries;  | 
        
        
          | 49 | 
           | 
          50 | 
           | 
        
            
              | 50 | 
              use vars qw(@ISA @EXPORT);  | 
               | 
               | 
            
        
          | 51 | 
          use vars qw($debug $cgi_debug);  | 
          51 | 
          use vars qw($debug $cgi_debug);  | 
        
          
            
              | 52 | 
               | 
              52 | 
              our (@ISA, @EXPORT_OK);  | 
            
        
          | 53 | 
          BEGIN { | 
          53 | 
          BEGIN { | 
        
        
          | 54 | 
           | 
          54 | 
           | 
        
        
          | 55 | 
              require Exporter;  | 
          55 | 
              require Exporter;  | 
        
  
    | 
      
            Lines 57-68
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 57 | 
           | 
          57 | 
           | 
        
        
          | 58 | 
              # to add biblios  | 
          58 | 
              # to add biblios  | 
        
        
          | 59 | 
              # EXPORTED FUNCTIONS.  | 
          59 | 
              # EXPORTED FUNCTIONS.  | 
        
          
            
              | 60 | 
                  push @EXPORT, qw(  | 
              60 | 
                  @EXPORT_OK = qw(  | 
            
            
              | 61 | 
                    &AddBiblio  | 
              61 | 
                    AddBiblio  | 
            
            
              | 62 | 
                  );  | 
               | 
               | 
            
            
              | 63 | 
               | 
            
            
              | 64 | 
                  # to get something  | 
            
            
              | 65 | 
                  push @EXPORT, qw(  | 
            
        
          | 66 | 
                GetBiblio  | 
          62 | 
                GetBiblio  | 
        
        
          | 67 | 
                GetBiblioData  | 
          63 | 
                GetBiblioData  | 
        
        
          | 68 | 
                GetMarcBiblio  | 
          64 | 
                GetMarcBiblio  | 
        
  
    | 
      
            Lines 104-141
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 104 | 
                &CountItemsIssued  | 
          100 | 
                &CountItemsIssued  | 
        
        
          | 105 | 
                &CountBiblioInOrders  | 
          101 | 
                &CountBiblioInOrders  | 
        
        
          | 106 | 
                &GetSubscriptionsId  | 
          102 | 
                &GetSubscriptionsId  | 
        
            
              | 107 | 
                  );  | 
               | 
               | 
            
        
          | 108 | 
           | 
          103 | 
           | 
        
            
              | 109 | 
                  # To modify something  | 
               | 
               | 
            
            
              | 110 | 
                  push @EXPORT, qw(  | 
            
        
          | 111 | 
                &ModBiblio  | 
          104 | 
                &ModBiblio  | 
        
        
          | 112 | 
                &ModZebra  | 
          105 | 
                &ModZebra  | 
        
        
          | 113 | 
                &UpdateTotalIssues  | 
          106 | 
                &UpdateTotalIssues  | 
        
        
          | 114 | 
                &RemoveAllNsb  | 
          107 | 
                &RemoveAllNsb  | 
        
            
              | 115 | 
                  );  | 
               | 
               | 
            
        
          | 116 | 
           | 
          108 | 
           | 
        
            
              | 117 | 
                  # To delete something  | 
               | 
               | 
            
            
              | 118 | 
                  push @EXPORT, qw(  | 
            
        
          | 119 | 
                &DelBiblio  | 
          109 | 
                &DelBiblio  | 
        
            
              | 120 | 
                  );  | 
               | 
               | 
            
        
          | 121 | 
           | 
          110 | 
           | 
        
            
              | 122 | 
                  # To link headings in a bib record  | 
               | 
               | 
            
            
              | 123 | 
                  # to authority records.  | 
            
            
              | 124 | 
                  push @EXPORT, qw(  | 
            
        
          | 125 | 
                &BiblioAutoLink  | 
          111 | 
                &BiblioAutoLink  | 
        
        
          | 126 | 
                &LinkBibHeadingsToAuthorities  | 
          112 | 
                &LinkBibHeadingsToAuthorities  | 
        
            
              | 127 | 
                  );  | 
               | 
               | 
            
        
          | 128 | 
           | 
          113 | 
           | 
        
            
              | 129 | 
                  # Internal functions  | 
               | 
               | 
            
            
              | 130 | 
                  # those functions are exported but should not be used  | 
            
            
              | 131 | 
                  # they are useful in a few circumstances, so they are exported,  | 
            
            
              | 132 | 
                  # but don't use them unless you are a core developer ;-)  | 
            
            
              | 133 | 
                  push @EXPORT, qw(  | 
            
        
          | 134 | 
                &ModBiblioMarc  | 
          114 | 
                &ModBiblioMarc  | 
        
            
              | 135 | 
                  );  | 
               | 
               | 
            
        
          | 136 | 
           | 
          115 | 
           | 
        
            
              | 137 | 
                  # Others functions  | 
               | 
               | 
            
            
              | 138 | 
                  push @EXPORT, qw(  | 
            
        
          | 139 | 
                &TransformMarcToKoha  | 
          116 | 
                &TransformMarcToKoha  | 
        
        
          | 140 | 
                &TransformHtmlToMarc  | 
          117 | 
                &TransformHtmlToMarc  | 
        
        
          | 141 | 
                &TransformHtmlToXml  | 
          118 | 
                &TransformHtmlToXml  | 
        
  
    | 
      
            Lines 2254-2260
          sub PrepHostMarcField {
      
      
        Link Here
      
     | 
  
        
          | 2254 | 
              my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_;  | 
          2231 | 
              my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_;  | 
        
        
          | 2255 | 
              $marcflavour ||="MARC21";  | 
          2232 | 
              $marcflavour ||="MARC21";  | 
        
        
          | 2256 | 
                | 
          2233 | 
                | 
        
            
              | 2257 | 
                  require C4::Items;  | 
               | 
               | 
            
        
          | 2258 | 
              my $hostrecord = GetMarcBiblio($hostbiblionumber);  | 
          2234 | 
              my $hostrecord = GetMarcBiblio($hostbiblionumber);  | 
        
        
          | 2259 | 
          	my $item = C4::Items::GetItem($hostitemnumber);  | 
          2235 | 
          	my $item = C4::Items::GetItem($hostitemnumber);  | 
        
        
          | 2260 | 
          	  | 
          2236 | 
          	  |