Bug 11944: use CGI( -utf8 ) everywhere

Signed-off-by: Paola Rossi <paola.rossi@cineca.it>
Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Signed-off-by: Dobrica Pavlinusic <dpavlin@rot13.org>

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>

C4/Auth.pm

@@ -90,7 +90,7 @@ C4::Auth - Authenticates Koha users
 
 =head1 SYNOPSIS
 
-  use CGI;
+  use CGI qw ( -utf8 );
   use C4::Auth;
   use C4::Output;
 

C4/Auth_with_cas.pm

@@ -23,7 +23,7 @@ use warnings;
 use C4::Debug;
 use C4::Context;
 use Authen::CAS::Client;
-use CGI;
+use CGI qw ( -utf8 );
 use FindBin;
 
 

C4/Debug.pm

@@ -22,7 +22,7 @@ use warnings;
 
 use Exporter;
 
-# use CGI;
+# use CGI qw ( -utf8 );
 use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);
 # use vars qw(@EXPORT_OK %EXPORT_TAGS);
 

C4/Form/MessagingPreferences.pm

@@ -20,7 +20,7 @@ package C4::Form::MessagingPreferences;
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Members::Messaging;
 use C4::Debug;

C4/ILSDI/Services.pm

@@ -31,7 +31,7 @@ use C4::Context;
 use C4::AuthoritiesMarc;
 use XML::Simple;
 use HTML::Entities;
-use CGI;
+use CGI qw ( -utf8 );
 use DateTime;
 use C4::Auth;
 
@@ -49,7 +49,7 @@ hashref that will be printed by XML::Simple in opac/ilsdi.pl
 
 	use C4::ILSDI::Services;
 	use XML::Simple;
-	use CGI;
+	use CGI qw ( -utf8 );
 
 	my $cgi = new CGI;
 

C4/Input.pm

@@ -23,7 +23,7 @@ use warnings;
 
 require Exporter;
 use C4::Context;
-use CGI;
+use CGI qw ( -utf8 );
 
 use vars qw($VERSION @ISA @EXPORT);
 

C4/InstallAuth.pm

@@ -39,7 +39,7 @@ InstallAuth - Authenticates Koha users for Install process
 
 =head1 SYNOPSIS
 
-  use CGI;
+  use CGI qw ( -utf8 );
   use InstallAuth;
   use C4::Output;
 

C4/Reports.pm

@@ -19,7 +19,7 @@ package C4::Reports;
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 use C4::Context;

C4/Reports/Guided.pm

@@ -19,7 +19,7 @@ package C4::Reports::Guided;
 
 use strict;
 #use warnings; FIXME - Bug 2505 this module needs a lot of repair to run clean under warnings
-use CGI;
+use CGI qw ( -utf8 );
 use Carp;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

C4/SIP/ILS/Transaction/Checkout.pm

@@ -10,7 +10,7 @@ use strict;
 use POSIX qw(strftime);
 use Sys::Syslog qw(syslog);
 use Data::Dumper;
-use CGI;
+use CGI qw ( -utf8 );
 
 use ILS;
 use ILS::Transaction;

C4/SIP/Sip/MsgType.pm

@@ -16,7 +16,7 @@ use Sip::Constants qw(:all);
 use Sip::Checksum qw(verify_cksum);
 
 use Data::Dumper;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth qw(&check_api_auth);
 
 use UNIVERSAL qw(can);	# make sure this is *after* C4 modules.

C4/SIP/t/03checkout.t

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Clone qw(clone);
 
-use CGI;
+use CGI qw ( -utf8 );
 
 use Sip::Constants qw(:all);
 use SIPtest qw(

C4/SIP/t/SIPtest.pm

@@ -38,7 +38,7 @@ BEGIN {
 # The number of tests is set in run_sip_tests() below, based
 # on the size of the array of tests.
 use Test::More;
-use CGI;
+use CGI qw ( -utf8 );
 
 use IO::Socket::INET;
 use Sip qw(:all);

C4/Service.pm

@@ -41,7 +41,7 @@ This module packages several useful functions for JSON webservices.
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth qw( check_api_auth );
 use C4::Output qw( :ajax );
 use C4::Output::JSONStream;

C4/Suggestions.pm

@@ -21,7 +21,7 @@ package C4::Suggestions;
 use strict;
 
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Context;
 use C4::Output;

C4/Templates.pm

@@ -3,8 +3,8 @@ package C4::Templates;
 use strict;
 use warnings;
 use Carp;
-use CGI;
-use List::MoreUtils qw/any uniq/;
+use CGI qw ( -utf8 );
+use List::MoreUtils qw/ any uniq /;
 
 # Copyright 2009 Chris Cormack and The Koha Dev Team
 #

C4/Utils/DataTables.pm

@@ -35,7 +35,7 @@ C4::Utils::DataTables - Utility subs for building query when DataTables source i
 
 =head1 SYNOPSYS
 
-    use CGI;
+    use CGI qw ( -utf8 );
     use C4::Context;
     use C4::Utils::DataTables;
 

C4/VirtualShelves/Page.pm

@@ -23,7 +23,7 @@ package C4::VirtualShelves::Page;
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use Exporter;
 use Data::Dumper;
 

about.pl

@@ -23,7 +23,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use LWP::Simple;
 use XML::Simple;
 use Config;

acqui/acqui-home.pl

@@ -29,7 +29,7 @@ this script is the main page for acqui
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::Acquisition;

acqui/addorder.pl

@@ -121,7 +121,7 @@ if it is an order from an existing suggestion : the id of this suggestion.
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;           # get_template_and_user
 use C4::Acquisition;    # ModOrder
 use C4::Suggestions;    # ModStatus

acqui/addorderiso2709.pl

@@ -22,7 +22,7 @@
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 use Carp;
 use YAML qw/Load/;
 

acqui/ajax-getauthvaluedropbox.pl

@@ -47,7 +47,7 @@ Default value for the dropbox.
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Koha;
 use C4::Charset;
 use C4::Auth qw/check_api_auth/;

acqui/aqbasketuser_search.pl

@@ -21,7 +21,7 @@
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::Members;

acqui/basket.pl

@@ -25,7 +25,7 @@ use warnings;
 use C4::Auth;
 use C4::Koha;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Acquisition;
 use C4::Budgets;
 use C4::Branch;

acqui/basketgroup.pl

@@ -50,7 +50,7 @@ use Carp;
 use C4::Input;
 use C4::Auth;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Budgets qw/ConvertCurrency/;
 use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;

acqui/basketheader.pl

@@ -47,7 +47,7 @@ If it exists, C<$basketno> is the basket we edit
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Branch;

acqui/booksellers.pl

@@ -57,7 +57,7 @@ use C4::Auth;
 use C4::Biblio;
 use C4::Budgets;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;
 use C4::Members qw/GetMember/;

acqui/check_budget_total.pl

@@ -19,7 +19,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

acqui/check_duplicate_barcode_ajax.pl

@@ -19,7 +19,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use CGI::Cookie;
 use JSON;
 use C4::Auth;

acqui/check_uniqueness.pl

@@ -31,7 +31,7 @@
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use JSON;
 use C4::Output;
 use C4::Items;

acqui/currency.pl

@@ -22,7 +22,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Acquisition;
 use C4::Biblio;
 use C4::Budgets;

acqui/finishreceive.pl

@@ -22,7 +22,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::Context;

acqui/histsearch.pl

@@ -51,7 +51,7 @@ to filter on ended date.
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;    # get_template_and_user
 use C4::Output;
 use C4::Acquisition;

acqui/invoice.pl

@@ -29,7 +29,7 @@ Invoice details
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::Acquisition;

acqui/invoices.pl

@@ -29,7 +29,7 @@ Search for invoices
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 

acqui/lateorders-export.pl

@@ -16,7 +16,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Auth;
 use C4::Acquisition;

acqui/lateorders.pl

@@ -44,7 +44,7 @@ To know on which branch this script have to display late order.
 =cut
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Bookseller qw( GetBooksellersWithLateOrders );
 use C4::Auth;
 use C4::Koha;

acqui/modordernotes.pl

@@ -28,7 +28,7 @@ Modify just notes when basket is closed.
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::Acquisition;

acqui/neworderbiblio.pl

@@ -59,7 +59,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 
 use C4::Search;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Biblio;
 use C4::Auth;
 use C4::Output;

acqui/neworderempty.pl

@@ -68,7 +68,7 @@ the item's id in the breeding reservoir
 
 use warnings;
 use strict;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Input;
 

acqui/newordersubscription.pl

@@ -18,7 +18,7 @@
 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Acquisition;
 use C4::Auth;
 use C4::Branch;

acqui/newordersuggestion.pl

@@ -91,7 +91,7 @@ can be equal to
 use strict;
 #use warnings; FIXME - Bug 2505
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;    # get_template_and_user
 use C4::Output;
 use C4::Suggestions;

acqui/ordered.pl

@@ -30,7 +30,7 @@ this script is to show orders ordered but not yet received
 use C4::Context;
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 

acqui/orderreceive.pl

@@ -61,7 +61,7 @@ The biblionumber of this order.
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Koha;   # GetKohaAuthorisedValues GetItemTypes
 use C4::Acquisition;

acqui/parcel.pl

@@ -62,7 +62,7 @@ use C4::Acquisition;
 use C4::Budgets;
 use C4::Biblio;
 use C4::Items;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Output;
 use C4::Dates qw/format_date format_date_in_iso/;
 use C4::Suggestions;

acqui/parcels.pl

@@ -68,7 +68,7 @@ To know how many results have to be display / page.
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 

acqui/spent.pl

@@ -34,7 +34,7 @@ use C4::Auth;
 use C4::Output;
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 
 my $dbh      = C4::Context->dbh;
 my $input    = new CGI;

acqui/supplier.pl

@@ -46,7 +46,7 @@ use C4::Auth;
 use C4::Contract;
 use C4::Biblio;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Bookseller qw( DelBookseller );
 use C4::Bookseller::Contact;

acqui/transferorder.pl

@@ -20,7 +20,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Auth;
 use C4::Output;

acqui/uncertainprice.pl

@@ -49,7 +49,7 @@ use warnings;
 use C4::Input;
 use C4::Auth;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Bookseller::Contact;
 use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;

acqui/updatesupplier.pl

@@ -56,7 +56,7 @@ use C4::Bookseller qw( ModBookseller AddBookseller );
 use C4::Bookseller::Contact;
 use C4::Biblio;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 
 my $input=new CGI;
 my ($template, $loggedinuser, $cookie) = get_template_and_user(

admin/admin-home.pl

@@ -18,7 +18,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 

admin/aqbudget_user_search.pl

@@ -23,7 +23,7 @@ use Modern::Perl;
 
 use C4::Auth ;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Dates qw/format_date/;
 use C4::Members;
 

admin/aqbudgetperiods.pl

@@ -46,7 +46,8 @@ script to administer the budget periods table
 
 use Modern::Perl;
 
-use CGI;
+use Number::Format qw(format_price);
+use CGI qw ( -utf8 );
 use List::Util qw/min/;
 use Koha::DateUtils;
 use Koha::Database;

admin/aqbudgets.pl

@@ -21,7 +21,7 @@
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use List::Util qw/min/;
 
 use Koha::Database;

admin/aqcontract.pl

@@ -22,7 +22,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

admin/aqplan.pl

@@ -22,7 +22,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use List::Util qw/min/;
 use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;
 use Date::Manip qw/ ParseDate UnixDate DateCalc/;

admin/auth_subfields_structure.pl

@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use C4::Output;
 use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Koha;
 

admin/auth_tag_structure.pl

@@ -20,7 +20,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Koha;
 use C4::Context;

admin/authorised_values.pl

@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Branch;
 use C4::Context;

admin/authtypes.pl

@@ -22,7 +22,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

admin/biblio_framework.pl

@@ -23,7 +23,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

admin/branch_transfer_limits.pl

@@ -21,7 +21,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Context;
 use C4::Output;

admin/branches.pl

@@ -39,7 +39,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Context;
 use C4::Output;

admin/categorie.pl

@@ -37,7 +37,7 @@
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Branch;

admin/check_budget_parent.pl

@@ -19,7 +19,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/check_parent_total.pl

@@ -19,7 +19,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/checkmarc.pl

@@ -22,7 +22,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use C4::Output;
 use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Biblio;
 

admin/cities.pl

@@ -19,7 +19,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

admin/classsources.pl

@@ -20,7 +20,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Context;
 use C4::Output;

admin/clone-rules.pl

@@ -27,7 +27,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/currency.pl

@@ -39,7 +39,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

admin/didyoumean.pl

@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

admin/env_tz_test.pl

@@ -2,7 +2,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 # use Data::Dumper;
 
 use C4::Context;

admin/fieldmapping.pl

@@ -18,7 +18,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Biblio;
 use C4::Koha;

admin/import_export_framework.pl

@@ -20,7 +20,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use CGI::Cookie;
 use C4::Context;
 use C4::Auth qw/check_cookie_auth/;

admin/item_circulation_alerts.pl

@@ -18,7 +18,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use File::Basename;
 use Encode;
 use JSON;

admin/itemtypes.pl

@@ -42,7 +42,7 @@ written 20/02/2002 by paul.poulain@free.fr
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 
 use List::Util qw/min/;
 use File::Spec;

admin/koha2marclinks.pl

@@ -21,7 +21,7 @@ use strict;
 use warnings;
 use C4::Output;
 use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Biblio;
 

admin/marc_subfields_structure.pl

@@ -21,7 +21,7 @@ use strict;
 #use warnings; FIXME - Bug 2505
 use C4::Output;
 use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 
 

admin/marctagstructure.pl

@@ -20,7 +20,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Koha;
 use C4::Context;

admin/matching-rules.pl

@@ -21,7 +21,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Context;
 use C4::Output;

admin/oai_set_mappings.pl

@@ -32,7 +32,7 @@ the OR operator will be applied.
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::OAI::Sets;

admin/oai_sets.pl

@@ -28,7 +28,7 @@ Admin page to describe OAI SETs
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::OAI::Sets;

admin/patron-attr-types.pl

@@ -21,7 +21,7 @@
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use List::MoreUtils qw/uniq/;
 
 use C4::Auth;

admin/preferences.pl

@@ -19,7 +19,7 @@
 
 use Modern::Perl;
 
-use CGI;
+use CGI qw ( -utf8 );
 use Encode;
 use C4::Auth;
 use C4::Context;

admin/printers.pl

@@ -39,7 +39,7 @@
 
 use strict;
 #use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/smart-rules.pl

@@ -19,7 +19,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/stopwords.pl

@@ -23,7 +23,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/systempreferences.pl

@@ -43,7 +43,7 @@ ALSO :
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use MIME::Base64;
 use C4::Auth;
 use C4::Context;

admin/transport-cost-matrix.pl

@@ -19,7 +19,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Output;
 use C4::Auth;

admin/z3950servers.pl

@@ -25,7 +25,7 @@
 # delete_confirmed deletes a record and goes to list view.
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Context;
 use C4::Auth;
 use C4::Output;

authorities/auth_finder.pl

@@ -21,7 +21,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Output;
 use C4::Auth;
 use C4::Context;

authorities/authorities-home.pl

@@ -20,7 +20,7 @@
 use strict;
 use warnings;
 
-use CGI;
+use CGI qw ( -utf8 );
 use URI::Escape;
 use C4::Auth;
 

authorities/authorities.pl

@@ -20,7 +20,7 @@
 
 use strict;
 use warnings;
-use CGI;
+use CGI qw ( -utf8 );
 use C4::Auth;
 use C4::Output;
 use C4::AuthoritiesMarc;

authorities/blinddetail-biblio-search.pl

@@ -43,7 +43,7 @@ use C4::AuthoritiesMarc;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 use MARC::Record;
 use C4::Koha;
 

authorities/detail-biblio-search.pl

@@ -44,7 +44,7 @@ use C4::AuthoritiesMarc;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 use MARC::Record;
 use C4::Koha;
 # use C4::Biblio;

authorities/detail.pl

@@ -44,7 +44,7 @@ use C4::AuthoritiesMarc;
 use C4::Auth;
 use C4::Context;
 use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
 use MARC::Record;
 use C4::Koha;
 

authorities/export.pl

@@ -6,7 +6,7 @@ use C4::Record;
 use C4::Auth;
 use C4::Output;
 use C4::AuthoritiesMarc;
-use CGI;
+use CGI qw ( -utf8 );
 
 my $query = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(