From 5eae563b257512ab4221f35fabde213472b4834a Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:49 -0600 Subject: [PATCH] Biblio.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Biblio.pm | 146 +++++++++++++++++++++++++-------------------------- 1 file changed, 72 insertions(+), 74 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 3871b128af..b89e32a36a 100755 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -18,90 +18,90 @@ package C4::Biblio; # Suite 330, Boston, MA 02111-1307 USA use strict; - -require Exporter; # use utf8; -use C4::Context; use MARC::Record; use MARC::File::USMARC; use MARC::File::XML; use ZOOM; + +use C4::Context; use C4::Koha; use C4::Branch; use C4::Dates qw/format_date/; use C4::Log; # logaction use C4::ClassSource; + use vars qw($VERSION @ISA @EXPORT); -# TODO: fix version -# $VERSION = ?; - -@ISA = qw( Exporter ); - -# EXPORTED FUNCTIONS. - -# to add biblios -push @EXPORT, qw( - &AddBiblio -); - -# to get something -push @EXPORT, qw( - &GetBiblio - &GetBiblioData - &GetBiblioItemData - &GetBiblioItemInfosOf - &GetBiblioItemByBiblioNumber - &GetBiblioFromItemNumber - - &GetMarcNotes - &GetMarcSubjects - &GetMarcBiblio - &GetMarcAuthors - &GetMarcSeries - GetMarcUrls - &GetUsedMarcStructure - - &GetXmlBiblio - - &GetAuthorisedValueDesc - &GetMarcStructure - &GetMarcFromKohaField - &GetFrameworkCode - &GetPublisherNameFromIsbn - &TransformKohaToMarc -); - -# To modify something -push @EXPORT, qw( - &ModBiblio - &ModBiblioframework - &ModZebra -); - -# To delete something -push @EXPORT, qw( - &DelBiblio -); - -# Internal functions -# those functions are exported but should not be used -# they are usefull is few circumstances, so are exported. -# but don't use them unless you're a core developer ;-) -push @EXPORT, qw( - &ModBiblioMarc -); - -# Others functions -push @EXPORT, qw( - &TransformMarcToKoha - &TransformHtmlToMarc2 - &TransformHtmlToMarc - &TransformHtmlToXml - &PrepareItemrecordDisplay - &char_decode - &GetNoZebraIndexes -); +BEGIN { + $VERSION = 1.00; + + require Exporter; + @ISA = qw( Exporter ); + + # to add biblios + push @EXPORT, qw( + &AddBiblio + ); + + # to get something + push @EXPORT, qw( + &GetBiblio + &GetBiblioData + &GetBiblioItemData + &GetBiblioItemInfosOf + &GetBiblioItemByBiblioNumber + &GetBiblioFromItemNumber + + &GetMarcNotes + &GetMarcSubjects + &GetMarcBiblio + &GetMarcAuthors + &GetMarcSeries + GetMarcUrls + &GetUsedMarcStructure + + &GetXmlBiblio + + &GetAuthorisedValueDesc + &GetMarcStructure + &GetMarcFromKohaField + &GetFrameworkCode + &GetPublisherNameFromIsbn + &TransformKohaToMarc + ); + + # To modify something + push @EXPORT, qw( + &ModBiblio + &ModBiblioframework + &ModZebra + ); + + # To delete something + push @EXPORT, qw( + &DelBiblio + ); + + # Internal functions + # those functions are exported but should not be used + # they are usefull is few circumstances, so are exported. + # but don't use them unless you're a core developer ;-) + push @EXPORT, qw( + &ModBiblioMarc + ); + + # Others functions + push @EXPORT, qw( + &TransformMarcToKoha + &TransformHtmlToMarc2 + &TransformHtmlToMarc + &TransformHtmlToXml + &PrepareItemrecordDisplay + &char_decode + &GetNoZebraIndexes + ); +} =head1 NAME @@ -3131,8 +3131,6 @@ sub set_service_options { return $serviceOptions; } -END { } # module clean-up code here (global destructor) - 1; __END__ -- 2.39.5