View | Details | Raw Unified | Return to bug 16011
Collapse All | Expand All

(-)a/C4/Accounts.pm (-1 / +1 lines)
Lines 28-34 use C4::Log qw(logaction); Link Here
28
28
29
use Data::Dumper qw(Dumper);
29
use Data::Dumper qw(Dumper);
30
30
31
use vars qw($VERSION @ISA @EXPORT);
31
use vars qw(@ISA @EXPORT);
32
32
33
BEGIN {
33
BEGIN {
34
	# set the version for version checking
34
	# set the version for version checking
(-)a/C4/Acquisition.pm (-1 / +1 lines)
Lines 41-47 use MARC::Record; Link Here
41
use Time::localtime;
41
use Time::localtime;
42
use HTML::Entities;
42
use HTML::Entities;
43
43
44
use vars qw($VERSION @ISA @EXPORT);
44
use vars qw(@ISA @EXPORT);
45
45
46
BEGIN {
46
BEGIN {
47
    # set the version for version checking
47
    # set the version for version checking
(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 40-46 use List::MoreUtils qw/ any /; Link Here
40
use Encode qw( encode is_utf8);
40
use Encode qw( encode is_utf8);
41
41
42
# use utf8;
42
# use utf8;
43
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);
43
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug $ldap $cas $caslogout $shib $shib_login);
44
44
45
BEGIN {
45
BEGIN {
46
    sub psgi_env { any { /^psgi\./ } keys %ENV }
46
    sub psgi_env { any { /^psgi\./ } keys %ENV }
(-)a/C4/Auth_with_cas.pm (-1 / +1 lines)
Lines 28-34 use FindBin; Link Here
28
use YAML;
28
use YAML;
29
29
30
30
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
31
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
32
32
33
BEGIN {
33
BEGIN {
34
	require Exporter;
34
	require Exporter;
(-)a/C4/Auth_with_ldap.pm (-1 / +1 lines)
Lines 33-39 use List::MoreUtils qw( any ); Link Here
33
use Net::LDAP;
33
use Net::LDAP;
34
use Net::LDAP::Filter;
34
use Net::LDAP::Filter;
35
35
36
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
36
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
37
37
38
BEGIN {
38
BEGIN {
39
	require Exporter;
39
	require Exporter;
(-)a/C4/Auth_with_shibboleth.pm (-1 / +1 lines)
Lines 25-31 use Koha::Database; Link Here
25
use Carp;
25
use Carp;
26
use CGI;
26
use CGI;
27
27
28
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
28
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
29
29
30
BEGIN {
30
BEGIN {
31
    require Exporter;
31
    require Exporter;
(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
Lines 30-36 use Koha::MetadataRecord::Authority; Link Here
30
use Koha::Authorities;
30
use Koha::Authorities;
31
use Koha::Authority::Types;
31
use Koha::Authority::Types;
32
32
33
use vars qw($VERSION @ISA @EXPORT);
33
use vars qw(@ISA @EXPORT);
34
34
35
BEGIN {
35
BEGIN {
36
	# set the version for version checking
36
	# set the version for version checking
(-)a/C4/BackgroundJob.pm (-1 / +1 lines)
Lines 24-30 use C4::Context; Link Here
24
use C4::Auth qw/get_session/;
24
use C4::Auth qw/get_session/;
25
use Digest::MD5;
25
use Digest::MD5;
26
26
27
use vars qw($VERSION);
27
use vars qw();
28
28
29
BEGIN {
29
BEGIN {
30
	# set the version for version checking
30
	# set the version for version checking
(-)a/C4/Barcodes.pm (-1 / +1 lines)
Lines 29-35 use C4::Barcodes::annual; Link Here
29
use C4::Barcodes::incremental;
29
use C4::Barcodes::incremental;
30
use C4::Barcodes::EAN13;
30
use C4::Barcodes::EAN13;
31
31
32
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
33
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
33
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
34
use vars qw($max $prefformat);
34
use vars qw($max $prefformat);
35
35
(-)a/C4/Barcodes/EAN13.pm (-1 / +1 lines)
Lines 26-32 use C4::Debug; Link Here
26
use Algorithm::CheckDigits;
26
use Algorithm::CheckDigits;
27
use Carp;
27
use Carp;
28
28
29
use vars qw($VERSION @ISA);
29
use vars qw(@ISA);
30
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
30
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
31
31
32
BEGIN {
32
BEGIN {
(-)a/C4/Barcodes/annual.pm (-1 / +1 lines)
Lines 27-33 use C4::Debug; Link Here
27
27
28
use Koha::DateUtils qw( output_pref dt_from_string );
28
use Koha::DateUtils qw( output_pref dt_from_string );
29
29
30
use vars qw($VERSION @ISA);
30
use vars qw(@ISA);
31
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
31
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
32
use vars qw($width);
32
use vars qw($width);
33
33
(-)a/C4/Barcodes/hbyymmincr.pm (-1 / +1 lines)
Lines 27-33 use C4::Debug; Link Here
27
27
28
use Koha::DateUtils qw( dt_from_string output_pref );
28
use Koha::DateUtils qw( dt_from_string output_pref );
29
29
30
use vars qw($VERSION @ISA);
30
use vars qw(@ISA);
31
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
31
use vars qw($debug $cgi_debug);	# from C4::Debug, of course
32
use vars qw($branch $width);
32
use vars qw($branch $width);
33
33
(-)a/C4/Barcodes/incremental.pm (-1 / +1 lines)
Lines 20-26 package C4::Barcodes::incremental; Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
23
use vars qw($VERSION @ISA);
23
use vars qw(@ISA);
24
24
25
BEGIN {
25
BEGIN {
26
    $VERSION = 3.07.00.049;
26
    $VERSION = 3.07.00.049;
(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 42-48 use Koha::Cache; Link Here
42
use Koha::Authority::Types;
42
use Koha::Authority::Types;
43
use Koha::Acquisition::Currencies;
43
use Koha::Acquisition::Currencies;
44
44
45
use vars qw($VERSION @ISA @EXPORT);
45
use vars qw(@ISA @EXPORT);
46
46
47
BEGIN {
47
BEGIN {
48
    $VERSION = 3.07.00.049;
48
    $VERSION = 3.07.00.049;
(-)a/C4/Branch.pm (-1 / +1 lines)
Lines 22-28 require Exporter; Link Here
22
use C4::Context;
22
use C4::Context;
23
use Koha::LibraryCategories;
23
use Koha::LibraryCategories;
24
24
25
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
26
26
27
BEGIN {
27
BEGIN {
28
	# set the version for version checking
28
	# set the version for version checking
(-)a/C4/Breeding.pm (-1 / +1 lines)
Lines 31-37 use C4::Languages; Link Here
31
use Koha::Database;
31
use Koha::Database;
32
use Koha::XSLT_Handler;
32
use Koha::XSLT_Handler;
33
33
34
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
34
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
35
35
36
BEGIN {
36
BEGIN {
37
	# set the version for version checking
37
	# set the version for version checking
(-)a/C4/Budgets.pm (-1 / +1 lines)
Lines 22-28 use strict; Link Here
22
use C4::Context;
22
use C4::Context;
23
use Koha::Database;
23
use Koha::Database;
24
use C4::Debug;
24
use C4::Debug;
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
26
27
BEGIN {
27
BEGIN {
28
	# set the version for version checking
28
	# set the version for version checking
(-)a/C4/Calendar.pm (-1 / +1 lines)
Lines 17-23 package C4::Calendar; Link Here
17
17
18
use strict;
18
use strict;
19
use warnings;
19
use warnings;
20
use vars qw($VERSION @EXPORT);
20
use vars qw(@EXPORT);
21
21
22
use Carp;
22
use Carp;
23
use Date::Calc qw( Date_to_Days Today);
23
use Date::Calc qw( Date_to_Days Today);
(-)a/C4/Charset.pm (-1 / +1 lines)
Lines 26-32 use C4::Debug; Link Here
26
use Unicode::Normalize;
26
use Unicode::Normalize;
27
use Encode qw( decode encode is_utf8 );
27
use Encode qw( decode encode is_utf8 );
28
28
29
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
29
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
30
30
31
BEGIN {
31
BEGIN {
32
    # set the version for version checking
32
    # set the version for version checking
(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 64-70 use Date::Calc qw( Link Here
64
  Day_of_Week
64
  Day_of_Week
65
  Add_Delta_Days
65
  Add_Delta_Days
66
);
66
);
67
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
67
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
68
68
69
BEGIN {
69
BEGIN {
70
	require Exporter;
70
	require Exporter;
(-)a/C4/ClassSortRoutine.pm (-1 / +1 lines)
Lines 24-30 require Exporter; Link Here
24
use Class::Factory::Util;
24
use Class::Factory::Util;
25
use C4::Context;
25
use C4::Context;
26
26
27
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
27
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
28
28
29
# set the version for version checking
29
# set the version for version checking
30
$VERSION = 3.07.00.049;
30
$VERSION = 3.07.00.049;
(-)a/C4/ClassSortRoutine/Dewey.pm (-1 / +1 lines)
Lines 20-26 package C4::ClassSortRoutine::Dewey; Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
23
use vars qw($VERSION);
23
use vars qw();
24
24
25
# set the version for version checking
25
# set the version for version checking
26
$VERSION = 3.07.00.049;
26
$VERSION = 3.07.00.049;
(-)a/C4/ClassSortRoutine/Generic.pm (-1 / +1 lines)
Lines 20-26 package C4::ClassSortRoutine::Generic; Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
23
use vars qw($VERSION);
23
use vars qw();
24
24
25
# set the version for version checking
25
# set the version for version checking
26
$VERSION = 3.07.00.049;
26
$VERSION = 3.07.00.049;
(-)a/C4/ClassSortRoutine/LCC.pm (-1 / +1 lines)
Lines 22-28 use strict; Link Here
22
use warnings;
22
use warnings;
23
use Library::CallNumber::LC;
23
use Library::CallNumber::LC;
24
24
25
use vars qw($VERSION);
25
use vars qw();
26
26
27
# set the version for version checking
27
# set the version for version checking
28
$VERSION = 3.07.00.049;
28
$VERSION = 3.07.00.049;
(-)a/C4/ClassSource.pm (-1 / +1 lines)
Lines 24-30 require Exporter; Link Here
24
use C4::Context;
24
use C4::Context;
25
use C4::ClassSortRoutine;
25
use C4::ClassSortRoutine;
26
26
27
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
27
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
28
28
29
# set the version for version checking
29
# set the version for version checking
30
$VERSION = 3.07.00.049;
30
$VERSION = 3.07.00.049;
(-)a/C4/Context.pm (-1 / +1 lines)
Lines 18-24 package C4::Context; Link Here
18
18
19
use strict;
19
use strict;
20
use warnings;
20
use warnings;
21
use vars qw($VERSION $AUTOLOAD $context @context_stack $servers $memcached $ismemcached);
21
use vars qw($AUTOLOAD $context @context_stack $servers $memcached $ismemcached);
22
BEGIN {
22
BEGIN {
23
	if ($ENV{'HTTP_USER_AGENT'})	{
23
	if ($ENV{'HTTP_USER_AGENT'})	{
24
		require CGI::Carp;
24
		require CGI::Carp;
(-)a/C4/Contract.pm (-1 / +1 lines)
Lines 23-29 use strict; Link Here
23
use C4::Context;
23
use C4::Context;
24
use Koha::Database;
24
use Koha::Database;
25
25
26
use vars qw($VERSION @ISA @EXPORT);
26
use vars qw(@ISA @EXPORT);
27
27
28
BEGIN {
28
BEGIN {
29
	# set the version for version checking
29
	# set the version for version checking
(-)a/C4/CourseReserves.pm (-1 / +1 lines)
Lines 24-30 use C4::Items qw(GetItem ModItem); Link Here
24
use C4::Biblio qw(GetBiblioFromItemNumber);
24
use C4::Biblio qw(GetBiblioFromItemNumber);
25
use C4::Circulation qw(GetOpenIssue);
25
use C4::Circulation qw(GetOpenIssue);
26
26
27
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
27
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG @FIELDS);
28
28
29
BEGIN {
29
BEGIN {
30
    require Exporter;
30
    require Exporter;
(-)a/C4/Csv.pm (-1 / +1 lines)
Lines 23-29 package C4::Csv; Link Here
23
#use warnings; FIXME - Bug 2505
23
#use warnings; FIXME - Bug 2505
24
24
25
use C4::Context;
25
use C4::Context;
26
use vars qw($VERSION @ISA @EXPORT);
26
use vars qw(@ISA @EXPORT);
27
27
28
# set the version for version checking
28
# set the version for version checking
29
$VERSION = 3.07.00.049;
29
$VERSION = 3.07.00.049;
(-)a/C4/Debug.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use Exporter;
23
use Exporter;
24
24
25
# use CGI qw ( -utf8 );
25
# use CGI qw ( -utf8 );
26
use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);
26
use vars qw(@ISA @EXPORT $debug $cgi_debug);
27
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
27
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
28
28
29
BEGIN {
29
BEGIN {
(-)a/C4/External/Amazon.pm (-1 / +1 lines)
Lines 21-27 package C4::External::Amazon; Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
23
24
use vars qw($VERSION @ISA @EXPORT);
24
use vars qw(@ISA @EXPORT);
25
25
26
BEGIN {
26
BEGIN {
27
    require Exporter;
27
    require Exporter;
(-)a/C4/External/BakerTaylor.pm (-1 / +1 lines)
Lines 27-33 use C4::Debug; Link Here
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
29
29
30
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
30
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
use vars qw($user $pass $agent $image_url $link_url);
31
use vars qw($user $pass $agent $image_url $link_url);
32
32
33
BEGIN {
33
BEGIN {
(-)a/C4/External/Syndetics.pm (-1 / +1 lines)
Lines 26-32 use HTTP::Request::Common; Link Here
26
use strict;
26
use strict;
27
use warnings;
27
use warnings;
28
28
29
use vars qw($VERSION @ISA @EXPORT);
29
use vars qw(@ISA @EXPORT);
30
30
31
BEGIN {
31
BEGIN {
32
    require Exporter;
32
    require Exporter;
(-)a/C4/HoldsQueue.pm (-1 / +1 lines)
Lines 35-41 use List::Util qw(shuffle); Link Here
35
use List::MoreUtils qw(any);
35
use List::MoreUtils qw(any);
36
use Data::Dumper;
36
use Data::Dumper;
37
37
38
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
38
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
39
BEGIN {
39
BEGIN {
40
    $VERSION = 3.03;
40
    $VERSION = 3.03;
41
    require Exporter;
41
    require Exporter;
(-)a/C4/Images.pm (-1 / +1 lines)
Lines 25-31 use 5.010; Link Here
25
use C4::Context;
25
use C4::Context;
26
use GD;
26
use GD;
27
27
28
use vars qw($debug $noimage $VERSION @ISA @EXPORT);
28
use vars qw($debug $noimage @ISA @EXPORT);
29
29
30
BEGIN {
30
BEGIN {
31
31
(-)a/C4/ImportBatch.pm (-1 / +1 lines)
Lines 30-36 use C4::MarcModificationTemplates; Link Here
30
use Koha::Plugins::Handler;
30
use Koha::Plugins::Handler;
31
use Koha::Logger;
31
use Koha::Logger;
32
32
33
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
33
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
34
34
35
BEGIN {
35
BEGIN {
36
	# set the version for version checking
36
	# set the version for version checking
(-)a/C4/ImportExportFramework.pm (-1 / +1 lines)
Lines 28-34 use C4::Context; Link Here
28
use C4::Debug;
28
use C4::Debug;
29
29
30
30
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
32
33
BEGIN {
33
BEGIN {
34
    $VERSION = 3.07.00.049;    # set version for version checking
34
    $VERSION = 3.07.00.049;    # set version for version checking
(-)a/C4/InstallAuth.pm (-1 / +1 lines)
Lines 28-34 use C4::Templates; Link Here
28
use C4::Koha;
28
use C4::Koha;
29
use CGI::Session;
29
use CGI::Session;
30
30
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
32
33
# set the version for version checking
33
# set the version for version checking
34
$VERSION = 3.00;
34
$VERSION = 3.00;
(-)a/C4/Items.pm (-1 / +1 lines)
Lines 39-45 use Koha::Database; Link Here
39
39
40
use Koha::Database;
40
use Koha::Database;
41
41
42
use vars qw($VERSION @ISA @EXPORT);
42
use vars qw(@ISA @EXPORT);
43
43
44
BEGIN {
44
BEGIN {
45
    $VERSION = 3.07.00.049;
45
    $VERSION = 3.07.00.049;
(-)a/C4/Koha.pm (-1 / +1 lines)
Lines 32-38 use DateTime::Format::MySQL; Link Here
32
use Business::ISBN;
32
use Business::ISBN;
33
use autouse 'Data::cselectall_arrayref' => qw(Dumper);
33
use autouse 'Data::cselectall_arrayref' => qw(Dumper);
34
use DBI qw(:sql_types);
34
use DBI qw(:sql_types);
35
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $DEBUG);
35
use vars qw(@ISA @EXPORT @EXPORT_OK $DEBUG);
36
36
37
BEGIN {
37
BEGIN {
38
    $VERSION = 3.07.00.049;
38
    $VERSION = 3.07.00.049;
(-)a/C4/Languages.pm (-1 / +1 lines)
Lines 26-32 use Carp; Link Here
26
use CGI;
26
use CGI;
27
use List::MoreUtils qw( any );
27
use List::MoreUtils qw( any );
28
use C4::Context;
28
use C4::Context;
29
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
29
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
30
30
31
eval {
31
eval {
32
    if (C4::Context->ismemcached) {
32
    if (C4::Context->ismemcached) {
(-)a/C4/Letters.pm (-1 / +1 lines)
Lines 39-45 use Carp; Link Here
39
use Koha::Email;
39
use Koha::Email;
40
use Koha::DateUtils qw( format_sqldatetime );
40
use Koha::DateUtils qw( format_sqldatetime );
41
41
42
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
42
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
43
43
44
BEGIN {
44
BEGIN {
45
    require Exporter;
45
    require Exporter;
(-)a/C4/Log.pm (-1 / +1 lines)
Lines 27-33 use warnings; Link Here
27
use C4::Context;
27
use C4::Context;
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
29
30
use vars qw($VERSION @ISA @EXPORT);
30
use vars qw(@ISA @EXPORT);
31
31
32
BEGIN {
32
BEGIN {
33
    # set the version for version checking
33
    # set the version for version checking
(-)a/C4/MarcModificationTemplates.pm (-1 / +1 lines)
Lines 24-30 use DateTime; Link Here
24
use C4::Context;
24
use C4::Context;
25
use Koha::SimpleMARC;
25
use Koha::SimpleMARC;
26
26
27
use vars qw($VERSION @ISA @EXPORT);
27
use vars qw(@ISA @EXPORT);
28
28
29
use constant DEBUG => 0;
29
use constant DEBUG => 0;
30
30
(-)a/C4/Matcher.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use C4::Context;
23
use C4::Context;
24
use MARC::Record;
24
use MARC::Record;
25
25
26
use vars qw($VERSION);
26
use vars qw();
27
27
28
BEGIN {
28
BEGIN {
29
	# set the version for version checking
29
	# set the version for version checking
(-)a/C4/Members/AttributeTypes.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
22
use C4::Context;
23
23
24
use vars qw($VERSION);
24
use vars qw();
25
25
26
BEGIN {
26
BEGIN {
27
    # set the version for version checking
27
    # set the version for version checking
(-)a/C4/Members/Attributes.pm (-1 / +1 lines)
Lines 24-30 use Text::CSV; # Don't be tempted to use Text::CSV::Unicode -- even in bina Link Here
24
use C4::Context;
24
use C4::Context;
25
use C4::Members::AttributeTypes;
25
use C4::Members::AttributeTypes;
26
26
27
use vars qw($VERSION @ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
27
use vars qw(@ISA @EXPORT_OK @EXPORT %EXPORT_TAGS);
28
our ($csv, $AttributeTypes);
28
our ($csv, $AttributeTypes);
29
29
30
BEGIN {
30
BEGIN {
(-)a/C4/Members/Messaging.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
use C4::Context;
22
use C4::Context;
23
23
24
use vars qw($VERSION);
24
use vars qw();
25
25
26
BEGIN {
26
BEGIN {
27
    # set the version for version checking
27
    # set the version for version checking
(-)a/C4/NewsChannels.pm (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use C4::Context;
22
use C4::Context;
23
use Koha::DateUtils;
23
use Koha::DateUtils;
24
24
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
26
27
BEGIN { 
27
BEGIN { 
28
    $VERSION = 3.07.00.049;    # set the version for version checking
28
    $VERSION = 3.07.00.049;    # set the version for version checking
(-)a/C4/Output.pm (-1 / +1 lines)
Lines 33-39 use URI::Escape; Link Here
33
use C4::Context;
33
use C4::Context;
34
use C4::Templates;
34
use C4::Templates;
35
35
36
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
36
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
37
37
38
BEGIN {
38
BEGIN {
39
    # set the version for version checking
39
    # set the version for version checking
(-)a/C4/Overdues.pm (-1 / +1 lines)
Lines 37-43 use Koha::DateUtils; Link Here
37
use Koha::Account::Line;
37
use Koha::Account::Line;
38
use Koha::Account::Lines;
38
use Koha::Account::Lines;
39
39
40
use vars qw($VERSION @ISA @EXPORT);
40
use vars qw(@ISA @EXPORT);
41
41
42
BEGIN {
42
BEGIN {
43
    # set the version for version checking
43
    # set the version for version checking
(-)a/C4/Passwordrecovery.pm (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use C4::Context;
21
use C4::Context;
22
use Crypt::Eksblowfish::Bcrypt qw(en_base64);
22
use Crypt::Eksblowfish::Bcrypt qw(en_base64);
23
23
24
use vars qw($VERSION @ISA @EXPORT);
24
use vars qw(@ISA @EXPORT);
25
25
26
BEGIN {
26
BEGIN {
27
    # set the version for version checking
27
    # set the version for version checking
(-)a/C4/Print.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
22
use C4::Context;
23
23
24
use vars qw($VERSION @ISA @EXPORT);
24
use vars qw(@ISA @EXPORT);
25
25
26
BEGIN {
26
BEGIN {
27
	# set the version for version checking
27
	# set the version for version checking
(-)a/C4/Ratings.pm (-1 / +1 lines)
Lines 28-34 use C4::Context; Link Here
28
28
29
use Koha::Database;
29
use Koha::Database;
30
30
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
32
33
BEGIN {
33
BEGIN {
34
    $VERSION = 3.07.00.049;
34
    $VERSION = 3.07.00.049;
(-)a/C4/Record.pm (-1 / +1 lines)
Lines 39-45 use Koha::SimpleMARC qw(read_field); Link Here
39
use Koha::XSLT_Handler;
39
use Koha::XSLT_Handler;
40
use Carp;
40
use Carp;
41
41
42
use vars qw($VERSION @ISA @EXPORT);
42
use vars qw(@ISA @EXPORT);
43
43
44
# set the version for version checking
44
# set the version for version checking
45
$VERSION = 3.07.00.049;
45
$VERSION = 3.07.00.049;
(-)a/C4/Reports.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25
use C4::Context;
25
use C4::Context;
26
use C4::Debug;
26
use C4::Debug;
27
27
(-)a/C4/Reports/Guided.pm (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Carp;
22
use Carp;
23
23
24
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25
use C4::Context;
25
use C4::Context;
26
use C4::Templates qw/themelanguage/;
26
use C4::Templates qw/themelanguage/;
27
use C4::Koha;
27
use C4::Koha;
(-)a/C4/Reserves.pm (-1 / +1 lines)
Lines 45-51 use Koha::Libraries; Link Here
45
use List::MoreUtils qw( firstidx any );
45
use List::MoreUtils qw( firstidx any );
46
use Carp;
46
use Carp;
47
47
48
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
48
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
49
49
50
=head1 NAME
50
=head1 NAME
51
51
(-)a/C4/Review.pm (-1 / +1 lines)
Lines 22-28 use warnings; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
24
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
26
27
BEGIN {
27
BEGIN {
28
    # set the version for version checking
28
    # set the version for version checking
(-)a/C4/Ris.pm (-1 / +1 lines)
Lines 62-68 package C4::Ris; Link Here
62
use Modern::Perl;
62
use Modern::Perl;
63
63
64
use List::MoreUtils qw/uniq/;
64
use List::MoreUtils qw/uniq/;
65
use vars qw($VERSION @ISA @EXPORT);
65
use vars qw(@ISA @EXPORT);
66
66
67
use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
67
use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField);
68
use Koha::SimpleMARC qw(read_field);
68
use Koha::SimpleMARC qw(read_field);
(-)a/C4/RotatingCollections.pm (-1 / +1 lines)
Lines 33-39 use DBI; Link Here
33
33
34
use Data::Dumper;
34
use Data::Dumper;
35
35
36
use vars qw($VERSION @ISA @EXPORT);
36
use vars qw(@ISA @EXPORT);
37
37
38
# set the version for version checking
38
# set the version for version checking
39
$VERSION = 3.07.00.049;
39
$VERSION = 3.07.00.049;
(-)a/C4/SIP/Sip.pm (-1 / +1 lines)
Lines 16-22 use IO::Handle; Link Here
16
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
16
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
17
use C4::SIP::Sip::Checksum qw(checksum);
17
use C4::SIP::Sip::Checksum qw(checksum);
18
18
19
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
19
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
20
20
21
BEGIN {
21
BEGIN {
22
    $VERSION = 3.07.00.049;
22
    $VERSION = 3.07.00.049;
(-)a/C4/SIP/Sip/MsgType.pm (-1 / +1 lines)
Lines 21-27 use C4::Auth qw(&check_api_auth); Link Here
21
21
22
use UNIVERSAL::can;
22
use UNIVERSAL::can;
23
23
24
use vars qw(@ISA $VERSION @EXPORT_OK);
24
use vars qw(@ISA @EXPORT_OK);
25
25
26
use constant INVALID_CARD => 'Invalid cardnumber';
26
use constant INVALID_CARD => 'Invalid cardnumber';
27
use constant INVALID_PW   => 'Invalid password';
27
use constant INVALID_PW   => 'Invalid password';
(-)a/C4/SIP/t/SIPtest.pm (-1 / +1 lines)
Lines 4-10 use strict; Link Here
4
use warnings;
4
use warnings;
5
5
6
use Exporter;
6
use Exporter;
7
use vars qw(@ISA $VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
7
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
8
8
9
use Data::Dumper;
9
use Data::Dumper;
10
10
(-)a/C4/SMS.pm (-1 / +1 lines)
Lines 37-43 use warnings; Link Here
37
37
38
use C4::Context;
38
use C4::Context;
39
39
40
use vars qw( $VERSION );
40
use vars qw( );
41
41
42
BEGIN {
42
BEGIN {
43
    $VERSION = 3.07.00.049;
43
    $VERSION = 3.07.00.049;
(-)a/C4/Scheduler.pm (-1 / +1 lines)
Lines 20-26 package C4::Scheduler; Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
22
23
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
23
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24
use C4::Context;
24
use C4::Context;
25
use Schedule::At;
25
use Schedule::At;
26
26
(-)a/C4/Search.pm (-1 / +1 lines)
Lines 37-43 use URI::Escape; Link Here
37
use Business::ISBN;
37
use Business::ISBN;
38
use MARC::Record;
38
use MARC::Record;
39
use MARC::Field;
39
use MARC::Field;
40
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
40
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG);
41
41
42
# set the version for version checking
42
# set the version for version checking
43
BEGIN {
43
BEGIN {
(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 36-42 use Koha::Serial; Link Here
36
use Koha::Subscriptions;
36
use Koha::Subscriptions;
37
use Koha::Subscription::Histories;
37
use Koha::Subscription::Histories;
38
38
39
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
39
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
40
40
41
# Define statuses
41
# Define statuses
42
use constant {
42
use constant {
(-)a/C4/Serials/Frequency.pm (-1 / +1 lines)
Lines 22-28 use warnings; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
24
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
26
27
BEGIN {
27
BEGIN {
28
    # set the version for version checking
28
    # set the version for version checking
(-)a/C4/Serials/Numberpattern.pm (-1 / +1 lines)
Lines 22-28 use warnings; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
24
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
26
27
BEGIN {
27
BEGIN {
28
28
(-)a/C4/ShelfBrowser.pm (-1 / +1 lines)
Lines 27-33 use C4::Branch; Link Here
27
use C4::Context;
27
use C4::Context;
28
use C4::Koha;
28
use C4::Koha;
29
29
30
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
30
use vars qw(@ISA @EXPORT @EXPORT_OK);
31
31
32
BEGIN {
32
BEGIN {
33
    $VERSION = 3.07.00.049;
33
    $VERSION = 3.07.00.049;
(-)a/C4/Stats.pm (-1 / +1 lines)
Lines 24-30 require Exporter; Link Here
24
use Carp;
24
use Carp;
25
use C4::Context;
25
use C4::Context;
26
use C4::Debug;
26
use C4::Debug;
27
use vars qw($VERSION @ISA @EXPORT);
27
use vars qw(@ISA @EXPORT);
28
28
29
our $debug;
29
our $debug;
30
30
(-)a/C4/Tags.pm (-1 / +1 lines)
Lines 29-35 use C4::Debug; Link Here
29
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
29
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
30
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM   tags_all\n";
30
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM   tags_all\n";
31
31
32
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
33
our $ext_dict;
33
our $ext_dict;
34
34
35
BEGIN {
35
BEGIN {
(-)a/C4/TmplTokenType.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
require Exporter;
22
require Exporter;
23
23
24
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25
25
26
###############################################################################
26
###############################################################################
27
27
(-)a/C4/Utils/DataTables.pm (-1 / +1 lines)
Lines 20-26 package C4::Utils::DataTables; Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
require Exporter;
21
require Exporter;
22
22
23
use vars qw($VERSION @ISA @EXPORT);
23
use vars qw(@ISA @EXPORT);
24
24
25
BEGIN {
25
BEGIN {
26
    $VERSION    = 3.07.00.049,
26
    $VERSION    = 3.07.00.049,
(-)a/C4/XISBN.pm (-1 / +1 lines)
Lines 28-34 use HTTP::Request::Common; Link Here
28
28
29
use strict;
29
use strict;
30
#use warnings; FIXME - Bug 2505
30
#use warnings; FIXME - Bug 2505
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
32
33
BEGIN {
33
BEGIN {
34
	require Exporter;
34
	require Exporter;
(-)a/C4/XSLT.pm (-1 / +1 lines)
Lines 36-42 use Koha::Libraries; Link Here
36
36
37
use Encode;
37
use Encode;
38
38
39
use vars qw($VERSION @ISA @EXPORT);
39
use vars qw(@ISA @EXPORT);
40
40
41
my $engine; #XSLT Handler object
41
my $engine; #XSLT Handler object
42
my %authval_per_framework;
42
my %authval_per_framework;
(-)a/Koha/Misc/Files.pm (-1 / +1 lines)
Lines 20-26 package Koha::Misc::Files; Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use vars qw($VERSION);
23
use vars qw();
24
$VERSION = '0.25';
24
$VERSION = '0.25';
25
25
26
use C4::Context;
26
use C4::Context;
(-)a/Koha/Patron/Files.pm (-1 / +1 lines)
Lines 19-25 package Koha::Patron::Files; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use vars qw($VERSION);
22
use vars qw();
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output;
(-)a/Koha/Template/Plugin/Cache.pm (-1 / +1 lines)
Lines 19-25 package Koha::Template::Plugin::Cache; Link Here
19
19
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
use vars qw( $VERSION );
22
use vars qw( );
23
use base qw( Template::Plugin );
23
use base qw( Template::Plugin );
24
use Template::Plugin;
24
use Template::Plugin;
25
use C4::Context;
25
use C4::Context;
(-)a/acqui/pdfformat/layout2pages.pm (-1 / +1 lines)
Lines 22-28 Link Here
22
22
23
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
23
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
24
package pdfformat::layout2pages;
24
package pdfformat::layout2pages;
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
use MIME::Base64;
26
use MIME::Base64;
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
(-)a/acqui/pdfformat/layout2pagesde.pm (-1 / +1 lines)
Lines 22-28 Link Here
22
22
23
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
23
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
24
package pdfformat::layout2pagesde;
24
package pdfformat::layout2pagesde;
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
use MIME::Base64;
26
use MIME::Base64;
27
use strict;
27
use strict;
28
use warnings;
28
use warnings;
(-)a/acqui/pdfformat/layout3pages.pm (-1 / +1 lines)
Lines 22-28 Link Here
22
22
23
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
23
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
24
package pdfformat::layout3pages;
24
package pdfformat::layout3pages;
25
use vars qw($VERSION @ISA @EXPORT);
25
use vars qw(@ISA @EXPORT);
26
use MIME::Base64;
26
use MIME::Base64;
27
use List::MoreUtils qw/uniq/;
27
use List::MoreUtils qw/uniq/;
28
use strict;
28
use strict;
(-)a/acqui/pdfformat/layout3pagesfr.pm (-1 / +1 lines)
Lines 21-27 Link Here
21
21
22
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
22
#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
23
package pdfformat::layout3pagesfr;
23
package pdfformat::layout3pagesfr;
24
use vars qw($VERSION @ISA @EXPORT);
24
use vars qw(@ISA @EXPORT);
25
use MIME::Base64;
25
use MIME::Base64;
26
use List::MoreUtils qw/uniq/;
26
use List::MoreUtils qw/uniq/;
27
use strict;
27
use strict;
(-)a/install_misc/UpgradeBackup.pm (-1 / +1 lines)
Lines 26-32 use File::Find; Link Here
26
use File::Spec;
26
use File::Spec;
27
use Exporter;
27
use Exporter;
28
28
29
use vars qw(@ISA @EXPORT $VERSION);
29
use vars qw(@ISA @EXPORT );
30
30
31
@ISA = ('Exporter');
31
@ISA = ('Exporter');
32
@EXPORT = ('backup_changed_files');
32
@EXPORT = ('backup_changed_files');
(-)a/misc/translator/TmplTokenizer.pm (-1 / +1 lines)
Lines 8-14 use C4::TTParser; Link Here
8
use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
8
use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
9
require Exporter;
9
require Exporter;
10
10
11
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
11
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
12
12
13
###############################################################################
13
###############################################################################
14
14
(-)a/misc/translator/VerboseWarnings.pm (-2 / +1 lines)
Lines 4-10 use strict; Link Here
4
#use warnings; FIXME - Bug 2505
4
#use warnings; FIXME - Bug 2505
5
require Exporter;
5
require Exporter;
6
6
7
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
7
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
8
8
9
###############################################################################
9
###############################################################################
10
10
11
- 

Return to bug 16011