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)

diff --git a/C4/Creators.pm b/C4/Creators.pm
index e9e4dac..693dd84 100644 (file)
--- a/C4/Creators.pm
+++ b/C4/Creators.pm
@@ -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;

diff --git a/C4/Creators/Profile.pm b/C4/Creators/Profile.pm
index c94a219..a063aaf 100644 (file)
--- a/C4/Creators/Profile.pm
+++ b/C4/Creators/Profile.pm
@@ -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');

diff --git a/C4/Creators/Template.pm b/C4/Creators/Template.pm
index d80100e..b0b7da0 100644 (file)
--- a/C4/Creators/Template.pm
+++ b/C4/Creators/Template.pm
@@ -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');

diff --git a/C4/Installer.pm b/C4/Installer.pm
index ccacd8e..c1f356f 100644 (file)
--- a/C4/Installer.pm
+++ b/C4/Installer.pm
@@ -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
 

diff --git a/C4/Labels.pm b/C4/Labels.pm
index 6462ed8..b4a5e36 100644 (file)
--- a/C4/Labels.pm
+++ b/C4/Labels.pm
@@ -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;

diff --git a/C4/Patroncards.pm b/C4/Patroncards.pm
index 748243d..b41986c 100644 (file)
--- a/C4/Patroncards.pm
+++ b/C4/Patroncards.pm
@@ -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;

diff --git a/C4/Patroncards/Patroncard.pm b/C4/Patroncards/Patroncard.pm
index 440a05c..339b969 100644 (file)
--- a/C4/Patroncards/Patroncard.pm
+++ b/C4/Patroncards/Patroncard.pm
@@ -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');

diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl
index 6e2263f..1229c0a 100755 (executable)
--- a/labels/label-create-csv.pl
+++ b/labels/label-create-csv.pl
@@ -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;
 

diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl
index 6d32c6c..72e9a2e 100755 (executable)
--- a/labels/label-create-pdf.pl
+++ b/labels/label-create-pdf.pl
@@ -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;
 

diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl
index 8eac221..6604dc4 100755 (executable)
--- a/labels/label-create-xml.pl
+++ b/labels/label-create-xml.pl
@@ -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;
 

diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl
index fbcfe0a..d534b87 100755 (executable)
--- a/labels/label-edit-batch.pl
+++ b/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::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(

diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl
index db3d32c..268912c 100755 (executable)
--- a/labels/label-edit-layout.pl
+++ b/labels/label-edit-layout.pl
@@ -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(

diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl
index b114554..59c6abc 100755 (executable)
--- a/labels/label-edit-profile.pl
+++ b/labels/label-edit-profile.pl
@@ -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(

diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl
index 9917f6b..f367a65 100755 (executable)
--- a/labels/label-edit-template.pl
+++ b/labels/label-edit-template.pl
@@ -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(

diff --git a/labels/label-manage.pl b/labels/label-manage.pl
index c70ea6c..7ef3300 100755 (executable)
--- a/labels/label-manage.pl
+++ b/labels/label-manage.pl
@@ -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(

diff --git a/labels/label-print.pl b/labels/label-print.pl
index 3947163..b65c7a6 100755 (executable)
--- a/labels/label-print.pl
+++ b/labels/label-print.pl
@@ -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(

diff --git a/patroncards/card-print.pl b/patroncards/card-print.pl
index e4bcb8e..1ca0c91 100755 (executable)
--- a/patroncards/card-print.pl
+++ b/patroncards/card-print.pl
@@ -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(

diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl
index 961dfbf..6a1b67a 100755 (executable)
--- a/patroncards/create-pdf.pl
+++ b/patroncards/create-pdf.pl
@@ -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;
 

diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl
index fb0abf5..4897e5f 100755 (executable)
--- a/patroncards/edit-batch.pl
+++ b/patroncards/edit-batch.pl
@@ -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(

diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl
index 0e4a702..0c4dfe4 100755 (executable)
--- a/patroncards/edit-layout.pl
+++ b/patroncards/edit-layout.pl
@@ -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(

diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl
index 5c4eb3b..6189cb3 100755 (executable)
--- a/patroncards/edit-profile.pl
+++ b/patroncards/edit-profile.pl
@@ -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(

diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl
index a125eb5..8f60b9c 100755 (executable)
--- a/patroncards/edit-template.pl
+++ b/patroncards/edit-template.pl
@@ -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(

diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl
index ba3267c..f9f7eac 100755 (executable)
--- a/patroncards/image-manage.pl
+++ b/patroncards/image-manage.pl
@@ -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;
 

diff --git a/patroncards/manage.pl b/patroncards/manage.pl
index 46361cc..d052f67 100755 (executable)
--- a/patroncards/manage.pl
+++ b/patroncards/manage.pl
@@ -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(

diff --git a/patroncards/print.pl b/patroncards/print.pl
index feeb65e..fcd1dc1 100755 (executable)
--- a/patroncards/print.pl
+++ b/patroncards/print.pl
@@ -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(

diff --git a/tags/list.pl b/tags/list.pl
index 6a363ac..91914b3 100755 (executable)
--- a/tags/list.pl
+++ b/tags/list.pl
@@ -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'

diff --git a/tags/review.pl b/tags/review.pl
index 2300396..7517f41 100755 (executable)
--- a/tags/review.pl
+++ b/tags/review.pl
@@ -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.

diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl
index 8a8d9e8..03f5bb9 100755 (executable)
--- a/tools/manage-marc-import.pl
+++ b/tools/manage-marc-import.pl
@@ -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";