@@ -, +, @@ --- 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(-) --- a/C4/Items.pm +++ a/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 (@_) { --- a/C4/Utils/DataTables/Members.pm +++ a/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 ) = @_; --- a/Koha/Template/Plugin/AudioAlerts.pm +++ a/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; --- a/Koha/Template/Plugin/AuthorisedValues.pm +++ a/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 { --- a/svc/bib +++ a/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; --- a/svc/checkouts +++ a/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; --- a/svc/convert_report +++ a/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(); --- a/svc/cover_images +++ a/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; --