From 510bd76e4aee8fe9e619645ff833ace871532c77 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 20 Jun 2017 16:39:54 -0300 Subject: [PATCH] Bug 17600: Some more... --- C4/Items.pm | 2 +- C4/Utils/DataTables/Members.pm | 2 +- Koha/Template/Plugin/AudioAlerts.pm | 1 - Koha/Template/Plugin/AuthorisedValues.pm | 2 +- svc/bib | 4 ++-- svc/checkouts | 2 +- svc/convert_report | 6 +++--- svc/cover_images | 2 +- 8 files changed, 10 insertions(+), 11 deletions(-) diff --git a/C4/Items.pm b/C4/Items.pm index 520c8fa4b8..20e181097b 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -547,7 +547,7 @@ sub ModItem { } my $dbh = @_ ? shift : C4::Context->dbh; - my $frameworkcode = @_ ? shift : GetFrameworkCode( $biblionumber ); + my $frameworkcode = @_ ? shift : C4::Biblio::GetFrameworkCode( $biblionumber ); my $unlinked_item_subfields; if (@_) { diff --git a/C4/Utils/DataTables/Members.pm b/C4/Utils/DataTables/Members.pm index 302eaffd17..9db7d4e22f 100644 --- a/C4/Utils/DataTables/Members.pm +++ b/C4/Utils/DataTables/Members.pm @@ -3,7 +3,7 @@ package C4::Utils::DataTables::Members; use Modern::Perl; use C4::Context; use C4::Utils::DataTables; -use Koha::DateUtils; +use Koha::DateUtils qw( dt_from_string output_pref ); sub search { my ( $params ) = @_; diff --git a/Koha/Template/Plugin/AudioAlerts.pm b/Koha/Template/Plugin/AudioAlerts.pm index a8877b63ad..77e2b20729 100644 --- a/Koha/Template/Plugin/AudioAlerts.pm +++ b/Koha/Template/Plugin/AudioAlerts.pm @@ -25,7 +25,6 @@ use JSON; use base qw( Template::Plugin ); use C4::Context; -use Koha; sub AudioAlerts { my $dbh = C4::Context->dbh; diff --git a/Koha/Template/Plugin/AuthorisedValues.pm b/Koha/Template/Plugin/AuthorisedValues.pm index 7e0ef5d50c..f683c0d03f 100644 --- a/Koha/Template/Plugin/AuthorisedValues.pm +++ b/Koha/Template/Plugin/AuthorisedValues.pm @@ -21,7 +21,7 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use Koha::AuthorisedValues; sub GetByCode { diff --git a/svc/bib b/svc/bib index 789951b5ea..5ae4f9c03c 100755 --- a/svc/bib +++ b/svc/bib @@ -24,8 +24,8 @@ use warnings; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetMarcBiblio ModBiblio DelBiblio GetMarcFromKohaField ); +use C4::Items qw( ModItemFromMarc ); use XML::Simple; my $query = new CGI; diff --git a/svc/checkouts b/svc/checkouts index 0b0d3291a2..96a5fa71a1 100755 --- a/svc/checkouts +++ b/svc/checkouts @@ -30,7 +30,7 @@ use C4::Overdues qw(GetFine); use C4::Context; use Koha::AuthorisedValues; -use Koha::DateUtils; +use Koha::DateUtils qw( dt_from_string output_pref ); my $input = new CGI; diff --git a/svc/convert_report b/svc/convert_report index 659de68547..e74b4c60e5 100755 --- a/svc/convert_report +++ b/svc/convert_report @@ -19,9 +19,9 @@ use Modern::Perl; -use C4::Auth; -use C4::Reports::Guided; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Reports::Guided qw( get_saved_report convert_sql ); +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); my $query = CGI->new(); diff --git a/svc/cover_images b/svc/cover_images index 590a243dc8..18bc4aad8a 100755 --- a/svc/cover_images +++ b/svc/cover_images @@ -22,7 +22,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_cookie_auth/; -use C4::Images; +use C4::Images qw( DelImage ListImagesForBiblio ); use JSON qw/to_json/; my $input = new CGI; -- 2.11.0