From 50c461e98cb1943f81eaf57aeaf3fb8a0574f9f4 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Mon, 7 Jan 2008 13:52:57 -0600 Subject: [PATCH] Koha.pm - BEGIN block VERSION and vars related to export. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Koha.pm | 72 ++++++++++++++++++++++++++---------------------------- 1 file changed, 35 insertions(+), 37 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 6c6b6e0443..d7ed41dfe0 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -19,12 +19,43 @@ package C4::Koha; use strict; -require Exporter; use C4::Context; use C4::Output; -our ($VERSION,@ISA,@EXPORT); - -$VERSION = 3.00; +use vars qw($VERSION @ISA @EXPORT $DEBUG); + +BEGIN { + $VERSION = 3.01; + require Exporter; + @ISA = qw(Exporter); + @EXPORT = qw( + &slashifyDate + &DisplayISBN + &subfield_is_koha_internal_p + &GetPrinters &GetPrinter + &GetItemTypes &getitemtypeinfo + &GetCcodes + &get_itemtypeinfos_of + &getframeworks &getframeworkinfo + &getauthtypes &getauthtype + &getallthemes + &getFacets + &displayServers + &getnbpages + &getitemtypeimagesrcfromurl + &get_infos_of + &get_notforloan_label_of + &getitemtypeimagedir + &getitemtypeimagesrc + &GetAuthorisedValues + &FixEncoding + &GetKohaAuthorisedValues + &GetAuthValCode + &GetManagedTagSubfields + + $DEBUG + ); + $DEBUG = 0; +} =head1 NAME @@ -43,39 +74,6 @@ $VERSION = 3.00; =over 2 -=cut - -@ISA = qw(Exporter); -@EXPORT = qw( - &slashifyDate - &DisplayISBN - &subfield_is_koha_internal_p - &GetPrinters &GetPrinter - &GetItemTypes &getitemtypeinfo - &GetCcodes - &get_itemtypeinfos_of - &getframeworks &getframeworkinfo - &getauthtypes &getauthtype - &getallthemes - &getFacets - &displayServers - &getnbpages - &getitemtypeimagesrcfromurl - &get_infos_of - &get_notforloan_label_of - &getitemtypeimagedir - &getitemtypeimagesrc - &GetAuthorisedValues - &FixEncoding - &GetKohaAuthorisedValues - &GetAuthValCode - &GetManagedTagSubfields - - $DEBUG - ); - -my $DEBUG = 0; - =head2 slashifyDate $slash_date = &slashifyDate($dash_date); -- 2.39.5