Browse Source

Bug 8315 - remove use C4::* version

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)
3.10.x
Dobrica Pavlinusic 12 years ago
committed by Paul Poulain
parent
commit
130e3d9c10
  1. 4
      C4/Creators.pm
  2. 2
      C4/Creators/Profile.pm
  3. 4
      C4/Creators/Template.pm
  4. 2
      C4/Installer.pm
  5. 10
      C4/Labels.pm
  6. 12
      C4/Patroncards.pm
  7. 6
      C4/Patroncards/Patroncard.pm
  8. 4
      labels/label-create-csv.pl
  9. 4
      labels/label-create-pdf.pl
  10. 4
      labels/label-create-xml.pl
  11. 4
      labels/label-edit-batch.pl
  12. 4
      labels/label-edit-layout.pl
  13. 4
      labels/label-edit-profile.pl
  14. 4
      labels/label-edit-template.pl
  15. 4
      labels/label-manage.pl
  16. 4
      labels/label-print.pl
  17. 4
      patroncards/card-print.pl
  18. 4
      patroncards/create-pdf.pl
  19. 4
      patroncards/edit-batch.pl
  20. 4
      patroncards/edit-layout.pl
  21. 4
      patroncards/edit-profile.pl
  22. 4
      patroncards/edit-template.pl
  23. 4
      patroncards/image-manage.pl
  24. 6
      patroncards/manage.pl
  25. 4
      patroncards/print.pl
  26. 2
      tags/list.pl
  27. 2
      tags/review.pl
  28. 2
      tools/manage-marc-import.pl

4
C4/Creators.pm

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

2
C4/Creators/Profile.pm

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

4
C4/Creators/Template.pm

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

2
C4/Installer.pm

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

10
C4/Labels.pm

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

12
C4/Patroncards.pm

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

6
C4/Patroncards/Patroncard.pm

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

4
labels/label-create-csv.pl

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

4
labels/label-create-pdf.pl

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

4
labels/label-create-xml.pl

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

4
labels/label-edit-batch.pl

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

4
labels/label-edit-layout.pl

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

4
labels/label-edit-profile.pl

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

4
labels/label-edit-template.pl

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

4
labels/label-manage.pl

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

4
labels/label-print.pl

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

4
patroncards/card-print.pl

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

4
patroncards/create-pdf.pl

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

4
patroncards/edit-batch.pl

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

4
patroncards/edit-layout.pl

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

4
patroncards/edit-profile.pl

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

4
patroncards/edit-template.pl

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

4
patroncards/image-manage.pl

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

6
patroncards/manage.pl

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

4
patroncards/print.pl

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

2
tags/list.pl

@ -27,7 +27,7 @@ use C4::Context;
use C4::Dates qw(format_date); use C4::Dates qw(format_date);
use C4::Items; use C4::Items;
use C4::Koha; 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; use C4::Output;
my $needed_flags = { tools => 'moderate_tags' my $needed_flags = { tools => 'moderate_tags'

2
tags/review.pl

@ -32,7 +32,7 @@ use C4::Dates qw(format_date format_date_in_iso);
# use C4::Koha; # use C4::Koha;
use C4::Output qw(:html :ajax pagination_bar); use C4::Output qw(:html :ajax pagination_bar);
use C4::Debug; 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 $script_name = "/cgi-bin/koha/tags/review.pl";
my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more specific permission is created. my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more specific permission is created.

2
tools/manage-marc-import.pl

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

Loading…
Cancel
Save