Skip to content

Commit

Permalink
Bug 11944: use CGI( -utf8 ) everywhere
Browse files Browse the repository at this point in the history
Signed-off-by: Paola Rossi <[email protected]>
Signed-off-by: Bernardo Gonzalez Kriegel <[email protected]>
Signed-off-by: Dobrica Pavlinusic <[email protected]>

Signed-off-by: Martin Renvoize <[email protected]>
Signed-off-by: Tomas Cohen Arazi <[email protected]>
  • Loading branch information
joubu authored and tomascohen committed Jan 13, 2015
1 parent b3aebd1 commit e20270f
Show file tree
Hide file tree
Showing 492 changed files with 497 additions and 497 deletions.
2 changes: 1 addition & 1 deletion C4/Auth.pm
Original file line number Diff line number Diff line change
Expand Up @@ -90,7 +90,7 @@ C4::Auth - Authenticates Koha users
=head1 SYNOPSIS
use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
Expand Down
2 changes: 1 addition & 1 deletion C4/Auth_with_cas.pm
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ use warnings;
use C4::Debug;
use C4::Context;
use Authen::CAS::Client;
use CGI;
use CGI qw ( -utf8 );
use FindBin;


Expand Down
2 changes: 1 addition & 1 deletion C4/Debug.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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);

Expand Down
2 changes: 1 addition & 1 deletion C4/Form/MessagingPreferences.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
4 changes: 2 additions & 2 deletions C4/ILSDI/Services.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;

Expand All @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion C4/Input.pm
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ use warnings;

require Exporter;
use C4::Context;
use CGI;
use CGI qw ( -utf8 );

use vars qw($VERSION @ISA @EXPORT);

Expand Down
2 changes: 1 addition & 1 deletion C4/InstallAuth.pm
Original file line number Diff line number Diff line change
Expand Up @@ -39,7 +39,7 @@ InstallAuth - Authenticates Koha users for Install process
=head1 SYNOPSIS
use CGI;
use CGI qw ( -utf8 );
use InstallAuth;
use C4::Output;
Expand Down
2 changes: 1 addition & 1 deletion C4/Reports.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion C4/Reports/Guided.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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);
Expand Down
2 changes: 1 addition & 1 deletion C4/SIP/ILS/Transaction/Checkout.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion C4/SIP/Sip/MsgType.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down
2 changes: 1 addition & 1 deletion C4/SIP/t/03checkout.t
Original file line number Diff line number Diff line change
Expand Up @@ -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(
Expand Down
2 changes: 1 addition & 1 deletion C4/SIP/t/SIPtest.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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);
Expand Down
2 changes: 1 addition & 1 deletion C4/Service.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion C4/Suggestions.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
4 changes: 2 additions & 2 deletions C4/Templates.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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
#
Expand Down
2 changes: 1 addition & 1 deletion C4/Utils/DataTables.pm
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion C4/VirtualShelves/Page.pm
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ package C4::VirtualShelves::Page;
use strict;
use warnings;

use CGI;
use CGI qw ( -utf8 );
use Exporter;
use Data::Dumper;

Expand Down
2 changes: 1 addition & 1 deletion about.pl
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@
use strict;
use warnings;

use CGI;
use CGI qw ( -utf8 );
use LWP::Simple;
use XML::Simple;
use Config;
Expand Down
2 changes: 1 addition & 1 deletion acqui/acqui-home.pl
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,7 @@ =head1 DESCRIPTION
use strict;
use warnings;

use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Acquisition;
Expand Down
2 changes: 1 addition & 1 deletion acqui/addorder.pl
Original file line number Diff line number Diff line change
Expand Up @@ -121,7 +121,7 @@ =head1 CGI PARAMETERS

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
Expand Down
2 changes: 1 addition & 1 deletion acqui/addorderiso2709.pl
Original file line number Diff line number Diff line change
Expand Up @@ -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/;

Expand Down
2 changes: 1 addition & 1 deletion acqui/ajax-getauthvaluedropbox.pl
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,7 @@ =head1 CGI PARAMETERS

use Modern::Perl;

use CGI;
use CGI qw ( -utf8 );
use C4::Koha;
use C4::Charset;
use C4::Auth qw/check_api_auth/;
Expand Down
2 changes: 1 addition & 1 deletion acqui/aqbasketuser_search.pl
Original file line number Diff line number Diff line change
Expand Up @@ -21,7 +21,7 @@

use Modern::Perl;

use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Members;
Expand Down
2 changes: 1 addition & 1 deletion acqui/basket.pl
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,7 @@
use C4::Auth;
use C4::Koha;
use C4::Output;
use CGI;
use CGI qw ( -utf8 );
use C4::Acquisition;
use C4::Budgets;
use C4::Branch;
Expand Down
2 changes: 1 addition & 1 deletion acqui/basketgroup.pl
Original file line number Diff line number Diff line change
Expand Up @@ -50,7 +50,7 @@ =head1 CGI PARAMETERS
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/;
Expand Down
2 changes: 1 addition & 1 deletion acqui/basketheader.pl
Original file line number Diff line number Diff line change
Expand Up @@ -47,7 +47,7 @@ =head1 CGI PARAMETERS

use strict;
use warnings;
use CGI;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Branch;
Expand Down
2 changes: 1 addition & 1 deletion acqui/booksellers.pl
Original file line number Diff line number Diff line change
Expand Up @@ -57,7 +57,7 @@ =head1 CGI PARAMETERS
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/;
Expand Down
2 changes: 1 addition & 1 deletion acqui/check_budget_total.pl
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion acqui/check_duplicate_barcode_ajax.pl
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion acqui/check_uniqueness.pl
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,7 @@

use Modern::Perl;

use CGI;
use CGI qw ( -utf8 );
use JSON;
use C4::Output;
use C4::Items;
Expand Down
2 changes: 1 addition & 1 deletion acqui/currency.pl
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@

use strict;
use warnings;
use CGI;
use CGI qw ( -utf8 );
use C4::Acquisition;
use C4::Biblio;
use C4::Budgets;
Expand Down
2 changes: 1 addition & 1 deletion acqui/finishreceive.pl
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@

use strict;
use warnings;
use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
Expand Down
2 changes: 1 addition & 1 deletion acqui/histsearch.pl
Original file line number Diff line number Diff line change
Expand Up @@ -51,7 +51,7 @@ =head1 CGI PARAMETERS

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;
Expand Down
2 changes: 1 addition & 1 deletion acqui/invoice.pl
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,7 @@ =head1 DESCRIPTION
use strict;
use warnings;

use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Acquisition;
Expand Down
2 changes: 1 addition & 1 deletion acqui/invoices.pl
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,7 @@ =head1 DESCRIPTION
use strict;
use warnings;

use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;

Expand Down
2 changes: 1 addition & 1 deletion acqui/lateorders-export.pl
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion acqui/lateorders.pl
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,7 @@ =head1 CGI PARAMETERS
=cut

use Modern::Perl;
use CGI;
use CGI qw ( -utf8 );
use C4::Bookseller qw( GetBooksellersWithLateOrders );
use C4::Auth;
use C4::Koha;
Expand Down
2 changes: 1 addition & 1 deletion acqui/modordernotes.pl
Original file line number Diff line number Diff line change
Expand Up @@ -28,7 +28,7 @@ =head1 DESCRIPTION

use Modern::Perl;

use CGI;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Acquisition;
Expand Down
2 changes: 1 addition & 1 deletion acqui/neworderbiblio.pl
Original file line number Diff line number Diff line change
Expand Up @@ -59,7 +59,7 @@ =head1 CGI PARAMETERS
#use warnings; FIXME - Bug 2505

use C4::Search;
use CGI;
use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Auth;
use C4::Output;
Expand Down
2 changes: 1 addition & 1 deletion acqui/neworderempty.pl
Original file line number Diff line number Diff line change
Expand Up @@ -68,7 +68,7 @@ =head1 CGI PARAMETERS

use warnings;
use strict;
use CGI;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Input;

Expand Down
2 changes: 1 addition & 1 deletion acqui/newordersubscription.pl
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
2 changes: 1 addition & 1 deletion acqui/newordersuggestion.pl
Original file line number Diff line number Diff line change
Expand Up @@ -91,7 +91,7 @@ =head1 CGI PARAMETERS
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;
Expand Down
Loading

0 comments on commit e20270f

Please sign in to comment.