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