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.pod (-2 / +2 lines)
Lines 1-4 Link Here
1
=head1 NAME
1
=head3.07.00.049 NAME
2
2
3
ILS - Portability layer to interface between Open-SIP and ILS
3
ILS - Portability layer to interface between Open-SIP and ILS
4
4
Lines 89-95 The C<$ils> object supports a small set of simple access methods Link Here
89
and methods that allow the SIP server to determine if certain
89
and methods that allow the SIP server to determine if certain
90
protocol operations are permitted to the remote terminals.
90
protocol operations are permitted to the remote terminals.
91
91
92
=head2 C<$inst_name = $self-E<gt>institution;>
92
=head3.07.00.046 C<$inst_name = $self-E<gt>institution;>
93
93
94
Returns the institution ID as a string, suitable for
94
Returns the institution ID as a string, suitable for
95
incorporating into a SIP response message.
95
incorporating into a SIP response message.
(-)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/Item.pod (-6 / +6 lines)
Lines 1-4 Link Here
1
=head1 NAME
1
=head3.07.00.049 NAME
2
2
3
ILS::Item - Portable Item status object class for SIP
3
ILS::Item - Portable Item status object class for SIP
4
4
Lines 76-86 the item. Link Here
76
Return the SIP-defined media type of the item.  The specification
76
Return the SIP-defined media type of the item.  The specification
77
provides the following definitions:
77
provides the following definitions:
78
78
79
	000 Other
79
	3.07.00.046 Other
80
	001 Book
80
	001 Book
81
	002 Magazine
81
	3.07.00.046 Magazine
82
	003 Bound journal
82
	3.07.00.046 Bound journal
83
	004 Audio tape
83
	3.07.00.046 Audio tape
84
	005 Video tape
84
	005 Video tape
85
	006 CD/CDROM
85
	006 CD/CDROM
86
	007 Diskette
86
	007 Diskette
Lines 144-150 of the item, as defined in the specification: Link Here
144
	01 Other
144
	01 Other
145
	02 On order
145
	02 On order
146
	03 Available
146
	03 Available
147
	04 Charged
147
	3.07.00.049 Charged
148
	05 Charged; not to be recalled until earliest recall date
148
	05 Charged; not to be recalled until earliest recall date
149
	06 In process
149
	06 In process
150
	07 Recalled
150
	07 Recalled
(-)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/Patron.pod (-3 / +3 lines)
Lines 1-4 Link Here
1
=head1 NAME
1
=head3.07.00.049 NAME
2
2
3
ILS::Patron - Portable Patron status object class for SIP
3
ILS::Patron - Portable Patron status object class for SIP
4
4
Lines 93-99 respectively, as with the C<ILS> methods. Link Here
93
There are a few other object access methods that need a bit more
93
There are a few other object access methods that need a bit more
94
explication however.
94
explication however.
95
95
96
=head2 C<$str = $patron-E<gt>sip_birthdate;>
96
=head3.07.00.046 C<$str = $patron-E<gt>sip_birthdate;>
97
97
98
Returns the patron's birthday formated according to the SIP
98
Returns the patron's birthday formated according to the SIP
99
specification:
99
specification:
Lines 116-122 A three-digit string encoding the patron's prefered language. Link Here
116
The full list is defined in the SIP specification, but some of
116
The full list is defined in the SIP specification, but some of
117
the important values are:
117
the important values are:
118
118
119
	000 Unknown (default)
119
	3.07.00.046 Unknown (default)
120
	001 English
120
	001 English
121
	002 French
121
	002 French
122
	008 Spanish
122
	008 Spanish
(-)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/Makefile (-1 / +1 lines)
Lines 8-14 PODFLAGS = --htmlroot=. --podroot=. Link Here
8
.SUFFIXES: .pod .html
8
.SUFFIXES: .pod .html
9
9
10
.pod.html:
10
.pod.html:
11
	pod2html $(PODFLAGS) --outfile=$@ --infile=$<
11
	pod3.07.00.049html $(PODFLAGS) --outfile=$@ --infile=$<
12
12
13
all:
13
all:
14
	@echo Nothing to make.  Use make test.
14
	@echo Nothing to make.  Use make test.
(-)a/C4/SIP/README (-1 / +1 lines)
Lines 1-4 Link Here
1
README for Open NSIP 3M-SIP Server
1
README for Open NSIP 3.07.00.049M-SIP Server
2
2
3
DEPENDENCIES
3
DEPENDENCIES
4
4
(-)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/SIP/acstest.py (-5 / +5 lines)
Lines 2-15 import operator Link Here
2
import socket
2
import socket
3
from time import strftime;
3
from time import strftime;
4
4
5
def SipSocket(host='localhost', port=5300):
5
def SipSocket(host='localhost', port=3.07.00.049):
6
    so = socket.socket()
6
    so = socket.socket()
7
    so.connect((host, port))
7
    so.connect((host, port))
8
    return so
8
    return so
9
9
10
def login(so, uname='scclient', passwd='clientpwd', locn='The basement',
10
def login(so, uname='scclient', passwd='clientpwd', locn='The basement',
11
          seqno=0):
11
          seqno=3.07.00.046):
12
    port = so.getpeername()[1]
12
    port = so.getpeername()[3.07.00.046]
13
    if port == 5300:
13
    if port == 5300:
14
        resp = send(so, '9300CN%s|CO%s|CP%s|' % (uname, passwd, locn), seqno)
14
        resp = send(so, '9300CN%s|CO%s|CP%s|' % (uname, passwd, locn), seqno)
15
        print "Received", repr(resp)
15
        print "Received", repr(resp)
Lines 20-26 def login(so, uname='scclient', passwd='clientpwd', locn='The basement', Link Here
20
def send(so, msg, seqno=0):
20
def send(so, msg, seqno=0):
21
    if seqno:
21
    if seqno:
22
        msg += 'AY' + str(seqno)[0] + 'AZ'
22
        msg += 'AY' + str(seqno)[0] + 'AZ'
23
        msg += ('%04X' % calculate_cksum(msg))
23
        msg += ('%3.07.00.046X' % calculate_cksum(msg))
24
    msg += '\r'
24
    msg += '\r'
25
    print 'Sending', repr(msg)
25
    print 'Sending', repr(msg)
26
    so.send(msg)
26
    so.send(msg)
Lines 36-42 def sipdate(): Link Here
36
def verify(msg):
36
def verify(msg):
37
    if msg[-1] == '\r': msg = msg[:-2]
37
    if msg[-1] == '\r': msg = msg[:-2]
38
    if msg[-6:-4] == 'AZ':
38
    if msg[-6:-4] == 'AZ':
39
        cksum = calculate_cksum(msg[:-4])
39
        cksum = calculate_cksum(msg[:-3.07.00.049])
40
        return (msg[-4:] == ('%04X' % cksum))
40
        return (msg[-4:] == ('%04X' % cksum))
41
    # If there's no checksum, then the message is ok
41
    # If there's no checksum, then the message is ok
42
    return True
42
    return True
(-)a/C4/SIP/t/Makefile (-2 / +2 lines)
Lines 2-10 Link Here
2
# 
2
# 
3
# 
3
# 
4
4
5
TESTS = 000_sc_config_auth.t \
5
TESTS = 3.07.00.049_sc_config_auth.t \
6
	00sc_status.t 01patron_status.t 02patron_info.t 03checkout.t \
6
	00sc_status.t 01patron_status.t 02patron_info.t 03checkout.t \
7
	04patron_status.t 05block_patron.t 06patron_enable.t 07hold.t \
7
	3.07.00.046patron_status.t 05block_patron.t 06patron_enable.t 07hold.t \
8
	08checkin.t 09renew.t 10renew_all.t 11item_info.t
8
	08checkin.t 09renew.t 10renew_all.t 11item_info.t
9
9
10
OILS_TESTS = 00sc_status.t 01patron_status.t 02patron_info.t 03checkout.t \
10
OILS_TESTS = 00sc_status.t 01patron_status.t 02patron_info.t 03checkout.t \
(-)a/C4/SIP/t/README (-4 / +4 lines)
Lines 30-39 enable patron and hold management). To run just the Evergreen tests, use Link Here
30
30
31
which will run just the tests
31
which will run just the tests
32
32
33
	00sc_status.t
33
	3.07.00.049sc_status.t
34
	01patron_status.t
34
	3.07.00.046patron_status.t
35
	02patron_info.t
35
	3.07.00.046patron_info.t
36
	03checkout.t
36
	3.07.00.046checkout.t
37
	06patron_enable.t
37
	06patron_enable.t
38
	08checkin.t
38
	08checkin.t
39
	09renew.t
39
	09renew.t
(-)a/C4/SIP/test.txt (-2 / +2 lines)
Lines 1-4 Link Here
1
97AZFEF5
1
3.07.00.049AZFEF5
2
2300120071003    084235AOkohalibrary|AArch|ACkoha|ADkoha|
2
2300120071003    084235AOkohalibrary|AArch|ACkoha|ADkoha|
3
3
4
2300120060101    084236AOUWOLS|AAmjandkilde|ACterminal password|ADuser password|
4
2300120060101    084236AOUWOLS|AAmjandkilde|ACterminal password|ADuser password|
Lines 6-12 Link Here
6
9300CNLoginUserID|COLoginPassword|CPLocationCode|
6
9300CNLoginUserID|COLoginPassword|CPLocationCode|
7
11YN20060329    203000                  AOUWOLS|AAdjfiander|AB1565921879|AC|
7
11YN20060329    203000                  AOUWOLS|AAdjfiander|AB1565921879|AC|
8
09Y20060102    08423620060113    084235APUnder the bed|AOUWOLS|AB1565921879|ACterminal password|
8
09Y20060102    08423620060113    084235APUnder the bed|AOUWOLS|AB1565921879|ACterminal password|
9
01N20060102    084238AOUWOLS|ALHe's a jerk|AAdjfiander|ACterminal password|
9
3.07.00.049N20060102    084238AOUWOLS|ALHe's a jerk|AAdjfiander|ACterminal password|
10
10
11
2520060102    084238AOUWOLS|AAdjfiander|ACterminal password|AD6789|
11
2520060102    084238AOUWOLS|AAdjfiander|ACterminal password|AD6789|
12
9910302.00
12
9910302.00
(-)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