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

(-)a/C4/Creators.pm (-2 / +2 lines)
Lines 38-45 BEGIN { Link Here
38
                     get_unit_values
38
                     get_unit_values
39
                     html_table
39
                     html_table
40
    );
40
    );
41
    use C4::Creators::Lib 1.000000;
41
    use C4::Creators::Lib;
42
    use C4::Creators::PDF 1.000000;
42
    use C4::Creators::PDF;
43
}
43
}
44
44
45
1;
45
1;
(-)a/C4/Creators/Profile.pm (-1 / +1 lines)
Lines 7-13 use autouse 'Data::Dumper' => qw(Dumper); Link Here
7
7
8
use C4::Context;
8
use C4::Context;
9
use C4::Debug;
9
use C4::Debug;
10
use C4::Creators::Lib 1.000000 qw(get_unit_values);
10
use C4::Creators::Lib qw(get_unit_values);
11
11
12
BEGIN {
12
BEGIN {
13
    use version; our $VERSION = qv('3.07.00.049');
13
    use version; our $VERSION = qv('3.07.00.049');
(-)a/C4/Creators/Template.pm (-2 / +2 lines)
Lines 7-14 use autouse 'Data::Dumper' => qw(Dumper); Link Here
7
7
8
use C4::Context;
8
use C4::Context;
9
use C4::Debug;
9
use C4::Debug;
10
use C4::Creators::Profile 1.000000;
10
use C4::Creators::Profile;
11
use C4::Creators::Lib 1.000000 qw(get_unit_values);
11
use C4::Creators::Lib qw(get_unit_values);
12
12
13
BEGIN {
13
BEGIN {
14
    use version; our $VERSION = qv('3.07.00.049');
14
    use version; our $VERSION = qv('3.07.00.049');
(-)a/C4/Installer.pm (-1 / +1 lines)
Lines 22-28 use strict; Link Here
22
22
23
our $VERSION = 3.07.00.049;
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;
26
26
27
=head1 NAME
27
=head1 NAME
28
28
(-)a/C4/Labels.pm (-5 / +5 lines)
Lines 3-13 package C4::Labels; Link Here
3
BEGIN {
3
BEGIN {
4
    use version; our $VERSION = qv('3.07.00.049');
4
    use version; our $VERSION = qv('3.07.00.049');
5
5
6
    use C4::Labels::Batch 1.000000;
6
    use C4::Labels::Batch;
7
    use C4::Labels::Label 1.000000;
7
    use C4::Labels::Label;
8
    use C4::Labels::Layout 1.000000;
8
    use C4::Labels::Layout;
9
    use C4::Labels::Profile 1.000000;
9
    use C4::Labels::Profile;
10
    use C4::Labels::Template 1.000000;
10
    use C4::Labels::Template;
11
}
11
}
12
12
13
1;
13
1;
(-)a/C4/Patroncards.pm (-6 / +6 lines)
Lines 13-24 BEGIN { Link Here
13
                     get_image
13
                     get_image
14
                     rm_image
14
                     rm_image
15
    );
15
    );
16
    use C4::Patroncards::Batch 1.000000;
16
    use C4::Patroncards::Batch;
17
    use C4::Patroncards::Layout 1.000000;
17
    use C4::Patroncards::Layout;
18
    use C4::Patroncards::Lib 1.000000;
18
    use C4::Patroncards::Lib;
19
    use C4::Patroncards::Patroncard 1.000000;
19
    use C4::Patroncards::Patroncard;
20
    use C4::Patroncards::Profile 1.000000;
20
    use C4::Patroncards::Profile;
21
    use C4::Patroncards::Template 1.000000;
21
    use C4::Patroncards::Template;
22
}
22
}
23
23
24
1;
24
1;
(-)a/C4/Patroncards/Patroncard.pm (-3 / +3 lines)
Lines 24-32 use autouse 'Data::Dumper' => qw(Dumper); Link Here
24
use Text::Wrap qw(wrap);
24
use Text::Wrap qw(wrap);
25
#use Font::TTFMetrics;
25
#use Font::TTFMetrics;
26
26
27
use C4::Creators::Lib 1.000000 qw(get_font_types);
27
use C4::Creators::Lib qw(get_font_types);
28
use C4::Creators::PDF 1.000000 qw(StrWidth);
28
use C4::Creators::PDF qw(StrWidth);
29
use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
29
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
30
30
31
BEGIN {
31
BEGIN {
32
    use version; our $VERSION = qv('3.07.00.049');
32
    use version; our $VERSION = qv('3.07.00.049');
(-)a/labels/label-create-csv.pl (-2 / +2 lines)
Lines 26-33 use Text::CSV_XS; Link Here
26
use Data::Dumper;
26
use Data::Dumper;
27
27
28
use C4::Debug;
28
use C4::Debug;
29
use C4::Creators 1.000000;
29
use C4::Creators;
30
use C4::Labels 1.000000;
30
use C4::Labels;
31
31
32
my $cgi = new CGI;
32
my $cgi = new CGI;
33
33
(-)a/labels/label-create-pdf.pl (-2 / +2 lines)
Lines 24-31 use warnings; Link Here
24
use CGI;
24
use CGI;
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Debug;
26
use C4::Debug;
27
use C4::Creators 1.000000;
27
use C4::Creators;
28
use C4::Labels 1.000000;
28
use C4::Labels;
29
29
30
my $cgi = new CGI;
30
my $cgi = new CGI;
31
31
(-)a/labels/label-create-xml.pl (-2 / +2 lines)
Lines 26-33 use XML::Simple; Link Here
26
use Data::Dumper;
26
use Data::Dumper;
27
27
28
use C4::Debug;
28
use C4::Debug;
29
use C4::Creators 1.000000;
29
use C4::Creators;
30
use C4::Labels 1.000000;
30
use C4::Labels;
31
31
32
my $cgi = new CGI;
32
my $cgi = new CGI;
33
33
(-)a/labels/label-edit-batch.pl (-2 / +2 lines)
Lines 28-35 use C4::Auth qw(get_template_and_user); Link Here
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw(output_html_with_http_headers);
29
use C4::Branch qw(get_branch_code_from_name);
29
use C4::Branch qw(get_branch_code_from_name);
30
use C4::Items qw(GetItemnumberFromBarcode);
30
use C4::Items qw(GetItemnumberFromBarcode);
31
use C4::Creators 1.000000;
31
use C4::Creators;
32
use C4::Labels 1.000000;
32
use C4::Labels;
33
33
34
my $cgi = new CGI;
34
my $cgi = new CGI;
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-edit-layout.pl (-2 / +2 lines)
Lines 26-33 use POSIX; Link Here
26
26
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw(get_template_and_user);
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw(output_html_with_http_headers);
29
use C4::Creators 1.000000;
29
use C4::Creators;
30
use C4::Labels 1.000000;
30
use C4::Labels;
31
31
32
my $cgi = new CGI;
32
my $cgi = new CGI;
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-edit-profile.pl (-2 / +2 lines)
Lines 25-32 use CGI; Link Here
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw(get_template_and_user);
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw(output_html_with_http_headers);
28
use C4::Creators 1.000000;
28
use C4::Creators;
29
use C4::Labels 1.000000;
29
use C4::Labels;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-edit-template.pl (-2 / +2 lines)
Lines 25-32 use CGI; Link Here
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw(get_template_and_user);
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw(output_html_with_http_headers);
28
use C4::Creators 1.000000;
28
use C4::Creators;
29
use C4::Labels 1.000000;
29
use C4::Labels;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-manage.pl (-2 / +2 lines)
Lines 28-35 use Data::Dumper; Link Here
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw(get_template_and_user);
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw(output_html_with_http_headers);
30
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
30
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
31
use C4::Creators 1.000000;
31
use C4::Creators;
32
use C4::Labels 1.000000;
32
use C4::Labels;
33
33
34
my $cgi = new CGI;
34
my $cgi = new CGI;
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-print.pl (-2 / +2 lines)
Lines 25-32 use Data::Dumper; Link Here
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw(get_template_and_user);
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw(output_html_with_http_headers);
28
use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_output_formats);
28
use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats);
29
use C4::Labels::Batch 1.000000;
29
use C4::Labels::Batch;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/card-print.pl (-2 / +2 lines)
Lines 25-32 use Data::Dumper; Link Here
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw(get_template_and_user);
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw(output_html_with_http_headers);
28
use C4::Creators 1.000000;
28
use C4::Creators;
29
use C4::Labels 1.000000;
29
use C4::Labels;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/create-pdf.pl (-2 / +2 lines)
Lines 30-37 use autouse 'Data::Dumper' => qw(Dumper); Link Here
30
use C4::Debug;
30
use C4::Debug;
31
use C4::Context;
31
use C4::Context;
32
use autouse 'C4::Members' => qw(GetPatronImage GetMember);
32
use autouse 'C4::Members' => qw(GetPatronImage GetMember);
33
use C4::Creators 1.000000;
33
use C4::Creators;
34
use C4::Patroncards 1.000000;
34
use C4::Patroncards;
35
35
36
my $cgi = new CGI;
36
my $cgi = new CGI;
37
37
(-)a/patroncards/edit-batch.pl (-2 / +2 lines)
Lines 28-35 use autouse 'Data::Dumper' => qw(Dumper); Link Here
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw(get_template_and_user);
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw(output_html_with_http_headers);
30
use C4::Branch qw(get_branch_code_from_name);
30
use C4::Branch qw(get_branch_code_from_name);
31
use C4::Creators 1.000000;
31
use C4::Creators;
32
use C4::Patroncards 1.000000;
32
use C4::Patroncards;
33
33
34
my $cgi = new CGI;
34
my $cgi = new CGI;
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/edit-layout.pl (-2 / +2 lines)
Lines 28-35 use autouse 'Data::Dumper' => qw(Dumper); Link Here
28
28
29
use C4::Auth qw(get_template_and_user);
29
use C4::Auth qw(get_template_and_user);
30
use C4::Output qw(output_html_with_http_headers);
30
use C4::Output qw(output_html_with_http_headers);
31
use C4::Creators 1.000000;
31
use C4::Creators;
32
use C4::Patroncards 1.000000;
32
use C4::Patroncards;
33
33
34
my $cgi = new CGI;
34
my $cgi = new CGI;
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/edit-profile.pl (-2 / +2 lines)
Lines 25-32 use CGI; Link Here
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw(get_template_and_user);
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw(output_html_with_http_headers);
28
use C4::Creators::Lib 1.000000 qw(get_all_templates get_unit_values);
28
use C4::Creators::Lib qw(get_all_templates get_unit_values);
29
use C4::Patroncards::Profile 1.000000;
29
use C4::Patroncards::Profile;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/edit-template.pl (-2 / +2 lines)
Lines 26-33 use autouse 'Data::Dumper' => qw(Dumper); Link Here
26
26
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw(get_template_and_user);
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw(output_html_with_http_headers);
29
use C4::Creators 1.000000;
29
use C4::Creators;
30
use C4::Patroncards 1.000000;
30
use C4::Patroncards;
31
31
32
my $cgi = new CGI;
32
my $cgi = new CGI;
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
33
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/image-manage.pl (-2 / +2 lines)
Lines 12-19 use C4::Context; Link Here
12
use C4::Auth;
12
use C4::Auth;
13
use C4::Output;
13
use C4::Output;
14
use C4::Debug;
14
use C4::Debug;
15
use C4::Creators 1.000000;
15
use C4::Creators;
16
use C4::Patroncards 1.000000;
16
use C4::Patroncards;
17
17
18
my $cgi = CGI->new;
18
my $cgi = CGI->new;
19
19
(-)a/patroncards/manage.pl (-3 / +3 lines)
Lines 28-36 use autouse 'Data::Dumper' => qw(Dumper); Link Here
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw(get_template_and_user);
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw(output_html_with_http_headers);
30
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
30
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
31
use C4::Creators 1.000000;
31
use C4::Creators;
32
use C4::Patroncards 1.000000;
32
use C4::Patroncards;
33
use C4::Labels 1.000000;
33
use C4::Labels;
34
34
35
my $cgi = new CGI;
35
my $cgi = new CGI;
36
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/print.pl (-2 / +2 lines)
Lines 25-32 use autouse 'Data::Dumper' => qw(Dumper); Link Here
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw(get_template_and_user);
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw(output_html_with_http_headers);
28
use C4::Creators 1.000000;
28
use C4::Creators;
29
use C4::Patroncards 1.000000;
29
use C4::Patroncards;
30
30
31
my $cgi = new CGI;
31
my $cgi = new CGI;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/tags/list.pl (-1 / +1 lines)
Lines 27-33 use C4::Context; Link Here
27
use C4::Dates qw(format_date);
27
use C4::Dates qw(format_date);
28
use C4::Items;
28
use C4::Items;
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Tags 0.03 qw(get_tags remove_tag get_tag_rows);
30
use C4::Tags qw(get_tags remove_tag get_tag_rows);
31
use C4::Output;
31
use C4::Output;
32
32
33
my $needed_flags = { tools => 'moderate_tags'
33
my $needed_flags = { tools => 'moderate_tags'
(-)a/tags/review.pl (-1 / +1 lines)
Lines 32-38 use C4::Dates qw(format_date format_date_in_iso); Link Here
32
# use C4::Koha;
32
# use C4::Koha;
33
use C4::Output qw(:html :ajax pagination_bar);
33
use C4::Output qw(:html :ajax pagination_bar);
34
use C4::Debug;
34
use C4::Debug;
35
use C4::Tags 0.03 qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
35
use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
36
36
37
my $script_name = "/cgi-bin/koha/tags/review.pl";
37
my $script_name = "/cgi-bin/koha/tags/review.pl";
38
my $needed_flags = { tools => 'moderate_tags' };	# FIXME: replace when more specific permission is created.
38
my $needed_flags = { tools => 'moderate_tags' };	# FIXME: replace when more specific permission is created.
(-)a/tools/manage-marc-import.pl (-2 / +1 lines)
Lines 34-40 use C4::Biblio; Link Here
34
use C4::ImportBatch;
34
use C4::ImportBatch;
35
use C4::Matcher;
35
use C4::Matcher;
36
use C4::BackgroundJob;
36
use C4::BackgroundJob;
37
use C4::Labels::Batch 1.000000;
37
use C4::Labels::Batch;
38
use C4::Branch qw(get_branch_code_from_name);
38
use C4::Branch qw(get_branch_code_from_name);
39
39
40
my $script_name = "/cgi-bin/koha/tools/manage-marc-import.pl";
40
my $script_name = "/cgi-bin/koha/tools/manage-marc-import.pl";
41
- 

Return to bug 8315