From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Mon, 7 Jan 2008 19:52:58 +0000 (-0600)
Subject: Languages.pm - BEGIN block VERSION and vars related to export.
X-Git-Tag: v3.00.00-beta~719
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=b98bbef809be8e0615d85979694d9acda4ff22b2;p=koha.git

Languages.pm - BEGIN block VERSION and vars related to export.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---

diff --git a/C4/Languages.pm b/C4/Languages.pm
index e4d95fc1db..06b12d3f10 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -19,11 +19,24 @@ package C4::Languages;
 # Suite 330, Boston, MA  02111-1307 USA
 
 
-use strict; use warnings; #FIXME: turn off warnings before release
-require Exporter;
+use strict; 
+use warnings;	#FIXME: turn off warnings before release
 use C4::Context;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
+BEGIN {
+	$VERSION = 3.00;
+	require Exporter;
+	@ISA    = qw(Exporter);
+	@EXPORT = qw(
+		&getFrameworkLanguages
+		&getTranslatedLanguages
+		&getAllLanguages
+	);
+	@EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages get_bidi regex_lang_subtags language_get_description accept_language);
+	$DEBUG = 0;
+}
+
 =head1 NAME
 
 C4::Languages - Perl Module containing language list functions for Koha 
@@ -36,12 +49,6 @@ use C4::Languages;
 
 =head1 FUNCTIONS
 
-=cut
-$VERSION = 3.00;
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages get_bidi regex_lang_subtags language_get_description accept_language);
-my $DEBUG = 0;
-
 =head2 getFrameworkLanguages
 
 Returns a reference to an array of hashes: