BEGIN {
# set the version for version checking
- $VERSION = 3.03;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
if ( psgi_env ) { die 'psgi:exit' }
else { exit }
}
- $VERSION = 3.02; # set version for version checking
+ $VERSION = 3.07.00.049; # set version for version checking
+
$debug = $ENV{DEBUG};
@ISA = qw(Exporter);
@EXPORT = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);
BEGIN {
require Exporter;
- $VERSION = 3.03; # set the version for version checking
+ $VERSION = 3.07.00.049; # set the version for version checking
$debug = $ENV{DEBUG};
@ISA = qw(Exporter);
@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
BEGIN {
require Exporter;
- $VERSION = 3.10; # set the version for version checking
+ $VERSION = 3.07.00.049; # set the version for version checking
@ISA = qw(Exporter);
@EXPORT = qw( checkpw_ldap );
}
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
use strict;
#use warnings; FIXME - Bug 2505
use MARC::Record;
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
=head1 NAME
use strict;
#use warnings; FIXME - Bug 2505
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
=head1 NAME
BEGIN {
# set the version for version checking
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
}
=head1 NAME
use vars qw($max $prefformat);
BEGIN {
- $VERSION = 0.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw();
BEGIN {
# set the version for version checking
- $VERSION = 0.02;
+ $VERSION = 3.07.00.049;
require Exporter;
@EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY);
}
use vars qw($width);
BEGIN {
- $VERSION = 0.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(C4::Barcodes);
$width = 4;
}
use vars qw($branch $width);
BEGIN {
- $VERSION = 0.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(C4::Barcodes);
}
use vars qw($VERSION @ISA);
BEGIN {
- $VERSION = 0.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(C4::Barcodes);
}
use vars qw($VERSION @ISA @EXPORT);
BEGIN {
- $VERSION = 1.00;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw( Exporter );
use base qw( Exporter );
# set the version for version checking
-our $VERSION = 4.01;
+our $VERSION = 3.07.00.049;
our @EXPORT_OK = qw(
GetBookSeller GetBooksellersWithLateOrders GetBookSellerFromId
ModBookseller
use Carp;
use base qw(Exporter);
-our $VERSION = 0.03;
+our $VERSION = 3.07.00.049;
our @EXPORT_OK = qw( true_p);
=head1 NAME
BEGIN {
# set the version for version checking
- $VERSION = 3.02;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
&GetBranchCategory
BEGIN {
# set the version for version checking
- $VERSION = 0.02;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&ImportBreeding &BreedingSearch);
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
require Exporter;
- $VERSION = 3.02; # for version checking
+ $VERSION = 3.07.00.049; # for version checking
@ISA = qw(Exporter);
# FIXME subs that should probably be elsewhere
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
=head1 NAME
use vars qw($VERSION);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
=head1 NAME
use vars qw($VERSION);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
=head1 NAME
use vars qw($VERSION);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
=head1 NAME
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
=head1 NAME
$ismemcached = $memcached->set('ismemcached','1');
}
- $VERSION = '3.00.00.036';
+ $VERSION = '3.07.00.049';
}
use DBI;
BEGIN {
# set the version for version checking
- $VERSION = 3.2;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
use vars qw(@EXPORT @ISA);
@ISA = qw(Exporter);
our @EXPORT = qw(get_all_templates
use C4::Debug;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
sub _check_params {
use C4::Creators::PDF;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
# FIXME: Consider this style parameter verification instead...
use C4::Debug;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
use base qw(Exporter);
our @EXPORT = qw(get_all_templates
get_all_layouts
use PDF::Reuse::Barcode;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
sub _InitVars {
use C4::Creators::Lib 1.000000 qw(get_unit_values);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
sub _check_params {
use C4::Creators::Lib 1.000000 qw(get_unit_values);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
sub _check_params {
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
@ISA = qw(Exporter);
use vars qw($debug $cgi_debug);
BEGIN {
- $VERSION = 0.04;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(format_date_in_iso format_date);
}
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
BEGIN {
- $VERSION = 1.00; # set the version for version checking
+ $VERSION = 3.07.00.049; # set the version for version checking
@ISA = qw(Exporter);
@EXPORT = qw($debug $cgi_debug);
# @EXPOR_OK = qw();
BEGIN {
require Exporter;
- $VERSION = 0.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
get_amazon_details
BEGIN {
require Exporter;
- $VERSION = 0.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
%EXPORT_TAGS = (all=>\@EXPORT_OK);
BEGIN {
require Exporter;
- $VERSION = 0.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
&get_syndetics_index
use Module::Load;
use Carp;
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
=head1 NAME
use MARC::Record;
use MARC::Field;
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
=head1 NAME
use MARC::Field;
use C4::Context;
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
=head1 NAME
BEGIN {
# set the version for version checking
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.03;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
BEGIN {
- $VERSION = 3.03; # set version for version checking
+ $VERSION = 3.07.00.049; # set version for version checking
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = 0.01;
+$VERSION = 3.07.00.049;
=head1 NAME
use strict;
#use warnings; FIXME - Bug 2505
-our $VERSION = 3.00;
+our $VERSION = 3.07.00.049;
use C4::Context;
use C4::Installer::PerlModules 1.000000;
use C4::Installer::PerlDependencies;
-use version; our $VERSION = qv('1.0.0_1');
+use version; our $VERSION = qv('3.07.00.049');
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
use vars qw($VERSION @ISA @EXPORT);
BEGIN {
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw( Exporter );
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG);
BEGIN {
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
package C4::Labels;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
use C4::Labels::Batch 1.000000;
use C4::Labels::Label 1.000000;
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use C4::Biblio;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
use constant TEMPLATE_TABLE => 'creator_templates';
};
BEGIN {
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
require Exporter;
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
&GetLetters &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs);
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = 0.01;
+$VERSION = 3.07.00.049;
=head1 NAME
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
}
=head1 NAME
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug);
BEGIN {
- $VERSION = 3.02;
+ $VERSION = 3.07.00.049;
$debug = $ENV{DEBUG} || 0;
require Exporter;
@ISA = qw(Exporter);
BEGIN {
# set the version for version checking
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
}
=head1 NAME
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
DeleteBorrowerAttribute UpdateBorrowerAttribute
BEGIN {
# set the version for version checking
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
}
=head1 NAME
use vars qw($VERSION @ISA @EXPORT);
BEGIN {
- $VERSION = 3.01; # set the version for version checking
+ $VERSION = 3.07.00.049; # set the version for version checking
@ISA = qw(Exporter);
@EXPORT = qw(
&GetNewsToDisplay
BEGIN {
# set the version for version checking
- $VERSION = 3.03;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
# subs to rename (and maybe merge some...)
package C4::Patroncards;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
use vars qw(@EXPORT @ISA);
@ISA = qw(Exporter);
our @EXPORT = qw(unpack_UTF8
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use C4::Debug;
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
use base qw(Exporter);
our @EXPORT = qw(unpack_UTF8
text_alignment
use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
sub new {
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
use autouse 'Data::Dumper' => qw(Dumper);
BEGIN {
- use version; our $VERSION = qv('1.0.0_1');
+ use version; our $VERSION = qv('3.07.00.049');
}
use constant TEMPLATE_TABLE => 'creator_templates';
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&NetworkPrint);
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
BEGIN {
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
@ISA = qw(Exporter);
BEGIN {
# set the version for version checking
- $VERSION = 0.13;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 0.12;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = 3.00;
+$VERSION = 3.07.00.049;
@ISA = qw(Exporter);
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = 0.01;
+$VERSION = 3.07.00.049;
=head1 NAME
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
BEGIN {
- $VERSION = 2.11;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw();
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
BEGIN {
- $VERSION = 2.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(invalid_patron);
}
use vars qw($VERSION @ISA $debug);
BEGIN {
- $VERSION = 1.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(ILS::Transaction);
}
use vars qw($VERSION @ISA $debug);
our $debug = 0;
-our $VERSION = 1.00;
+our $VERSION = 3.07.00.049;
my %fields = ();
use vars qw($VERSION @ISA);
BEGIN {
- $VERSION = 1.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(ILS::Transaction);
}
use vars qw(@ISA $VERSION);
BEGIN {
- $VERSION = 1.02;
+ $VERSION = 3.07.00.049;
@ISA = qw(Net::Server::PreFork);
}
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
BEGIN {
- $VERSION = 1.00;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
use vars qw(@ISA $VERSION @EXPORT_OK);
BEGIN {
- $VERSION = 1.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(handle);
}
use vars qw( $VERSION );
BEGIN {
- $VERSION = 0.03;
+ $VERSION = 3.07.00.049;
}
=head1 METHODS
BEGIN {
# set the version for version checking
- $VERSION = 0.5;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT_OK=qw(
BEGIN {
# set the version for version checking
- $VERSION = 0.02;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT =
use C4::Context;
use C4::Debug;
-our $VERSION = 0.02;
+our $VERSION = v3.07.00.049;
my %scrubbertypes = (
# set the version for version checking
BEGIN {
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
$DEBUG = ($ENV{DEBUG}) ? 1 : 0;
}
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
BEGIN {
- $VERSION = 3.01; # set version for version checking
+ $VERSION = 3.07.00.049; # set version for version checking
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
BEGIN {
- $VERSION = 3.02;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
&UpdateStats
use List::MoreUtils qw<any>;
use C4::Dates qw(format_date_in_iso);
use base qw(Exporter);
-our $VERSION = 3.01;
+our $VERSION = 3.07.00.049;
our @EXPORT = qw<
ConnectSuggestionAndBiblio
CountSuggestion
use vars qw($ext_dict $select_all @fields);
BEGIN {
- $VERSION = 0.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(
&get_tag &get_tags &get_tag_rows
###############################################################################
-$VERSION = 0.01;
+$VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw();
###############################################################################
-$VERSION = 0.01;
+$VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(
BEGIN {
# set the version for version checking
- $VERSION = 3.00;
+ $VERSION = 3.07.00.049;
}
=head1 NAME
BEGIN {
require Exporter;
- $VERSION = 1.00; # set the version for version checking
+ $VERSION = 3.07.00.049; # set the version for version checking
$debug = $ENV{DEBUG} || 0;
@ISA = qw(Exporter);
@EXPORT_OK = qw(&maxwidth &hashdump);
use vars qw($VERSION @ISA @EXPORT);
BEGIN {
- $VERSION = 3.04,
+ $VERSION = 3.07.00.049,
@ISA = qw(Exporter);
@EXPORT = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
BEGIN {
# set the version for version checking
- $VERSION = 3.02;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(
use vars qw($debug @EXPORT @ISA $VERSION);
BEGIN {
- $VERSION = 1.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(&shelfpage);
$debug = $ENV{DEBUG} || 0;
BEGIN {
require Exporter;
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT_OK = qw(
&get_xisbns
BEGIN {
require Exporter;
- $VERSION = 0.03;
+ $VERSION = 3.07.00.049;
@ISA = qw(Exporter);
@EXPORT = qw(
&XSLTParse4Display
BEGIN {
# set the version for version checking
- $VERSION = 3.01;
+ $VERSION = 3.07.00.049;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(