Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 8315 - remove use C4::* version

Browse source 
This patch touches a lot of code, but basically it removes version
information from use C4::* in our code.

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
All script still compiles after the patch (confirmed by pre-applypatch hook)
This commit is contained in:
Dobrica Pavlinusic 2012-07-12 18:01:17 +02:00 committed by Paul Poulain
parent 482c96c465
commit 130e3d9c10
28 changed files with 60 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Creators.pm
View file

@ -38,8 +38,8 @@ BEGIN {
get_unit_values
html_table
);
use C4::Creators::Lib 1.000000;
use C4::Creators::PDF 1.000000;
use C4::Creators::Lib;
use C4::Creators::PDF;
}
1;

2
C4/Creators/Profile.pm
View file

@ -7,7 +7,7 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
use C4::Debug;
use C4::Creators::Lib 1.000000 qw(get_unit_values);
use C4::Creators::Lib qw(get_unit_values);
BEGIN {
use version; our $VERSION = qv('3.07.00.049');

4
C4/Creators/Template.pm
View file

@ -7,8 +7,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Context;
use C4::Debug;
use C4::Creators::Profile 1.000000;
use C4::Creators::Lib 1.000000 qw(get_unit_values);
use C4::Creators::Profile;
use C4::Creators::Lib qw(get_unit_values);
BEGIN {
use version; our $VERSION = qv('3.07.00.049');

2
C4/Installer.pm
View file

@ -22,7 +22,7 @@ use strict;
our $VERSION = 3.07.00.049;
use C4::Context;
use C4::Installer::PerlModules 1.000000;
use C4::Installer::PerlModules;
=head1 NAME

10
C4/Labels.pm
View file

@ -3,11 +3,11 @@ package C4::Labels;
BEGIN {
use version; our $VERSION = qv('3.07.00.049');
use C4::Labels::Batch 1.000000;
use C4::Labels::Label 1.000000;
use C4::Labels::Layout 1.000000;
use C4::Labels::Profile 1.000000;
use C4::Labels::Template 1.000000;
use C4::Labels::Batch;
use C4::Labels::Label;
use C4::Labels::Layout;
use C4::Labels::Profile;
use C4::Labels::Template;
}
1;

12
C4/Patroncards.pm
View file

@ -13,12 +13,12 @@ BEGIN {
get_image
rm_image
);
use C4::Patroncards::Batch 1.000000;
use C4::Patroncards::Layout 1.000000;
use C4::Patroncards::Lib 1.000000;
use C4::Patroncards::Patroncard 1.000000;
use C4::Patroncards::Profile 1.000000;
use C4::Patroncards::Template 1.000000;
use C4::Patroncards::Batch;
use C4::Patroncards::Layout;
use C4::Patroncards::Lib;
use C4::Patroncards::Patroncard;
use C4::Patroncards::Profile;
use C4::Patroncards::Template;
}
1;

6
C4/Patroncards/Patroncard.pm
View file

@ -24,9 +24,9 @@ use autouse 'Data::Dumper' => qw(Dumper);
use Text::Wrap qw(wrap);
#use Font::TTFMetrics;
use C4::Creators::Lib 1.000000 qw(get_font_types);
use C4::Creators::PDF 1.000000 qw(StrWidth);
use C4::Patroncards::Lib 1.000000 qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
use C4::Creators::Lib qw(get_font_types);
use C4::Creators::PDF qw(StrWidth);
use C4::Patroncards::Lib qw(unpack_UTF8 text_alignment leading box get_borrower_attributes);
BEGIN {
use version; our $VERSION = qv('3.07.00.049');

4
labels/label-create-csv.pl
View file

@ -26,8 +26,8 @@ use Text::CSV_XS;
use Data::Dumper;
use C4::Debug;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;

4
labels/label-create-pdf.pl
View file

@ -24,8 +24,8 @@ use warnings;
use CGI;
use C4::Auth;
use C4::Debug;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;

4
labels/label-create-xml.pl
View file

@ -26,8 +26,8 @@ use XML::Simple;
use Data::Dumper;
use C4::Debug;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;

4
labels/label-edit-batch.pl
View file

@ -28,8 +28,8 @@ use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Branch qw(get_branch_code_from_name);
use C4::Items qw(GetItemnumberFromBarcode);
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-edit-layout.pl
View file

@ -26,8 +26,8 @@ use POSIX;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-edit-profile.pl
View file

@ -25,8 +25,8 @@ use CGI;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-edit-template.pl
View file

@ -25,8 +25,8 @@ use CGI;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-manage.pl
View file

@ -28,8 +28,8 @@ use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-print.pl
View file

@ -25,8 +25,8 @@ use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_output_formats);
use C4::Labels::Batch 1.000000;
use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats);
use C4::Labels::Batch;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/card-print.pl
View file

@ -25,8 +25,8 @@ use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/create-pdf.pl
View file

@ -30,8 +30,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Debug;
use C4::Context;
use autouse 'C4::Members' => qw(GetPatronImage GetMember);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Creators;
use C4::Patroncards;
my $cgi = new CGI;

4
patroncards/edit-batch.pl
View file

@ -28,8 +28,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Branch qw(get_branch_code_from_name);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Creators;
use C4::Patroncards;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/edit-layout.pl
View file

@ -28,8 +28,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Creators;
use C4::Patroncards;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/edit-profile.pl
View file

@ -25,8 +25,8 @@ use CGI;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_all_templates get_unit_values);
use C4::Patroncards::Profile 1.000000;
use C4::Creators::Lib qw(get_all_templates get_unit_values);
use C4::Patroncards::Profile;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/edit-template.pl
View file

@ -26,8 +26,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Creators;
use C4::Patroncards;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/image-manage.pl
View file

@ -12,8 +12,8 @@ use C4::Context;
use C4::Auth;
use C4::Output;
use C4::Debug;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Creators;
use C4::Patroncards;
my $cgi = CGI->new;

6
patroncards/manage.pl
View file

@ -28,9 +28,9 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Labels 1.000000;
use C4::Creators;
use C4::Patroncards;
use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/print.pl
View file

@ -25,8 +25,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Creators;
use C4::Patroncards;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

2
tags/list.pl
View file

@ -27,7 +27,7 @@ use C4::Context;
use C4::Dates qw(format_date);
use C4::Items;
use C4::Koha;
use C4::Tags 0.03 qw(get_tags remove_tag get_tag_rows);
use C4::Tags qw(get_tags remove_tag get_tag_rows);
use C4::Output;
my $needed_flags = { tools => 'moderate_tags'

2
tags/review.pl
View file

@ -32,7 +32,7 @@ use C4::Dates qw(format_date format_date_in_iso);
# use C4::Koha;
use C4::Output qw(:html :ajax pagination_bar);
use C4::Debug;
use C4::Tags 0.03 qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
my $script_name = "/cgi-bin/koha/tags/review.pl";
my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more specific permission is created.

2
tools/manage-marc-import.pl
View file

@ -34,7 +34,7 @@ use C4::Biblio;
use C4::ImportBatch;
use C4::Matcher;
use C4::BackgroundJob;
use C4::Labels::Batch 1.000000;
use C4::Labels::Batch;
use C4::Branch qw(get_branch_code_from_name);
my $script_name = "/cgi-bin/koha/tools/manage-marc-import.pl";