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

(-)a/C4/BackgroundJob.pm (-2 lines)
Lines 25-32 use C4::Auth qw/get_session/; Link Here
25
use Digest::MD5;
25
use Digest::MD5;
26
26
27
27
28
BEGIN {
29
}
30
28
31
=head1 NAME
29
=head1 NAME
32
30
(-)a/C4/Creators/Batch.pm (-2 lines)
Lines 8-15 use autouse 'Data::Dumper' => qw(Dumper); Link Here
8
use C4::Context;
8
use C4::Context;
9
use C4::Debug;
9
use C4::Debug;
10
10
11
BEGIN {
12
}
13
11
14
sub _check_params {
12
sub _check_params {
15
    my $given_params = {};
13
    my $given_params = {};
(-)a/C4/Creators/Layout.pm (-2 lines)
Lines 9-16 use C4::Context; Link Here
9
use C4::Debug;
9
use C4::Debug;
10
use C4::Creators::PDF;
10
use C4::Creators::PDF;
11
11
12
BEGIN {
13
}
14
12
15
# FIXME: Consider this style parameter verification instead...
13
# FIXME: Consider this style parameter verification instead...
16
#  my %param = @_;
14
#  my %param = @_;
(-)a/C4/Creators/PDF.pm (-2 lines)
Lines 24-31 use PDF::Reuse::Barcode; Link Here
24
use File::Temp;
24
use File::Temp;
25
use List::Util qw/first/;
25
use List::Util qw/first/;
26
26
27
BEGIN {
28
}
29
27
30
sub _InitVars {
28
sub _InitVars {
31
    my $self = shift;
29
    my $self = shift;
(-)a/C4/Creators/Profile.pm (-2 lines)
Lines 9-16 use C4::Context; Link Here
9
use C4::Debug;
9
use C4::Debug;
10
use C4::Creators::Lib qw(get_unit_values);
10
use C4::Creators::Lib qw(get_unit_values);
11
11
12
BEGIN {
13
}
14
12
15
sub _check_params {
13
sub _check_params {
16
    my $given_params = {};
14
    my $given_params = {};
(-)a/C4/Creators/Template.pm (-2 lines)
Lines 10-17 use C4::Debug; Link Here
10
use C4::Creators::Profile;
10
use C4::Creators::Profile;
11
use C4::Creators::Lib qw(get_unit_values);
11
use C4::Creators::Lib qw(get_unit_values);
12
12
13
BEGIN {
14
}
15
13
16
sub _check_params {
14
sub _check_params {
17
    shift if $_[0] =~ m/::/; # this seems a bit hackish
15
    shift if $_[0] =~ m/::/; # this seems a bit hackish
(-)a/C4/Labels/Batch.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Batch); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
11
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
my $me = $1;
12
my $me = $1;
(-)a/C4/Labels/Label.pm (-2 lines)
Lines 14-21 use C4::Context; Link Here
14
use C4::Debug;
14
use C4::Debug;
15
use C4::Biblio;
15
use C4::Biblio;
16
16
17
BEGIN {
18
}
19
17
20
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
18
my $possible_decimal = qr/\d{3,}(?:\.\d+)?/; # at least three digits for a DDCN
21
19
(-)a/C4/Labels/Layout.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Layout); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
11
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
my $me = $1;
12
my $me = $1;
(-)a/C4/Labels/Profile.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Profile); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
11
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
my $me = $1;
12
my $me = $1;
(-)a/C4/Labels/Template.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Template); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
use constant TEMPLATE_TABLE => 'creator_templates';
11
use constant TEMPLATE_TABLE => 'creator_templates';
14
12
(-)a/C4/Matcher.pm (-2 lines)
Lines 24-31 use C4::Context; Link Here
24
use MARC::Record;
24
use MARC::Record;
25
25
26
26
27
BEGIN {
28
}
29
27
30
=head1 NAME
28
=head1 NAME
31
29
(-)a/C4/Members/AttributeTypes.pm (-2 lines)
Lines 22-29 use strict; Link Here
22
use C4::Context;
22
use C4::Context;
23
23
24
24
25
BEGIN {
26
}
27
25
28
=head1 NAME
26
=head1 NAME
29
27
(-)a/C4/Members/Messaging.pm (-2 lines)
Lines 22-29 use warnings; Link Here
22
use C4::Context;
22
use C4::Context;
23
23
24
24
25
BEGIN {
26
}
27
25
28
=head1 NAME
26
=head1 NAME
29
27
(-)a/C4/Patroncards/Batch.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Batch); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
11
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
my $me = $1;
12
my $me = $1;
(-)a/C4/Patroncards/Layout.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Layout); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
11
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
my $me = $1;
12
my $me = $1;
(-)a/C4/Patroncards/Patroncard.pm (-2 lines)
Lines 28-35 use C4::Creators::Lib qw(get_font_types); Link Here
28
use C4::Creators::PDF qw(StrWidth);
28
use C4::Creators::PDF qw(StrWidth);
29
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
29
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
30
30
31
BEGIN {
32
}
33
31
34
sub new {
32
sub new {
35
    my ($invocant, %params) = @_;
33
    my ($invocant, %params) = @_;
(-)a/C4/Patroncards/Profile.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Profile); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
11
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
14
my $me = $1;
12
my $me = $1;
(-)a/C4/Patroncards/Template.pm (-2 lines)
Lines 7-14 use base qw(C4::Creators::Template); Link Here
7
7
8
use autouse 'Data::Dumper' => qw(Dumper);
8
use autouse 'Data::Dumper' => qw(Dumper);
9
9
10
BEGIN {
11
}
12
10
13
use constant TEMPLATE_TABLE => 'creator_templates';
11
use constant TEMPLATE_TABLE => 'creator_templates';
14
12
(-)a/C4/SMS.pm (-2 lines)
Lines 39-46 use C4::Context; Link Here
39
39
40
use vars qw( );
40
use vars qw( );
41
41
42
BEGIN {
43
}
44
42
45
=head1 METHODS
43
=head1 METHODS
46
44
(-)a/Koha/Patron/Files.pm (-4 lines)
Lines 24-32 use C4::Context; Link Here
24
use C4::Output;
24
use C4::Output;
25
use C4::Debug;
25
use C4::Debug;
26
26
27
BEGIN {
28
29
}
30
27
31
=head1 NAME
28
=head1 NAME
32
29
33
- 

Return to bug 16011