|
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 44-52
use Koha::Acquisition::Currencies;
Link Here
|
| 44 |
use Koha::SearchEngine; |
45 |
use Koha::SearchEngine; |
| 45 |
use Koha::Libraries; |
46 |
use Koha::Libraries; |
| 46 |
|
47 |
|
| 47 |
use vars qw(@ISA @EXPORT); |
|
|
| 48 |
use vars qw($debug $cgi_debug); |
48 |
use vars qw($debug $cgi_debug); |
| 49 |
|
49 |
our (@ISA, @EXPORT_OK); |
| 50 |
BEGIN { |
50 |
BEGIN { |
| 51 |
|
51 |
|
| 52 |
require Exporter; |
52 |
require Exporter; |
|
Lines 54-65
BEGIN {
Link Here
|
| 54 |
|
54 |
|
| 55 |
# to add biblios |
55 |
# to add biblios |
| 56 |
# EXPORTED FUNCTIONS. |
56 |
# EXPORTED FUNCTIONS. |
| 57 |
push @EXPORT, qw( |
57 |
@EXPORT_OK = qw( |
| 58 |
&AddBiblio |
58 |
AddBiblio |
| 59 |
); |
|
|
| 60 |
|
| 61 |
# to get something |
| 62 |
push @EXPORT, qw( |
| 63 |
GetBiblio |
59 |
GetBiblio |
| 64 |
GetBiblioData |
60 |
GetBiblioData |
| 65 |
GetMarcBiblio |
61 |
GetMarcBiblio |
|
Lines 105-143
BEGIN {
Link Here
|
| 105 |
&CountBiblioInOrders |
101 |
&CountBiblioInOrders |
| 106 |
&GetSubscriptionsId |
102 |
&GetSubscriptionsId |
| 107 |
&GetHolds |
103 |
&GetHolds |
| 108 |
); |
|
|
| 109 |
|
104 |
|
| 110 |
# To modify something |
|
|
| 111 |
push @EXPORT, qw( |
| 112 |
&ModBiblio |
105 |
&ModBiblio |
| 113 |
&ModBiblioframework |
106 |
&ModBiblioframework |
| 114 |
&ModZebra |
107 |
&ModZebra |
| 115 |
&UpdateTotalIssues |
108 |
&UpdateTotalIssues |
| 116 |
&RemoveAllNsb |
109 |
&RemoveAllNsb |
| 117 |
); |
|
|
| 118 |
|
110 |
|
| 119 |
# To delete something |
|
|
| 120 |
push @EXPORT, qw( |
| 121 |
&DelBiblio |
111 |
&DelBiblio |
| 122 |
); |
|
|
| 123 |
|
112 |
|
| 124 |
# To link headings in a bib record |
|
|
| 125 |
# to authority records. |
| 126 |
push @EXPORT, qw( |
| 127 |
&BiblioAutoLink |
113 |
&BiblioAutoLink |
| 128 |
&LinkBibHeadingsToAuthorities |
114 |
&LinkBibHeadingsToAuthorities |
| 129 |
); |
|
|
| 130 |
|
115 |
|
| 131 |
# Internal functions |
|
|
| 132 |
# those functions are exported but should not be used |
| 133 |
# they are useful in a few circumstances, so they are exported, |
| 134 |
# but don't use them unless you are a core developer ;-) |
| 135 |
push @EXPORT, qw( |
| 136 |
&ModBiblioMarc |
116 |
&ModBiblioMarc |
| 137 |
); |
|
|
| 138 |
|
117 |
|
| 139 |
# Others functions |
|
|
| 140 |
push @EXPORT, qw( |
| 141 |
&TransformMarcToKoha |
118 |
&TransformMarcToKoha |
| 142 |
&TransformHtmlToMarc |
119 |
&TransformHtmlToMarc |
| 143 |
&TransformHtmlToXml |
120 |
&TransformHtmlToXml |
|
Lines 2334-2340
sub PrepHostMarcField {
Link Here
|
| 2334 |
my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_; |
2311 |
my ($hostbiblionumber,$hostitemnumber, $marcflavour) = @_; |
| 2335 |
$marcflavour ||="MARC21"; |
2312 |
$marcflavour ||="MARC21"; |
| 2336 |
|
2313 |
|
| 2337 |
require C4::Items; |
|
|
| 2338 |
my $hostrecord = GetMarcBiblio($hostbiblionumber); |
2314 |
my $hostrecord = GetMarcBiblio($hostbiblionumber); |
| 2339 |
my $item = C4::Items::GetItem($hostitemnumber); |
2315 |
my $item = C4::Items::GetItem($hostitemnumber); |
| 2340 |
|
2316 |
|