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