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

(-)a/C4/Accounts.pm (-1 lines)
Lines 32-38 use vars qw(@ISA @EXPORT); Link Here
32
32
33
BEGIN {
33
BEGIN {
34
	# set the version for version checking
34
	# set the version for version checking
35
    $VERSION = 3.07.00.049;
36
	require Exporter;
35
	require Exporter;
37
	@ISA    = qw(Exporter);
36
	@ISA    = qw(Exporter);
38
	@EXPORT = qw(
37
	@EXPORT = qw(
(-)a/C4/Acquisition.pm (-1 lines)
Lines 45-51 use vars qw(@ISA @EXPORT); Link Here
45
45
46
BEGIN {
46
BEGIN {
47
    # set the version for version checking
47
    # set the version for version checking
48
    $VERSION = 3.07.00.049;
49
    require Exporter;
48
    require Exporter;
50
    @ISA    = qw(Exporter);
49
    @ISA    = qw(Exporter);
51
    @EXPORT = qw(
50
    @EXPORT = qw(
(-)a/C4/Auth.pm (-1 lines)
Lines 49-55 BEGIN { Link Here
49
        if   (psgi_env) { die 'psgi:exit' }
49
        if   (psgi_env) { die 'psgi:exit' }
50
        else            { exit }
50
        else            { exit }
51
    }
51
    }
52
    $VERSION = 3.07.00.049;    # set version for version checking
53
52
54
    $debug     = $ENV{DEBUG};
53
    $debug     = $ENV{DEBUG};
55
    @ISA       = qw(Exporter);
54
    @ISA       = qw(Exporter);
(-)a/C4/Auth_with_cas.pm (-1 lines)
Lines 32-38 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); Link Here
32
32
33
BEGIN {
33
BEGIN {
34
	require Exporter;
34
	require Exporter;
35
    $VERSION = 3.07.00.049;	# set the version for version checking
36
	$debug = $ENV{DEBUG};
35
	$debug = $ENV{DEBUG};
37
	@ISA    = qw(Exporter);
36
	@ISA    = qw(Exporter);
38
	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
37
	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
(-)a/C4/Auth_with_ldap.pm (-1 lines)
Lines 37-43 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); Link Here
37
37
38
BEGIN {
38
BEGIN {
39
	require Exporter;
39
	require Exporter;
40
    $VERSION = 3.07.00.049;	# set the version for version checking
41
	@ISA    = qw(Exporter);
40
	@ISA    = qw(Exporter);
42
	@EXPORT = qw( checkpw_ldap );
41
	@EXPORT = qw( checkpw_ldap );
43
}
42
}
(-)a/C4/Auth_with_shibboleth.pm (-1 lines)
Lines 29-35 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); Link Here
29
29
30
BEGIN {
30
BEGIN {
31
    require Exporter;
31
    require Exporter;
32
    $VERSION = 3.03;           # set the version for version checking
33
    $debug   = $ENV{DEBUG};
32
    $debug   = $ENV{DEBUG};
34
    @ISA     = qw(Exporter);
33
    @ISA     = qw(Exporter);
35
    @EXPORT =
34
    @EXPORT =
(-)a/C4/AuthoritiesMarc.pm (-1 lines)
Lines 34-40 use vars qw(@ISA @EXPORT); Link Here
34
34
35
BEGIN {
35
BEGIN {
36
	# set the version for version checking
36
	# set the version for version checking
37
    $VERSION = 3.07.00.049;
38
37
39
	require Exporter;
38
	require Exporter;
40
	@ISA = qw(Exporter);
39
	@ISA = qw(Exporter);
(-)a/C4/AuthoritiesMarc/MARC21.pm (-1 lines)
Lines 20-26 package C4::AuthoritiesMarc::MARC21; Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use MARC::Record;
22
use MARC::Record;
23
our $VERSION = 3.07.00.049;
24
23
25
=head1 NAME
24
=head1 NAME
26
25
(-)a/C4/AuthoritiesMarc/UNIMARC.pm (-1 lines)
Lines 19-25 package C4::AuthoritiesMarc::UNIMARC; Link Here
19
19
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
our $VERSION = 3.07.00.049;
23
22
24
=head1 NAME
23
=head1 NAME
25
24
(-)a/C4/BackgroundJob.pm (-1 lines)
Lines 28-34 use vars qw(); Link Here
28
28
29
BEGIN {
29
BEGIN {
30
	# set the version for version checking
30
	# set the version for version checking
31
    $VERSION = 3.07.00.049;
32
}
31
}
33
32
34
=head1 NAME
33
=head1 NAME
(-)a/C4/Barcodes.pm (-1 lines)
Lines 34-40 use vars qw($debug $cgi_debug); # from C4::Debug, of course Link Here
34
use vars qw($max $prefformat);
34
use vars qw($max $prefformat);
35
35
36
BEGIN {
36
BEGIN {
37
    $VERSION = 3.07.00.049;
38
	require Exporter;
37
	require Exporter;
39
    @ISA = qw(Exporter);
38
    @ISA = qw(Exporter);
40
    @EXPORT_OK = qw();
39
    @EXPORT_OK = qw();
(-)a/C4/Barcodes/EAN13.pm (-1 lines)
Lines 30-36 use vars qw(@ISA); Link Here
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 {
33
    $VERSION = 0.01;
34
    @ISA = qw(C4::Barcodes);
33
    @ISA = qw(C4::Barcodes);
35
}
34
}
36
35
(-)a/C4/Barcodes/annual.pm (-1 lines)
Lines 32-38 use vars qw($debug $cgi_debug); # from C4::Debug, of course Link Here
32
use vars qw($width);
32
use vars qw($width);
33
33
34
BEGIN {
34
BEGIN {
35
    $VERSION = 3.07.00.049;
36
    @ISA = qw(C4::Barcodes);
35
    @ISA = qw(C4::Barcodes);
37
	$width = 4;
36
	$width = 4;
38
}
37
}
(-)a/C4/Barcodes/hbyymmincr.pm (-1 lines)
Lines 32-38 use vars qw($debug $cgi_debug); # from C4::Debug, of course Link Here
32
use vars qw($branch $width);
32
use vars qw($branch $width);
33
33
34
BEGIN {
34
BEGIN {
35
    $VERSION = 3.07.00.049;
36
    @ISA = qw(C4::Barcodes);
35
    @ISA = qw(C4::Barcodes);
37
}
36
}
38
37
(-)a/C4/Barcodes/incremental.pm (-1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw(@ISA);
23
use vars qw(@ISA);
24
24
25
BEGIN {
25
BEGIN {
26
    $VERSION = 3.07.00.049;
27
    @ISA = qw(C4::Barcodes);
26
    @ISA = qw(C4::Barcodes);
28
}
27
}
29
28
(-)a/C4/Biblio.pm (-1 lines)
Lines 45-51 use Koha::Acquisition::Currencies; Link Here
45
use vars qw(@ISA @EXPORT);
45
use vars qw(@ISA @EXPORT);
46
46
47
BEGIN {
47
BEGIN {
48
    $VERSION = 3.07.00.049;
49
48
50
    require Exporter;
49
    require Exporter;
51
    @ISA = qw( Exporter );
50
    @ISA = qw( Exporter );
(-)a/C4/Bookseller.pm (-1 lines)
Lines 26-32 use base qw( Exporter ); Link Here
26
use C4::Bookseller::Contact;
26
use C4::Bookseller::Contact;
27
27
28
# set the version for version checking
28
# set the version for version checking
29
our $VERSION   = 3.07.00.049;
30
our @EXPORT_OK = qw(
29
our @EXPORT_OK = qw(
31
  GetBooksellersWithLateOrders
30
  GetBooksellersWithLateOrders
32
  ModBookseller
31
  ModBookseller
(-)a/C4/Boolean.pm (-1 lines)
Lines 27-33 use warnings; Link Here
27
use Carp;
27
use Carp;
28
use base qw(Exporter);
28
use base qw(Exporter);
29
29
30
our    $VERSION = 3.07.00.049;
31
our    @EXPORT_OK = qw( true_p);
30
our    @EXPORT_OK = qw( true_p);
32
31
33
=head1 NAME
32
=head1 NAME
(-)a/C4/Branch.pm (-1 lines)
Lines 26-32 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
26
26
27
BEGIN {
27
BEGIN {
28
	# set the version for version checking
28
	# set the version for version checking
29
    $VERSION = 3.07.00.049;
30
	@ISA    = qw(Exporter);
29
	@ISA    = qw(Exporter);
31
	@EXPORT = qw(
30
	@EXPORT = qw(
32
		&GetBranchName
31
		&GetBranchName
(-)a/C4/Breeding.pm (-1 lines)
Lines 35-41 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
35
35
36
BEGIN {
36
BEGIN {
37
	# set the version for version checking
37
	# set the version for version checking
38
    $VERSION = 3.07.00.049;
39
	require Exporter;
38
	require Exporter;
40
	@ISA = qw(Exporter);
39
	@ISA = qw(Exporter);
41
    @EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
40
    @EXPORT = qw(&BreedingSearch &Z3950Search &Z3950SearchAuth);
(-)a/C4/Budgets.pm (-1 lines)
Lines 26-32 use vars qw(@ISA @EXPORT); Link Here
26
26
27
BEGIN {
27
BEGIN {
28
	# set the version for version checking
28
	# set the version for version checking
29
    $VERSION = 3.07.00.049;
30
	require Exporter;
29
	require Exporter;
31
	@ISA    = qw(Exporter);
30
	@ISA    = qw(Exporter);
32
	@EXPORT = qw(
31
	@EXPORT = qw(
(-)a/C4/Charset.pm (-1 lines)
Lines 30-36 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
30
30
31
BEGIN {
31
BEGIN {
32
    # set the version for version checking
32
    # set the version for version checking
33
    $VERSION = 3.07.00.049;
34
    require Exporter;
33
    require Exporter;
35
    @ISA    = qw(Exporter);
34
    @ISA    = qw(Exporter);
36
    @EXPORT = qw(
35
    @EXPORT = qw(
(-)a/C4/Circulation.pm (-1 lines)
Lines 68-74 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
68
68
69
BEGIN {
69
BEGIN {
70
	require Exporter;
70
	require Exporter;
71
    $VERSION = 3.07.00.049;	# for version checking
72
	@ISA    = qw(Exporter);
71
	@ISA    = qw(Exporter);
73
72
74
	# FIXME subs that should probably be elsewhere
73
	# FIXME subs that should probably be elsewhere
(-)a/C4/ClassSortRoutine.pm (-1 lines)
Lines 27-33 use C4::Context; Link Here
27
use vars qw(@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;
31
30
32
=head1 NAME 
31
=head1 NAME 
33
32
(-)a/C4/ClassSortRoutine/Dewey.pm (-1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw();
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;
27
26
28
=head1 NAME 
27
=head1 NAME 
29
28
(-)a/C4/ClassSortRoutine/Generic.pm (-1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw();
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;
27
26
28
=head1 NAME 
27
=head1 NAME 
29
28
(-)a/C4/ClassSortRoutine/LCC.pm (-1 lines)
Lines 25-31 use Library::CallNumber::LC; Link Here
25
use vars qw();
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;
29
28
30
=head1 NAME 
29
=head1 NAME 
31
30
(-)a/C4/ClassSource.pm (-1 lines)
Lines 27-33 use C4::ClassSortRoutine; Link Here
27
use vars qw(@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;
31
30
32
=head1 NAME
31
=head1 NAME
33
32
(-)a/C4/Context.pm (-1 lines)
Lines 94-100 BEGIN { Link Here
94
    $ismemcached = $memcached->set('ismemcached','1');
94
    $ismemcached = $memcached->set('ismemcached','1');
95
    }
95
    }
96
96
97
    $VERSION = '3.07.00.049';
98
}
97
}
99
98
100
use Encode;
99
use Encode;
(-)a/C4/Contract.pm (-1 lines)
Lines 27-33 use vars qw(@ISA @EXPORT); Link Here
27
27
28
BEGIN {
28
BEGIN {
29
	# set the version for version checking
29
	# set the version for version checking
30
    $VERSION = 3.07.00.049;
31
    require Exporter;
30
    require Exporter;
32
	@ISA    = qw(Exporter);
31
	@ISA    = qw(Exporter);
33
	@EXPORT = qw(
32
	@EXPORT = qw(
(-)a/C4/Creators.pm (-1 lines)
Lines 18-24 package C4::Creators; Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
BEGIN {
20
BEGIN {
21
    use version; our $VERSION = qv('3.07.00.049');
22
    use vars qw(@EXPORT @ISA);
21
    use vars qw(@EXPORT @ISA);
23
    @ISA = qw(Exporter);
22
    @ISA = qw(Exporter);
24
    our @EXPORT = qw(get_all_templates
23
    our @EXPORT = qw(get_all_templates
(-)a/C4/Creators/Batch.pm (-1 lines)
Lines 9-15 use C4::Context; Link Here
9
use C4::Debug;
9
use C4::Debug;
10
10
11
BEGIN {
11
BEGIN {
12
    use version; our $VERSION = qv('3.07.00.049');
13
}
12
}
14
13
15
sub _check_params {
14
sub _check_params {
(-)a/C4/Creators/Layout.pm (-1 lines)
Lines 10-16 use C4::Debug; Link Here
10
use C4::Creators::PDF;
10
use C4::Creators::PDF;
11
11
12
BEGIN {
12
BEGIN {
13
    use version; our $VERSION = qv('3.07.00.049');
14
}
13
}
15
14
16
# FIXME: Consider this style parameter verification instead...
15
# FIXME: Consider this style parameter verification instead...
(-)a/C4/Creators/Lib.pm (-1 lines)
Lines 26-32 use C4::Context; Link Here
26
use C4::Debug;
26
use C4::Debug;
27
27
28
BEGIN {
28
BEGIN {
29
    use version; our $VERSION = qv('3.07.00.049');
30
    use base qw(Exporter);
29
    use base qw(Exporter);
31
    our @EXPORT = qw(get_all_templates
30
    our @EXPORT = qw(get_all_templates
32
                     get_all_layouts
31
                     get_all_layouts
(-)a/C4/Creators/PDF.pm (-1 lines)
Lines 25-31 use File::Temp; Link Here
25
use List::Util qw/first/;
25
use List::Util qw/first/;
26
26
27
BEGIN {
27
BEGIN {
28
    use version; our $VERSION = qv('3.07.00.049');
29
}
28
}
30
29
31
sub _InitVars {
30
sub _InitVars {
(-)a/C4/Creators/Profile.pm (-1 lines)
Lines 10-16 use C4::Debug; Link Here
10
use C4::Creators::Lib qw(get_unit_values);
10
use C4::Creators::Lib qw(get_unit_values);
11
11
12
BEGIN {
12
BEGIN {
13
    use version; our $VERSION = qv('3.07.00.049');
14
}
13
}
15
14
16
sub _check_params {
15
sub _check_params {
(-)a/C4/Creators/Template.pm (-1 lines)
Lines 11-17 use C4::Creators::Profile; Link Here
11
use C4::Creators::Lib qw(get_unit_values);
11
use C4::Creators::Lib qw(get_unit_values);
12
12
13
BEGIN {
13
BEGIN {
14
    use version; our $VERSION = qv('3.07.00.049');
15
}
14
}
16
15
17
sub _check_params {
16
sub _check_params {
(-)a/C4/Csv.pm (-1 lines)
Lines 26-32 use C4::Context; Link Here
26
use vars qw(@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;
30
29
31
@ISA = qw(Exporter);
30
@ISA = qw(Exporter);
32
31
(-)a/C4/Debug.pm (-1 lines)
Lines 27-33 use vars qw(@ISA @EXPORT $debug $cgi_debug); Link Here
27
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
27
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
28
28
29
BEGIN {
29
BEGIN {
30
    $VERSION = 3.07.00.049;	# set the version for version checking
31
	@ISA       = qw(Exporter);
30
	@ISA       = qw(Exporter);
32
	@EXPORT    = qw($debug $cgi_debug);
31
	@EXPORT    = qw($debug $cgi_debug);
33
	# @EXPOR_OK    = qw();
32
	# @EXPOR_OK    = qw();
(-)a/C4/External/Amazon.pm (-1 lines)
Lines 25-31 use vars qw(@ISA @EXPORT); Link Here
25
25
26
BEGIN {
26
BEGIN {
27
    require Exporter;
27
    require Exporter;
28
    $VERSION = 3.07.00.049;
29
    @ISA = qw(Exporter);
28
    @ISA = qw(Exporter);
30
    @EXPORT = qw(
29
    @EXPORT = qw(
31
        get_amazon_tld
30
        get_amazon_tld
(-)a/C4/External/BakerTaylor.pm (-1 lines)
Lines 32-38 use vars qw($user $pass $agent $image_url $link_url); Link Here
32
32
33
BEGIN {
33
BEGIN {
34
	require Exporter;
34
	require Exporter;
35
    $VERSION = 3.07.00.049;
36
	@ISA = qw(Exporter);
35
	@ISA = qw(Exporter);
37
	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
36
	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
38
	%EXPORT_TAGS = (all=>\@EXPORT_OK);
37
	%EXPORT_TAGS = (all=>\@EXPORT_OK);
(-)a/C4/External/OverDrive.pm (-1 lines)
Lines 30-36 use LWP::UserAgent; Link Here
30
30
31
BEGIN {
31
BEGIN {
32
    require Exporter;
32
    require Exporter;
33
    our $VERSION = 3.07.00.049;
34
    our @ISA = qw( Exporter ) ;
33
    our @ISA = qw( Exporter ) ;
35
    our @EXPORT = qw(
34
    our @EXPORT = qw(
36
        IsOverDriveEnabled
35
        IsOverDriveEnabled
(-)a/C4/External/Syndetics.pm (-1 lines)
Lines 30-36 use vars qw(@ISA @EXPORT); Link Here
30
30
31
BEGIN {
31
BEGIN {
32
    require Exporter;
32
    require Exporter;
33
    $VERSION = 3.07.00.049;
34
    @ISA = qw(Exporter);
33
    @ISA = qw(Exporter);
35
    @EXPORT = qw(
34
    @EXPORT = qw(
36
        &get_syndetics_index
35
        &get_syndetics_index
(-)a/C4/Heading.pm (-1 lines)
Lines 25-31 use C4::Context; Link Here
25
use Module::Load;
25
use Module::Load;
26
use Carp;
26
use Carp;
27
27
28
our $VERSION = 3.07.00.049;
29
28
30
=head1 NAME
29
=head1 NAME
31
30
(-)a/C4/Heading/MARC21.pm (-1 lines)
Lines 22-28 use warnings; Link Here
22
use MARC::Record;
22
use MARC::Record;
23
use MARC::Field;
23
use MARC::Field;
24
24
25
our $VERSION = 3.07.00.049;
26
25
27
=head1 NAME
26
=head1 NAME
28
27
(-)a/C4/Heading/UNIMARC.pm (-1 lines)
Lines 24-30 use MARC::Record; Link Here
24
use MARC::Field;
24
use MARC::Field;
25
use C4::Context;
25
use C4::Context;
26
26
27
our $VERSION = 3.07.00.049;
28
27
29
=head1 NAME
28
=head1 NAME
30
29
(-)a/C4/HoldsQueue.pm (-1 lines)
Lines 37-43 use Data::Dumper; Link Here
37
37
38
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
38
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
39
BEGIN {
39
BEGIN {
40
    $VERSION = 3.03;
41
    require Exporter;
40
    require Exporter;
42
    @ISA = qw(Exporter);
41
    @ISA = qw(Exporter);
43
    @EXPORT_OK = qw(
42
    @EXPORT_OK = qw(
(-)a/C4/Images.pm (-1 lines)
Lines 30-36 use vars qw($debug $noimage @ISA @EXPORT); Link Here
30
BEGIN {
30
BEGIN {
31
31
32
    # set the version for version checking
32
    # set the version for version checking
33
    $VERSION = 3.07.00.049;
34
    require Exporter;
33
    require Exporter;
35
    @ISA    = qw(Exporter);
34
    @ISA    = qw(Exporter);
36
    @EXPORT = qw(
35
    @EXPORT = qw(
(-)a/C4/ImportBatch.pm (-1 lines)
Lines 34-40 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
34
34
35
BEGIN {
35
BEGIN {
36
	# set the version for version checking
36
	# set the version for version checking
37
    $VERSION = 3.07.00.049;
38
	require Exporter;
37
	require Exporter;
39
	@ISA    = qw(Exporter);
38
	@ISA    = qw(Exporter);
40
	@EXPORT = qw(
39
	@EXPORT = qw(
(-)a/C4/ImportExportFramework.pm (-1 lines)
Lines 31-37 use C4::Debug; Link Here
31
use vars qw(@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
35
    require Exporter;
34
    require Exporter;
36
    @ISA    = qw(Exporter);
35
    @ISA    = qw(Exporter);
37
    @EXPORT = qw(
36
    @EXPORT = qw(
(-)a/C4/InstallAuth.pm (-1 lines)
Lines 31-37 use CGI::Session; Link Here
31
use vars qw(@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;
35
34
36
=head1 NAME
35
=head1 NAME
37
36
(-)a/C4/Installer.pm (-1 lines)
Lines 21-27 use strict; Link Here
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
22
23
use Encode qw( encode is_utf8 );
23
use Encode qw( encode is_utf8 );
24
our $VERSION = 3.07.00.049;
25
use C4::Context;
24
use C4::Context;
26
use C4::Installer::PerlModules;
25
use C4::Installer::PerlModules;
27
use DBI;
26
use DBI;
(-)a/C4/Installer/PerlModules.pm (-1 lines)
Lines 7-13 use File::Spec; Link Here
7
7
8
use C4::Installer::PerlDependencies;
8
use C4::Installer::PerlDependencies;
9
9
10
use version; our $VERSION = qv('3.07.00.049');
11
10
12
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
11
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
13
12
(-)a/C4/Items.pm (-1 lines)
Lines 42-48 use Koha::Database; Link Here
42
use vars qw(@ISA @EXPORT);
42
use vars qw(@ISA @EXPORT);
43
43
44
BEGIN {
44
BEGIN {
45
    $VERSION = 3.07.00.049;
46
45
47
	require Exporter;
46
	require Exporter;
48
    @ISA = qw( Exporter );
47
    @ISA = qw( Exporter );
(-)a/C4/Koha.pm (-1 lines)
Lines 35-41 use DBI qw(:sql_types); Link Here
35
use vars qw(@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;
39
	require Exporter;
38
	require Exporter;
40
	@ISA    = qw(Exporter);
39
	@ISA    = qw(Exporter);
41
	@EXPORT = qw(
40
	@EXPORT = qw(
(-)a/C4/Labels.pm (-1 lines)
Lines 1-7 Link Here
1
package C4::Labels;
1
package C4::Labels;
2
2
3
BEGIN {
3
BEGIN {
4
    use version; our $VERSION = qv('3.07.00.049');
5
4
6
    use C4::Labels::Batch;
5
    use C4::Labels::Batch;
7
    use C4::Labels::Label;
6
    use C4::Labels::Label;
(-)a/C4/Labels/Batch.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Batch); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Labels/Label.pm (-1 lines)
Lines 15-21 use C4::Debug; Link Here
15
use C4::Biblio;
15
use C4::Biblio;
16
16
17
BEGIN {
17
BEGIN {
18
    use version; our $VERSION = qv('3.07.00.049');
19
}
18
}
20
19
21
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
20
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
(-)a/C4/Labels/Layout.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Layout); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Labels/Profile.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Profile); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Labels/Template.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Template); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
use constant TEMPLATE_TABLE => 'creator_templates';
13
use constant TEMPLATE_TABLE => 'creator_templates';
(-)a/C4/Languages.pm (-1 lines)
Lines 40-46 eval { Link Here
40
};
40
};
41
41
42
BEGIN {
42
BEGIN {
43
    $VERSION = 3.07.00.049;
44
    require Exporter;
43
    require Exporter;
45
    @ISA    = qw(Exporter);
44
    @ISA    = qw(Exporter);
46
    @EXPORT = qw(
45
    @EXPORT = qw(
(-)a/C4/Letters.pm (-1 lines)
Lines 44-50 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
44
BEGIN {
44
BEGIN {
45
    require Exporter;
45
    require Exporter;
46
    # set the version for version checking
46
    # set the version for version checking
47
    $VERSION = 3.07.00.049;
48
    @ISA = qw(Exporter);
47
    @ISA = qw(Exporter);
49
    @EXPORT = qw(
48
    @EXPORT = qw(
50
        &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes
49
        &GetLetters &GetLettersAvailableForALibrary &GetLetterTemplates &DelLetter &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages &GetMessageTransportTypes
(-)a/C4/Log.pm (-1 lines)
Lines 31-37 use vars qw(@ISA @EXPORT); Link Here
31
31
32
BEGIN {
32
BEGIN {
33
    # set the version for version checking
33
    # set the version for version checking
34
    $VERSION = 3.07.00.049;
35
        require Exporter;
34
        require Exporter;
36
        @ISA = qw(Exporter);
35
        @ISA = qw(Exporter);
37
        @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
36
        @EXPORT = qw(&logaction &cronlogaction &GetLogStatus &displaylog &GetLogs);
(-)a/C4/MarcModificationTemplates.pm (-1 lines)
Lines 29-35 use vars qw(@ISA @EXPORT); Link Here
29
use constant DEBUG => 0;
29
use constant DEBUG => 0;
30
30
31
BEGIN {
31
BEGIN {
32
    $VERSION = 1.00;    # set the version for version checking
33
    @ISA = qw(Exporter);
32
    @ISA = qw(Exporter);
34
    @EXPORT = qw(
33
    @EXPORT = qw(
35
        &GetModificationTemplates
34
        &GetModificationTemplates
(-)a/C4/Matcher.pm (-1 lines)
Lines 27-33 use vars qw(); Link Here
27
27
28
BEGIN {
28
BEGIN {
29
	# set the version for version checking
29
	# set the version for version checking
30
    $VERSION = 3.07.00.049;
31
}
30
}
32
31
33
=head1 NAME
32
=head1 NAME
(-)a/C4/Members.pm (-1 lines)
Lines 50-56 if ( ! can_load( modules => { 'Koha::NorwegianPatronDB' => undef } ) ) { Link Here
50
50
51
51
52
BEGIN {
52
BEGIN {
53
    $VERSION = 3.07.00.049;
54
    $debug = $ENV{DEBUG} || 0;
53
    $debug = $ENV{DEBUG} || 0;
55
    require Exporter;
54
    require Exporter;
56
    @ISA = qw(Exporter);
55
    @ISA = qw(Exporter);
(-)a/C4/Members/AttributeTypes.pm (-1 lines)
Lines 25-31 use vars qw(); Link Here
25
25
26
BEGIN {
26
BEGIN {
27
    # set the version for version checking
27
    # set the version for version checking
28
    $VERSION = 3.07.00.049;
29
}
28
}
30
29
31
=head1 NAME
30
=head1 NAME
(-)a/C4/Members/Attributes.pm (-1 lines)
Lines 29-35 our ($csv, $AttributeTypes); Link Here
29
29
30
BEGIN {
30
BEGIN {
31
    # set the version for version checking
31
    # set the version for version checking
32
    $VERSION = 3.07.00.049;
33
    @ISA = qw(Exporter);
32
    @ISA = qw(Exporter);
34
    @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
33
    @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
35
                    DeleteBorrowerAttribute UpdateBorrowerAttribute
34
                    DeleteBorrowerAttribute UpdateBorrowerAttribute
(-)a/C4/Members/Messaging.pm (-1 lines)
Lines 25-31 use vars qw(); Link Here
25
25
26
BEGIN {
26
BEGIN {
27
    # set the version for version checking
27
    # set the version for version checking
28
    $VERSION = 3.07.00.049;
29
}
28
}
30
29
31
=head1 NAME
30
=head1 NAME
(-)a/C4/NewsChannels.pm (-1 lines)
Lines 25-31 use Koha::DateUtils; Link Here
25
use vars qw(@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
29
    @ISA = qw(Exporter);
28
    @ISA = qw(Exporter);
30
    @EXPORT = qw(
29
    @EXPORT = qw(
31
        &GetNewsToDisplay
30
        &GetNewsToDisplay
(-)a/C4/Output.pm (-1 lines)
Lines 37-43 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
37
37
38
BEGIN {
38
BEGIN {
39
    # set the version for version checking
39
    # set the version for version checking
40
    $VERSION = 3.07.00.049;
41
    require Exporter;
40
    require Exporter;
42
41
43
 @ISA    = qw(Exporter);
42
 @ISA    = qw(Exporter);
(-)a/C4/Overdues.pm (-1 lines)
Lines 41-47 use vars qw(@ISA @EXPORT); Link Here
41
41
42
BEGIN {
42
BEGIN {
43
    # set the version for version checking
43
    # set the version for version checking
44
    $VERSION = 3.07.00.049;
45
    require Exporter;
44
    require Exporter;
46
    @ISA = qw(Exporter);
45
    @ISA = qw(Exporter);
47
46
(-)a/C4/Passwordrecovery.pm (-1 lines)
Lines 25-31 use vars qw(@ISA @EXPORT); Link Here
25
25
26
BEGIN {
26
BEGIN {
27
    # set the version for version checking
27
    # set the version for version checking
28
    $VERSION = 3.07.00.049;
29
    require Exporter;
28
    require Exporter;
30
    @ISA = qw(Exporter);
29
    @ISA = qw(Exporter);
31
    push @EXPORT, qw(
30
    push @EXPORT, qw(
(-)a/C4/Patroncards.pm (-1 lines)
Lines 1-7 Link Here
1
package C4::Patroncards;
1
package C4::Patroncards;
2
2
3
BEGIN {
3
BEGIN {
4
    use version; our $VERSION = qv('3.07.00.049');
5
    use vars qw(@EXPORT @ISA);
4
    use vars qw(@EXPORT @ISA);
6
    @ISA = qw(Exporter);
5
    @ISA = qw(Exporter);
7
    our @EXPORT = qw(unpack_UTF8
6
    our @EXPORT = qw(unpack_UTF8
(-)a/C4/Patroncards/Batch.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Batch); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Patroncards/Layout.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Layout); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Patroncards/Lib.pm (-1 lines)
Lines 26-32 use C4::Context; Link Here
26
use C4::Debug;
26
use C4::Debug;
27
27
28
BEGIN {
28
BEGIN {
29
    use version; our $VERSION = qv('3.07.00.049');
30
    use base qw(Exporter);
29
    use base qw(Exporter);
31
    our @EXPORT = qw(unpack_UTF8
30
    our @EXPORT = qw(unpack_UTF8
32
                     text_alignment
31
                     text_alignment
(-)a/C4/Patroncards/Patroncard.pm (-1 lines)
Lines 29-35 use C4::Creators::PDF qw(StrWidth); Link Here
29
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
29
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
30
30
31
BEGIN {
31
BEGIN {
32
    use version; our $VERSION = qv('3.07.00.049');
33
}
32
}
34
33
35
sub new {
34
sub new {
(-)a/C4/Patroncards/Profile.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Profile); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Patroncards/Template.pm (-1 lines)
Lines 8-14 use base qw(C4::Creators::Template); Link Here
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
10
BEGIN {
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
11
}
13
12
14
use constant TEMPLATE_TABLE => 'creator_templates';
13
use constant TEMPLATE_TABLE => 'creator_templates';
(-)a/C4/Print.pm (-1 lines)
Lines 25-31 use vars qw(@ISA @EXPORT); Link Here
25
25
26
BEGIN {
26
BEGIN {
27
	# set the version for version checking
27
	# set the version for version checking
28
    $VERSION = 3.07.00.049;
29
	require Exporter;
28
	require Exporter;
30
	@ISA    = qw(Exporter);
29
	@ISA    = qw(Exporter);
31
    @EXPORT = qw(&NetworkPrint);
30
    @EXPORT = qw(&NetworkPrint);
(-)a/C4/Ratings.pm (-1 lines)
Lines 31-37 use Koha::Database; Link Here
31
use vars qw(@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;
35
    @ISA     = qw(Exporter);
34
    @ISA     = qw(Exporter);
36
35
37
    @EXPORT = qw(
36
    @EXPORT = qw(
(-)a/C4/Record.pm (-1 lines)
Lines 42-48 use Carp; Link Here
42
use vars qw(@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;
46
45
47
@ISA = qw(Exporter);
46
@ISA = qw(Exporter);
48
47
(-)a/C4/Reports.pm (-1 lines)
Lines 27-33 use C4::Debug; Link Here
27
27
28
BEGIN {
28
BEGIN {
29
    # set the version for version checking
29
    # set the version for version checking
30
    $VERSION = 3.07.00.049;
31
    require Exporter;
30
    require Exporter;
32
    @ISA = qw(Exporter);
31
    @ISA = qw(Exporter);
33
    @EXPORT = qw(
32
    @EXPORT = qw(
(-)a/C4/Reports/Guided.pm (-1 lines)
Lines 38-44 use Koha::AuthorisedValues; Link Here
38
38
39
BEGIN {
39
BEGIN {
40
    # set the version for version checking
40
    # set the version for version checking
41
    $VERSION = 3.07.00.049;
42
    require Exporter;
41
    require Exporter;
43
    @ISA    = qw(Exporter);
42
    @ISA    = qw(Exporter);
44
    @EXPORT = qw(
43
    @EXPORT = qw(
(-)a/C4/Reserves.pm (-1 lines)
Lines 92-98 This modules provides somes functions to deal with reservations. Link Here
92
92
93
BEGIN {
93
BEGIN {
94
    # set the version for version checking
94
    # set the version for version checking
95
    $VERSION = 3.07.00.049;
96
    require Exporter;
95
    require Exporter;
97
    @ISA = qw(Exporter);
96
    @ISA = qw(Exporter);
98
    @EXPORT = qw(
97
    @EXPORT = qw(
(-)a/C4/Review.pm (-1 lines)
Lines 26-32 use vars qw(@ISA @EXPORT); Link Here
26
26
27
BEGIN {
27
BEGIN {
28
    # set the version for version checking
28
    # set the version for version checking
29
    $VERSION = 3.07.00.049;
30
    require Exporter;
29
    require Exporter;
31
    @ISA    = qw(Exporter);
30
    @ISA    = qw(Exporter);
32
    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
31
    @EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
(-)a/C4/Ris.pm (-1 lines)
Lines 68-74 use C4::Biblio qw(GetMarcSubfieldStructureFromKohaField); Link Here
68
use Koha::SimpleMARC qw(read_field);
68
use Koha::SimpleMARC qw(read_field);
69
69
70
# set the version for version checking
70
# set the version for version checking
71
$VERSION = 3.07.00.049;
72
71
73
@ISA = qw(Exporter);
72
@ISA = qw(Exporter);
74
73
(-)a/C4/RotatingCollections.pm (-1 lines)
Lines 36-42 use Data::Dumper; Link Here
36
use vars qw(@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;
40
39
41
=head1 NAME
40
=head1 NAME
42
41
(-)a/C4/SIP/ILS/Item.pm (-1 lines)
Lines 23-29 use C4::Members; Link Here
23
use C4::Reserves;
23
use C4::Reserves;
24
use Koha::Database;
24
use Koha::Database;
25
25
26
our $VERSION = 3.07.00.049;
27
26
28
=encoding UTF-8
27
=encoding UTF-8
29
28
(-)a/C4/SIP/ILS/Patron.pm (-1 lines)
Lines 24-30 use C4::Branch qw(GetBranchName); Link Here
24
use C4::Items qw( GetBarcodeFromItemnumber GetItemnumbersForBiblio);
24
use C4::Items qw( GetBarcodeFromItemnumber GetItemnumbersForBiblio);
25
use C4::Auth qw(checkpw);
25
use C4::Auth qw(checkpw);
26
26
27
our $VERSION = 3.07.00.049;
28
27
29
our $kp;    # koha patron
28
our $kp;    # koha patron
30
29
(-)a/C4/SIP/ILS/Transaction/Checkout.pm (-1 lines)
Lines 25-31 use parent qw(C4::SIP::ILS::Transaction); Link Here
25
25
26
our $debug;
26
our $debug;
27
27
28
our $VERSION = 3.07.00.049;
29
28
30
# Most fields are handled by the Transaction superclass
29
# Most fields are handled by the Transaction superclass
31
my %fields = (
30
my %fields = (
(-)a/C4/SIP/ILS/Transaction/FeePayment.pm (-1 lines)
Lines 25-31 use parent qw(C4::SIP::ILS::Transaction); Link Here
25
25
26
26
27
our $debug   = 0;
27
our $debug   = 0;
28
our $VERSION = 3.07.00.049;
29
28
30
my %fields = ();
29
my %fields = ();
31
30
(-)a/C4/SIP/ILS/Transaction/Hold.pm (-1 lines)
Lines 14-20 use C4::Biblio; # GetBiblioFromItemNumber GetBiblioItemByBiblioNumber Link Here
14
use parent qw(C4::SIP::ILS::Transaction);
14
use parent qw(C4::SIP::ILS::Transaction);
15
15
16
16
17
our $VERSION = 3.07.00.049;
18
17
19
my %fields = (
18
my %fields = (
20
	expiration_date => 0,
19
	expiration_date => 0,
(-)a/C4/SIP/Sip.pm (-1 lines)
Lines 19-25 use C4::SIP::Sip::Checksum qw(checksum); Link Here
19
use vars qw(@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;
23
	@ISA = qw(Exporter);
22
	@ISA = qw(Exporter);
24
23
25
	@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
24
	@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
(-)a/C4/SIP/Sip/MsgType.pm (-1 lines)
Lines 27-33 use constant INVALID_CARD => 'Invalid cardnumber'; Link Here
27
use constant INVALID_PW   => 'Invalid password';
27
use constant INVALID_PW   => 'Invalid password';
28
28
29
BEGIN {
29
BEGIN {
30
    $VERSION   = 3.07.00.049;
31
    @ISA       = qw(Exporter);
30
    @ISA       = qw(Exporter);
32
    @EXPORT_OK = qw(handle login_core);
31
    @EXPORT_OK = qw(handle login_core);
33
}
32
}
(-)a/C4/SMS.pm (-1 lines)
Lines 40-46 use C4::Context; Link Here
40
use vars qw( );
40
use vars qw( );
41
41
42
BEGIN {
42
BEGIN {
43
    $VERSION = 3.07.00.049;
44
}
43
}
45
44
46
=head1 METHODS
45
=head1 METHODS
(-)a/C4/Scheduler.pm (-1 lines)
Lines 26-32 use Schedule::At; Link Here
26
26
27
BEGIN {
27
BEGIN {
28
	# set the version for version checking
28
	# set the version for version checking
29
    $VERSION = 3.07.00.049;
30
	require Exporter;
29
	require Exporter;
31
	@ISA = qw(Exporter);
30
	@ISA = qw(Exporter);
32
	@EXPORT =
31
	@EXPORT =
(-)a/C4/Scrubber.pm (-1 lines)
Lines 27-33 use HTML::Scrubber; Link Here
27
use C4::Context;
27
use C4::Context;
28
use C4::Debug;
28
use C4::Debug;
29
29
30
our $VERSION = v3.07.00.049;
31
30
32
31
33
my %scrubbertypes = (
32
my %scrubbertypes = (
(-)a/C4/Search.pm (-1 lines)
Lines 41-47 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); Link Here
41
41
42
# set the version for version checking
42
# set the version for version checking
43
BEGIN {
43
BEGIN {
44
    $VERSION = 3.07.00.049;
45
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
44
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
46
}
45
}
47
46
(-)a/C4/Serials.pm (-1 lines)
Lines 61-67 use constant MISSING_STATUSES => ( Link Here
61
);
61
);
62
62
63
BEGIN {
63
BEGIN {
64
    $VERSION = 3.07.00.049;    # set version for version checking
65
    require Exporter;
64
    require Exporter;
66
    @ISA    = qw(Exporter);
65
    @ISA    = qw(Exporter);
67
    @EXPORT = qw(
66
    @EXPORT = qw(
(-)a/C4/Serials/Frequency.pm (-1 lines)
Lines 26-32 use vars qw(@ISA @EXPORT); Link Here
26
26
27
BEGIN {
27
BEGIN {
28
    # set the version for version checking
28
    # set the version for version checking
29
    $VERSION = 3.01;
30
    require Exporter;
29
    require Exporter;
31
    @ISA    = qw(Exporter);
30
    @ISA    = qw(Exporter);
32
    @EXPORT = qw(
31
    @EXPORT = qw(
(-)a/C4/Serials/Numberpattern.pm (-1 lines)
Lines 27-33 use vars qw(@ISA @EXPORT); Link Here
27
BEGIN {
27
BEGIN {
28
28
29
    # set the version for version checking
29
    # set the version for version checking
30
    $VERSION = 3.01;
31
    require Exporter;
30
    require Exporter;
32
    @ISA    = qw(Exporter);
31
    @ISA    = qw(Exporter);
33
    @EXPORT = qw(
32
    @EXPORT = qw(
(-)a/C4/ShelfBrowser.pm (-1 lines)
Lines 30-36 use C4::Koha; Link Here
30
use vars qw(@ISA @EXPORT @EXPORT_OK);
30
use vars qw(@ISA @EXPORT @EXPORT_OK);
31
31
32
BEGIN {
32
BEGIN {
33
    $VERSION = 3.07.00.049;
34
	require Exporter;
33
	require Exporter;
35
	@ISA    = qw(Exporter);
34
	@ISA    = qw(Exporter);
36
	@EXPORT = qw(
35
	@EXPORT = qw(
(-)a/C4/Stats.pm (-1 lines)
Lines 30-36 our $debug; Link Here
30
30
31
BEGIN {
31
BEGIN {
32
	# set the version for version checking
32
	# set the version for version checking
33
    $VERSION = 3.07.00.049;
34
	@ISA    = qw(Exporter);
33
	@ISA    = qw(Exporter);
35
	@EXPORT = qw(
34
	@EXPORT = qw(
36
		&UpdateStats
35
		&UpdateStats
(-)a/C4/Suggestions.pm (-1 lines)
Lines 32-38 use Koha::DateUtils; Link Here
32
use List::MoreUtils qw(any);
32
use List::MoreUtils qw(any);
33
use base qw(Exporter);
33
use base qw(Exporter);
34
34
35
our $VERSION = 3.07.00.049;
36
our @EXPORT  = qw(
35
our @EXPORT  = qw(
37
  ConnectSuggestionAndBiblio
36
  ConnectSuggestionAndBiblio
38
  CountSuggestion
37
  CountSuggestion
(-)a/C4/Tags.pm (-1 lines)
Lines 33-39 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
33
our $ext_dict;
33
our $ext_dict;
34
34
35
BEGIN {
35
BEGIN {
36
    $VERSION = 3.07.00.049;
37
	@ISA = qw(Exporter);
36
	@ISA = qw(Exporter);
38
    @EXPORT_OK = qw(
37
    @EXPORT_OK = qw(
39
      &get_tag &get_tags &get_tag_rows
38
      &get_tag &get_tags &get_tag_rows
(-)a/C4/TmplToken.pm (-1 lines)
Lines 32-38 This is a class representing a token scanned from an HTML::Template .tmpl file. Link Here
32
32
33
=cut
33
=cut
34
34
35
our $VERSION = 3.07.00.049;
36
35
37
36
38
sub new {
37
sub new {
(-)a/C4/TmplTokenType.pm (-1 lines)
Lines 38-44 The predefined constants are Link Here
38
38
39
###############################################################################
39
###############################################################################
40
40
41
$VERSION = 3.07.00.049;
42
41
43
@ISA = qw(Exporter);
42
@ISA = qw(Exporter);
44
@EXPORT_OK = qw(
43
@EXPORT_OK = qw(
(-)a/C4/Utils/DataTables.pm (-1 lines)
Lines 23-29 require Exporter; Link Here
23
use vars qw(@ISA @EXPORT);
23
use vars qw(@ISA @EXPORT);
24
24
25
BEGIN {
25
BEGIN {
26
    $VERSION    = 3.07.00.049,
27
26
28
    @ISA        = qw(Exporter);
27
    @ISA        = qw(Exporter);
29
    @EXPORT     = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
28
    @EXPORT     = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
(-)a/C4/XISBN.pm (-1 lines)
Lines 32-38 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
32
32
33
BEGIN {
33
BEGIN {
34
	require Exporter;
34
	require Exporter;
35
    $VERSION = 3.07.00.049;
36
	@ISA = qw(Exporter);
35
	@ISA = qw(Exporter);
37
	@EXPORT_OK = qw(
36
	@EXPORT_OK = qw(
38
		&get_xisbns
37
		&get_xisbns
(-)a/C4/XSLT.pm (-1 lines)
Lines 45-51 my %authval_per_framework; Link Here
45
45
46
BEGIN {
46
BEGIN {
47
    require Exporter;
47
    require Exporter;
48
    $VERSION = 3.07.00.049;
49
    @ISA = qw(Exporter);
48
    @ISA = qw(Exporter);
50
    @EXPORT = qw(
49
    @EXPORT = qw(
51
        &XSLTParse4Display
50
        &XSLTParse4Display
(-)a/Koha/AuthUtils.pm (-1 lines)
Lines 24-30 use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt Link Here
24
24
25
use base 'Exporter';
25
use base 'Exporter';
26
26
27
our $VERSION = '1.01';
28
our @EXPORT_OK   = qw(hash_password);
27
our @EXPORT_OK   = qw(hash_password);
29
28
30
=head1 NAME
29
=head1 NAME
(-)a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm (-1 lines)
Lines 38-44 use C4::Biblio qw/GetMarcFromKohaField/; Link Here
38
38
39
use base qw(Koha::RecordProcessor::Base);
39
use base qw(Koha::RecordProcessor::Base);
40
our $NAME = 'EmbedSeeFromHeadings';
40
our $NAME = 'EmbedSeeFromHeadings';
41
our $VERSION = '1.0';
42
41
43
=head2 filter
42
=head2 filter
44
43
(-)a/Koha/Filter/MARC/Null.pm (-1 lines)
Lines 37-43 use Carp; Link Here
37
37
38
use base qw(Koha::RecordProcessor::Base);
38
use base qw(Koha::RecordProcessor::Base);
39
our $NAME = 'Null';
39
our $NAME = 'Null';
40
our $VERSION = '1.0';
41
40
42
=head2 filter
41
=head2 filter
43
42
(-)a/Koha/Misc/Files.pm (-1 lines)
Lines 21-27 package Koha::Misc::Files; Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use vars qw();
23
use vars qw();
24
$VERSION = '0.25';
25
24
26
use C4::Context;
25
use C4::Context;
27
use C4::Output;
26
use C4::Output;
(-)a/Koha/Patron/Files.pm (-1 lines)
Lines 28-34 use C4::Debug; Link Here
28
BEGIN {
28
BEGIN {
29
29
30
    # set the version for version checking
30
    # set the version for version checking
31
    $VERSION = 0.01;
32
}
31
}
33
32
34
=head1 NAME
33
=head1 NAME
(-)a/Koha/RecordProcessor/Base.pm (-1 lines)
Lines 66-72 use base qw(Class::Accessor); Link Here
66
__PACKAGE__->mk_ro_accessors(qw( name version ));
66
__PACKAGE__->mk_ro_accessors(qw( name version ));
67
__PACKAGE__->mk_accessors(qw( params ));
67
__PACKAGE__->mk_accessors(qw( params ));
68
our $NAME = 'Base';
68
our $NAME = 'Base';
69
our $VERSION = '1.0';
70
69
71
70
72
=head2 new
71
=head2 new
(-)a/Koha/SimpleMARC.pm (-1 lines)
Lines 26-32 our @EXPORT = qw( Link Here
26
  field_equals
26
  field_equals
27
);
27
);
28
28
29
our $VERSION = '0.01';
30
29
31
our $debug = 0;
30
our $debug = 0;
32
31
(-)a/Koha/Template/Plugin/Cache.pm (-1 lines)
Lines 23-29 use vars qw( ); Link Here
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;
26
$VERSION = '0.01';
27
26
28
#------------------------------------------------------------------------
27
#------------------------------------------------------------------------
29
# new(\%options)
28
# new(\%options)
(-)a/acqui/pdfformat/layout2pages.pm (-1 lines)
Lines 36-42 BEGIN { Link Here
36
         use Exporter   ();
36
         use Exporter   ();
37
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
37
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
38
	# set the version for version checking
38
	# set the version for version checking
39
         $VERSION     = 1.00;
40
	@ISA    = qw(Exporter);
39
	@ISA    = qw(Exporter);
41
	@EXPORT = qw(printpdf);
40
	@EXPORT = qw(printpdf);
42
}
41
}
(-)a/acqui/pdfformat/layout2pagesde.pm (-1 lines)
Lines 36-42 BEGIN { Link Here
36
         use Exporter   ();
36
         use Exporter   ();
37
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
37
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
38
	# set the version for version checking
38
	# set the version for version checking
39
         $VERSION     = 1.00;
40
	@ISA    = qw(Exporter);
39
	@ISA    = qw(Exporter);
41
	@EXPORT = qw(printpdf);
40
	@EXPORT = qw(printpdf);
42
}
41
}
(-)a/acqui/pdfformat/layout3pages.pm (-1 lines)
Lines 39-45 BEGIN { Link Here
39
         use Exporter   ();
39
         use Exporter   ();
40
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
40
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
41
	# set the version for version checking
41
	# set the version for version checking
42
         $VERSION     = 1.00;
43
	@ISA    = qw(Exporter);
42
	@ISA    = qw(Exporter);
44
	@EXPORT = qw(printpdf);
43
	@EXPORT = qw(printpdf);
45
}
44
}
(-)a/acqui/pdfformat/layout3pagesfr.pm (-1 lines)
Lines 38-44 BEGIN { Link Here
38
         use Exporter   ();
38
         use Exporter   ();
39
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
39
         our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
40
         # set the version for version checking
40
         # set the version for version checking
41
         $VERSION     = 1.00;
42
         @ISA    = qw(Exporter);
41
         @ISA    = qw(Exporter);
43
         @EXPORT = qw(printpdf);
42
         @EXPORT = qw(printpdf);
44
}
43
}
(-)a/install_misc/UpgradeBackup.pm (-1 lines)
Lines 30-36 use vars qw(@ISA @EXPORT ); Link Here
30
30
31
@ISA = ('Exporter');
31
@ISA = ('Exporter');
32
@EXPORT = ('backup_changed_files');
32
@EXPORT = ('backup_changed_files');
33
$VERSION = '3.00';
34
33
35
=head1 NAME
34
=head1 NAME
36
35
(-)a/misc/translator/TmplTokenizer.pm (-1 lines)
Lines 24-30 A wrapper for the functionality found in TTParser to allow an easier transition Link Here
24
24
25
###############################################################################
25
###############################################################################
26
26
27
$VERSION = 0.02;
28
27
29
@ISA = qw(Exporter);
28
@ISA = qw(Exporter);
30
@EXPORT_OK = qw();
29
@EXPORT_OK = qw();
(-)a/misc/translator/VerboseWarnings.pm (-1 lines)
Lines 21-27 verbose warnings. Link Here
21
21
22
###############################################################################
22
###############################################################################
23
23
24
$VERSION = 0.01;
25
24
26
@ISA = qw(Exporter);
25
@ISA = qw(Exporter);
27
@EXPORT_OK = qw(
26
@EXPORT_OK = qw(
(-)a/t/Koha/Plugin/Test.pm (-2 lines)
Lines 6-12 use Modern::Perl; Link Here
6
## Required for all plugins
6
## Required for all plugins
7
use base qw(Koha::Plugins::Base);
7
use base qw(Koha::Plugins::Base);
8
8
9
our $VERSION = 1.01;
10
our $metadata = {
9
our $metadata = {
11
    name            => 'Test Plugin',
10
    name            => 'Test Plugin',
12
    author          => 'Kyle M Hall',
11
    author          => 'Kyle M Hall',
13
- 

Return to bug 16011