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

(-)a/C4/Accounts.pm (-1 / +1 lines)
Lines 29-35 use vars qw($VERSION @ISA @EXPORT); 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.03;
32
	$VERSION = 3.07.00.049;
33
	require Exporter;
33
	require Exporter;
34
	@ISA    = qw(Exporter);
34
	@ISA    = qw(Exporter);
35
	@EXPORT = qw(
35
	@EXPORT = qw(
(-)a/C4/Acquisition.pm (-1 / +1 lines)
Lines 37-43 use vars qw($VERSION @ISA @EXPORT); 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.01;
40
    $VERSION = 3.07.00.049;
41
    require Exporter;
41
    require Exporter;
42
    @ISA    = qw(Exporter);
42
    @ISA    = qw(Exporter);
43
    @EXPORT = qw(
43
    @EXPORT = qw(
(-)a/C4/Auth.pm (-1 / +2 lines)
Lines 41-47 BEGIN { Link Here
41
	if ( psgi_env ) { die 'psgi:exit' }
41
	if ( psgi_env ) { die 'psgi:exit' }
42
	else { exit }
42
	else { exit }
43
    }
43
    }
44
    $VERSION     = 3.02;    # set version for version checking
44
    $VERSION     = 3.07.00.049;   # set version for version checking
45
45
    $debug       = $ENV{DEBUG};
46
    $debug       = $ENV{DEBUG};
46
    @ISA         = qw(Exporter);
47
    @ISA         = qw(Exporter);
47
    @EXPORT      = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);
48
    @EXPORT      = qw(&checkauth &get_template_and_user &haspermission &get_user_subpermissions);
(-)a/C4/Auth_with_cas.pm (-1 / +1 lines)
Lines 32-38 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); Link Here
32
32
33
BEGIN {
33
BEGIN {
34
	require Exporter;
34
	require Exporter;
35
	$VERSION = 3.03;	# set the version for version checking
35
	$VERSION = 3.07.00.049;	# set the version for version checking
36
	$debug = $ENV{DEBUG};
36
	$debug = $ENV{DEBUG};
37
	@ISA    = qw(Exporter);
37
	@ISA    = qw(Exporter);
38
	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
38
	@EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url);
(-)a/C4/Auth_with_ldap.pm (-1 / +1 lines)
Lines 35-41 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); Link Here
35
35
36
BEGIN {
36
BEGIN {
37
	require Exporter;
37
	require Exporter;
38
	$VERSION = 3.10;	# set the version for version checking
38
	$VERSION = 3.07.00.049;	# set the version for version checking
39
	@ISA    = qw(Exporter);
39
	@ISA    = qw(Exporter);
40
	@EXPORT = qw( checkpw_ldap );
40
	@EXPORT = qw( checkpw_ldap );
41
}
41
}
(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
Lines 31-37 use vars qw($VERSION @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.01;
34
	$VERSION = 3.07.00.049;
35
35
36
	require Exporter;
36
	require Exporter;
37
	@ISA = qw(Exporter);
37
	@ISA = qw(Exporter);
(-)a/C4/AuthoritiesMarc/MARC21.pm (-1 / +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.00;
23
our $VERSION = 3.07.00.049;
24
24
25
=head1 NAME
25
=head1 NAME
26
26
(-)a/C4/AuthoritiesMarc/UNIMARC.pm (-1 / +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.00;
22
our $VERSION = 3.07.00.049;
23
23
24
=head1 NAME
24
=head1 NAME
25
25
(-)a/C4/BackgroundJob.pm (-1 / +1 lines)
Lines 28-34 use vars qw($VERSION); 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.00;
31
	$VERSION = 3.07.00.049;
32
}
32
}
33
33
34
=head1 NAME
34
=head1 NAME
(-)a/C4/Barcodes.pm (-1 / +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 = 0.01;
37
    $VERSION = 3.07.00.049;
38
	require Exporter;
38
	require Exporter;
39
    @ISA = qw(Exporter);
39
    @ISA = qw(Exporter);
40
    @EXPORT_OK = qw();
40
    @EXPORT_OK = qw();
(-)a/C4/Barcodes/PrinterConfig.pm (-1 / +1 lines)
Lines 24-30 use PDF::API2::Page; Link Here
24
24
25
BEGIN {
25
BEGIN {
26
	# set the version for version checking
26
	# set the version for version checking
27
	$VERSION = 0.02;
27
	$VERSION = 3.07.00.049;
28
	require Exporter;
28
	require Exporter;
29
	@EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY);
29
	@EXPORT = qw(&labelsPage &getLabelPosition setPositionsForX setPositionsForY);
30
}
30
}
(-)a/C4/Barcodes/annual.pm (-1 / +1 lines)
Lines 31-37 use vars qw($debug $cgi_debug); # from C4::Debug, of course Link Here
31
use vars qw($width);
31
use vars qw($width);
32
32
33
BEGIN {
33
BEGIN {
34
    $VERSION = 0.01;
34
    $VERSION = 3.07.00.049;
35
    @ISA = qw(C4::Barcodes);
35
    @ISA = qw(C4::Barcodes);
36
	$width = 4;
36
	$width = 4;
37
}
37
}
(-)a/C4/Barcodes/hbyymmincr.pm (-1 / +1 lines)
Lines 31-37 use vars qw($debug $cgi_debug); # from C4::Debug, of course Link Here
31
use vars qw($branch $width);
31
use vars qw($branch $width);
32
32
33
BEGIN {
33
BEGIN {
34
    $VERSION = 0.01;
34
    $VERSION = 3.07.00.049;
35
    @ISA = qw(C4::Barcodes);
35
    @ISA = qw(C4::Barcodes);
36
}
36
}
37
37
(-)a/C4/Barcodes/incremental.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw($VERSION @ISA);
23
use vars qw($VERSION @ISA);
24
24
25
BEGIN {
25
BEGIN {
26
    $VERSION = 0.01;
26
    $VERSION = 3.07.00.049;
27
    @ISA = qw(C4::Barcodes);
27
    @ISA = qw(C4::Barcodes);
28
}
28
}
29
29
(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 40-46 use C4::OAI::Sets; Link Here
40
use vars qw($VERSION @ISA @EXPORT);
40
use vars qw($VERSION @ISA @EXPORT);
41
41
42
BEGIN {
42
BEGIN {
43
    $VERSION = 1.00;
43
    $VERSION = 3.07.00.049;
44
44
45
    require Exporter;
45
    require Exporter;
46
    @ISA = qw( Exporter );
46
    @ISA = qw( Exporter );
(-)a/C4/Bookseller.pm (-1 / +1 lines)
Lines 24-30 use warnings; Link Here
24
use base qw( Exporter );
24
use base qw( Exporter );
25
25
26
# set the version for version checking
26
# set the version for version checking
27
our $VERSION   = 4.01;
27
our $VERSION   = 3.07.00.049;
28
our @EXPORT_OK = qw(
28
our @EXPORT_OK = qw(
29
  GetBookSeller GetBooksellersWithLateOrders GetBookSellerFromId
29
  GetBookSeller GetBooksellersWithLateOrders GetBookSellerFromId
30
  ModBookseller
30
  ModBookseller
(-)a/C4/Boolean.pm (-1 / +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 = 0.03;
30
our    $VERSION = 3.07.00.049;
31
our    @EXPORT_OK = qw( true_p);
31
our    @EXPORT_OK = qw( true_p);
32
32
33
=head1 NAME
33
=head1 NAME
(-)a/C4/Branch.pm (-1 / +1 lines)
Lines 25-31 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 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.02;
28
	$VERSION = 3.07.00.049;
29
	@ISA    = qw(Exporter);
29
	@ISA    = qw(Exporter);
30
	@EXPORT = qw(
30
	@EXPORT = qw(
31
		&GetBranchCategory
31
		&GetBranchCategory
(-)a/C4/Breeding.pm (-1 / +1 lines)
Lines 30-36 use vars qw($VERSION @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 = 0.02;
33
	$VERSION = 3.07.00.049;
34
	require Exporter;
34
	require Exporter;
35
	@ISA = qw(Exporter);
35
	@ISA = qw(Exporter);
36
	@EXPORT = qw(&ImportBreeding &BreedingSearch);
36
	@EXPORT = qw(&ImportBreeding &BreedingSearch);
(-)a/C4/Budgets.pm (-1 / +1 lines)
Lines 28-34 use vars qw($VERSION @ISA @EXPORT); 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.01;
31
	$VERSION = 3.07.00.049;
32
	require Exporter;
32
	require Exporter;
33
	@ISA    = qw(Exporter);
33
	@ISA    = qw(Exporter);
34
	@EXPORT = qw(
34
	@EXPORT = qw(
(-)a/C4/Charset.pm (-1 / +1 lines)
Lines 29-35 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); 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.01;
32
    $VERSION = 3.07.00.049;
33
    require Exporter;
33
    require Exporter;
34
    @ISA    = qw(Exporter);
34
    @ISA    = qw(Exporter);
35
    @EXPORT = qw(
35
    @EXPORT = qw(
(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 46-52 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
46
46
47
BEGIN {
47
BEGIN {
48
	require Exporter;
48
	require Exporter;
49
	$VERSION = 3.02;	# for version checking
49
	$VERSION = 3.07.00.049;	# for version checking
50
	@ISA    = qw(Exporter);
50
	@ISA    = qw(Exporter);
51
51
52
	# FIXME subs that should probably be elsewhere
52
	# FIXME subs that should probably be elsewhere
(-)a/C4/ClassSortRoutine.pm (-1 / +1 lines)
Lines 27-33 use C4::Context; Link Here
27
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
27
use vars qw($VERSION @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.00;
30
$VERSION = 3.07.00.049;
31
31
32
=head1 NAME 
32
=head1 NAME 
33
33
(-)a/C4/ClassSortRoutine/Dewey.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw($VERSION);
23
use vars qw($VERSION);
24
24
25
# set the version for version checking
25
# set the version for version checking
26
$VERSION = 3.00;
26
$VERSION = 3.07.00.049;
27
27
28
=head1 NAME 
28
=head1 NAME 
29
29
(-)a/C4/ClassSortRoutine/Generic.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw($VERSION);
23
use vars qw($VERSION);
24
24
25
# set the version for version checking
25
# set the version for version checking
26
$VERSION = 3.00;
26
$VERSION = 3.07.00.049;
27
27
28
=head1 NAME 
28
=head1 NAME 
29
29
(-)a/C4/ClassSortRoutine/LCC.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
23
use vars qw($VERSION);
23
use vars qw($VERSION);
24
24
25
# set the version for version checking
25
# set the version for version checking
26
$VERSION = 3.00;
26
$VERSION = 3.07.00.049;
27
27
28
=head1 NAME 
28
=head1 NAME 
29
29
(-)a/C4/ClassSource.pm (-1 / +1 lines)
Lines 27-33 use C4::ClassSortRoutine; Link Here
27
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
27
use vars qw($VERSION @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.00;
30
$VERSION = 3.07.00.049;
31
31
32
=head1 NAME
32
=head1 NAME
33
33
(-)a/C4/Context.pm (-1 / +1 lines)
Lines 95-101 BEGIN { Link Here
95
    $ismemcached = $memcached->set('ismemcached','1');
95
    $ismemcached = $memcached->set('ismemcached','1');
96
    }
96
    }
97
97
98
    $VERSION = '3.00.00.036';
98
    $VERSION = '3.07.00.049';
99
}
99
}
100
100
101
use DBI;
101
use DBI;
(-)a/C4/Contract.pm (-1 / +1 lines)
Lines 25-31 use vars qw($VERSION @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.2;
28
	$VERSION = 3.07.00.049;
29
    require Exporter;
29
    require Exporter;
30
	@ISA    = qw(Exporter);
30
	@ISA    = qw(Exporter);
31
	@EXPORT = qw(
31
	@EXPORT = qw(
(-)a/C4/Creators.pm (-1 / +1 lines)
Lines 1-7 Link Here
1
package C4::Creators;
1
package C4::Creators;
2
2
3
BEGIN {
3
BEGIN {
4
    use version; our $VERSION = qv('1.0.0_1');
4
    use version; our $VERSION = qv('3.07.00.049');
5
    use vars qw(@EXPORT @ISA);
5
    use vars qw(@EXPORT @ISA);
6
    @ISA = qw(Exporter);
6
    @ISA = qw(Exporter);
7
    our @EXPORT = qw(get_all_templates
7
    our @EXPORT = qw(get_all_templates
(-)a/C4/Creators/Batch.pm (-1 / +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('1.0.0_1');
12
    use version; our $VERSION = qv('3.07.00.049');
13
}
13
}
14
14
15
sub _check_params {
15
sub _check_params {
(-)a/C4/Creators/Layout.pm (-1 / +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('1.0.0_1');
13
    use version; our $VERSION = qv('3.07.00.049');
14
}
14
}
15
15
16
# FIXME: Consider this style parameter verification instead...
16
# FIXME: Consider this style parameter verification instead...
(-)a/C4/Creators/Lib.pm (-1 / +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('1.0.0_1');
29
    use version; our $VERSION = qv('3.07.00.049');
30
    use base qw(Exporter);
30
    use base qw(Exporter);
31
    our @EXPORT = qw(get_all_templates
31
    our @EXPORT = qw(get_all_templates
32
                     get_all_layouts
32
                     get_all_layouts
(-)a/C4/Creators/PDF.pm (-1 / +1 lines)
Lines 23-29 use PDF::Reuse; Link Here
23
use PDF::Reuse::Barcode;
23
use PDF::Reuse::Barcode;
24
24
25
BEGIN {
25
BEGIN {
26
    use version; our $VERSION = qv('1.0.0_1');
26
    use version; our $VERSION = qv('3.07.00.049');
27
}
27
}
28
28
29
sub _InitVars {
29
sub _InitVars {
(-)a/C4/Creators/Profile.pm (-1 / +1 lines)
Lines 10-16 use C4::Debug; Link Here
10
use C4::Creators::Lib 1.000000 qw(get_unit_values);
10
use C4::Creators::Lib 1.000000 qw(get_unit_values);
11
11
12
BEGIN {
12
BEGIN {
13
    use version; our $VERSION = qv('1.0.0_1');
13
    use version; our $VERSION = qv('3.07.00.049');
14
}
14
}
15
15
16
sub _check_params {
16
sub _check_params {
(-)a/C4/Creators/Template.pm (-1 / +1 lines)
Lines 11-17 use C4::Creators::Profile 1.000000; Link Here
11
use C4::Creators::Lib 1.000000 qw(get_unit_values);
11
use C4::Creators::Lib 1.000000 qw(get_unit_values);
12
12
13
BEGIN {
13
BEGIN {
14
    use version; our $VERSION = qv('1.0.0_1');
14
    use version; our $VERSION = qv('3.07.00.049');
15
}
15
}
16
16
17
sub _check_params {
17
sub _check_params {
(-)a/C4/Csv.pm (-1 / +1 lines)
Lines 26-32 use C4::Context; Link Here
26
use vars qw($VERSION @ISA @EXPORT);
26
use vars qw($VERSION @ISA @EXPORT);
27
27
28
# set the version for version checking
28
# set the version for version checking
29
$VERSION = 3.00;
29
$VERSION = 3.07.00.049;
30
30
31
@ISA = qw(Exporter);
31
@ISA = qw(Exporter);
32
32
(-)a/C4/Dates.pm (-1 / +1 lines)
Lines 27-33 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
27
use vars qw($debug $cgi_debug);
27
use vars qw($debug $cgi_debug);
28
28
29
BEGIN {
29
BEGIN {
30
    $VERSION   = 0.04;
30
    $VERSION   = 3.07.00.049;
31
    @ISA       = qw(Exporter);
31
    @ISA       = qw(Exporter);
32
    @EXPORT_OK = qw(format_date_in_iso format_date);
32
    @EXPORT_OK = qw(format_date_in_iso format_date);
33
}
33
}
(-)a/C4/Debug.pm (-1 / +1 lines)
Lines 27-33 use vars qw($VERSION @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 = 1.00;	# set the version for version checking
30
	$VERSION = 3.07.00.049;	# set the version for version checking
31
	@ISA       = qw(Exporter);
31
	@ISA       = qw(Exporter);
32
	@EXPORT    = qw($debug $cgi_debug);
32
	@EXPORT    = qw($debug $cgi_debug);
33
	# @EXPOR_OK    = qw();
33
	# @EXPOR_OK    = qw();
(-)a/C4/External/Amazon.pm (-1 / +1 lines)
Lines 33-39 use vars qw($VERSION @ISA @EXPORT); Link Here
33
33
34
BEGIN {
34
BEGIN {
35
    require Exporter;
35
    require Exporter;
36
    $VERSION = 0.03;
36
    $VERSION = 3.07.00.049;
37
    @ISA = qw(Exporter);
37
    @ISA = qw(Exporter);
38
    @EXPORT = qw(
38
    @EXPORT = qw(
39
        get_amazon_details
39
        get_amazon_details
(-)a/C4/External/BakerTaylor.pm (-1 / +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 = 0.01;
35
	$VERSION = 3.07.00.049;
36
	@ISA = qw(Exporter);
36
	@ISA = qw(Exporter);
37
	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
37
	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
38
	%EXPORT_TAGS = (all=>\@EXPORT_OK);
38
	%EXPORT_TAGS = (all=>\@EXPORT_OK);
(-)a/C4/External/Syndetics.pm (-1 / +1 lines)
Lines 30-36 use vars qw($VERSION @ISA @EXPORT); Link Here
30
30
31
BEGIN {
31
BEGIN {
32
    require Exporter;
32
    require Exporter;
33
    $VERSION = 0.03;
33
    $VERSION = 3.07.00.049;
34
    @ISA = qw(Exporter);
34
    @ISA = qw(Exporter);
35
    @EXPORT = qw(
35
    @EXPORT = qw(
36
        &get_syndetics_index
36
        &get_syndetics_index
(-)a/C4/Heading.pm (-1 / +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.00;
28
our $VERSION = 3.07.00.049;
29
29
30
=head1 NAME
30
=head1 NAME
31
31
(-)a/C4/Heading/MARC21.pm (-1 / +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.00;
25
our $VERSION = 3.07.00.049;
26
26
27
=head1 NAME
27
=head1 NAME
28
28
(-)a/C4/Heading/UNIMARC.pm (-1 / +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.00;
27
our $VERSION = 3.07.00.049;
28
28
29
=head1 NAME
29
=head1 NAME
30
30
(-)a/C4/ILSDI/Utility.pm (-1 / +1 lines)
Lines 35-41 use vars qw($VERSION @ISA @EXPORT); Link Here
35
BEGIN {
35
BEGIN {
36
36
37
    # set the version for version checking
37
    # set the version for version checking
38
    $VERSION = 3.00;
38
    $VERSION = 3.07.00.049;
39
    require Exporter;
39
    require Exporter;
40
    @ISA    = qw(Exporter);
40
    @ISA    = qw(Exporter);
41
    @EXPORT = qw(
41
    @EXPORT = qw(
(-)a/C4/Images.pm (-1 / +1 lines)
Lines 30-36 use vars qw($debug $noimage $VERSION @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.03;
33
    $VERSION = 3.07.00.049;
34
    require Exporter;
34
    require Exporter;
35
    @ISA    = qw(Exporter);
35
    @ISA    = qw(Exporter);
36
    @EXPORT = qw(
36
    @EXPORT = qw(
(-)a/C4/ImportBatch.pm (-1 / +1 lines)
Lines 30-36 use vars qw($VERSION @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.01;
33
	$VERSION = 3.07.00.049;
34
	require Exporter;
34
	require Exporter;
35
	@ISA    = qw(Exporter);
35
	@ISA    = qw(Exporter);
36
	@EXPORT = qw(
36
	@EXPORT = qw(
(-)a/C4/ImportExportFramework.pm (-1 / +1 lines)
Lines 31-37 use C4::Debug; Link Here
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
32
32
33
BEGIN {
33
BEGIN {
34
    $VERSION = 3.03;    # set version for version checking
34
    $VERSION = 3.07.00.049;    # set version for version checking
35
    require Exporter;
35
    require Exporter;
36
    @ISA    = qw(Exporter);
36
    @ISA    = qw(Exporter);
37
    @EXPORT = qw(
37
    @EXPORT = qw(
(-)a/C4/Input.pm (-1 / +1 lines)
Lines 28-34 use CGI; Link Here
28
use vars qw($VERSION @ISA @EXPORT);
28
use vars qw($VERSION @ISA @EXPORT);
29
29
30
# set the version for version checking
30
# set the version for version checking
31
$VERSION = 0.01;
31
$VERSION = 3.07.00.049;
32
32
33
=head1 NAME
33
=head1 NAME
34
34
(-)a/C4/Installer.pm (-1 / +1 lines)
Lines 20-26 package C4::Installer; Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
22
23
our $VERSION = 3.00;
23
our $VERSION = 3.07.00.049;
24
use C4::Context;
24
use C4::Context;
25
use C4::Installer::PerlModules 1.000000;
25
use C4::Installer::PerlModules 1.000000;
26
26
(-)a/C4/Installer/PerlModules.pm (-1 / +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('1.0.0_1');
10
use version; our $VERSION = qv('3.07.00.049');
11
11
12
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
12
our $PERL_DEPS = $C4::Installer::PerlDependencies::PERL_DEPS;
13
13
(-)a/C4/Items.pm (-1 / +1 lines)
Lines 36-42 use Data::Dumper; # used as part of logging item record changes, not just for Link Here
36
use vars qw($VERSION @ISA @EXPORT);
36
use vars qw($VERSION @ISA @EXPORT);
37
37
38
BEGIN {
38
BEGIN {
39
    $VERSION = 3.01;
39
    $VERSION = 3.07.00.049;
40
40
41
	require Exporter;
41
	require Exporter;
42
    @ISA = qw( Exporter );
42
    @ISA = qw( Exporter );
(-)a/C4/Koha.pm (-1 / +1 lines)
Lines 28-34 use Memoize; Link Here
28
use vars qw($VERSION @ISA @EXPORT $DEBUG);
28
use vars qw($VERSION @ISA @EXPORT $DEBUG);
29
29
30
BEGIN {
30
BEGIN {
31
	$VERSION = 3.01;
31
	$VERSION = 3.07.00.049;
32
	require Exporter;
32
	require Exporter;
33
	@ISA    = qw(Exporter);
33
	@ISA    = qw(Exporter);
34
	@EXPORT = qw(
34
	@EXPORT = qw(
(-)a/C4/Labels.pm (-1 / +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('1.0.0_1');
4
    use version; our $VERSION = qv('3.07.00.049');
5
5
6
    use C4::Labels::Batch 1.000000;
6
    use C4::Labels::Batch 1.000000;
7
    use C4::Labels::Label 1.000000;
7
    use C4::Labels::Label 1.000000;
(-)a/C4/Labels/Batch.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Labels/Label.pm (-1 / +1 lines)
Lines 13-19 use C4::Debug; Link Here
13
use C4::Biblio;
13
use C4::Biblio;
14
14
15
BEGIN {
15
BEGIN {
16
    use version; our $VERSION = qv('1.0.0_1');
16
    use version; our $VERSION = qv('3.07.00.049');
17
}
17
}
18
18
19
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
19
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
(-)a/C4/Labels/Layout.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Labels/Profile.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Labels/Template.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
use constant TEMPLATE_TABLE => 'creator_templates';
14
use constant TEMPLATE_TABLE => 'creator_templates';
(-)a/C4/Languages.pm (-1 / +1 lines)
Lines 37-43 eval { Link Here
37
};
37
};
38
38
39
BEGIN {
39
BEGIN {
40
    $VERSION = 3.00;
40
    $VERSION = 3.07.00.049;
41
    require Exporter;
41
    require Exporter;
42
    @ISA    = qw(Exporter);
42
    @ISA    = qw(Exporter);
43
    @EXPORT = qw(
43
    @EXPORT = qw(
(-)a/C4/Letters.pm (-1 / +1 lines)
Lines 38-44 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
38
BEGIN {
38
BEGIN {
39
	require Exporter;
39
	require Exporter;
40
	# set the version for version checking
40
	# set the version for version checking
41
	$VERSION = 3.01;
41
	$VERSION = 3.07.00.049;
42
	@ISA = qw(Exporter);
42
	@ISA = qw(Exporter);
43
	@EXPORT = qw(
43
	@EXPORT = qw(
44
	&GetLetters &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages
44
	&GetLetters &GetPreparedLetter &GetWrappedLetter &addalert &getalert &delalert &findrelatedto &SendAlerts &GetPrintMessages
(-)a/C4/Log.pm (-1 / +1 lines)
Lines 31-37 use vars qw($VERSION @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.01;
34
	$VERSION = 3.07.00.049;
35
	require Exporter;
35
	require Exporter;
36
	@ISA = qw(Exporter);
36
	@ISA = qw(Exporter);
37
	@EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs);
37
	@EXPORT = qw(&logaction &GetLogStatus &displaylog &GetLogs);
(-)a/C4/Maintainance.pm (-1 / +1 lines)
Lines 29-35 require Exporter; Link Here
29
use vars qw($VERSION @ISA @EXPORT);
29
use vars qw($VERSION @ISA @EXPORT);
30
30
31
# set the version for version checking
31
# set the version for version checking
32
$VERSION = 0.01;
32
$VERSION = 3.07.00.049;
33
33
34
=head1 NAME
34
=head1 NAME
35
35
(-)a/C4/Matcher.pm (-1 / +1 lines)
Lines 29-35 use vars qw($VERSION); 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.01;
32
	$VERSION = 3.07.00.049;
33
}
33
}
34
34
35
=head1 NAME
35
=head1 NAME
(-)a/C4/Members.pm (-1 / +1 lines)
Lines 42-48 use Koha::DateUtils; Link Here
42
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug);
42
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,$debug);
43
43
44
BEGIN {
44
BEGIN {
45
	$VERSION = 3.02;
45
	$VERSION = 3.07.00.049;
46
	$debug = $ENV{DEBUG} || 0;
46
	$debug = $ENV{DEBUG} || 0;
47
	require Exporter;
47
	require Exporter;
48
	@ISA = qw(Exporter);
48
	@ISA = qw(Exporter);
(-)a/C4/Members/AttributeTypes.pm (-1 / +1 lines)
Lines 25-31 use vars qw($VERSION); 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.00;
28
    $VERSION = 3.07.00.049;
29
}
29
}
30
30
31
=head1 NAME
31
=head1 NAME
(-)a/C4/Members/Attributes.pm (-1 / +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.01;
32
    $VERSION = 3.07.00.049;
33
    @ISA = qw(Exporter);
33
    @ISA = qw(Exporter);
34
    @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
34
    @EXPORT_OK = qw(GetBorrowerAttributes GetBorrowerAttributeValue CheckUniqueness SetBorrowerAttributes
35
                    extended_attributes_code_value_arrayref extended_attributes_merge
35
                    extended_attributes_code_value_arrayref extended_attributes_merge
(-)a/C4/Members/Messaging.pm (-1 / +1 lines)
Lines 25-31 use vars qw($VERSION); 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.00;
28
    $VERSION = 3.07.00.049;
29
}
29
}
30
30
31
=head1 NAME
31
=head1 NAME
(-)a/C4/NewsChannels.pm (-1 / +1 lines)
Lines 26-32 use C4::Dates qw(format_date); Link Here
26
use vars qw($VERSION @ISA @EXPORT);
26
use vars qw($VERSION @ISA @EXPORT);
27
27
28
BEGIN { 
28
BEGIN { 
29
	$VERSION = 3.01;	# set the version for version checking
29
	$VERSION = 3.07.00.049;	# set the version for version checking
30
	@ISA = qw(Exporter);
30
	@ISA = qw(Exporter);
31
	@EXPORT = qw(
31
	@EXPORT = qw(
32
		&GetNewsToDisplay
32
		&GetNewsToDisplay
(-)a/C4/Output.pm (-1 / +1 lines)
Lines 37-43 use vars qw($VERSION @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.03;
40
    $VERSION = 3.07.00.049;
41
    require Exporter;
41
    require Exporter;
42
42
43
 @ISA    = qw(Exporter);
43
 @ISA    = qw(Exporter);
(-)a/C4/Overdues.pm (-1 / +1 lines)
Lines 33-39 use vars qw($VERSION @ISA @EXPORT); Link Here
33
33
34
BEGIN {
34
BEGIN {
35
	# set the version for version checking
35
	# set the version for version checking
36
	$VERSION = 3.01;
36
	$VERSION = 3.07.00.049;
37
	require Exporter;
37
	require Exporter;
38
	@ISA    = qw(Exporter);
38
	@ISA    = qw(Exporter);
39
	# subs to rename (and maybe merge some...)
39
	# subs to rename (and maybe merge some...)
(-)a/C4/Patroncards.pm (-1 / +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('1.0.0_1');
4
    use version; our $VERSION = qv('3.07.00.049');
5
    use vars qw(@EXPORT @ISA);
5
    use vars qw(@EXPORT @ISA);
6
    @ISA = qw(Exporter);
6
    @ISA = qw(Exporter);
7
    our @EXPORT = qw(unpack_UTF8
7
    our @EXPORT = qw(unpack_UTF8
(-)a/C4/Patroncards/Batch.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Patroncards/Layout.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Patroncards/Lib.pm (-1 / +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('1.0.0_1');
29
    use version; our $VERSION = qv('3.07.00.049');
30
    use base qw(Exporter);
30
    use base qw(Exporter);
31
    our @EXPORT = qw(unpack_UTF8
31
    our @EXPORT = qw(unpack_UTF8
32
                     text_alignment
32
                     text_alignment
(-)a/C4/Patroncards/Patroncard.pm (-1 / +1 lines)
Lines 29-35 use C4::Creators::PDF 1.000000 qw(StrWidth); Link Here
29
use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
29
use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
30
30
31
BEGIN {
31
BEGIN {
32
    use version; our $VERSION = qv('1.0.0_1');
32
    use version; our $VERSION = qv('3.07.00.049');
33
}
33
}
34
34
35
sub new {
35
sub new {
(-)a/C4/Patroncards/Profile.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
(-)a/C4/Patroncards/Template.pm (-1 / +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('1.0.0_1');
11
    use version; our $VERSION = qv('3.07.00.049');
12
}
12
}
13
13
14
use constant TEMPLATE_TABLE => 'creator_templates';
14
use constant TEMPLATE_TABLE => 'creator_templates';
(-)a/C4/Print.pm (-1 / +1 lines)
Lines 25-31 use vars qw($VERSION @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.01;
28
	$VERSION = 3.07.00.049;
29
	require Exporter;
29
	require Exporter;
30
	@ISA    = qw(Exporter);
30
	@ISA    = qw(Exporter);
31
	@EXPORT = qw(&printslip);
31
	@EXPORT = qw(&printslip);
(-)a/C4/Ratings.pm (-1 / +1 lines)
Lines 29-35 use C4::Context; Link Here
29
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
29
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
30
30
31
BEGIN {
31
BEGIN {
32
    $VERSION = 3.00;
32
    $VERSION = 3.07.00.049;
33
    @ISA     = qw(Exporter);
33
    @ISA     = qw(Exporter);
34
34
35
    @EXPORT = qw(
35
    @EXPORT = qw(
(-)a/C4/Record.pm (-1 / +1 lines)
Lines 39-45 use Text::CSV::Encoded; #marc2csv Link Here
39
use vars qw($VERSION @ISA @EXPORT);
39
use vars qw($VERSION @ISA @EXPORT);
40
40
41
# set the version for version checking
41
# set the version for version checking
42
$VERSION = 3.00;
42
$VERSION = 3.07.00.049;
43
43
44
@ISA = qw(Exporter);
44
@ISA = qw(Exporter);
45
45
(-)a/C4/Reports.pm (-1 / +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 = 0.13;
30
    $VERSION = 3.07.00.049;
31
    require Exporter;
31
    require Exporter;
32
    @ISA = qw(Exporter);
32
    @ISA = qw(Exporter);
33
    @EXPORT = qw(
33
    @EXPORT = qw(
(-)a/C4/Reports/Guided.pm (-1 / +1 lines)
Lines 35-41 use C4::Debug; Link Here
35
35
36
BEGIN {
36
BEGIN {
37
	# set the version for version checking
37
	# set the version for version checking
38
	$VERSION = 0.12;
38
	$VERSION = 3.07.00.049;
39
	require Exporter;
39
	require Exporter;
40
	@ISA = qw(Exporter);
40
	@ISA = qw(Exporter);
41
	@EXPORT = qw(
41
	@EXPORT = qw(
(-)a/C4/Reserves.pm (-1 / +1 lines)
Lines 85-91 This modules provides somes functions to deal with reservations. Link Here
85
85
86
BEGIN {
86
BEGIN {
87
    # set the version for version checking
87
    # set the version for version checking
88
    $VERSION = 3.01;
88
    $VERSION = 3.07.00.049;
89
    require Exporter;
89
    require Exporter;
90
    @ISA = qw(Exporter);
90
    @ISA = qw(Exporter);
91
    @EXPORT = qw(
91
    @EXPORT = qw(
(-)a/C4/Review.pm (-1 / +1 lines)
Lines 26-32 use vars qw($VERSION @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.00;
29
	$VERSION = 3.07.00.049;
30
	require Exporter;
30
	require Exporter;
31
	@ISA    = qw(Exporter);
31
	@ISA    = qw(Exporter);
32
	@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
32
	@EXPORT = qw(getreview savereview updatereview numberofreviews numberofreviewsbybiblionumber
(-)a/C4/Ris.pm (-1 / +1 lines)
Lines 65-71 package C4::Ris; Link Here
65
use vars qw($VERSION @ISA @EXPORT);
65
use vars qw($VERSION @ISA @EXPORT);
66
66
67
# set the version for version checking
67
# set the version for version checking
68
$VERSION = 3.00;
68
$VERSION = 3.07.00.049;
69
69
70
@ISA = qw(Exporter);
70
@ISA = qw(Exporter);
71
71
(-)a/C4/RotatingCollections.pm (-1 / +1 lines)
Lines 37-43 use Data::Dumper; Link Here
37
use vars qw($VERSION @ISA @EXPORT);
37
use vars qw($VERSION @ISA @EXPORT);
38
38
39
# set the version for version checking
39
# set the version for version checking
40
$VERSION = 0.01;
40
$VERSION = 3.07.00.049;
41
41
42
=head1 NAME
42
=head1 NAME
43
43
(-)a/C4/SIP/ILS/Item.pm (-1 / +1 lines)
Lines 25-31 use C4::Reserves; Link Here
25
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
25
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
26
26
27
BEGIN {
27
BEGIN {
28
	$VERSION = 2.11;
28
	$VERSION = 3.07.00.049;
29
	require Exporter;
29
	require Exporter;
30
	@ISA = qw(Exporter);
30
	@ISA = qw(Exporter);
31
	@EXPORT_OK = qw();
31
	@EXPORT_OK = qw();
(-)a/C4/SIP/ILS/Patron.pm (-1 / +1 lines)
Lines 26-32 use Digest::MD5 qw(md5_base64); Link Here
26
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
26
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
27
27
28
BEGIN {
28
BEGIN {
29
	$VERSION = 2.03;
29
	$VERSION = 3.07.00.049;
30
	@ISA = qw(Exporter);
30
	@ISA = qw(Exporter);
31
	@EXPORT_OK = qw(invalid_patron);
31
	@EXPORT_OK = qw(invalid_patron);
32
}
32
}
(-)a/C4/SIP/ILS/Transaction/Checkout.pm (-1 / +1 lines)
Lines 24-30 use C4::Debug; Link Here
24
use vars qw($VERSION @ISA $debug);
24
use vars qw($VERSION @ISA $debug);
25
25
26
BEGIN {
26
BEGIN {
27
	$VERSION = 1.03;
27
	$VERSION = 3.07.00.049;
28
	@ISA = qw(ILS::Transaction);
28
	@ISA = qw(ILS::Transaction);
29
}
29
}
30
30
(-)a/C4/SIP/ILS/Transaction/FeePayment.pm (-1 / +1 lines)
Lines 27-33 use base qw(ILS::Transaction); Link Here
27
use vars qw($VERSION @ISA $debug);
27
use vars qw($VERSION @ISA $debug);
28
28
29
our $debug   = 0;
29
our $debug   = 0;
30
our $VERSION = 1.00;
30
our $VERSION = 3.07.00.049;
31
31
32
my %fields = ();
32
my %fields = ();
33
33
(-)a/C4/SIP/ILS/Transaction/Hold.pm (-1 / +1 lines)
Lines 16-22 use C4::Biblio; # GetBiblioFromItemNumber GetBiblioItemByBiblioNumber Link Here
16
use vars qw($VERSION @ISA);
16
use vars qw($VERSION @ISA);
17
17
18
BEGIN {
18
BEGIN {
19
    $VERSION = 1.01;
19
    $VERSION = 3.07.00.049;
20
	    @ISA = qw(ILS::Transaction);
20
	    @ISA = qw(ILS::Transaction);
21
}
21
}
22
22
(-)a/C4/SIP/SIPServer.pm (-1 / +1 lines)
Lines 21-27 use constant LOG_SIP => "local6"; # Local alias for the logging facility Link Here
21
use vars qw(@ISA $VERSION);
21
use vars qw(@ISA $VERSION);
22
22
23
BEGIN {
23
BEGIN {
24
	$VERSION = 1.02;
24
	$VERSION = 3.07.00.049;
25
	@ISA = qw(Net::Server::PreFork);
25
	@ISA = qw(Net::Server::PreFork);
26
}
26
}
27
27
(-)a/C4/SIP/Sip.pm (-1 / +1 lines)
Lines 20-26 use Sip::Checksum qw(checksum); Link Here
20
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
20
use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
21
21
22
BEGIN {
22
BEGIN {
23
	$VERSION = 1.00;
23
	$VERSION = 3.07.00.049;
24
	@ISA = qw(Exporter);
24
	@ISA = qw(Exporter);
25
25
26
	@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
26
	@EXPORT_OK = qw(y_or_n timestamp add_field maybe_add add_count
(-)a/C4/SIP/Sip/MsgType.pm (-1 / +1 lines)
Lines 24-30 use UNIVERSAL qw(can); # make sure this is *after* C4 modules. Link Here
24
use vars qw(@ISA $VERSION @EXPORT_OK);
24
use vars qw(@ISA $VERSION @EXPORT_OK);
25
25
26
BEGIN {
26
BEGIN {
27
	$VERSION = 1.01;
27
	$VERSION = 3.07.00.049;
28
	@ISA = qw(Exporter);
28
	@ISA = qw(Exporter);
29
	@EXPORT_OK = qw(handle);
29
	@EXPORT_OK = qw(handle);
30
}
30
}
(-)a/C4/SMS.pm (-1 / +1 lines)
Lines 38-44 use C4::Context; Link Here
38
use vars qw( $VERSION );
38
use vars qw( $VERSION );
39
39
40
BEGIN {
40
BEGIN {
41
    $VERSION = 0.03;
41
    $VERSION = 3.07.00.049;
42
}
42
}
43
43
44
=head1 METHODS
44
=head1 METHODS
(-)a/C4/SQLHelper.pm (-1 / +1 lines)
Lines 46-52 eval { Link Here
46
46
47
BEGIN {
47
BEGIN {
48
	# set the version for version checking
48
	# set the version for version checking
49
	$VERSION = 0.5;
49
	$VERSION = 3.07.00.049;
50
	require Exporter;
50
	require Exporter;
51
	@ISA    = qw(Exporter);
51
	@ISA    = qw(Exporter);
52
@EXPORT_OK=qw(
52
@EXPORT_OK=qw(
(-)a/C4/Scheduler.pm (-1 / +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 = 0.02;
29
	$VERSION = 3.07.00.049;
30
	require Exporter;
30
	require Exporter;
31
	@ISA = qw(Exporter);
31
	@ISA = qw(Exporter);
32
	@EXPORT =
32
	@EXPORT =
(-)a/C4/Scrubber.pm (-1 / +1 lines)
Lines 22-28 use HTML::Scrubber; Link Here
22
use C4::Context;
22
use C4::Context;
23
use C4::Debug;
23
use C4::Debug;
24
24
25
our $VERSION = 0.02;
25
our $VERSION = v3.07.00.049;
26
26
27
27
28
my %scrubbertypes = (
28
my %scrubbertypes = (
(-)a/C4/Search.pm (-1 / +1 lines)
Lines 40-46 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $DEBUG); Link Here
40
40
41
# set the version for version checking
41
# set the version for version checking
42
BEGIN {
42
BEGIN {
43
    $VERSION = 3.01;
43
    $VERSION = 3.07.00.049;
44
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
44
    $DEBUG = ($ENV{DEBUG}) ? 1 : 0;
45
}
45
}
46
46
(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 30-36 use C4::Debug; Link Here
30
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
30
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
31
31
32
BEGIN {
32
BEGIN {
33
    $VERSION = 3.01;    # set version for version checking
33
    $VERSION = 3.07.00.049;    # set version for version checking
34
    require Exporter;
34
    require Exporter;
35
    @ISA    = qw(Exporter);
35
    @ISA    = qw(Exporter);
36
    @EXPORT = qw(
36
    @EXPORT = qw(
(-)a/C4/ShelfBrowser.pm (-1 / +1 lines)
Lines 30-36 use C4::Koha; Link Here
30
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
30
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
31
31
32
BEGIN {
32
BEGIN {
33
	$VERSION = 3.02;
33
	$VERSION = 3.07.00.049;
34
	require Exporter;
34
	require Exporter;
35
	@ISA    = qw(Exporter);
35
	@ISA    = qw(Exporter);
36
	@EXPORT = qw(
36
	@EXPORT = qw(
(-)a/C4/Stats.pm (-1 / +1 lines)
Lines 29-35 our $debug; 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.01;
32
	$VERSION = 3.07.00.049;
33
	@ISA    = qw(Exporter);
33
	@ISA    = qw(Exporter);
34
	@EXPORT = qw(
34
	@EXPORT = qw(
35
		&UpdateStats
35
		&UpdateStats
(-)a/C4/Suggestions.pm (-1 / +1 lines)
Lines 32-38 use C4::Letters; Link Here
32
use List::MoreUtils qw<any>;
32
use List::MoreUtils qw<any>;
33
use C4::Dates qw(format_date_in_iso);
33
use C4::Dates qw(format_date_in_iso);
34
use base qw(Exporter);
34
use base qw(Exporter);
35
our $VERSION = 3.01;
35
our $VERSION = 3.07.00.049;
36
our @EXPORT  = qw<
36
our @EXPORT  = qw<
37
    ConnectSuggestionAndBiblio
37
    ConnectSuggestionAndBiblio
38
    CountSuggestion
38
    CountSuggestion
(-)a/C4/Tags.pm (-1 / +1 lines)
Lines 26-32 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
26
use vars qw($ext_dict $select_all @fields);
26
use vars qw($ext_dict $select_all @fields);
27
27
28
BEGIN {
28
BEGIN {
29
	$VERSION = 0.03;
29
	$VERSION = 3.07.00.049;
30
	@ISA = qw(Exporter);
30
	@ISA = qw(Exporter);
31
	@EXPORT_OK = qw(
31
	@EXPORT_OK = qw(
32
		&get_tag &get_tags &get_tag_rows
32
		&get_tag &get_tags &get_tag_rows
(-)a/C4/TmplToken.pm (-1 / +1 lines)
Lines 21-27 This is a class representing a token scanned from an HTML::Template .tmpl file. Link Here
21
21
22
###############################################################################
22
###############################################################################
23
23
24
$VERSION = 0.01;
24
$VERSION = 3.07.00.049;
25
25
26
@ISA = qw(Exporter);
26
@ISA = qw(Exporter);
27
@EXPORT_OK = qw();
27
@EXPORT_OK = qw();
(-)a/C4/TmplTokenType.pm (-1 / +1 lines)
Lines 21-27 The predefined constants are Link Here
21
21
22
###############################################################################
22
###############################################################################
23
23
24
$VERSION = 0.01;
24
$VERSION = 3.07.00.049;
25
25
26
@ISA = qw(Exporter);
26
@ISA = qw(Exporter);
27
@EXPORT_OK = qw(
27
@EXPORT_OK = qw(
(-)a/C4/UploadedFile.pm (-1 / +1 lines)
Lines 28-34 use vars qw($VERSION); 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.00;
31
	$VERSION = 3.07.00.049;
32
}
32
}
33
33
34
=head1 NAME
34
=head1 NAME
(-)a/C4/Utils.pm (-1 / +1 lines)
Lines 9-15 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug); Link Here
9
9
10
BEGIN {
10
BEGIN {
11
	require Exporter;
11
	require Exporter;
12
	$VERSION = 1.00;        # set the version for version checking
12
	$VERSION = 3.07.00.049;        # set the version for version checking
13
	$debug = $ENV{DEBUG} || 0;
13
	$debug = $ENV{DEBUG} || 0;
14
	@ISA    = qw(Exporter);
14
	@ISA    = qw(Exporter);
15
	@EXPORT_OK = qw(&maxwidth &hashdump);
15
	@EXPORT_OK = qw(&maxwidth &hashdump);
(-)a/C4/Utils/DataTables.pm (-1 / +1 lines)
Lines 23-29 require Exporter; Link Here
23
use vars qw($VERSION @ISA @EXPORT);
23
use vars qw($VERSION @ISA @EXPORT);
24
24
25
BEGIN {
25
BEGIN {
26
    $VERSION    = 3.04,
26
    $VERSION    = 3.07.00.049,
27
27
28
    @ISA        = qw(Exporter);
28
    @ISA        = qw(Exporter);
29
    @EXPORT     = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
29
    @EXPORT     = qw(dt_build_orderby dt_build_having dt_get_params dt_build_query);
(-)a/C4/VirtualShelves.pm (-1 / +1 lines)
Lines 33-39 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); Link Here
33
33
34
BEGIN {
34
BEGIN {
35
    # set the version for version checking
35
    # set the version for version checking
36
    $VERSION = 3.02;
36
    $VERSION = 3.07.00.049;
37
    require Exporter;
37
    require Exporter;
38
    @ISA    = qw(Exporter);
38
    @ISA    = qw(Exporter);
39
    @EXPORT = qw(
39
    @EXPORT = qw(
(-)a/C4/VirtualShelves/Page.pm (-1 / +1 lines)
Lines 44-50 use constant VIRTUALSHELVES_COUNT => 20; Link Here
44
use vars qw($debug @EXPORT @ISA $VERSION);
44
use vars qw($debug @EXPORT @ISA $VERSION);
45
45
46
BEGIN {
46
BEGIN {
47
    $VERSION = 1.01;
47
    $VERSION = 3.07.00.049;
48
    @ISA     = qw(Exporter);
48
    @ISA     = qw(Exporter);
49
    @EXPORT  = qw(&shelfpage);
49
    @EXPORT  = qw(&shelfpage);
50
    $debug   = $ENV{DEBUG} || 0;
50
    $debug   = $ENV{DEBUG} || 0;
(-)a/C4/XISBN.pm (-1 / +1 lines)
Lines 31-37 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); Link Here
31
31
32
BEGIN {
32
BEGIN {
33
	require Exporter;
33
	require Exporter;
34
	$VERSION = 3.01;
34
	$VERSION = 3.07.00.049;
35
	@ISA = qw(Exporter);
35
	@ISA = qw(Exporter);
36
	@EXPORT_OK = qw(
36
	@EXPORT_OK = qw(
37
		&get_xisbns
37
		&get_xisbns
(-)a/C4/XSLT.pm (-1 / +1 lines)
Lines 39-45 use vars qw($VERSION @ISA @EXPORT); Link Here
39
39
40
BEGIN {
40
BEGIN {
41
    require Exporter;
41
    require Exporter;
42
    $VERSION = 0.03;
42
    $VERSION = 3.07.00.049;
43
    @ISA = qw(Exporter);
43
    @ISA = qw(Exporter);
44
    @EXPORT = qw(
44
    @EXPORT = qw(
45
        &XSLTParse4Display
45
        &XSLTParse4Display
(-)a/C4/Z3950.pm (-2 / +1 lines)
Lines 38-44 use vars qw($VERSION @ISA @EXPORT); 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.01;
41
	$VERSION = 3.07.00.049;
42
	require Exporter;
42
	require Exporter;
43
	@ISA = qw(Exporter);
43
	@ISA = qw(Exporter);
44
	@EXPORT = qw(
44
	@EXPORT = qw(
45
- 

Return to bug 7941