=head1 SYNOPSIS
- use CGI;
+ use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Debug;
use C4::Context;
use Authen::CAS::Client;
-use CGI;
+use CGI qw ( -utf8 );
use FindBin;
use Exporter;
-# use CGI;
+# use CGI qw ( -utf8 );
use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);
# use vars qw(@EXPORT_OK %EXPORT_TAGS);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Members::Messaging;
use C4::Debug;
use C4::AuthoritiesMarc;
use XML::Simple;
use HTML::Entities;
-use CGI;
+use CGI qw ( -utf8 );
use DateTime;
use C4::Auth;
use C4::ILSDI::Services;
use XML::Simple;
- use CGI;
+ use CGI qw ( -utf8 );
my $cgi = new CGI;
require Exporter;
use C4::Context;
-use CGI;
+use CGI qw ( -utf8 );
use vars qw($VERSION @ISA @EXPORT);
=head1 SYNOPSIS
- use CGI;
+ use CGI qw ( -utf8 );
use InstallAuth;
use C4::Output;
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;
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);
use POSIX qw(strftime);
use Sys::Syslog qw(syslog);
use Data::Dumper;
-use CGI;
+use CGI qw ( -utf8 );
use ILS;
use ILS::Transaction;
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.
use warnings;
use Clone qw(clone);
-use CGI;
+use CGI qw ( -utf8 );
use Sip::Constants qw(:all);
use SIPtest qw(
# 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);
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;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
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
#
=head1 SYNOPSYS
- use CGI;
+ use CGI qw ( -utf8 );
use C4::Context;
use C4::Utils::DataTables;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Exporter;
use Data::Dumper;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use LWP::Simple;
use XML::Simple;
use Config;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Acquisition;
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
# 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/;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Charset;
use C4::Auth qw/check_api_auth/;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Members;
use C4::Auth;
use C4::Koha;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Acquisition;
use C4::Budgets;
use C4::Branch;
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/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Branch;
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/;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
use JSON;
use C4::Auth;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use JSON;
use C4::Output;
use C4::Items;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Acquisition;
use C4::Biblio;
use C4::Budgets;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
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;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Acquisition;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
# 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;
=cut
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Bookseller qw( GetBooksellersWithLateOrders );
use C4::Auth;
use C4::Koha;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Acquisition;
#use warnings; FIXME - Bug 2505
use C4::Search;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Auth;
use C4::Output;
use warnings;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Input;
# 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;
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;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Koha; # GetKohaAuthorisedValues GetItemTypes
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;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
my $dbh = C4::Context->dbh;
my $input = new CGI;
use C4::Contract;
use C4::Biblio;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Bookseller qw( DelBookseller );
use C4::Bookseller::Contact;
# 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;
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/;
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(
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Auth ;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Dates qw/format_date/;
use C4::Members;
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;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use List::Util qw/min/;
use Koha::Database;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
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/;
#use warnings; FIXME - Bug 2505
use C4::Output;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Koha;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Branch;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Branch;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
#use warnings; FIXME - Bug 2505
use C4::Output;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Biblio;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
# use Data::Dumper;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Biblio;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
use C4::Context;
use C4::Auth qw/check_cookie_auth/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use File::Basename;
use Encode;
use JSON;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use List::Util qw/min/;
use File::Spec;
use warnings;
use C4::Output;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Biblio;
#use warnings; FIXME - Bug 2505
use C4::Output;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::OAI::Sets;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::OAI::Sets;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use List::MoreUtils qw/uniq/;
use C4::Auth;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use Encode;
use C4::Auth;
use C4::Context;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use MIME::Base64;
use C4::Auth;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
# 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;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use URI::Escape;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
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::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
# use C4::Biblio;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
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(
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::AuthoritiesMarc;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
use C4::Auth qw/check_cookie_auth/;
=cut
-use CGI;
+use CGI qw ( -utf8 );
use Modern::Perl;
use JSON;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Biblio;
use C4::Items;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw(encode);
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw(encode);
use Carp;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Biblio;
use C4::Items;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use MARC::Record;
use C4::Biblio;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Acquisition qw( GetHistory );
use C4::Auth;
use C4::Dates qw/format_date/;
use C4::Auth;
use C4::Output;
use C4::Biblio;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Ris;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use JSON;
use C4::Biblio;
use strict;
use warnings;
-use CGI; #qw(:standard escapeHTML);
+use CGI qw ( -utf8 ); #qw(:standard escapeHTML);
use C4::Context;
use C4::Images;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Biblio;
use C4::Items;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use MARC::Record;
use C4::Auth;
use C4::Context;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Koha;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Items;
use C4::Branch;
# <http://www.gnu.org/licenses>
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Search::History;
my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
# create a new CGI object
# FIXME: no_undef_params needs to be tested
-use CGI qw('-no_undef_params');
+use CGI qw('-no_undef_params' -utf8 );
my $cgi = new CGI;
my ($template,$borrowernumber,$cookie);
use warnings;
# standard or CPAN modules used
-use CGI qw(:standard);
+use CGI qw(:standard -utf8);
use DBI;
use Encode;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Biblio;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Biblio;
use C4::Breeding;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Biblio;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Biblio;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Items;
# standard or CPAN modules used
use IO::File;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
use C4::Biblio;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Biblio;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
=head1 DESCRIPTION
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
=head1 DESCRIPTION
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Context;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Context;
use C4::Search;
use strict;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Modern::Perl;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
=head1 DESCRIPTION
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
=head1 DESCRIPTION
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Search;
use MARC::Record;
use C4::Koha;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::AuthoritiesMarc;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::AuthoritiesMarc;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use Koha::Util::FrameworkPlugin qw(wrapper);
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
=cut
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Charset;
use C4::Auth qw/check_cookie_auth/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use warnings;
use C4::Templates;
-use CGI;
+use CGI qw ( -utf8 );
my $query = new CGI;
my $language = $query->param('language');
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Debug;
use C4::Context;
use C4::Circulation;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Context;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Overdues; # AddNotifyLine
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Circulation;
use C4::Output;
use C4::Reserves;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use DateTime;
use DateTime::Duration;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
#use warnings; FIXME - Bug 2505
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/:DEFAULT get_session/;
use C4::Reserves;
#
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
my $query = new CGI;
#
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use warnings;
use C4::Context;
use C4::Output;
-use CGI qw(-oldstyle_urls);
+use CGI qw(-oldstyle_urls -utf8);
use C4::Auth;
use C4::Branch;
use C4::Debug;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Dates qw/format_date format_date_in_iso/;
use C4::Debug;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Date::Calc qw/Today Add_Delta_YM/;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use DateTime;
use C4::Context;
use C4::Auth qw/:DEFAULT get_session/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/:DEFAULT get_session/;
use C4::Circulation;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Branch; # GetBranches
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Biblio;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Branch; # GetBranchName
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth qw/check_cookie_auth/;
use C4::Debug;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Members;
use C4::Auth qw/check_cookie_auth/;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Reserves;
use C4::Auth qw(check_api_auth);
use C4::Output;
use C4::Context;
-use CGI;
+use CGI qw ( -utf8 );
my $cgi = new CGI;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Authen::CAS::Client;
# URL Of the CAS Server
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Authen::CAS::Client;
use Storable qw(nstore_fd);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Authen::CAS::Client;
use Storable qw(fd_retrieve);
use LWP::Simple;
use C4::Output;
use C4::Templates;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use warnings;
use vars qw($debug);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Output;
# use C4::Auth;
use C4::Context;
-use CGI;
+use CGI qw ( -utf8 );
sub _help_template_file_of_url {
my $url = shift;
use diagnostics;
use C4::InstallAuth;
-use CGI;
+use CGI qw ( -utf8 );
use IPC::Cmd;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Text::CSV_XS;
use Data::Dumper;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Debug;
use C4::Creators;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use XML::Simple;
use Data::Dumper;
use warnings;
use vars qw($debug);
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use POSIX;
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use warnings;
use vars qw($debug $cgi_debug);
-use CGI;
+use CGI qw ( -utf8 );
use List::Util qw( max min );
use POSIX qw(ceil);
use warnings;
use vars qw($debug);
-use CGI;
+use CGI qw ( -utf8 );
use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use warnings;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use warnings;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Koha;
use C4::Auth;
use C4::Output;
use C4::Dates qw/format_date/;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Branch;
use C4::Accounts;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Branch;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Auth;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Branch;
use C4::Auth;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use C4::Items;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth qw(:DEFAULT :EditPermissions);
use C4::Context;
use C4::Members;
use C4::Branch;
use C4::Circulation;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members::Attributes qw(GetBorrowerAttributes);
use Digest::MD5 qw(md5_base64);
use Modern::Perl;
use C4::Auth;
use C4::Output;
-use CGI;
+use CGI qw( -utf8 );
use C4::Branch;
use C4::Category;
use C4::Members qw( GetMember );
use warnings;
# external modules
-use CGI;
+use CGI qw ( -utf8 );
# use Digest::MD5 qw(md5_base64);
use List::MoreUtils qw/uniq/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use Koha::DateUtils;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
#use warnings; FIXME - Bug 2505
use C4::Auth;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Branch;
use C4::Letters;
use strict;
use warnings;
-use CGI; #qw(:standard escapeHTML);
+use CGI qw ( -utf8 ); #qw(:standard escapeHTML);
use C4::Context;
use C4::Members;
use C4::Context;
use C4::Auth;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use C4::Stats;
use C4::Context;
use C4::Auth;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Members::Attributes qw(GetBorrowerAttributes);
use C4::Accounts;
use C4::Auth;
use C4::Output;
use C4::Dates qw/format_date/;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Branch;
use C4::Accounts;
use C4::Auth;
use C4::Output;
use C4::Dates qw/format_date/;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Branch;
use C4::Accounts;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Branch; # GetBranches
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Members;
use C4::Auth;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Branch;
use C4::Context;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use C4::Output;
use Pod::Usage;
use Mail::Sendmail;
use Text::CSV_XS;
-use CGI;
+use CGI qw ( -utf8 );
use Carp;
use Encode;
#
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use JSON;
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Circulation;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Circulation;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::Output;
use C4::Context;
use XML::Simple;
-use CGI;
+use CGI qw ( -utf8 );
=head1 DLF ILS-DI for Koha
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Templates qw/gettemplate/;
use strict;
use warnings;
-use CGI qw/:standard -oldstyle_urls/;
+use CGI qw( :standard -oldstyle_urls -utf8 );
use vars qw( $GZIP );
use C4::Context;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use MARC::Record;
use C4::Biblio;
use C4::Items;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use MARC::Record;
use C4::Biblio;
use C4::Items;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Members;
use C4::Circulation;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Dates;
use C4::Output;
use strict;
use warnings;
-use CGI;
-
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Biblio;
use C4::Branch;
# 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;
use C4::Context;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Koha; # use getitemtypeinfo
use strict;
use warnings;
use C4::Templates;
-use CGI;
+use CGI qw ( -utf8 );
my $query = new CGI;
my $language = $query->param('language');
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );
use C4::Auth qw(:DEFAULT get_session);
use C4::Branch;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw(encode);
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw(encode);
use C4::Auth;
use C4::Auth;
use C4::Output;
use C4::Biblio;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Ris;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Data::ICal;
use Data::ICal::Entry::Event;
use DateTime;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Images;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Biblio;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::NewsChannels; # GetNewsToDisplay
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use Digest::MD5 qw( md5_base64 md5_hex );
use String::Random qw( random_string );
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Reserves;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Reserves;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(:DEFAULT get_session);
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use strict;
use warnings;
use C4::Members;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
use C4::Auth qw(:DEFAULT check_cookie_auth);
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # checkauth, getborrowernumber.
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
use C4::Auth qw(:DEFAULT check_cookie_auth);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
use C4::Auth qw(:DEFAULT check_cookie_auth);
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Circulation;
use C4::Auth;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # checkauth, getborrowernumber.
use C4::Koha;
use C4::Circulation;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Output;
use Modern::Perl;
use C4::Auth qw(:DEFAULT get_session);
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Log;
my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
# create a new CGI object
# FIXME: no_undef_params needs to be tested
-use CGI qw('-no_undef_params');
+use CGI qw('-no_undef_params' -utf8);
my $cgi = new CGI;
my $branch_group_limit = $cgi->param("branch_group_limit");
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw(encode);
use Carp;
use strict;
use warnings;
-use CGI;
-use Encode qw(decode encode);
+use CGI qw ( -utf8 );
+use Encode qw( encode );
use Carp;
use Mail::Sendmail;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Dates;
use constant SHELVES_URL =>
'/cgi-bin/koha/opac-shelves.pl?display=privateshelves&viewshelf=';
-use CGI;
+use CGI qw ( -utf8 );
use Email::Valid;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::VirtualShelves::Page;
use C4::Auth;
use warnings;
# standard or CPAN modules used
-use CGI;
+use CGI qw ( -utf8 );
use Encode;
# Koha modules used
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Members;
use C4::Branch;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
use C4::Auth qw(:DEFAULT check_cookie_auth);
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Koha; # use getitemtypeinfo
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Search;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Digest::MD5 qw(md5_base64);
use C4::Auth qw(get_template_and_user checkpw);
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-use CGI;
+use CGI qw ( -utf8 );
use strict;
use warnings;
use C4::Auth;
use strict;
use warnings;
-use CGI qw(-oldstyle_urls);
+use CGI qw(-oldstyle_urls -utf8);
use JSON;
use C4::Context;
use C4::Reports::Guided;
use JSON;
-use CGI;
+use CGI qw ( -utf8 );
use Koha::Cache;
#!/usr/bin/perl
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use JSON;
use Koha::SuggestionEngine;
use C4::Context;
use C4::Auth qw(checkauth);
use Koha::Linktracker;
-use CGI;
+use CGI qw ( -utf8 );
my $cgi = new CGI;
my $uri = $cgi->param('uri') || '';
=cut
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Biblio;
use XML::LibXML;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use Graphics::Magick;
use XML::Simple;
use warnings;
use vars qw($debug);
-use CGI;
+use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Text::CSV_XS;
use XML::Simple;
use autouse 'Data::Dumper' => qw(Dumper);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use warnings;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use Graphics::Magick;
use POSIX qw(ceil);
use autouse 'Data::Dumper' => qw(Dumper);
use warnings;
use vars qw($debug);
-use CGI;
+use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Koha::Plugins;
use C4::Auth;
use Archive::Extract;
use File::Temp;
use File::Copy;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use Archive::Extract;
use File::Temp;
use File::Copy;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Koha::Plugins::Handler;
use C4::Auth;
use Modern::Perl;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Reports;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Koha;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use List::MoreUtils qw/uniq/;
use C4::Auth;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Branch; # GetBranches
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Branch; # GetBranches
use C4::Output;
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Reports::Guided;
use C4::Dates;
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Branch; # GetBranches
use C4::Output;
use strict;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use Date::Manip;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Biblio;
use strict;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Search;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
#use warnings; FIXME - Bug 2505
use C4::Stats;
use C4::Dates qw/format_date/;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Branch; # GetBranches
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Debug;
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Branch; # GetBranches
use C4::Dates qw/format_date/;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Reserves;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Reserves;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Items;
use C4::Output;
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Circulation;
use C4::Context;
use C4::Items;
use strict;
use warnings;
use C4::Branch;
-use CGI;
+use CGI qw ( -utf8 );
use List::MoreUtils qw/uniq/;
use Date::Calc qw/Date_to_Days/;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Context;
use C4::RotatingCollections;
use C4::Items;
-use CGI;
+use CGI qw ( -utf8 );
my $query = new CGI;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Auth;
use C4::RotatingCollections;
use C4::Branch;
-use CGI;
+use CGI qw ( -utf8 );
my $query = new CGI;
use C4::Auth;
use C4::Biblio;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );
use C4::Dates qw/format_date/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Serials; # GetExpirationDate
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Serials;
use C4::Acquisition;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Serials::Numberpattern;
use C4::Auth qw/check_cookie_auth/;
# 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::Serials;
use C4::Acquisition;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Members; # BornameSearch
# printed out
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw( checkauth );
use C4::Serials qw( reorder_members );
# of reserves for the serial
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Auth;
use C4::Dates;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Auth;
use C4::Dates;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Dates;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Dates qw/format_date/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw( decode is_utf8 );
use C4::Auth;
use C4::Dates qw/format_date format_date_in_iso/;
=cut
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Branch;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Dates qw/format_date format_date_in_iso/;
use C4::Biblio;
=cut
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Branch;
use C4::Context;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
use C4::Koha;
use C4::Biblio;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Auth;
use C4::Context;
# 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::Budgets;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Serials::Frequency;
use C4::Auth qw/check_cookie_auth/;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Serials::Numberpattern;
use C4::Auth qw/check_cookie_auth/;
use JSON qw( to_json );
=cut
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Carp;
use C4::Koha;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Items;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::SMS;
use C4::Output;
use C4::Auth;
use Win32::Process;
use Win32;
use C4::Context;
-use CGI;
+use CGI qw ( -utf8 );
my $input=new CGI;
my $fileplace=C4::Context->config('intranetdir');
my $fullpath=$fileplace."/cgi-bin/sms";
use strict;
#use warnings; FIXME - Bug 2505
require Exporter;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Suggestions;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use XML::Simple;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use C4::Biblio;
use C4::Items;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use C4::Context;
use C4::Koha;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/check_cookie_auth/;
use C4::Images;
use JSON qw/to_json/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use C4::Context;
use C4::ImportBatch;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw/check_api_auth/;
use C4::Biblio;
use C4::Items;
use C4::Auth;
use C4::Reports::Guided;
use JSON;
-use CGI;
+use CGI qw ( -utf8 );
use Koha::Cache;
use Modern::Perl;
use Test::More tests => 3;
use Test::MockModule;
-use CGI;
+use CGI qw ( -utf8 );
BEGIN {
use_ok('C4::Languages');
use warnings;
use Test::More tests => 5;
-use CGI;
+use CGI qw ( -utf8 );
BEGIN {
use_ok('C4::Output');
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use Test::MockModule;
use List::MoreUtils qw/all any none/;
use Test::More tests => 6;
use strict;
use warnings;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use Test::More tests => 14;
BEGIN {
use C4::Members qw/AddMember GetMember GetBorrowercategory/;
use C4::Branch;
-use CGI;
+use CGI qw ( -utf8 );
use Test::More tests => 15;
use Modern::Perl;
use YAML;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Serials;
use C4::Serials::Frequency;
use C4::Serials::Numberpattern;
use warnings;
use strict;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth qw(:DEFAULT check_cookie_auth);
use C4::Biblio;
use strict;
use Data::Dumper;
use POSIX;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
use C4::Auth qw(:DEFAULT check_cookie_auth);
use warnings;
# standard or CPAN modules used
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
# Koha modules used
use warnings;
# standard or CPAN modules used
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
# Koha modules used
#!/usr/bin/perl
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Items qw( ModDateLastSeen );
# standard or CPAN modules used
use IO::File;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
use C4::Auth qw/check_cookie_auth/;
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-use CGI;
+use CGI qw ( -utf8 );
use strict;
#use warnings; FIXME - Bug 2505
use C4::Auth;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use JSON qw/ to_json /;
use C4::Context;
use strict;
#use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Members; # GetBorrowersWhoHavexxxBorrowed.
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Auth;
use C4::Context;
use C4::Output;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Koha;
use C4::Csv;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use MARC::File::XML;
use List::MoreUtils qw(uniq);
use Getopt::Long;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::AuthoritiesMarc; # GetAuthority
use C4::Biblio; # GetMarcBiblio
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
# ė
# č
-use CGI;
+use CGI qw ( -utf8 );
# use encoding 'utf8'; # don't do this
my (@errors, @feedback);
use warnings;
#need to open cgi and get the fh before anything else opens a new cgi context (see C4::Auth)
-use CGI;
+use CGI qw ( -utf8 );
my $input = CGI->new;
my $uploadbarcodes = $input->param('uploadbarcodes');
use strict;
# use warnings; FIXME - Bug 2505
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
use C4::Context;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use warnings;
# standard or CPAN modules used
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
use MARC::File::USMARC;
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;
# And for patron attributes.
use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Branch;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;
use C4::Auth;
use File::Temp;
use File::Copy;
-use CGI;
+use CGI qw ( -utf8 );
use GD;
use C4::Context;
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use JSON;
use autouse 'Data::Dumper' => qw(Dumper);
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use JSON;
use autouse 'Data::Dumper' => qw(Dumper);
use C4::Scheduler;
use C4::Reports::Guided;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Output;
use C4::Dates;
#use warnings; FIXME - Bug 2505
# standard or CPAN modules used
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Cookie;
use MARC::File::USMARC;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;
use C4::Review qw/numberofreviews/;
use warnings;
use File::Temp;
-use CGI;
+use CGI qw ( -utf8 );
use GD;
use C4::Context;
use C4::Auth;
# standard or CPAN modules used
use IO::File;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
use C4::Auth qw/check_cookie_auth/;
# standard or CPAN modules used
use IO::File;
-use CGI;
+use CGI qw ( -utf8 );
use CGI::Session;
use C4::Context;
use C4::Auth qw/check_cookie_auth/;
use Modern::Perl;
use C4::Auth;
-use CGI;
+use CGI qw ( -utf8 );
use Text::CSV::Encoded;
use C4::Context;
use C4::Koha;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Output;
use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use Encode qw(encode);
use C4::Auth;
use strict;
use warnings;
-use CGI;
-use Encode qw(decode encode);
+use CGI qw ( -utf8 );
+use Encode qw(encode);
use Carp;
use Mail::Sendmail;
use strict;
use warnings;
-use CGI;
+use CGI qw ( -utf8 );
use C4::VirtualShelves::Page;
use C4::Auth;