From e20270fec4f6d34f01050bea4c5765d5b3c4ed33 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 14 Mar 2014 15:26:16 +0100 Subject: [PATCH] Bug 11944: use CGI( -utf8 ) everywhere Signed-off-by: Paola Rossi Signed-off-by: Bernardo Gonzalez Kriegel Signed-off-by: Dobrica Pavlinusic Signed-off-by: Martin Renvoize Signed-off-by: Tomas Cohen Arazi --- C4/Auth.pm | 2 +- C4/Auth_with_cas.pm | 2 +- C4/Debug.pm | 2 +- C4/Form/MessagingPreferences.pm | 2 +- C4/ILSDI/Services.pm | 4 ++-- C4/Input.pm | 2 +- C4/InstallAuth.pm | 2 +- C4/Reports.pm | 2 +- C4/Reports/Guided.pm | 2 +- C4/SIP/ILS/Transaction/Checkout.pm | 2 +- C4/SIP/Sip/MsgType.pm | 2 +- C4/SIP/t/03checkout.t | 2 +- C4/SIP/t/SIPtest.pm | 2 +- C4/Service.pm | 2 +- C4/Suggestions.pm | 2 +- C4/Templates.pm | 4 ++-- C4/Utils/DataTables.pm | 2 +- C4/VirtualShelves/Page.pm | 2 +- about.pl | 2 +- acqui/acqui-home.pl | 2 +- acqui/addorder.pl | 2 +- acqui/addorderiso2709.pl | 2 +- acqui/ajax-getauthvaluedropbox.pl | 2 +- acqui/aqbasketuser_search.pl | 2 +- acqui/basket.pl | 2 +- acqui/basketgroup.pl | 2 +- acqui/basketheader.pl | 2 +- acqui/booksellers.pl | 2 +- acqui/check_budget_total.pl | 2 +- acqui/check_duplicate_barcode_ajax.pl | 2 +- acqui/check_uniqueness.pl | 2 +- acqui/currency.pl | 2 +- acqui/finishreceive.pl | 2 +- acqui/histsearch.pl | 2 +- acqui/invoice.pl | 2 +- acqui/invoices.pl | 2 +- acqui/lateorders-export.pl | 2 +- acqui/lateorders.pl | 2 +- acqui/modordernotes.pl | 2 +- acqui/neworderbiblio.pl | 2 +- acqui/neworderempty.pl | 2 +- acqui/newordersubscription.pl | 2 +- acqui/newordersuggestion.pl | 2 +- acqui/ordered.pl | 2 +- acqui/orderreceive.pl | 2 +- acqui/parcel.pl | 2 +- acqui/parcels.pl | 2 +- acqui/spent.pl | 2 +- acqui/supplier.pl | 2 +- acqui/transferorder.pl | 2 +- acqui/uncertainprice.pl | 2 +- acqui/updatesupplier.pl | 2 +- admin/admin-home.pl | 2 +- admin/aqbudget_user_search.pl | 2 +- admin/aqbudgetperiods.pl | 3 ++- admin/aqbudgets.pl | 2 +- admin/aqcontract.pl | 2 +- admin/aqplan.pl | 2 +- admin/auth_subfields_structure.pl | 2 +- admin/auth_tag_structure.pl | 2 +- admin/authorised_values.pl | 2 +- admin/authtypes.pl | 2 +- admin/biblio_framework.pl | 2 +- admin/branch_transfer_limits.pl | 2 +- admin/branches.pl | 2 +- admin/categorie.pl | 2 +- admin/check_budget_parent.pl | 2 +- admin/check_parent_total.pl | 2 +- admin/checkmarc.pl | 2 +- admin/cities.pl | 2 +- admin/classsources.pl | 2 +- admin/clone-rules.pl | 2 +- admin/currency.pl | 2 +- admin/didyoumean.pl | 2 +- admin/env_tz_test.pl | 2 +- admin/fieldmapping.pl | 2 +- admin/import_export_framework.pl | 2 +- admin/item_circulation_alerts.pl | 2 +- admin/itemtypes.pl | 2 +- admin/koha2marclinks.pl | 2 +- admin/marc_subfields_structure.pl | 2 +- admin/marctagstructure.pl | 2 +- admin/matching-rules.pl | 2 +- admin/oai_set_mappings.pl | 2 +- admin/oai_sets.pl | 2 +- admin/patron-attr-types.pl | 2 +- admin/preferences.pl | 2 +- admin/printers.pl | 2 +- admin/smart-rules.pl | 2 +- admin/stopwords.pl | 2 +- admin/systempreferences.pl | 2 +- admin/transport-cost-matrix.pl | 2 +- admin/z3950servers.pl | 2 +- authorities/auth_finder.pl | 2 +- authorities/authorities-home.pl | 2 +- authorities/authorities.pl | 2 +- authorities/blinddetail-biblio-search.pl | 2 +- authorities/detail-biblio-search.pl | 2 +- authorities/detail.pl | 2 +- authorities/export.pl | 2 +- authorities/merge.pl | 2 +- authorities/merge_ajax.pl | 2 +- authorities/ysearch.pl | 2 +- basket/basket.pl | 2 +- basket/downloadcart.pl | 2 +- basket/sendbasket.pl | 2 +- catalogue/ISBDdetail.pl | 2 +- catalogue/MARCdetail.pl | 2 +- catalogue/detail.pl | 2 +- catalogue/export.pl | 2 +- catalogue/getitem-ajax.pl | 2 +- catalogue/image.pl | 2 +- catalogue/imageviewer.pl | 2 +- catalogue/issuehistory.pl | 2 +- catalogue/labeledMARCdetail.pl | 2 +- catalogue/moredetail.pl | 2 +- catalogue/search-history.pl | 2 +- catalogue/search.pl | 2 +- catalogue/showmarc.pl | 2 +- catalogue/updateitem.pl | 2 +- cataloguing/addbooks.pl | 2 +- cataloguing/additem.pl | 2 +- cataloguing/linkitem.pl | 2 +- cataloguing/merge.pl | 2 +- cataloguing/merge_ajax.pl | 2 +- cataloguing/moveitem.pl | 2 +- cataloguing/plugin_launcher.pl | 2 +- cataloguing/value_builder/callnumber-KU.pl | 2 +- cataloguing/value_builder/callnumber.pl | 2 +- cataloguing/value_builder/labs_theses.pl | 2 +- cataloguing/value_builder/macles.pl | 2 +- cataloguing/value_builder/marc21_field_006.pl | 2 +- cataloguing/value_builder/marc21_field_007.pl | 2 +- cataloguing/value_builder/marc21_field_008.pl | 2 +- cataloguing/value_builder/marc21_field_008_authorities.pl | 2 +- cataloguing/value_builder/marc21_leader.pl | 2 +- cataloguing/value_builder/marc21_leader_authorities.pl | 2 +- cataloguing/value_builder/marc21_leader_book.pl | 2 +- cataloguing/value_builder/marc21_leader_computerfile.pl | 2 +- cataloguing/value_builder/marc21_leader_video.pl | 2 +- cataloguing/value_builder/marc21_linking_section.pl | 2 +- cataloguing/value_builder/normarc_field_007.pl | 2 +- cataloguing/value_builder/normarc_field_008.pl | 2 +- cataloguing/value_builder/normarc_leader.pl | 2 +- cataloguing/value_builder/stocknumberAV.pl | 2 +- cataloguing/value_builder/stocknumberam123.pl | 2 +- cataloguing/value_builder/unimarc_field_010.pl | 2 +- cataloguing/value_builder/unimarc_field_100.pl | 2 +- cataloguing/value_builder/unimarc_field_100_authorities.pl | 2 +- cataloguing/value_builder/unimarc_field_105.pl | 2 +- cataloguing/value_builder/unimarc_field_106.pl | 2 +- cataloguing/value_builder/unimarc_field_110.pl | 2 +- cataloguing/value_builder/unimarc_field_115a.pl | 2 +- cataloguing/value_builder/unimarc_field_115b.pl | 2 +- cataloguing/value_builder/unimarc_field_116.pl | 2 +- cataloguing/value_builder/unimarc_field_117.pl | 2 +- cataloguing/value_builder/unimarc_field_120.pl | 2 +- cataloguing/value_builder/unimarc_field_121a.pl | 2 +- cataloguing/value_builder/unimarc_field_121b.pl | 2 +- cataloguing/value_builder/unimarc_field_122.pl | 2 +- cataloguing/value_builder/unimarc_field_123a.pl | 2 +- cataloguing/value_builder/unimarc_field_123d.pl | 2 +- cataloguing/value_builder/unimarc_field_123e.pl | 2 +- cataloguing/value_builder/unimarc_field_123f.pl | 2 +- cataloguing/value_builder/unimarc_field_123g.pl | 2 +- cataloguing/value_builder/unimarc_field_123i.pl | 2 +- cataloguing/value_builder/unimarc_field_123j.pl | 2 +- cataloguing/value_builder/unimarc_field_124.pl | 2 +- cataloguing/value_builder/unimarc_field_124a.pl | 2 +- cataloguing/value_builder/unimarc_field_124b.pl | 2 +- cataloguing/value_builder/unimarc_field_124c.pl | 2 +- cataloguing/value_builder/unimarc_field_124d.pl | 2 +- cataloguing/value_builder/unimarc_field_124e.pl | 2 +- cataloguing/value_builder/unimarc_field_124f.pl | 2 +- cataloguing/value_builder/unimarc_field_124g.pl | 2 +- cataloguing/value_builder/unimarc_field_125.pl | 2 +- cataloguing/value_builder/unimarc_field_125a.pl | 2 +- cataloguing/value_builder/unimarc_field_125b.pl | 2 +- cataloguing/value_builder/unimarc_field_126.pl | 2 +- cataloguing/value_builder/unimarc_field_126a.pl | 2 +- cataloguing/value_builder/unimarc_field_126b.pl | 2 +- cataloguing/value_builder/unimarc_field_127.pl | 2 +- cataloguing/value_builder/unimarc_field_128a.pl | 2 +- cataloguing/value_builder/unimarc_field_128b.pl | 2 +- cataloguing/value_builder/unimarc_field_128c.pl | 2 +- cataloguing/value_builder/unimarc_field_130.pl | 2 +- cataloguing/value_builder/unimarc_field_135a.pl | 2 +- cataloguing/value_builder/unimarc_field_140.pl | 2 +- cataloguing/value_builder/unimarc_field_141.pl | 2 +- cataloguing/value_builder/unimarc_field_210c.pl | 2 +- cataloguing/value_builder/unimarc_field_210c_bis.pl | 2 +- cataloguing/value_builder/unimarc_field_225a.pl | 2 +- cataloguing/value_builder/unimarc_field_4XX.pl | 2 +- cataloguing/value_builder/unimarc_field_686a.pl | 2 +- cataloguing/value_builder/unimarc_field_700-4.pl | 2 +- cataloguing/value_builder/unimarc_leader.pl | 2 +- cataloguing/ysearch.pl | 2 +- cataloguing/z3950_search.pl | 2 +- changelanguage.pl | 2 +- circ/add_message.pl | 2 +- circ/bookcount.pl | 2 +- circ/branchoverdues.pl | 2 +- circ/branchtransfers.pl | 2 +- circ/circulation-home.pl | 2 +- circ/circulation.pl | 2 +- circ/del_message.pl | 2 +- circ/hold-transfer-slip.pl | 2 +- circ/offline-mf.pl | 2 +- circ/offline.pl | 2 +- circ/overdue.pl | 2 +- circ/pendingreserves.pl | 2 +- circ/renew.pl | 2 +- circ/reserveratios.pl | 2 +- circ/returns.pl | 2 +- circ/selectbranchprinter.pl | 2 +- circ/stats.pl | 2 +- circ/transfer-slip.pl | 2 +- circ/transferstoreceive.pl | 2 +- circ/view_holdsqueue.pl | 2 +- circ/waitingreserves.pl | 2 +- circ/ypattrodue-attr-search-authvalue.pl | 2 +- circ/ysearch.pl | 2 +- course_reserves/add_items.pl | 2 +- course_reserves/course-details.pl | 2 +- course_reserves/course-reserves.pl | 2 +- course_reserves/course.pl | 2 +- course_reserves/mod_course.pl | 2 +- docs/CAS/CASProxy/examples/koha_webservice.pl | 2 +- docs/CAS/CASProxy/examples/proxy_cas.pl | 2 +- docs/CAS/CASProxy/examples/proxy_cas_callback.pl | 2 +- docs/CAS/CASProxy/examples/proxy_cas_data.pl | 2 +- edithelp.pl | 2 +- errors/400.pl | 2 +- errors/401.pl | 2 +- errors/402.pl | 2 +- errors/403.pl | 2 +- errors/404.pl | 2 +- errors/500.pl | 2 +- help.pl | 2 +- installer/install.pl | 2 +- labels/label-create-csv.pl | 2 +- labels/label-create-pdf.pl | 2 +- labels/label-create-xml.pl | 2 +- labels/label-edit-batch.pl | 2 +- labels/label-edit-layout.pl | 2 +- labels/label-edit-profile.pl | 2 +- labels/label-edit-template.pl | 2 +- labels/label-home.pl | 2 +- labels/label-item-search.pl | 2 +- labels/label-manage.pl | 2 +- labels/label-print.pl | 2 +- labels/spinelabel-home.pl | 2 +- labels/spinelabel-print.pl | 2 +- mainpage.pl | 2 +- members/boraccount.pl | 2 +- members/deletemem.pl | 2 +- members/files.pl | 2 +- members/guarantor_search.pl | 2 +- members/mancredit.pl | 2 +- members/maninvoice.pl | 2 +- members/member-flags.pl | 2 +- members/member-password.pl | 2 +- members/member.pl | 2 +- members/memberentry.pl | 2 +- members/members-home.pl | 2 +- members/members-update-do.pl | 2 +- members/members-update.pl | 2 +- members/mod_debarment.pl | 2 +- members/moremember.pl | 2 +- members/notices.pl | 2 +- members/patronimage.pl | 2 +- members/pay.pl | 2 +- members/paycollect.pl | 2 +- members/printfeercpt.pl | 2 +- members/printinvoice.pl | 2 +- members/printslip.pl | 2 +- members/purchase-suggestions.pl | 2 +- members/readingrec.pl | 2 +- members/routing-lists.pl | 2 +- members/setstatus.pl | 2 +- members/statistics.pl | 2 +- members/update-child.pl | 2 +- misc/cronjobs/runreport.pl | 2 +- offline_circ/download.pl | 2 +- offline_circ/enqueue_koc.pl | 2 +- offline_circ/list.pl | 2 +- offline_circ/process.pl | 2 +- offline_circ/process_koc.pl | 2 +- offline_circ/service.pl | 2 +- opac/errors/400.pl | 2 +- opac/errors/401.pl | 2 +- opac/errors/402.pl | 2 +- opac/errors/403.pl | 2 +- opac/errors/404.pl | 2 +- opac/errors/500.pl | 2 +- opac/ilsdi.pl | 2 +- opac/maintenance.pl | 2 +- opac/oai.pl | 2 +- opac/opac-ISBDdetail.pl | 2 +- opac/opac-MARCdetail.pl | 2 +- opac/opac-account.pl | 2 +- opac/opac-addbybiblionumber.pl | 2 +- opac/opac-alert-subscribe.pl | 2 +- opac/opac-authorities-home.pl | 3 +-- opac/opac-authoritiesdetail.pl | 2 +- opac/opac-basket.pl | 2 +- opac/opac-blocked.pl | 2 +- opac/opac-browser.pl | 2 +- opac/opac-changelanguage.pl | 2 +- opac/opac-course-details.pl | 2 +- opac/opac-course-reserves.pl | 2 +- opac/opac-detail.pl | 2 +- opac/opac-downloadcart.pl | 2 +- opac/opac-downloadshelf.pl | 2 +- opac/opac-export.pl | 2 +- opac/opac-ics.pl | 2 +- opac/opac-image.pl | 2 +- opac/opac-imageviewer.pl | 2 +- opac/opac-main.pl | 2 +- opac/opac-memberentry.pl | 2 +- opac/opac-messaging.pl | 2 +- opac/opac-modrequest-suspend.pl | 2 +- opac/opac-modrequest.pl | 2 +- opac/opac-mymessages.pl | 2 +- opac/opac-overdrive-search.pl | 2 +- opac/opac-passwd.pl | 2 +- opac/opac-patron-image.pl | 2 +- opac/opac-privacy.pl | 2 +- opac/opac-ratings-ajax.pl | 2 +- opac/opac-ratings.pl | 2 +- opac/opac-readingrecord.pl | 2 +- opac/opac-registration-verify.pl | 2 +- opac/opac-renew.pl | 2 +- opac/opac-reserve.pl | 2 +- opac/opac-review.pl | 2 +- opac/opac-search-history.pl | 2 +- opac/opac-search.pl | 2 +- opac/opac-sendbasket.pl | 2 +- opac/opac-sendshelf.pl | 4 ++-- opac/opac-serial-issues.pl | 2 +- opac/opac-shareshelf.pl | 2 +- opac/opac-shelves.pl | 2 +- opac/opac-showmarc.pl | 2 +- opac/opac-showreviews.pl | 2 +- opac/opac-suggestions.pl | 2 +- opac/opac-tags.pl | 2 +- opac/opac-tags_subject.pl | 2 +- opac/opac-topissues.pl | 2 +- opac/opac-user.pl | 2 +- opac/sco/help.pl | 2 +- opac/sco/printslip.pl | 2 +- opac/sco/sco-main.pl | 2 +- opac/svc/login | 2 +- opac/svc/overdrive_proxy | 2 +- opac/svc/report | 2 +- opac/svc/shelfbrowser.pl | 2 +- opac/svc/suggestion | 2 +- opac/tracklinks.pl | 2 +- opac/unapi | 2 +- patron_lists/add-modify.pl | 2 +- patron_lists/delete.pl | 2 +- patron_lists/list.pl | 2 +- patron_lists/lists.pl | 2 +- patron_lists/patrons.pl | 2 +- patroncards/card-print.pl | 2 +- patroncards/create-pdf.pl | 2 +- patroncards/edit-batch.pl | 2 +- patroncards/edit-layout.pl | 2 +- patroncards/edit-profile.pl | 2 +- patroncards/edit-template.pl | 2 +- patroncards/home.pl | 2 +- patroncards/image-manage.pl | 2 +- patroncards/manage.pl | 2 +- patroncards/members-search.pl | 2 +- patroncards/print.pl | 2 +- plugins/plugins-home.pl | 2 +- plugins/plugins-uninstall.pl | 2 +- plugins/plugins-upload.pl | 2 +- plugins/run.pl | 2 +- reports/acquisitions_stats.pl | 2 +- reports/bor_issues_top.pl | 2 +- reports/borrowers_out.pl | 2 +- reports/borrowers_stats.pl | 2 +- reports/cat_issues_top.pl | 2 +- reports/catalogue_out.pl | 2 +- reports/catalogue_stats.pl | 2 +- reports/dictionary.pl | 2 +- reports/issues_avg_stats.pl | 2 +- reports/issues_by_borrower_category.plugin | 2 +- reports/issues_stats.pl | 2 +- reports/itemslost.pl | 2 +- reports/itemtypes.plugin | 2 +- reports/manager.pl | 2 +- reports/reports-home.pl | 2 +- reports/reservereport.pl | 2 +- reports/reserves_stats.pl | 2 +- reports/serials_stats.pl | 2 +- reports/stats.print.pl | 2 +- reports/stats.screen.pl | 2 +- reserve/modrequest.pl | 2 +- reserve/modrequest_suspendall.pl | 2 +- reserve/placerequest.pl | 2 +- reserve/renewscript.pl | 2 +- reserve/request.pl | 2 +- reviews/reviewswaiting.pl | 2 +- rotating_collections/addItems.pl | 2 +- rotating_collections/editCollections.pl | 2 +- rotating_collections/rotatingCollections.pl | 2 +- rotating_collections/transferCollection.pl | 2 +- serials/acqui-search-result.pl | 2 +- serials/acqui-search.pl | 2 +- serials/checkexpiration.pl | 2 +- serials/claims.pl | 2 +- serials/create-numberpattern.pl | 2 +- serials/lateissues-export.pl | 2 +- serials/member-search.pl | 2 +- serials/reorder_members.pl | 2 +- serials/routing-preview.pl | 2 +- serials/routing.pl | 2 +- serials/serial-issues.pl | 2 +- serials/serials-collection.pl | 2 +- serials/serials-edit.pl | 2 +- serials/serials-home.pl | 2 +- serials/serials-recieve.pl | 2 +- serials/serials-search.pl | 2 +- serials/showpredictionpattern.pl | 2 +- serials/subscription-add.pl | 2 +- serials/subscription-bib-search.pl | 2 +- serials/subscription-detail.pl | 2 +- serials/subscription-frequencies.pl | 2 +- serials/subscription-frequency.pl | 2 +- serials/subscription-history.pl | 2 +- serials/subscription-numberpattern.pl | 2 +- serials/subscription-numberpatterns.pl | 2 +- serials/subscription-renew.pl | 2 +- serials/viewalerts.pl | 2 +- services/itemrecorddisplay.pl | 2 +- sms/sms.pl | 2 +- sms/sms_listen_windows_start.pl | 2 +- suggestion/suggestion.pl | 2 +- svc/authentication | 2 +- svc/bib | 2 +- svc/bib_profile | 2 +- svc/cover_images | 2 +- svc/import_bib | 2 +- svc/new_bib | 2 +- svc/report | 2 +- t/Languages.t | 2 +- t/Output.t | 2 +- t/db_dependent/Auth.t | 2 +- t/db_dependent/BackgroundJob.t | 2 +- t/db_dependent/ILSDI_Services.t | 2 +- t/db_dependent/Serials.t | 2 +- tags/list.pl | 2 +- tags/review.pl | 2 +- test/progressbar.pl | 2 +- test/progressbarsubmit.pl | 2 +- tools/ajax-inventory.pl | 2 +- tools/background-job-progress.pl | 2 +- tools/batchMod.pl | 2 +- tools/batch_records_ajax.pl | 2 +- tools/cleanborrowers.pl | 2 +- tools/copy-holidays.pl | 2 +- tools/csv-profiles.pl | 2 +- tools/exceptionHolidays.pl | 2 +- tools/export.pl | 2 +- tools/holidays.pl | 2 +- tools/import_borrowers.pl | 2 +- tools/inventory.pl | 2 +- tools/koha-news.pl | 2 +- tools/letter.pl | 2 +- tools/manage-marc-import.pl | 2 +- tools/marc_modification_templates.pl | 2 +- tools/modborrowers.pl | 2 +- tools/newHolidays.pl | 2 +- tools/overduerules.pl | 2 +- tools/picture-upload.pl | 2 +- tools/quotes-upload.pl | 2 +- tools/quotes.pl | 2 +- tools/quotes/quotes-upload_ajax.pl | 2 +- tools/quotes/quotes_ajax.pl | 2 +- tools/scheduler.pl | 2 +- tools/stage-marc-import.pl | 2 +- tools/tools-home.pl | 2 +- tools/upload-cover-image.pl | 2 +- tools/upload-file-progress.pl | 2 +- tools/upload-file.pl | 2 +- tools/viewlog.pl | 2 +- virtualshelves/addbybiblionumber.pl | 2 +- virtualshelves/downloadshelf.pl | 2 +- virtualshelves/sendshelf.pl | 4 ++-- virtualshelves/shelves.pl | 2 +- 492 files changed, 497 insertions(+), 497 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index 493c8dfc3d..ae99fe90c2 100644 --- a/C4/Auth.pm +++ b/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; diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm index 17e43e406e..c5f21a822e 100644 --- a/C4/Auth_with_cas.pm +++ b/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; diff --git a/C4/Debug.pm b/C4/Debug.pm index b735ab8e5c..5f3a9e5e00 100644 --- a/C4/Debug.pm +++ b/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); diff --git a/C4/Form/MessagingPreferences.pm b/C4/Form/MessagingPreferences.pm index 328c55e704..7b74723737 100644 --- a/C4/Form/MessagingPreferences.pm +++ b/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; diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index e33ef6edff..b917a82a84 100644 --- a/C4/ILSDI/Services.pm +++ b/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; diff --git a/C4/Input.pm b/C4/Input.pm index 38042421da..1869f2f0bb 100644 --- a/C4/Input.pm +++ b/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); diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm index 35ac2e1df1..1fe45ae828 100644 --- a/C4/InstallAuth.pm +++ b/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; diff --git a/C4/Reports.pm b/C4/Reports.pm index 74019c0e78..fce28e42fb 100644 --- a/C4/Reports.pm +++ b/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; diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm index bb283fa458..aaa1ce2eb4 100644 --- a/C4/Reports/Guided.pm +++ b/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); diff --git a/C4/SIP/ILS/Transaction/Checkout.pm b/C4/SIP/ILS/Transaction/Checkout.pm index edc1d046db..70fe9cc2e0 100644 --- a/C4/SIP/ILS/Transaction/Checkout.pm +++ b/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; diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm index 2aca72f866..5c6f696069 100644 --- a/C4/SIP/Sip/MsgType.pm +++ b/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. diff --git a/C4/SIP/t/03checkout.t b/C4/SIP/t/03checkout.t index 259e28cb0e..7350f9039c 100644 --- a/C4/SIP/t/03checkout.t +++ b/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( diff --git a/C4/SIP/t/SIPtest.pm b/C4/SIP/t/SIPtest.pm index d834c5b14d..f512937965 100644 --- a/C4/SIP/t/SIPtest.pm +++ b/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); diff --git a/C4/Service.pm b/C4/Service.pm index d9990ff907..d59cd70a93 100644 --- a/C4/Service.pm +++ b/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; diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index 35deb203d7..2ffeeaf027 100644 --- a/C4/Suggestions.pm +++ b/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; diff --git a/C4/Templates.pm b/C4/Templates.pm index 23f8bce273..5a5cbd030e 100644 --- a/C4/Templates.pm +++ b/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 # diff --git a/C4/Utils/DataTables.pm b/C4/Utils/DataTables.pm index 7f62910e8a..e3ff04b8d1 100644 --- a/C4/Utils/DataTables.pm +++ b/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; diff --git a/C4/VirtualShelves/Page.pm b/C4/VirtualShelves/Page.pm index 56518c2956..052839d51d 100644 --- a/C4/VirtualShelves/Page.pm +++ b/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; diff --git a/about.pl b/about.pl index 4fbc7e89d4..7f0da61b7b 100755 --- a/about.pl +++ b/about.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use LWP::Simple; use XML::Simple; use Config; diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl index 8741aa4857..6aca89fd8e 100755 --- a/acqui/acqui-home.pl +++ b/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; diff --git a/acqui/addorder.pl b/acqui/addorder.pl index f5508a2cec..d95ba7b12b 100755 --- a/acqui/addorder.pl +++ b/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 diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index be8b8970d3..b4aa4d9cf2 100755 --- a/acqui/addorderiso2709.pl +++ b/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/; diff --git a/acqui/ajax-getauthvaluedropbox.pl b/acqui/ajax-getauthvaluedropbox.pl index 0a74ada471..fb0e5e5a8d 100755 --- a/acqui/ajax-getauthvaluedropbox.pl +++ b/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/; diff --git a/acqui/aqbasketuser_search.pl b/acqui/aqbasketuser_search.pl index 6c020ca9a3..660fd499e1 100755 --- a/acqui/aqbasketuser_search.pl +++ b/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; diff --git a/acqui/basket.pl b/acqui/basket.pl index e04024a878..921c67e79c 100755 --- a/acqui/basket.pl +++ b/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; diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl index ef629215e7..2b2bd78d66 100755 --- a/acqui/basketgroup.pl +++ b/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/; diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl index eefa45041c..15c76e8335 100755 --- a/acqui/basketheader.pl +++ b/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; diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl index 9a2bb2567f..a5eb47d474 100755 --- a/acqui/booksellers.pl +++ b/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/; diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl index 83fda5e840..a140559d0f 100755 --- a/acqui/check_budget_total.pl +++ b/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; diff --git a/acqui/check_duplicate_barcode_ajax.pl b/acqui/check_duplicate_barcode_ajax.pl index fe50b6d33e..2ff2b3c5a2 100755 --- a/acqui/check_duplicate_barcode_ajax.pl +++ b/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; diff --git a/acqui/check_uniqueness.pl b/acqui/check_uniqueness.pl index d8f29fac63..b9edd2555f 100755 --- a/acqui/check_uniqueness.pl +++ b/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; diff --git a/acqui/currency.pl b/acqui/currency.pl index 7480fb6f1d..c211cc39f9 100755 --- a/acqui/currency.pl +++ b/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; diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl index 6642561b7a..286474ffd8 100755 --- a/acqui/finishreceive.pl +++ b/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; diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl index 376681f1bf..5bc54040d3 100755 --- a/acqui/histsearch.pl +++ b/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; diff --git a/acqui/invoice.pl b/acqui/invoice.pl index d7e40b6bb6..f64836b567 100755 --- a/acqui/invoice.pl +++ b/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; diff --git a/acqui/invoices.pl b/acqui/invoices.pl index 4c72d64900..6542b1818d 100755 --- a/acqui/invoices.pl +++ b/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; diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl index 585cac83c2..96a182420d 100755 --- a/acqui/lateorders-export.pl +++ b/acqui/lateorders-export.pl @@ -16,7 +16,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Acquisition; diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl index b68673f17f..f944a066d5 100755 --- a/acqui/lateorders.pl +++ b/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; diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl index 02bd77b0ef..2c6b71b28a 100755 --- a/acqui/modordernotes.pl +++ b/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; diff --git a/acqui/neworderbiblio.pl b/acqui/neworderbiblio.pl index 8d13915668..dfcc5340f8 100755 --- a/acqui/neworderbiblio.pl +++ b/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; diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index b8f667b65d..93c07c6b68 100755 --- a/acqui/neworderempty.pl +++ b/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; diff --git a/acqui/newordersubscription.pl b/acqui/newordersubscription.pl index 04173dbb2a..cb04c646f3 100755 --- a/acqui/newordersubscription.pl +++ b/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; diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl index e31c0a4798..839b4f4bbf 100755 --- a/acqui/newordersuggestion.pl +++ b/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; diff --git a/acqui/ordered.pl b/acqui/ordered.pl index cdf2cd75c3..4a1ec5b0c4 100755 --- a/acqui/ordered.pl +++ b/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; diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl index 878d77afe5..96a6a024bd 100755 --- a/acqui/orderreceive.pl +++ b/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; diff --git a/acqui/parcel.pl b/acqui/parcel.pl index 65675e2e04..7f2ffb09c1 100755 --- a/acqui/parcel.pl +++ b/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; diff --git a/acqui/parcels.pl b/acqui/parcels.pl index e3b8f5f0b7..ba91abd955 100755 --- a/acqui/parcels.pl +++ b/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; diff --git a/acqui/spent.pl b/acqui/spent.pl index c3c4693afb..b4436e9018 100755 --- a/acqui/spent.pl +++ b/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; diff --git a/acqui/supplier.pl b/acqui/supplier.pl index ba1ee5339b..30a3d3ea57 100755 --- a/acqui/supplier.pl +++ b/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; diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl index 76d4f24599..3e8bdc84ec 100755 --- a/acqui/transferorder.pl +++ b/acqui/transferorder.pl @@ -20,7 +20,7 @@ # along with Koha; if not, see use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/acqui/uncertainprice.pl b/acqui/uncertainprice.pl index 8caff1c180..b53b7e7621 100755 --- a/acqui/uncertainprice.pl +++ b/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/; diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl index 8e887df80a..d125d89f2a 100755 --- a/acqui/updatesupplier.pl +++ b/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( diff --git a/admin/admin-home.pl b/admin/admin-home.pl index b431b49632..03001370fe 100755 --- a/admin/admin-home.pl +++ b/admin/admin-home.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/admin/aqbudget_user_search.pl b/admin/aqbudget_user_search.pl index 1bef1530a1..7221e415bb 100755 --- a/admin/aqbudget_user_search.pl +++ b/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; diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl index 119884ad99..0de825ab63 100755 --- a/admin/aqbudgetperiods.pl +++ b/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; diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl index 8d3f3e8336..4ea2b9d034 100755 --- a/admin/aqbudgets.pl +++ b/admin/aqbudgets.pl @@ -21,7 +21,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use List::Util qw/min/; use Koha::Database; diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl index 8997c3147b..a19efdbd4b 100755 --- a/admin/aqcontract.pl +++ b/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; diff --git a/admin/aqplan.pl b/admin/aqplan.pl index cc397fe197..dda1d2199b 100755 --- a/admin/aqplan.pl +++ b/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/; diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl index 0376a0f9b2..02eef5d81b 100755 --- a/admin/auth_subfields_structure.pl +++ b/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; diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl index bd9ed32d9f..2a4ff572a4 100755 --- a/admin/auth_tag_structure.pl +++ b/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; diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl index 090fe9047a..453746ccbc 100755 --- a/admin/authorised_values.pl +++ b/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; diff --git a/admin/authtypes.pl b/admin/authtypes.pl index bbcfff37f8..f705fdc85f 100755 --- a/admin/authtypes.pl +++ b/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; diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl index ec45cb9707..cac4d92cd9 100755 --- a/admin/biblio_framework.pl +++ b/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; diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl index a7d9132913..1b6f0ecbb1 100755 --- a/admin/branch_transfer_limits.pl +++ b/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; diff --git a/admin/branches.pl b/admin/branches.pl index 2aa87df7d1..a698a26d1e 100755 --- a/admin/branches.pl +++ b/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; diff --git a/admin/categorie.pl b/admin/categorie.pl index 8fb5c644f8..75cee49384 100755 --- a/admin/categorie.pl +++ b/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; diff --git a/admin/check_budget_parent.pl b/admin/check_budget_parent.pl index c1e0d4108c..3ce9b70069 100755 --- a/admin/check_budget_parent.pl +++ b/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; diff --git a/admin/check_parent_total.pl b/admin/check_parent_total.pl index 27006f5389..04618eda7b 100755 --- a/admin/check_parent_total.pl +++ b/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; diff --git a/admin/checkmarc.pl b/admin/checkmarc.pl index fbd1252a5d..90502873cd 100755 --- a/admin/checkmarc.pl +++ b/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; diff --git a/admin/cities.pl b/admin/cities.pl index 082350e2a7..f491facb97 100755 --- a/admin/cities.pl +++ b/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; diff --git a/admin/classsources.pl b/admin/classsources.pl index 93914fda77..6ca29d0d45 100755 --- a/admin/classsources.pl +++ b/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; diff --git a/admin/clone-rules.pl b/admin/clone-rules.pl index c2343106a0..c8a39a7c60 100755 --- a/admin/clone-rules.pl +++ b/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; diff --git a/admin/currency.pl b/admin/currency.pl index 90656816dd..5550f0fd52 100755 --- a/admin/currency.pl +++ b/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; diff --git a/admin/didyoumean.pl b/admin/didyoumean.pl index 434d0e9a31..52ebeaa487 100755 --- a/admin/didyoumean.pl +++ b/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; diff --git a/admin/env_tz_test.pl b/admin/env_tz_test.pl index eb6a4b11ff..533bda0a5c 100755 --- a/admin/env_tz_test.pl +++ b/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; diff --git a/admin/fieldmapping.pl b/admin/fieldmapping.pl index 65ab938794..8214deb8f2 100755 --- a/admin/fieldmapping.pl +++ b/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; diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl index 20729f2c67..cb7a1cc563 100755 --- a/admin/import_export_framework.pl +++ b/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/; diff --git a/admin/item_circulation_alerts.pl b/admin/item_circulation_alerts.pl index f5370b8b4c..bed078ce0b 100755 --- a/admin/item_circulation_alerts.pl +++ b/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; diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl index bfaa44c786..1bfad90762 100755 --- a/admin/itemtypes.pl +++ b/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; diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl index 8458ad5299..8a51ec8a19 100755 --- a/admin/koha2marclinks.pl +++ b/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; diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl index 9c23196892..5261dd48c2 100755 --- a/admin/marc_subfields_structure.pl +++ b/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; diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl index d195718178..f969b07092 100755 --- a/admin/marctagstructure.pl +++ b/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; diff --git a/admin/matching-rules.pl b/admin/matching-rules.pl index 1afb564969..9fc93b7df7 100755 --- a/admin/matching-rules.pl +++ b/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; diff --git a/admin/oai_set_mappings.pl b/admin/oai_set_mappings.pl index 18a48bbe94..ab2e9b3076 100755 --- a/admin/oai_set_mappings.pl +++ b/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; diff --git a/admin/oai_sets.pl b/admin/oai_sets.pl index c923e87322..00d964088f 100755 --- a/admin/oai_sets.pl +++ b/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; diff --git a/admin/patron-attr-types.pl b/admin/patron-attr-types.pl index 6ae1b74438..41ca15fc2e 100755 --- a/admin/patron-attr-types.pl +++ b/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; diff --git a/admin/preferences.pl b/admin/preferences.pl index ed6047340f..b6cdaa2c2b 100755 --- a/admin/preferences.pl +++ b/admin/preferences.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use Encode; use C4::Auth; use C4::Context; diff --git a/admin/printers.pl b/admin/printers.pl index 04f73d9bb4..f94cfeb2fe 100755 --- a/admin/printers.pl +++ b/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; diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl index eb3e8757d5..942e9bf5ed 100755 --- a/admin/smart-rules.pl +++ b/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; diff --git a/admin/stopwords.pl b/admin/stopwords.pl index 8c3f00d3f6..58b86e2728 100755 --- a/admin/stopwords.pl +++ b/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; diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl index 1ac1b72561..bb37baed7e 100755 --- a/admin/systempreferences.pl +++ b/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; diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl index db34c6f093..54d8785aec 100755 --- a/admin/transport-cost-matrix.pl +++ b/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; diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl index b7a80c24d9..df4b99a7b8 100755 --- a/admin/z3950servers.pl +++ b/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; diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl index 607c6524f8..818bb6d6fd 100755 --- a/authorities/auth_finder.pl +++ b/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; diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index f41775ccce..578d9a0ceb 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use URI::Escape; use C4::Auth; diff --git a/authorities/authorities.pl b/authorities/authorities.pl index 89049fedf7..e610e7fcf4 100755 --- a/authorities/authorities.pl +++ b/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; diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index d0f4069e3d..86371e01ed 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/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; diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index eed059c504..027345dc77 100755 --- a/authorities/detail-biblio-search.pl +++ b/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; diff --git a/authorities/detail.pl b/authorities/detail.pl index a84a9f51fb..3f5018c3a0 100755 --- a/authorities/detail.pl +++ b/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; diff --git a/authorities/export.pl b/authorities/export.pl index dc886c05c3..6b79ffb656 100755 --- a/authorities/export.pl +++ b/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( diff --git a/authorities/merge.pl b/authorities/merge.pl index 362838150f..6f2b154afa 100755 --- a/authorities/merge.pl +++ b/authorities/merge.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::AuthoritiesMarc; diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl index dd716a72b3..458b4c953d 100755 --- a/authorities/merge_ajax.pl +++ b/authorities/merge_ajax.pl @@ -3,7 +3,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; use C4::Auth qw/check_cookie_auth/; diff --git a/authorities/ysearch.pl b/authorities/ysearch.pl index b669c08f33..7a28a6ba4a 100755 --- a/authorities/ysearch.pl +++ b/authorities/ysearch.pl @@ -27,7 +27,7 @@ This script allows ajax call for dynamic authorities search =cut -use CGI; +use CGI qw ( -utf8 ); use Modern::Perl; use JSON; diff --git a/basket/basket.pl b/basket/basket.pl index 7fa915c14b..ea8e86310b 100755 --- a/basket/basket.pl +++ b/basket/basket.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Biblio; use C4::Items; diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl index 569335886a..199271e43c 100755 --- a/basket/downloadcart.pl +++ b/basket/downloadcart.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use C4::Auth; diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl index a9314a3d3c..36f3c1a6d8 100755 --- a/basket/sendbasket.pl +++ b/basket/sendbasket.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use Carp; diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl index 28843032c9..18f0014712 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -39,7 +39,7 @@ use strict; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Biblio; use C4::Items; diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 5eb50e5b5d..c11bdf3ed1 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -49,7 +49,7 @@ use strict; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use MARC::Record; use C4::Biblio; diff --git a/catalogue/detail.pl b/catalogue/detail.pl index f33e263e5a..adf6823089 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Acquisition qw( GetHistory ); use C4::Auth; use C4::Dates qw/format_date/; diff --git a/catalogue/export.pl b/catalogue/export.pl index efdf0eec2a..e66d3f2e56 100755 --- a/catalogue/export.pl +++ b/catalogue/export.pl @@ -6,7 +6,7 @@ use C4::Record; use C4::Auth; use C4::Output; use C4::Biblio; -use CGI; +use CGI qw ( -utf8 ); use C4::Ris; diff --git a/catalogue/getitem-ajax.pl b/catalogue/getitem-ajax.pl index 3bab891523..ad9b4b16aa 100755 --- a/catalogue/getitem-ajax.pl +++ b/catalogue/getitem-ajax.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 JSON; use C4::Biblio; diff --git a/catalogue/image.pl b/catalogue/image.pl index ff74cbefcf..6f9142d957 100755 --- a/catalogue/image.pl +++ b/catalogue/image.pl @@ -26,7 +26,7 @@ use strict; use warnings; -use CGI; #qw(:standard escapeHTML); +use CGI qw ( -utf8 ); #qw(:standard escapeHTML); use C4::Context; use C4::Images; diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl index 7c1ab1dd0c..007bdfcece 100755 --- a/catalogue/imageviewer.pl +++ b/catalogue/imageviewer.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Biblio; use C4::Items; diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl index ff22bc0eca..aae14d9e98 100755 --- a/catalogue/issuehistory.pl +++ b/catalogue/issuehistory.pl @@ -19,7 +19,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl index 11f8f8555e..7e9c6bad6e 100755 --- a/catalogue/labeledMARCdetail.pl +++ b/catalogue/labeledMARCdetail.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Auth; use C4::Context; diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index 1893a33ccf..39d3c9f331 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -22,7 +22,7 @@ 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; diff --git a/catalogue/search-history.pl b/catalogue/search-history.pl index 20e3b82110..a969701259 100755 --- a/catalogue/search-history.pl +++ b/catalogue/search-history.pl @@ -19,7 +19,7 @@ # use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Search::History; diff --git a/catalogue/search.pl b/catalogue/search.pl index 24abcb0963..26b3702384 100755 --- a/catalogue/search.pl +++ b/catalogue/search.pl @@ -159,7 +159,7 @@ use URI::Escape; 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); diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl index 1954ce8518..de7fb2251d 100755 --- a/catalogue/showmarc.pl +++ b/catalogue/showmarc.pl @@ -24,7 +24,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI qw(:standard); +use CGI qw(:standard -utf8); use DBI; use Encode; diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl index 74613e27a9..41a38b406a 100755 --- a/catalogue/updateitem.pl +++ b/catalogue/updateitem.pl @@ -19,7 +19,7 @@ # 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; diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl index a9cd6e8703..1ed4307ce3 100755 --- a/cataloguing/addbooks.pl +++ b/cataloguing/addbooks.pl @@ -26,7 +26,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Biblio; use C4::Breeding; diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 09e2d97192..9c7fb3fe50 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl index f7cd6b896e..79ab38cad5 100755 --- a/cataloguing/linkitem.pl +++ b/cataloguing/linkitem.pl @@ -20,7 +20,7 @@ # 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; diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl index fdac609799..bac752636c 100755 --- a/cataloguing/merge.pl +++ b/cataloguing/merge.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::Items; diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl index 26f08003ac..82278a7fbd 100755 --- a/cataloguing/merge_ajax.pl +++ b/cataloguing/merge_ajax.pl @@ -5,7 +5,7 @@ use strict; # standard or CPAN modules used use IO::File; -use CGI; +use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; use C4::Biblio; diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl index e108637bbd..0e1cc77b06 100755 --- a/cataloguing/moveitem.pl +++ b/cataloguing/moveitem.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/cataloguing/plugin_launcher.pl b/cataloguing/plugin_launcher.pl index f3ef3e863e..50aeb3279d 100755 --- a/cataloguing/plugin_launcher.pl +++ b/cataloguing/plugin_launcher.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/cataloguing/value_builder/callnumber-KU.pl b/cataloguing/value_builder/callnumber-KU.pl index f858de48a4..4a0dd773c1 100755 --- a/cataloguing/value_builder/callnumber-KU.pl +++ b/cataloguing/value_builder/callnumber-KU.pl @@ -20,7 +20,7 @@ use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; =head1 DESCRIPTION diff --git a/cataloguing/value_builder/callnumber.pl b/cataloguing/value_builder/callnumber.pl index 17b313fd0d..73190dc685 100755 --- a/cataloguing/value_builder/callnumber.pl +++ b/cataloguing/value_builder/callnumber.pl @@ -20,7 +20,7 @@ use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; =head1 DESCRIPTION diff --git a/cataloguing/value_builder/labs_theses.pl b/cataloguing/value_builder/labs_theses.pl index f7338cb563..313f66ad00 100755 --- a/cataloguing/value_builder/labs_theses.pl +++ b/cataloguing/value_builder/labs_theses.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Context; diff --git a/cataloguing/value_builder/macles.pl b/cataloguing/value_builder/macles.pl index 26aea400ab..bb4b86191a 100755 --- a/cataloguing/value_builder/macles.pl +++ b/cataloguing/value_builder/macles.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Auth; diff --git a/cataloguing/value_builder/marc21_field_006.pl b/cataloguing/value_builder/marc21_field_006.pl index a4a577071d..f2144bc820 100755 --- a/cataloguing/value_builder/marc21_field_006.pl +++ b/cataloguing/value_builder/marc21_field_006.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl index 3f5f663275..e0cd235ae9 100755 --- a/cataloguing/value_builder/marc21_field_007.pl +++ b/cataloguing/value_builder/marc21_field_007.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_field_008.pl b/cataloguing/value_builder/marc21_field_008.pl index 9a2753b30f..8a16baedef 100755 --- a/cataloguing/value_builder/marc21_field_008.pl +++ b/cataloguing/value_builder/marc21_field_008.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl index f9a824a496..ed601ecf6a 100755 --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ b/cataloguing/value_builder/marc21_field_008_authorities.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_leader.pl b/cataloguing/value_builder/marc21_leader.pl index 93a143377c..03ad6ae351 100755 --- a/cataloguing/value_builder/marc21_leader.pl +++ b/cataloguing/value_builder/marc21_leader.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_leader_authorities.pl b/cataloguing/value_builder/marc21_leader_authorities.pl index 0b08c2539d..b3557b351e 100755 --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ b/cataloguing/value_builder/marc21_leader_authorities.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_leader_book.pl b/cataloguing/value_builder/marc21_leader_book.pl index 134c473269..a41b94142b 100755 --- a/cataloguing/value_builder/marc21_leader_book.pl +++ b/cataloguing/value_builder/marc21_leader_book.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_leader_computerfile.pl b/cataloguing/value_builder/marc21_leader_computerfile.pl index 0c6a5764d5..b6126b26d4 100755 --- a/cataloguing/value_builder/marc21_leader_computerfile.pl +++ b/cataloguing/value_builder/marc21_leader_computerfile.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_leader_video.pl b/cataloguing/value_builder/marc21_leader_video.pl index fb21e9d00d..71b5ba5849 100755 --- a/cataloguing/value_builder/marc21_leader_video.pl +++ b/cataloguing/value_builder/marc21_leader_video.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl index baf0490aff..e14a977e57 100644 --- a/cataloguing/value_builder/marc21_linking_section.pl +++ b/cataloguing/value_builder/marc21_linking_section.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/normarc_field_007.pl b/cataloguing/value_builder/normarc_field_007.pl index 3148bad816..478df1aae5 100755 --- a/cataloguing/value_builder/normarc_field_007.pl +++ b/cataloguing/value_builder/normarc_field_007.pl @@ -19,7 +19,7 @@ use strict; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/normarc_field_008.pl b/cataloguing/value_builder/normarc_field_008.pl index d5acce08ce..d58757bb69 100755 --- a/cataloguing/value_builder/normarc_field_008.pl +++ b/cataloguing/value_builder/normarc_field_008.pl @@ -19,7 +19,7 @@ use strict; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/normarc_leader.pl b/cataloguing/value_builder/normarc_leader.pl index 020b24f405..ae32d09bb2 100755 --- a/cataloguing/value_builder/normarc_leader.pl +++ b/cataloguing/value_builder/normarc_leader.pl @@ -20,7 +20,7 @@ use strict; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/stocknumberAV.pl b/cataloguing/value_builder/stocknumberAV.pl index 677008b78b..1b580fc106 100755 --- a/cataloguing/value_builder/stocknumberAV.pl +++ b/cataloguing/value_builder/stocknumberAV.pl @@ -19,7 +19,7 @@ use Modern::Perl; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; =head1 DESCRIPTION diff --git a/cataloguing/value_builder/stocknumberam123.pl b/cataloguing/value_builder/stocknumberam123.pl index 6c0e24f42b..7c80e608d1 100755 --- a/cataloguing/value_builder/stocknumberam123.pl +++ b/cataloguing/value_builder/stocknumberam123.pl @@ -20,7 +20,7 @@ use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; =head1 DESCRIPTION diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl index 1675e53b89..4e061f8894 100755 --- a/cataloguing/value_builder/unimarc_field_010.pl +++ b/cataloguing/value_builder/unimarc_field_010.pl @@ -21,7 +21,7 @@ use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl index 55bc77021f..d0eedbf05e 100755 --- a/cataloguing/value_builder/unimarc_field_100.pl +++ b/cataloguing/value_builder/unimarc_field_100.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/cataloguing/value_builder/unimarc_field_100_authorities.pl b/cataloguing/value_builder/unimarc_field_100_authorities.pl index 0a4012b176..28bc870bb3 100644 --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ b/cataloguing/value_builder/unimarc_field_100_authorities.pl @@ -21,7 +21,7 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl index 67f6cbc3da..6f68583aeb 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl index 21bd2f4ba6..d6d4907d31 100755 --- a/cataloguing/value_builder/unimarc_field_106.pl +++ b/cataloguing/value_builder/unimarc_field_106.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl index 1c567c1be6..5a2be80c16 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl index 8075ae5ea9..e5470a19ca 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl index fbdde35e4a..ae54ae8e8e 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl index a1688747be..ae020e7ae5 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl index 6901765a52..254c859f06 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index de9beeb0af..702b7d47e5 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index 359a61d0e4..817192164e 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl index 6da8ba72e1..f979accbd8 100755 --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ b/cataloguing/value_builder/unimarc_field_121b.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl index 0c70341424..4dbca39ea4 100755 --- a/cataloguing/value_builder/unimarc_field_122.pl +++ b/cataloguing/value_builder/unimarc_field_122.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl index ce8e4e5ff1..9a43344802 100755 --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ b/cataloguing/value_builder/unimarc_field_123a.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl index f74352cdc8..335315b6ca 100755 --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ b/cataloguing/value_builder/unimarc_field_123d.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl index f74352cdc8..335315b6ca 100755 --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ b/cataloguing/value_builder/unimarc_field_123e.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl index 0d7541c3e5..5cb8d8dfe2 100755 --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ b/cataloguing/value_builder/unimarc_field_123f.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl index f74352cdc8..335315b6ca 100755 --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ b/cataloguing/value_builder/unimarc_field_123g.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl index 5ada49fb86..52b894e0fc 100755 --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ b/cataloguing/value_builder/unimarc_field_123i.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl index 8ce202e654..c0193a0d62 100755 --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ b/cataloguing/value_builder/unimarc_field_123j.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl index 4f2bc8cad2..a2ddad942c 100755 --- a/cataloguing/value_builder/unimarc_field_124.pl +++ b/cataloguing/value_builder/unimarc_field_124.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl index 08563a9c24..21c8c40937 100755 --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ b/cataloguing/value_builder/unimarc_field_124a.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl index 62e8a8f9dc..89696c4335 100755 --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ b/cataloguing/value_builder/unimarc_field_124b.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl index 486ef218f0..7615e0cfc3 100755 --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ b/cataloguing/value_builder/unimarc_field_124c.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl index 2a29b0e930..a5be87eb89 100755 --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ b/cataloguing/value_builder/unimarc_field_124d.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl index c1a731a011..8ed9253e9c 100755 --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ b/cataloguing/value_builder/unimarc_field_124e.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl index 21965f2856..02063ca613 100755 --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ b/cataloguing/value_builder/unimarc_field_124f.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl index 5319217016..41049764cc 100755 --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ b/cataloguing/value_builder/unimarc_field_124g.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl index 5d3a622e6c..89e6e5b1f1 100755 --- a/cataloguing/value_builder/unimarc_field_125.pl +++ b/cataloguing/value_builder/unimarc_field_125.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl index 045a1e21e0..d4a31d2bf1 100755 --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ b/cataloguing/value_builder/unimarc_field_125a.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl index 4e73164a8b..2a86b3d538 100755 --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ b/cataloguing/value_builder/unimarc_field_125b.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl index 4f2bc8cad2..a2ddad942c 100755 --- a/cataloguing/value_builder/unimarc_field_126.pl +++ b/cataloguing/value_builder/unimarc_field_126.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl index 1afbba84c6..2921068e76 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl index 5bf5caff63..7fc32e5127 100755 --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ b/cataloguing/value_builder/unimarc_field_126b.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl index 16195fef0e..3ef0a9acdd 100755 --- a/cataloguing/value_builder/unimarc_field_127.pl +++ b/cataloguing/value_builder/unimarc_field_127.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl index ef1b0062fe..936ad20afb 100755 --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ b/cataloguing/value_builder/unimarc_field_128a.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl index 3f0835b1e8..34d435fb95 100755 --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ b/cataloguing/value_builder/unimarc_field_128b.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl index 359d8e33e1..3b394aa8b3 100755 --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ b/cataloguing/value_builder/unimarc_field_128c.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl index d6f99fa85c..f0a9cff691 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl index 15c21eeb6b..58097329c4 100755 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ b/cataloguing/value_builder/unimarc_field_135a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl index 7d17caf1a7..cf0e4692a8 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl index e0b7a38690..9691b364c4 100755 --- a/cataloguing/value_builder/unimarc_field_141.pl +++ b/cataloguing/value_builder/unimarc_field_141.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl index e6dace64ea..67f4ab6cfd 100755 --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ b/cataloguing/value_builder/unimarc_field_210c.pl @@ -25,7 +25,7 @@ use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Search; use MARC::Record; use C4::Koha; diff --git a/cataloguing/value_builder/unimarc_field_210c_bis.pl b/cataloguing/value_builder/unimarc_field_210c_bis.pl index d9e02b2275..e7d09032aa 100755 --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -42,7 +42,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::AuthoritiesMarc; diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl index 0a0894bd67..22e47ebb2d 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -42,7 +42,7 @@ It need : use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::AuthoritiesMarc; diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl index a473792e26..3cacb51f5d 100755 --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ b/cataloguing/value_builder/unimarc_field_4XX.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_686a.pl b/cataloguing/value_builder/unimarc_field_686a.pl index 2b44823fde..714229cb93 100755 --- a/cataloguing/value_builder/unimarc_field_686a.pl +++ b/cataloguing/value_builder/unimarc_field_686a.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl index ac99e4bbf3..3facd0cb8a 100755 --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ b/cataloguing/value_builder/unimarc_field_700-4.pl @@ -22,7 +22,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl index 04457e6b52..4dc87ac744 100755 --- a/cataloguing/value_builder/unimarc_leader.pl +++ b/cataloguing/value_builder/unimarc_leader.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl index 49dfa3931f..854ef7aa9e 100755 --- a/cataloguing/ysearch.pl +++ b/cataloguing/ysearch.pl @@ -25,7 +25,7 @@ =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Charset; use C4::Auth qw/check_cookie_auth/; diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl index 22dc565203..b5c08a3e7c 100755 --- a/cataloguing/z3950_search.pl +++ b/cataloguing/z3950_search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/changelanguage.pl b/changelanguage.pl index c4d68e37a4..a53ade8125 100755 --- a/changelanguage.pl +++ b/changelanguage.pl @@ -19,7 +19,7 @@ use strict; use warnings; use C4::Templates; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; my $language = $query->param('language'); diff --git a/circ/add_message.pl b/circ/add_message.pl index 053d197810..3506c9b5c5 100755 --- a/circ/add_message.pl +++ b/circ/add_message.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; diff --git a/circ/bookcount.pl b/circ/bookcount.pl index dcc1611723..eeff50e9e5 100755 --- a/circ/bookcount.pl +++ b/circ/bookcount.pl @@ -22,7 +22,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Debug; use C4::Context; use C4::Circulation; diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl index c5a8743529..3698114394 100755 --- a/circ/branchoverdues.pl +++ b/circ/branchoverdues.pl @@ -19,7 +19,7 @@ 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 diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index 190ca71802..2c8612c1cc 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -22,7 +22,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Circulation; use C4::Output; use C4::Reserves; diff --git a/circ/circulation-home.pl b/circ/circulation-home.pl index 161158c5d8..bbb715b9cf 100755 --- a/circ/circulation-home.pl +++ b/circ/circulation-home.pl @@ -18,7 +18,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/circ/circulation.pl b/circ/circulation.pl index 50936d7f3d..982669c76a 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -24,7 +24,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use DateTime; use DateTime::Duration; use C4::Output; diff --git a/circ/del_message.pl b/circ/del_message.pl index 72293733dc..c04ff578aa 100755 --- a/circ/del_message.pl +++ b/circ/del_message.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; diff --git a/circ/hold-transfer-slip.pl b/circ/hold-transfer-slip.pl index 525e25a400..db0869c682 100755 --- a/circ/hold-transfer-slip.pl +++ b/circ/hold-transfer-slip.pl @@ -22,7 +22,7 @@ use strict; #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; diff --git a/circ/offline-mf.pl b/circ/offline-mf.pl index 87bc67f1cf..8cf93b17aa 100755 --- a/circ/offline-mf.pl +++ b/circ/offline-mf.pl @@ -18,7 +18,7 @@ # use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; my $query = new CGI; diff --git a/circ/offline.pl b/circ/offline.pl index ebc161be51..b7757e214e 100755 --- a/circ/offline.pl +++ b/circ/offline.pl @@ -18,7 +18,7 @@ # use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/circ/overdue.pl b/circ/overdue.pl index c2a0db1133..a0c7af7235 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -23,7 +23,7 @@ use strict; 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; diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl index 2deb67b68b..f964074c3b 100755 --- a/circ/pendingreserves.pl +++ b/circ/pendingreserves.pl @@ -31,7 +31,7 @@ use constant TWO_DAYS_AGO => -2; 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; diff --git a/circ/renew.pl b/circ/renew.pl index 7800fc98e8..180c881f4f 100755 --- a/circ/renew.pl +++ b/circ/renew.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; use C4::Output; diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl index 73c68f00ea..9585660e71 100755 --- a/circ/reserveratios.pl +++ b/circ/reserveratios.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Date::Calc qw/Today Add_Delta_YM/; use C4::Context; diff --git a/circ/returns.pl b/circ/returns.pl index 0faf22ab06..a7e9c6e3d7 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -30,7 +30,7 @@ script to execute returns of books use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use DateTime; use C4::Context; use C4::Auth qw/:DEFAULT get_session/; diff --git a/circ/selectbranchprinter.pl b/circ/selectbranchprinter.pl index 4e5a8e468c..cfabb7179a 100755 --- a/circ/selectbranchprinter.pl +++ b/circ/selectbranchprinter.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/circ/stats.pl b/circ/stats.pl index 3fc8283aba..6db5632578 100755 --- a/circ/stats.pl +++ b/circ/stats.pl @@ -23,7 +23,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Auth; diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl index 0abb417080..3cf84cca47 100755 --- a/circ/transfer-slip.pl +++ b/circ/transfer-slip.pl @@ -23,7 +23,7 @@ use warnings; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/:DEFAULT get_session/; use C4::Circulation; diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl index 522d922841..cf48c3e079 100755 --- a/circ/transferstoreceive.pl +++ b/circ/transferstoreceive.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Branch; # GetBranches diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl index 54fe66e27b..cff29c7b14 100755 --- a/circ/view_holdsqueue.pl +++ b/circ/view_holdsqueue.pl @@ -24,7 +24,7 @@ This script displays items in the tmp_holdsqueue table use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 222939ca4b..502aafd121 100755 --- a/circ/waitingreserves.pl +++ b/circ/waitingreserves.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Branch; # GetBranchName diff --git a/circ/ypattrodue-attr-search-authvalue.pl b/circ/ypattrodue-attr-search-authvalue.pl index 517c8c050f..091ce5faf1 100755 --- a/circ/ypattrodue-attr-search-authvalue.pl +++ b/circ/ypattrodue-attr-search-authvalue.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/check_cookie_auth/; use C4::Debug; diff --git a/circ/ysearch.pl b/circ/ysearch.pl index 8973902925..4ac19f5f78 100755 --- a/circ/ysearch.pl +++ b/circ/ysearch.pl @@ -27,7 +27,7 @@ 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/; diff --git a/course_reserves/add_items.pl b/course_reserves/add_items.pl index 9429d9182f..0a96860107 100755 --- a/course_reserves/add_items.pl +++ b/course_reserves/add_items.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/course_reserves/course-details.pl b/course_reserves/course-details.pl index 8a578d5386..b82df5b2de 100755 --- a/course_reserves/course-details.pl +++ b/course_reserves/course-details.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/course_reserves/course-reserves.pl b/course_reserves/course-reserves.pl index f7fbd8ed50..4ae6c9bf6c 100755 --- a/course_reserves/course-reserves.pl +++ b/course_reserves/course-reserves.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/course_reserves/course.pl b/course_reserves/course.pl index a82c7811c4..e87083fc1d 100755 --- a/course_reserves/course.pl +++ b/course_reserves/course.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/course_reserves/mod_course.pl b/course_reserves/mod_course.pl index 8f73203b2d..e94b4a841c 100755 --- a/course_reserves/mod_course.pl +++ b/course_reserves/mod_course.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; diff --git a/docs/CAS/CASProxy/examples/koha_webservice.pl b/docs/CAS/CASProxy/examples/koha_webservice.pl index cb161f75ea..8b5144c0fd 100755 --- a/docs/CAS/CASProxy/examples/koha_webservice.pl +++ b/docs/CAS/CASProxy/examples/koha_webservice.pl @@ -39,7 +39,7 @@ binmode(STDOUT, ":utf8"); use C4::Auth qw(check_api_auth); use C4::Output; use C4::Context; -use CGI; +use CGI qw ( -utf8 ); my $cgi = new CGI; diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl index 85085d7d1f..71630c3e9b 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas.pl @@ -30,7 +30,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Authen::CAS::Client; # URL Of the CAS Server diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl index 3c2c9efa40..31f39c24f3 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl @@ -27,7 +27,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Authen::CAS::Client; use Storable qw(nstore_fd); diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl index 92c61a5392..5afd7f1817 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl @@ -32,7 +32,7 @@ This PGTIOU will allow us to retrive the matching PGTID use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Authen::CAS::Client; use Storable qw(fd_retrieve); use LWP::Simple; diff --git a/edithelp.pl b/edithelp.pl index 62b449f4aa..8f56bfc9c9 100755 --- a/edithelp.pl +++ b/edithelp.pl @@ -21,7 +21,7 @@ use strict; use C4::Output; use C4::Templates; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use warnings; use vars qw($debug); diff --git a/errors/400.pl b/errors/400.pl index 94da8ed39b..23dc5aeb85 100755 --- a/errors/400.pl +++ b/errors/400.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/errors/401.pl b/errors/401.pl index d9622c0f7f..88c88d8e08 100755 --- a/errors/401.pl +++ b/errors/401.pl @@ -17,7 +17,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/errors/402.pl b/errors/402.pl index 946eeae06f..552398b87f 100755 --- a/errors/402.pl +++ b/errors/402.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/errors/403.pl b/errors/403.pl index e3b7b88485..11918c38a3 100755 --- a/errors/403.pl +++ b/errors/403.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/errors/404.pl b/errors/404.pl index d72548945a..e7e007141b 100755 --- a/errors/404.pl +++ b/errors/404.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/errors/500.pl b/errors/500.pl index bc2997d852..9fb6e0cc8e 100755 --- a/errors/500.pl +++ b/errors/500.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/help.pl b/help.pl index 4df8dc2374..7d4385d12f 100755 --- a/help.pl +++ b/help.pl @@ -23,7 +23,7 @@ use C4::Templates; use C4::Output; # use C4::Auth; use C4::Context; -use CGI; +use CGI qw ( -utf8 ); sub _help_template_file_of_url { my $url = shift; diff --git a/installer/install.pl b/installer/install.pl index dc01dc64c7..4420fde4ab 100755 --- a/installer/install.pl +++ b/installer/install.pl @@ -5,7 +5,7 @@ use warnings; use diagnostics; use C4::InstallAuth; -use CGI; +use CGI qw ( -utf8 ); use IPC::Cmd; use C4::Context; diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl index 1b0c02c97a..3c23021ede 100755 --- a/labels/label-create-csv.pl +++ b/labels/label-create-csv.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Text::CSV_XS; use Data::Dumper; diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl index e23b068462..9c75bf26d7 100755 --- a/labels/label-create-pdf.pl +++ b/labels/label-create-pdf.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Debug; use C4::Creators; diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl index 5e62ef81c9..3b568c7001 100755 --- a/labels/label-create-xml.pl +++ b/labels/label-create-xml.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use XML::Simple; use Data::Dumper; diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl index 4bd58ff85e..60d7b43059 100755 --- a/labels/label-edit-batch.pl +++ b/labels/label-edit-batch.pl @@ -22,7 +22,7 @@ use strict; 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); diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl index 2dd7612764..fe38903eda 100755 --- a/labels/label-edit-layout.pl +++ b/labels/label-edit-layout.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use POSIX; use C4::Auth qw(get_template_and_user); diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl index c1b25aedd4..df2e73b6fa 100755 --- a/labels/label-edit-profile.pl +++ b/labels/label-edit-profile.pl @@ -21,7 +21,7 @@ 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); diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl index f527d282df..241f9fc2f1 100755 --- a/labels/label-edit-template.pl +++ b/labels/label-edit-template.pl @@ -21,7 +21,7 @@ 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); diff --git a/labels/label-home.pl b/labels/label-home.pl index 44f3ed3df1..946a6ebc76 100755 --- a/labels/label-home.pl +++ b/labels/label-home.pl @@ -21,7 +21,7 @@ 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); diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl index 04db4d0ce6..eb6defe387 100755 --- a/labels/label-item-search.pl +++ b/labels/label-item-search.pl @@ -21,7 +21,7 @@ use strict; use warnings; use vars qw($debug $cgi_debug); -use CGI; +use CGI qw ( -utf8 ); use List::Util qw( max min ); use POSIX qw(ceil); diff --git a/labels/label-manage.pl b/labels/label-manage.pl index 061dea4e5a..4ee8779db9 100755 --- a/labels/label-manage.pl +++ b/labels/label-manage.pl @@ -22,7 +22,7 @@ use strict; use warnings; use vars qw($debug); -use CGI; +use CGI qw ( -utf8 ); use Data::Dumper; use C4::Auth qw(get_template_and_user); diff --git a/labels/label-print.pl b/labels/label-print.pl index 7d53c74c2f..b898d83989 100755 --- a/labels/label-print.pl +++ b/labels/label-print.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Data::Dumper; use C4::Auth qw(get_template_and_user); diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl index 576b399a41..b24441be4b 100755 --- a/labels/spinelabel-home.pl +++ b/labels/spinelabel-home.pl @@ -17,7 +17,7 @@ use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl index f88a6a118e..31aed54e63 100755 --- a/labels/spinelabel-print.pl +++ b/labels/spinelabel-print.pl @@ -17,7 +17,7 @@ use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/mainpage.pl b/mainpage.pl index ab3a7abbe9..09450f6a2d 100755 --- a/mainpage.pl +++ b/mainpage.pl @@ -20,7 +20,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::Koha; diff --git a/members/boraccount.pl b/members/boraccount.pl index 50f5db9fd1..d3b5240566 100755 --- a/members/boraccount.pl +++ b/members/boraccount.pl @@ -28,7 +28,7 @@ use warnings; 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; diff --git a/members/deletemem.pl b/members/deletemem.pl index 85c01667f1..bad636cf8e 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -24,7 +24,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Auth; diff --git a/members/files.pl b/members/files.pl index f9b7080ff4..efe4ad4052 100755 --- a/members/files.pl +++ b/members/files.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; diff --git a/members/guarantor_search.pl b/members/guarantor_search.pl index e5b39df7a8..a9fe9dd95d 100755 --- a/members/guarantor_search.pl +++ b/members/guarantor_search.pl @@ -21,7 +21,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/members/mancredit.pl b/members/mancredit.pl index c8eb61987c..c6ad4ded64 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -27,7 +27,7 @@ use warnings; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; diff --git a/members/maninvoice.pl b/members/maninvoice.pl index c72b387f35..240c680e83 100755 --- a/members/maninvoice.pl +++ b/members/maninvoice.pl @@ -27,7 +27,7 @@ use warnings; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Accounts; use C4::Items; diff --git a/members/member-flags.pl b/members/member-flags.pl index ab96951ca9..68c52aa117 100755 --- a/members/member-flags.pl +++ b/members/member-flags.pl @@ -7,7 +7,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth qw(:DEFAULT :EditPermissions); use C4::Context; diff --git a/members/member-password.pl b/members/member-password.pl index eb37b99945..310d641605 100755 --- a/members/member-password.pl +++ b/members/member-password.pl @@ -14,7 +14,7 @@ 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); diff --git a/members/member.pl b/members/member.pl index ad3ee854ad..191ff44e81 100755 --- a/members/member.pl +++ b/members/member.pl @@ -26,7 +26,7 @@ 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 ); diff --git a/members/memberentry.pl b/members/memberentry.pl index 7a0329fb75..5db8273ff4 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -23,7 +23,7 @@ use strict; use warnings; # external modules -use CGI; +use CGI qw ( -utf8 ); # use Digest::MD5 qw(md5_base64); use List::MoreUtils qw/uniq/; diff --git a/members/members-home.pl b/members/members-home.pl index 37fc496b69..0d0e2794de 100755 --- a/members/members-home.pl +++ b/members/members-home.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/members/members-update-do.pl b/members/members-update-do.pl index 68fec225cb..8408702279 100755 --- a/members/members-update-do.pl +++ b/members/members-update-do.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/members/members-update.pl b/members/members-update.pl index 03cd89fd57..bed43ac480 100755 --- a/members/members-update.pl +++ b/members/members-update.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/members/mod_debarment.pl b/members/mod_debarment.pl index 592e1347ef..98ad5ee0d3 100755 --- a/members/mod_debarment.pl +++ b/members/mod_debarment.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use Koha::DateUtils; diff --git a/members/moremember.pl b/members/moremember.pl index 1735e02666..92fe2d94a9 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -35,7 +35,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Output; diff --git a/members/notices.pl b/members/notices.pl index e0338d3546..113e20cbb9 100755 --- a/members/notices.pl +++ b/members/notices.pl @@ -23,7 +23,7 @@ use strict; #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; diff --git a/members/patronimage.pl b/members/patronimage.pl index 4f663d64ce..4161e97ea0 100755 --- a/members/patronimage.pl +++ b/members/patronimage.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; #qw(:standard escapeHTML); +use CGI qw ( -utf8 ); #qw(:standard escapeHTML); use C4::Context; use C4::Members; diff --git a/members/pay.pl b/members/pay.pl index 0e41f80fa3..381cf315f4 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -33,7 +33,7 @@ use URI::Escape; use C4::Context; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Accounts; use C4::Stats; diff --git a/members/paycollect.pl b/members/paycollect.pl index 6473f02228..692b958545 100755 --- a/members/paycollect.pl +++ b/members/paycollect.pl @@ -23,7 +23,7 @@ use URI::Escape; 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; diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl index 7f1e251d4a..1a138f8d3a 100755 --- a/members/printfeercpt.pl +++ b/members/printfeercpt.pl @@ -28,7 +28,7 @@ use warnings; 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; diff --git a/members/printinvoice.pl b/members/printinvoice.pl index ef01d547eb..c53cfaaa41 100755 --- a/members/printinvoice.pl +++ b/members/printinvoice.pl @@ -26,7 +26,7 @@ use warnings; 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; diff --git a/members/printslip.pl b/members/printslip.pl index cae8e433ef..19458021bc 100755 --- a/members/printslip.pl +++ b/members/printslip.pl @@ -34,7 +34,7 @@ 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; diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl index d7d7ab0dab..4c58c3e877 100755 --- a/members/purchase-suggestions.pl +++ b/members/purchase-suggestions.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; diff --git a/members/readingrec.pl b/members/readingrec.pl index 672c2c82ed..de2baec7c8 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/members/routing-lists.pl b/members/routing-lists.pl index ae6bf1c53f..efd067edb4 100755 --- a/members/routing-lists.pl +++ b/members/routing-lists.pl @@ -19,7 +19,7 @@ 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 diff --git a/members/setstatus.pl b/members/setstatus.pl index 2c13401abc..6ec490e098 100755 --- a/members/setstatus.pl +++ b/members/setstatus.pl @@ -26,7 +26,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Members; use C4::Auth; diff --git a/members/statistics.pl b/members/statistics.pl index af31815e25..de9a6a349f 100755 --- a/members/statistics.pl +++ b/members/statistics.pl @@ -24,7 +24,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Context; diff --git a/members/update-child.pl b/members/update-child.pl index 25e80ca4c9..1a320c040f 100755 --- a/members/update-child.pl +++ b/members/update-child.pl @@ -28,7 +28,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Output; diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl index 99bd22fb2b..9dc6c5851f 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -29,7 +29,7 @@ use Getopt::Long qw(:config auto_help auto_version); use Pod::Usage; use Mail::Sendmail; use Text::CSV_XS; -use CGI; +use CGI qw ( -utf8 ); use Carp; use Encode; diff --git a/offline_circ/download.pl b/offline_circ/download.pl index edd35a604e..713057c805 100755 --- a/offline_circ/download.pl +++ b/offline_circ/download.pl @@ -19,7 +19,7 @@ # use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use JSON; use C4::Auth; use C4::Output; diff --git a/offline_circ/enqueue_koc.pl b/offline_circ/enqueue_koc.pl index 995d2dbfb4..ec4342db43 100755 --- a/offline_circ/enqueue_koc.pl +++ b/offline_circ/enqueue_koc.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::Koha; diff --git a/offline_circ/list.pl b/offline_circ/list.pl index 73a2f78727..aeff99fb96 100755 --- a/offline_circ/list.pl +++ b/offline_circ/list.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::Koha; diff --git a/offline_circ/process.pl b/offline_circ/process.pl index e54ee5bd10..bd72d600c6 100755 --- a/offline_circ/process.pl +++ b/offline_circ/process.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Circulation; diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl index 2ce4f9791e..05084c6d1c 100755 --- a/offline_circ/process_koc.pl +++ b/offline_circ/process_koc.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::Koha; diff --git a/offline_circ/service.pl b/offline_circ/service.pl index 771d4594f8..b56bb75482 100755 --- a/offline_circ/service.pl +++ b/offline_circ/service.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Circulation; diff --git a/opac/errors/400.pl b/opac/errors/400.pl index bf2426071c..cc8006c84a 100755 --- a/opac/errors/400.pl +++ b/opac/errors/400.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/errors/401.pl b/opac/errors/401.pl index 4f42ecea81..368505eb18 100755 --- a/opac/errors/401.pl +++ b/opac/errors/401.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/errors/402.pl b/opac/errors/402.pl index 2c0077fb18..09d56c37a6 100755 --- a/opac/errors/402.pl +++ b/opac/errors/402.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/errors/403.pl b/opac/errors/403.pl index ca834f0079..0b2528b02c 100755 --- a/opac/errors/403.pl +++ b/opac/errors/403.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/errors/404.pl b/opac/errors/404.pl index 5aa3f09967..fb8ee7e3e5 100755 --- a/opac/errors/404.pl +++ b/opac/errors/404.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/errors/500.pl b/opac/errors/500.pl index af1b22834d..456f7c8d4c 100755 --- a/opac/errors/500.pl +++ b/opac/errors/500.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl index a8cc47d5fc..efd759b503 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -27,7 +27,7 @@ use C4::Auth; use C4::Output; use C4::Context; use XML::Simple; -use CGI; +use CGI qw ( -utf8 ); =head1 DLF ILS-DI for Koha diff --git a/opac/maintenance.pl b/opac/maintenance.pl index 53394cbb9c..b6b3a24bd4 100755 --- a/opac/maintenance.pl +++ b/opac/maintenance.pl @@ -17,7 +17,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Templates qw/gettemplate/; diff --git a/opac/oai.pl b/opac/oai.pl index b453408b97..d6ef2e9539 100755 --- a/opac/oai.pl +++ b/opac/oai.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI qw/:standard -oldstyle_urls/; +use CGI qw( :standard -oldstyle_urls -utf8 ); use vars qw( $GZIP ); use C4::Context; diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 2acddb42bc..d45ebc3792 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -45,7 +45,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Biblio; use C4::Items; diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index 2e9b53707d..23c802a9fa 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -48,7 +48,7 @@ use Modern::Perl; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Biblio; use C4::Items; diff --git a/opac/opac-account.pl b/opac/opac-account.pl index 3907001bbb..7bbdc6ea5d 100755 --- a/opac/opac-account.pl +++ b/opac/opac-account.pl @@ -20,7 +20,7 @@ use strict; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Circulation; use C4::Auth; diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl index 4d8cf6a086..f988d9da96 100755 --- a/opac/opac-addbybiblionumber.pl +++ b/opac/opac-addbybiblionumber.pl @@ -25,7 +25,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::VirtualShelves qw/:DEFAULT GetAllShelves/; use C4::Output; diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl index f177878b5d..694ce8ca5c 100755 --- a/opac/opac-alert-subscribe.pl +++ b/opac/opac-alert-subscribe.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Dates; use C4::Output; diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl index 1810c1c58b..ab919444d2 100755 --- a/opac/opac-authorities-home.pl +++ b/opac/opac-authorities-home.pl @@ -21,8 +21,7 @@ use strict; use warnings; -use CGI; - +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl index 3e17cf18a9..2f2a0dc2f5 100755 --- a/opac/opac-authoritiesdetail.pl +++ b/opac/opac-authoritiesdetail.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; diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl index 690fc3c53d..2b345e1cbf 100755 --- a/opac/opac-basket.pl +++ b/opac/opac-basket.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Biblio; use C4::Branch; diff --git a/opac/opac-blocked.pl b/opac/opac-blocked.pl index 87532d2a6f..3d2f2333b7 100755 --- a/opac/opac-blocked.pl +++ b/opac/opac-blocked.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/opac/opac-browser.pl b/opac/opac-browser.pl index 0ff2c021ec..fbdae0b6b4 100755 --- a/opac/opac-browser.pl +++ b/opac/opac-browser.pl @@ -30,7 +30,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Koha; # use getitemtypeinfo diff --git a/opac/opac-changelanguage.pl b/opac/opac-changelanguage.pl index 1c0b842db3..a002680421 100755 --- a/opac/opac-changelanguage.pl +++ b/opac/opac-changelanguage.pl @@ -18,7 +18,7 @@ use strict; use warnings; use C4::Templates; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; my $language = $query->param('language'); diff --git a/opac/opac-course-details.pl b/opac/opac-course-details.pl index 9741359c10..b1cf4c186b 100755 --- a/opac/opac-course-details.pl +++ b/opac/opac-course-details.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/opac/opac-course-reserves.pl b/opac/opac-course-reserves.pl index b6a18aead4..eb542e20de 100755 --- a/opac/opac-course-reserves.pl +++ b/opac/opac-course-reserves.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 9ba8120ac1..4072138257 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -23,7 +23,7 @@ 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; diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl index 2d4fb1b437..98a7f3c0de 100755 --- a/opac/opac-downloadcart.pl +++ b/opac/opac-downloadcart.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use C4::Auth; diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl index 012e51b6a1..7a6b1dd9e5 100755 --- a/opac/opac-downloadshelf.pl +++ b/opac/opac-downloadshelf.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use C4::Auth; diff --git a/opac/opac-export.pl b/opac/opac-export.pl index 64c758a127..707392f5cc 100755 --- a/opac/opac-export.pl +++ b/opac/opac-export.pl @@ -24,7 +24,7 @@ use C4::Record; use C4::Auth; use C4::Output; use C4::Biblio; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Ris; diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl index dace1b136a..acaac9bab0 100755 --- a/opac/opac-ics.pl +++ b/opac/opac-ics.pl @@ -22,7 +22,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Data::ICal; use Data::ICal::Entry::Event; use DateTime; diff --git a/opac/opac-image.pl b/opac/opac-image.pl index e2dc5569db..c690f0bfd7 100755 --- a/opac/opac-image.pl +++ b/opac/opac-image.pl @@ -26,7 +26,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Images; diff --git a/opac/opac-imageviewer.pl b/opac/opac-imageviewer.pl index 226997146f..9d71bdc6ab 100755 --- a/opac/opac-imageviewer.pl +++ b/opac/opac-imageviewer.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Biblio; use C4::Output; diff --git a/opac/opac-main.pl b/opac/opac-main.pl index 5374f36a34..9db64cb224 100755 --- a/opac/opac-main.pl +++ b/opac/opac-main.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::NewsChannels; # GetNewsToDisplay diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl index 6abe803df8..de3ca52378 100755 --- a/opac/opac-memberentry.pl +++ b/opac/opac-memberentry.pl @@ -17,7 +17,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use Digest::MD5 qw( md5_base64 md5_hex ); use String::Random qw( random_string ); diff --git a/opac/opac-messaging.pl b/opac/opac-messaging.pl index 096dbffbfe..b0c1cdedd2 100755 --- a/opac/opac-messaging.pl +++ b/opac/opac-messaging.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # checkauth, getborrowernumber. use C4::Context; diff --git a/opac/opac-modrequest-suspend.pl b/opac/opac-modrequest-suspend.pl index d39e22031a..92461b9132 100755 --- a/opac/opac-modrequest-suspend.pl +++ b/opac/opac-modrequest-suspend.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; use C4::Auth; diff --git a/opac/opac-modrequest.pl b/opac/opac-modrequest.pl index 4cefe21a9f..25ec92c5ad 100755 --- a/opac/opac-modrequest.pl +++ b/opac/opac-modrequest.pl @@ -25,7 +25,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; use C4::Auth; diff --git a/opac/opac-mymessages.pl b/opac/opac-mymessages.pl index a7ccf251db..5859e57213 100755 --- a/opac/opac-mymessages.pl +++ b/opac/opac-mymessages.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; diff --git a/opac/opac-overdrive-search.pl b/opac/opac-overdrive-search.pl index 1e07b9f3ff..dbf60af05c 100755 --- a/opac/opac-overdrive-search.pl +++ b/opac/opac-overdrive-search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw(:DEFAULT get_session); use C4::Output; diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl index 2948eb3633..377e09e8ee 100755 --- a/opac/opac-passwd.pl +++ b/opac/opac-passwd.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # checkauth, getborrowernumber. use C4::Context; diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl index eab6abc0b7..a6fc4eea83 100755 --- a/opac/opac-patron-image.pl +++ b/opac/opac-patron-image.pl @@ -21,7 +21,7 @@ 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); diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl index fd98e6c1a8..4d611a369f 100755 --- a/opac/opac-privacy.pl +++ b/opac/opac-privacy.pl @@ -17,7 +17,7 @@ # 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; diff --git a/opac/opac-ratings-ajax.pl b/opac/opac-ratings-ajax.pl index a47484526b..db8fc3fab0 100755 --- a/opac/opac-ratings-ajax.pl +++ b/opac/opac-ratings-ajax.pl @@ -26,7 +26,7 @@ A script that takes an ajax json query, and then inserts or modifies a star-rati 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); diff --git a/opac/opac-ratings.pl b/opac/opac-ratings.pl index b2bcf6fed9..552d8a6dad 100755 --- a/opac/opac-ratings.pl +++ b/opac/opac-ratings.pl @@ -27,7 +27,7 @@ note: there is currently no 'delete rating' functionality in this script use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; use C4::Auth qw(:DEFAULT check_cookie_auth); use C4::Context; diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl index 1fc0dbca15..0e2d89f265 100755 --- a/opac/opac-readingrecord.pl +++ b/opac/opac-readingrecord.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl index 05b258f58a..1984610470 100755 --- a/opac/opac-registration-verify.pl +++ b/opac/opac-registration-verify.pl @@ -17,7 +17,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl index 40a07e5746..3a64ccfc98 100755 --- a/opac/opac-renew.pl +++ b/opac/opac-renew.pl @@ -24,7 +24,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Circulation; use C4::Auth; use C4::Context; diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl index ba778dba76..6c381f36c9 100755 --- a/opac/opac-reserve.pl +++ b/opac/opac-reserve.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # checkauth, getborrowernumber. use C4::Koha; use C4::Circulation; diff --git a/opac/opac-review.pl b/opac/opac-review.pl index 39b8f8fa41..948d5e5f8f 100755 --- a/opac/opac-review.pl +++ b/opac/opac-review.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Output; diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl index 5b5a66d754..85e7f33875 100755 --- a/opac/opac-search-history.pl +++ b/opac/opac-search-history.pl @@ -20,7 +20,7 @@ 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; diff --git a/opac/opac-search.pl b/opac/opac-search.pl index 692d70b938..d04f4361bd 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -51,7 +51,7 @@ use Business::ISBN; 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"); diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl index 8143cca5fc..7b63ee2b7c 100755 --- a/opac/opac-sendbasket.pl +++ b/opac/opac-sendbasket.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use Carp; diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl index b662664040..61cc979295 100755 --- a/opac/opac-sendshelf.pl +++ b/opac/opac-sendshelf.pl @@ -20,8 +20,8 @@ use strict; use warnings; -use CGI; -use Encode qw(decode encode); +use CGI qw ( -utf8 ); +use Encode qw( encode ); use Carp; use Mail::Sendmail; diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl index d27695264f..93a0ae3a24 100755 --- a/opac/opac-serial-issues.pl +++ b/opac/opac-serial-issues.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Dates; diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl index 669629b9cf..f29e170b4f 100755 --- a/opac/opac-shareshelf.pl +++ b/opac/opac-shareshelf.pl @@ -24,7 +24,7 @@ use constant TEMPLATE_NAME => 'opac-shareshelf.tt'; 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; diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl index 0cdd0c487f..fe13b7d915 100755 --- a/opac/opac-shelves.pl +++ b/opac/opac-shelves.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::VirtualShelves::Page; use C4::Auth; diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl index 86be88f6c2..786693efe2 100755 --- a/opac/opac-showmarc.pl +++ b/opac/opac-showmarc.pl @@ -21,7 +21,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use Encode; # Koha modules used diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl index cf493d5986..2bca5d6929 100755 --- a/opac/opac-showreviews.pl +++ b/opac/opac-showreviews.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Output; diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl index 2d89d9367c..c4b13594c3 100755 --- a/opac/opac-suggestions.pl +++ b/opac/opac-suggestions.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Members; use C4::Branch; diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl index 5a058d207c..6388a013f0 100755 --- a/opac/opac-tags.pl +++ b/opac/opac-tags.pl @@ -32,7 +32,7 @@ C4::Scrubber is used to remove all markup content from the sumitted text. 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); diff --git a/opac/opac-tags_subject.pl b/opac/opac-tags_subject.pl index 19322c52e4..3a7a3078ce 100755 --- a/opac/opac-tags_subject.pl +++ b/opac/opac-tags_subject.pl @@ -30,7 +30,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Koha; # use getitemtypeinfo diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl index d14163bd63..154e8807f2 100755 --- a/opac/opac-topissues.pl +++ b/opac/opac-topissues.pl @@ -22,7 +22,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Search; diff --git a/opac/opac-user.pl b/opac/opac-user.pl index ad4f339e69..995db7b011 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; diff --git a/opac/sco/help.pl b/opac/sco/help.pl index 356d351d7c..e94f00bc4e 100755 --- a/opac/sco/help.pl +++ b/opac/sco/help.pl @@ -23,7 +23,7 @@ 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); diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl index 09c6c6ae7e..6ba0066931 100755 --- a/opac/sco/printslip.pl +++ b/opac/sco/printslip.pl @@ -28,7 +28,7 @@ It is called from sco-main.pl use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; use C4::Output; diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index 0d103ecb33..c6b9b32b1f 100755 --- a/opac/sco/sco-main.pl +++ b/opac/sco/sco-main.pl @@ -34,7 +34,7 @@ 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); diff --git a/opac/svc/login b/opac/svc/login index ed41e0818c..e871f7418d 100755 --- a/opac/svc/login +++ b/opac/svc/login @@ -17,7 +17,7 @@ # 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; diff --git a/opac/svc/overdrive_proxy b/opac/svc/overdrive_proxy index 02b6ad0276..22f4b1b78b 100755 --- a/opac/svc/overdrive_proxy +++ b/opac/svc/overdrive_proxy @@ -35,7 +35,7 @@ JS side from having to deal with cross-origin/authentication issues. use strict; use warnings; -use CGI qw(-oldstyle_urls); +use CGI qw(-oldstyle_urls -utf8); use JSON; use C4::Context; diff --git a/opac/svc/report b/opac/svc/report index af6b71240f..bfc84e5c2a 100755 --- a/opac/svc/report +++ b/opac/svc/report @@ -25,7 +25,7 @@ use Modern::Perl; use C4::Reports::Guided; use JSON; -use CGI; +use CGI qw ( -utf8 ); use Koha::Cache; diff --git a/opac/svc/shelfbrowser.pl b/opac/svc/shelfbrowser.pl index 611c503c9e..ea0e9d7c90 100755 --- a/opac/svc/shelfbrowser.pl +++ b/opac/svc/shelfbrowser.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; diff --git a/opac/svc/suggestion b/opac/svc/suggestion index 9c08565a79..0fbb31bd37 100755 --- a/opac/svc/suggestion +++ b/opac/svc/suggestion @@ -57,7 +57,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use JSON; use Koha::SuggestionEngine; diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl index 7182fdb4ee..d64b00bd52 100755 --- a/opac/tracklinks.pl +++ b/opac/tracklinks.pl @@ -22,7 +22,7 @@ use Modern::Perl; 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') || ''; diff --git a/opac/unapi b/opac/unapi index 96076b6918..8b573e46df 100755 --- a/opac/unapi +++ b/opac/unapi @@ -37,7 +37,7 @@ an XML format such as OAI DC, RSS2, MARCXML, or MODS. =cut -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Biblio; use XML::LibXML; diff --git a/patron_lists/add-modify.pl b/patron_lists/add-modify.pl index b5cafb2ea0..27060a6191 100755 --- a/patron_lists/add-modify.pl +++ b/patron_lists/add-modify.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/patron_lists/delete.pl b/patron_lists/delete.pl index aa515c28d5..f9d1aef19c 100755 --- a/patron_lists/delete.pl +++ b/patron_lists/delete.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/patron_lists/list.pl b/patron_lists/list.pl index a1dee24a2f..ef2085c29f 100755 --- a/patron_lists/list.pl +++ b/patron_lists/list.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/patron_lists/lists.pl b/patron_lists/lists.pl index 457520fbde..a5cdf2b74c 100755 --- a/patron_lists/lists.pl +++ b/patron_lists/lists.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/patron_lists/patrons.pl b/patron_lists/patrons.pl index 6e38ca1dcb..658f92de8f 100755 --- a/patron_lists/patrons.pl +++ b/patron_lists/patrons.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/patroncards/card-print.pl b/patroncards/card-print.pl index 482c15f287..1d82ae0345 100755 --- a/patroncards/card-print.pl +++ b/patroncards/card-print.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Data::Dumper; use C4::Auth qw(get_template_and_user); diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl index 56a32e60f7..d507722ef2 100755 --- a/patroncards/create-pdf.pl +++ b/patroncards/create-pdf.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use Graphics::Magick; use XML::Simple; diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl index fb730a7053..70dac9cb4d 100755 --- a/patroncards/edit-batch.pl +++ b/patroncards/edit-batch.pl @@ -22,7 +22,7 @@ use strict; 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); diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl index dd5f46ad89..513ab5f0f6 100755 --- a/patroncards/edit-layout.pl +++ b/patroncards/edit-layout.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Text::CSV_XS; use XML::Simple; use autouse 'Data::Dumper' => qw(Dumper); diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl index 0f03754bf1..84f18e6903 100755 --- a/patroncards/edit-profile.pl +++ b/patroncards/edit-profile.pl @@ -21,7 +21,7 @@ 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); diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl index 0b1da553be..8d07e8b4fd 100755 --- a/patroncards/edit-template.pl +++ b/patroncards/edit-template.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth qw(get_template_and_user); diff --git a/patroncards/home.pl b/patroncards/home.pl index cedfef2054..de7f243ffa 100755 --- a/patroncards/home.pl +++ b/patroncards/home.pl @@ -21,7 +21,7 @@ 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); diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl index 0ec1b7b73d..d72c655e4d 100755 --- a/patroncards/image-manage.pl +++ b/patroncards/image-manage.pl @@ -3,7 +3,7 @@ use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use Graphics::Magick; use POSIX qw(ceil); use autouse 'Data::Dumper' => qw(Dumper); diff --git a/patroncards/manage.pl b/patroncards/manage.pl index 2c13a4e62a..a05f0f8dd8 100755 --- a/patroncards/manage.pl +++ b/patroncards/manage.pl @@ -22,7 +22,7 @@ use strict; 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); diff --git a/patroncards/members-search.pl b/patroncards/members-search.pl index 8d46417970..3492c7dd8b 100755 --- a/patroncards/members-search.pl +++ b/patroncards/members-search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/patroncards/print.pl b/patroncards/print.pl index 76ff2ebb3b..4b20e5abd0 100755 --- a/patroncards/print.pl +++ b/patroncards/print.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth qw(get_template_and_user); diff --git a/plugins/plugins-home.pl b/plugins/plugins-home.pl index 03095bb705..693aca9795 100755 --- a/plugins/plugins-home.pl +++ b/plugins/plugins-home.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Koha::Plugins; use C4::Auth; diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl index b7dad4103a..bde1ff3997 100755 --- a/plugins/plugins-uninstall.pl +++ b/plugins/plugins-uninstall.pl @@ -21,7 +21,7 @@ use warnings; use Archive::Extract; use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl index 34805e8683..2cadb5db44 100755 --- a/plugins/plugins-upload.pl +++ b/plugins/plugins-upload.pl @@ -22,7 +22,7 @@ use warnings; use Archive::Extract; use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; diff --git a/plugins/run.pl b/plugins/run.pl index 50eb4dcb22..ec7ab6bb4a 100755 --- a/plugins/run.pl +++ b/plugins/run.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Koha::Plugins::Handler; use C4::Auth; diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl index b19bf8eb00..fd30926c97 100755 --- a/reports/acquisitions_stats.pl +++ b/reports/acquisitions_stats.pl @@ -20,7 +20,7 @@ use Modern::Perl; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Reports; use C4::Output; diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl index f8ee8e8c17..d219991098 100755 --- a/reports/bor_issues_top.pl +++ b/reports/bor_issues_top.pl @@ -19,7 +19,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/reports/borrowers_out.pl b/reports/borrowers_out.pl index 9687234ffb..3acfcdc6c3 100755 --- a/reports/borrowers_out.pl +++ b/reports/borrowers_out.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Koha; diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl index e71fef94b2..0280a864e6 100755 --- a/reports/borrowers_stats.pl +++ b/reports/borrowers_stats.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 List::MoreUtils qw/uniq/; use C4::Auth; diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl index 893fd21174..5916986ca3 100755 --- a/reports/cat_issues_top.pl +++ b/reports/cat_issues_top.pl @@ -21,7 +21,7 @@ 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; diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl index 2637f98f1a..3454d2e02e 100755 --- a/reports/catalogue_out.pl +++ b/reports/catalogue_out.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl index 2ab9bfecb7..94371e9040 100755 --- a/reports/catalogue_stats.pl +++ b/reports/catalogue_stats.pl @@ -21,7 +21,7 @@ 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; diff --git a/reports/dictionary.pl b/reports/dictionary.pl index f3e08d00c7..967c73a8e9 100755 --- a/reports/dictionary.pl +++ b/reports/dictionary.pl @@ -20,7 +20,7 @@ use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reports::Guided; use C4::Dates; diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl index 3781d37a7a..93fe04676f 100755 --- a/reports/issues_avg_stats.pl +++ b/reports/issues_avg_stats.pl @@ -21,7 +21,7 @@ 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; diff --git a/reports/issues_by_borrower_category.plugin b/reports/issues_by_borrower_category.plugin index 806ff7cda0..95cee7deac 100755 --- a/reports/issues_by_borrower_category.plugin +++ b/reports/issues_by_borrower_category.plugin @@ -20,7 +20,7 @@ use strict; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; use C4::Output; diff --git a/reports/issues_stats.pl b/reports/issues_stats.pl index 0ab014374a..7a487f8403 100755 --- a/reports/issues_stats.pl +++ b/reports/issues_stats.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use Date::Manip; use C4::Auth; diff --git a/reports/itemslost.pl b/reports/itemslost.pl index cb283d5aca..450ed45805 100755 --- a/reports/itemslost.pl +++ b/reports/itemslost.pl @@ -28,7 +28,7 @@ This script displays lost items. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/reports/itemtypes.plugin b/reports/itemtypes.plugin index e4164a5a76..b0505d0929 100755 --- a/reports/itemtypes.plugin +++ b/reports/itemtypes.plugin @@ -20,7 +20,7 @@ use strict; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; use C4::Output; diff --git a/reports/manager.pl b/reports/manager.pl index 01b4deb183..7a91e9e60d 100755 --- a/reports/manager.pl +++ b/reports/manager.pl @@ -19,7 +19,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; diff --git a/reports/reports-home.pl b/reports/reports-home.pl index 29d3617808..b1c7355452 100755 --- a/reports/reports-home.pl +++ b/reports/reports-home.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/reports/reservereport.pl b/reports/reservereport.pl index bd5ee0cac5..90085bc102 100755 --- a/reports/reservereport.pl +++ b/reports/reservereport.pl @@ -27,7 +27,7 @@ use strict; #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; diff --git a/reports/reserves_stats.pl b/reports/reserves_stats.pl index 11fcb8e9a0..df8d6481f6 100755 --- a/reports/reserves_stats.pl +++ b/reports/reserves_stats.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Debug; diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl index c7644c84f0..3ec22f8072 100755 --- a/reports/serials_stats.pl +++ b/reports/serials_stats.pl @@ -20,7 +20,7 @@ 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/; diff --git a/reports/stats.print.pl b/reports/stats.print.pl index 066aafa4b6..9495360342 100755 --- a/reports/stats.print.pl +++ b/reports/stats.print.pl @@ -2,7 +2,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; diff --git a/reports/stats.screen.pl b/reports/stats.screen.pl index 0eef8d13b3..d50368d8e2 100755 --- a/reports/stats.screen.pl +++ b/reports/stats.screen.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; use C4::Context; diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl index 183f52eb44..9b64e245de 100755 --- a/reserve/modrequest.pl +++ b/reserve/modrequest.pl @@ -24,7 +24,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; use C4::Auth; diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl index a8662c7356..4d3b6a5e3d 100755 --- a/reserve/modrequest_suspendall.pl +++ b/reserve/modrequest_suspendall.pl @@ -24,7 +24,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; use C4::Auth; diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl index 3fe459c259..1499ea5007 100755 --- a/reserve/placerequest.pl +++ b/reserve/placerequest.pl @@ -24,7 +24,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Items; use C4::Output; diff --git a/reserve/renewscript.pl b/reserve/renewscript.pl index 56fab0b558..b5402d107d 100755 --- a/reserve/renewscript.pl +++ b/reserve/renewscript.pl @@ -21,7 +21,7 @@ # 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; diff --git a/reserve/request.pl b/reserve/request.pl index 70c002ace9..ce0e70f79a 100755 --- a/reserve/request.pl +++ b/reserve/request.pl @@ -29,7 +29,7 @@ script to place reserves/requests 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; diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl index 206d63b9fb..b7cf3afda6 100755 --- a/reviews/reviewswaiting.pl +++ b/reviews/reviewswaiting.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Context; diff --git a/rotating_collections/addItems.pl b/rotating_collections/addItems.pl index 6286a407e8..93fa4eea1e 100755 --- a/rotating_collections/addItems.pl +++ b/rotating_collections/addItems.pl @@ -24,7 +24,7 @@ use C4::Context; use C4::RotatingCollections; use C4::Items; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl index 6d99ddb803..fe02cf2273 100755 --- a/rotating_collections/editCollections.pl +++ b/rotating_collections/editCollections.pl @@ -18,7 +18,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; diff --git a/rotating_collections/rotatingCollections.pl b/rotating_collections/rotatingCollections.pl index d86dab0153..8cbd77292e 100755 --- a/rotating_collections/rotatingCollections.pl +++ b/rotating_collections/rotatingCollections.pl @@ -18,7 +18,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl index 2a04857e6e..8ed4bdbf22 100755 --- a/rotating_collections/transferCollection.pl +++ b/rotating_collections/transferCollection.pl @@ -24,7 +24,7 @@ use C4::Context; use C4::RotatingCollections; use C4::Branch; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl index 319b852d28..2eb248eea5 100755 --- a/serials/acqui-search-result.pl +++ b/serials/acqui-search-result.pl @@ -45,7 +45,7 @@ use warnings; 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/; diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl index a8592fb584..a8c2248c3b 100755 --- a/serials/acqui-search.pl +++ b/serials/acqui-search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl index e24210f4c9..9feeaad36b 100755 --- a/serials/checkexpiration.pl +++ b/serials/checkexpiration.pl @@ -44,7 +44,7 @@ The date to filter on. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Serials; # GetExpirationDate use C4::Output; diff --git a/serials/claims.pl b/serials/claims.pl index 7120515eb5..89150a1132 100755 --- a/serials/claims.pl +++ b/serials/claims.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Serials; use C4::Acquisition; diff --git a/serials/create-numberpattern.pl b/serials/create-numberpattern.pl index f2c6d492c5..52b303d8a8 100755 --- a/serials/create-numberpattern.pl +++ b/serials/create-numberpattern.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Serials::Numberpattern; use C4::Auth qw/check_cookie_auth/; diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl index 97b5bbe430..a75b21cd11 100755 --- a/serials/lateissues-export.pl +++ b/serials/lateissues-export.pl @@ -16,7 +16,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Serials; use C4::Acquisition; diff --git a/serials/member-search.pl b/serials/member-search.pl index dfeb373497..9ae769bab7 100755 --- a/serials/member-search.pl +++ b/serials/member-search.pl @@ -25,7 +25,7 @@ Member Search.pl script used to search for members to add to a routing list use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Members; # BornameSearch diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl index 8b64fc7723..ba19b8c813 100755 --- a/serials/reorder_members.pl +++ b/serials/reorder_members.pl @@ -20,7 +20,7 @@ # printed out use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); use C4::Serials qw( reorder_members ); diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl index 1f219cc069..db0984c059 100755 --- a/serials/routing-preview.pl +++ b/serials/routing-preview.pl @@ -20,7 +20,7 @@ # of reserves for the serial use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; use C4::Dates; diff --git a/serials/routing.pl b/serials/routing.pl index 5dd53fecad..5e857294e8 100755 --- a/serials/routing.pl +++ b/serials/routing.pl @@ -27,7 +27,7 @@ printed out use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; use C4::Dates; diff --git a/serials/serial-issues.pl b/serials/serial-issues.pl index de5989bb66..0294c549b8 100755 --- a/serials/serial-issues.pl +++ b/serials/serial-issues.pl @@ -43,7 +43,7 @@ the biblionumber this script has to give more infos. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Dates; diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl index 2922c428f7..6d17354597 100755 --- a/serials/serials-collection.pl +++ b/serials/serials-collection.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Dates qw/format_date/; diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl index 54c8ccd212..d9b97a631f 100755 --- a/serials/serials-edit.pl +++ b/serials/serials-edit.pl @@ -63,7 +63,7 @@ op can be : 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/; diff --git a/serials/serials-home.pl b/serials/serials-home.pl index 175321e6f0..66e47e2214 100755 --- a/serials/serials-home.pl +++ b/serials/serials-home.pl @@ -29,7 +29,7 @@ this script is the main page for serials/ =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Context; diff --git a/serials/serials-recieve.pl b/serials/serials-recieve.pl index d5daa9ff55..9fbce35d1f 100755 --- a/serials/serials-recieve.pl +++ b/serials/serials-recieve.pl @@ -64,7 +64,7 @@ op can be : 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; diff --git a/serials/serials-search.pl b/serials/serials-search.pl index b4e771521d..b8a4007954 100755 --- a/serials/serials-search.pl +++ b/serials/serials-search.pl @@ -29,7 +29,7 @@ this script is the search page for serials =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Context; diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl index 82cf8af880..6945a36e83 100755 --- a/serials/showpredictionpattern.pl +++ b/serials/showpredictionpattern.pl @@ -30,7 +30,7 @@ publication date, based on frequency and first publication date. 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; diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl index b17fc608d0..fa75f06cf3 100755 --- a/serials/subscription-add.pl +++ b/serials/subscription-add.pl @@ -18,7 +18,7 @@ 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; diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl index e47b1e72df..d8a8dd52de 100755 --- a/serials/subscription-bib-search.pl +++ b/serials/subscription-bib-search.pl @@ -49,7 +49,7 @@ to multipage gestion. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; use C4::Context; diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl index a3186cb89f..ebdc4152d5 100755 --- a/serials/subscription-detail.pl +++ b/serials/subscription-detail.pl @@ -16,7 +16,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::Budgets; diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl index a44a9bb9f5..f3c6d572d3 100755 --- a/serials/subscription-frequencies.pl +++ b/serials/subscription-frequencies.pl @@ -29,7 +29,7 @@ Manage subscription frequencies use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl index 1d380823a0..f7fe7c0bdb 100755 --- a/serials/subscription-frequency.pl +++ b/serials/subscription-frequency.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Serials::Frequency; use C4::Auth qw/check_cookie_auth/; diff --git a/serials/subscription-history.pl b/serials/subscription-history.pl index a45074f6c2..9310b5d003 100755 --- a/serials/subscription-history.pl +++ b/serials/subscription-history.pl @@ -29,7 +29,7 @@ Modify subscription history use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/subscription-numberpattern.pl b/serials/subscription-numberpattern.pl index 2a59d02adf..26745f1c14 100755 --- a/serials/subscription-numberpattern.pl +++ b/serials/subscription-numberpattern.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . 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 ); diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl index 934b545271..2bcce3a077 100755 --- a/serials/subscription-numberpatterns.pl +++ b/serials/subscription-numberpatterns.pl @@ -28,7 +28,7 @@ Manage numbering patterns =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl index df01dcccf8..92f7766f71 100755 --- a/serials/subscription-renew.pl +++ b/serials/subscription-renew.pl @@ -46,7 +46,7 @@ Id of the subscription this script has to renew use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Carp; use C4::Koha; use C4::Auth; diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl index 7d813e02e5..af28d66d6d 100755 --- a/serials/viewalerts.pl +++ b/serials/viewalerts.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl index 3d7aa89ede..ff6eb12a1e 100755 --- a/services/itemrecorddisplay.pl +++ b/services/itemrecorddisplay.pl @@ -30,7 +30,7 @@ It uses PrepareItemrecordDisplay use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Items; diff --git a/sms/sms.pl b/sms/sms.pl index 22f630e255..5d599fb939 100755 --- a/sms/sms.pl +++ b/sms/sms.pl @@ -2,7 +2,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::SMS; use C4::Output; use C4::Auth; diff --git a/sms/sms_listen_windows_start.pl b/sms/sms_listen_windows_start.pl index c0e39d5d9b..a94dc9589d 100755 --- a/sms/sms_listen_windows_start.pl +++ b/sms/sms_listen_windows_start.pl @@ -7,7 +7,7 @@ use strict; 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"; diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl index b146aad5e9..b54703a11f 100755 --- a/suggestion/suggestion.pl +++ b/suggestion/suggestion.pl @@ -20,7 +20,7 @@ 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; diff --git a/svc/authentication b/svc/authentication index 945d3161e2..b64ecc88e6 100755 --- a/svc/authentication +++ b/svc/authentication @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; use XML::Simple; diff --git a/svc/bib b/svc/bib index d7cd1699c2..ef1e41c615 100755 --- a/svc/bib +++ b/svc/bib @@ -22,7 +22,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; use C4::Biblio; use C4::Items; diff --git a/svc/bib_profile b/svc/bib_profile index e1c1f68a29..e7660f0fc4 100755 --- a/svc/bib_profile +++ b/svc/bib_profile @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; use C4::Context; use C4::Koha; diff --git a/svc/cover_images b/svc/cover_images index ff29503eae..590a243dc8 100755 --- a/svc/cover_images +++ b/svc/cover_images @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/check_cookie_auth/; use C4::Images; use JSON qw/to_json/; diff --git a/svc/import_bib b/svc/import_bib index f93428d714..06c0fbfab9 100755 --- a/svc/import_bib +++ b/svc/import_bib @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; use C4::Context; use C4::ImportBatch; diff --git a/svc/new_bib b/svc/new_bib index 435d837831..7ec4d05690 100755 --- a/svc/new_bib +++ b/svc/new_bib @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; use C4::Biblio; use C4::Items; diff --git a/svc/report b/svc/report index ca4fbea2b0..8736acafb2 100755 --- a/svc/report +++ b/svc/report @@ -23,7 +23,7 @@ use Modern::Perl; use C4::Auth; use C4::Reports::Guided; use JSON; -use CGI; +use CGI qw ( -utf8 ); use Koha::Cache; diff --git a/t/Languages.t b/t/Languages.t index 9cafbd77bd..6b0f63827d 100644 --- a/t/Languages.t +++ b/t/Languages.t @@ -20,7 +20,7 @@ use Modern::Perl; use Test::More tests => 3; use Test::MockModule; -use CGI; +use CGI qw ( -utf8 ); BEGIN { use_ok('C4::Languages'); diff --git a/t/Output.t b/t/Output.t index 24c1344298..4474d18752 100755 --- a/t/Output.t +++ b/t/Output.t @@ -4,7 +4,7 @@ use strict; use warnings; use Test::More tests => 5; -use CGI; +use CGI qw ( -utf8 ); BEGIN { use_ok('C4::Output'); diff --git a/t/db_dependent/Auth.t b/t/db_dependent/Auth.t index 079779fdfc..f7690407a6 100644 --- a/t/db_dependent/Auth.t +++ b/t/db_dependent/Auth.t @@ -5,7 +5,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use Test::MockModule; use List::MoreUtils qw/all any none/; use Test::More tests => 6; diff --git a/t/db_dependent/BackgroundJob.t b/t/db_dependent/BackgroundJob.t index 668e1ca4f1..9ea2caa674 100644 --- a/t/db_dependent/BackgroundJob.t +++ b/t/db_dependent/BackgroundJob.t @@ -6,7 +6,7 @@ use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use Test::More tests => 14; BEGIN { diff --git a/t/db_dependent/ILSDI_Services.t b/t/db_dependent/ILSDI_Services.t index 1951eccba6..9aee73e292 100644 --- a/t/db_dependent/ILSDI_Services.t +++ b/t/db_dependent/ILSDI_Services.t @@ -4,7 +4,7 @@ use Modern::Perl; use C4::Members qw/AddMember GetMember GetBorrowercategory/; use C4::Branch; -use CGI; +use CGI qw ( -utf8 ); use Test::More tests => 15; diff --git a/t/db_dependent/Serials.t b/t/db_dependent/Serials.t index 8fbb709a3b..32def21945 100644 --- a/t/db_dependent/Serials.t +++ b/t/db_dependent/Serials.t @@ -6,7 +6,7 @@ use Modern::Perl; use YAML; -use CGI; +use CGI qw ( -utf8 ); use C4::Serials; use C4::Serials::Frequency; use C4::Serials::Numberpattern; diff --git a/tags/list.pl b/tags/list.pl index 5813c83b40..24265a1a37 100755 --- a/tags/list.pl +++ b/tags/list.pl @@ -19,7 +19,7 @@ use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw(:DEFAULT check_cookie_auth); use C4::Biblio; diff --git a/tags/review.pl b/tags/review.pl index b04c294442..6da80277d4 100755 --- a/tags/review.pl +++ b/tags/review.pl @@ -23,7 +23,7 @@ use warnings; 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); diff --git a/test/progressbar.pl b/test/progressbar.pl index 22853488f6..bdd8b4df5c 100755 --- a/test/progressbar.pl +++ b/test/progressbar.pl @@ -28,7 +28,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # Koha modules used diff --git a/test/progressbarsubmit.pl b/test/progressbarsubmit.pl index 691947d0fe..a15cf510c1 100755 --- a/test/progressbarsubmit.pl +++ b/test/progressbarsubmit.pl @@ -28,7 +28,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # Koha modules used diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl index 63f371a936..2aeda40847 100755 --- a/tools/ajax-inventory.pl +++ b/tools/ajax-inventory.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Items qw( ModDateLastSeen ); diff --git a/tools/background-job-progress.pl b/tools/background-job-progress.pl index 380ad15c32..8f968d3ae5 100755 --- a/tools/background-job-progress.pl +++ b/tools/background-job-progress.pl @@ -22,7 +22,7 @@ use strict; # 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/; diff --git a/tools/batchMod.pl b/tools/batchMod.pl index ea9c856c6e..4ff95e836b 100755 --- a/tools/batchMod.pl +++ b/tools/batchMod.pl @@ -18,7 +18,7 @@ # 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; diff --git a/tools/batch_records_ajax.pl b/tools/batch_records_ajax.pl index e3dec8384a..c8c61989f0 100755 --- a/tools/batch_records_ajax.pl +++ b/tools/batch_records_ajax.pl @@ -31,7 +31,7 @@ the records from an import batch. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use JSON qw/ to_json /; use C4::Context; diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl index 9a9c1ca003..918dd9ece1 100755 --- a/tools/cleanborrowers.pl +++ b/tools/cleanborrowers.pl @@ -34,7 +34,7 @@ This script allows to do 2 things. use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Members; # GetBorrowersWhoHavexxxBorrowed. diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl index 83c9761ebe..5a1618d4ac 100755 --- a/tools/copy-holidays.pl +++ b/tools/copy-holidays.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl index 942452c839..c2613762ea 100755 --- a/tools/csv-profiles.pl +++ b/tools/csv-profiles.pl @@ -41,7 +41,7 @@ use Encode; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Csv; diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl index 0a36a20e31..45e2208101 100755 --- a/tools/exceptionHolidays.pl +++ b/tools/exceptionHolidays.pl @@ -3,7 +3,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/tools/export.pl b/tools/export.pl index bae69410be..f1bbcbb80e 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -20,7 +20,7 @@ use Modern::Perl; 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 diff --git a/tools/holidays.pl b/tools/holidays.pl index 23468d167b..b5aa4e3f62 100755 --- a/tools/holidays.pl +++ b/tools/holidays.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl index 55b7e7f8b2..3b557f05f0 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -55,7 +55,7 @@ use Text::CSV; # ė # č -use CGI; +use CGI qw ( -utf8 ); # use encoding 'utf8'; # don't do this my (@errors, @feedback); diff --git a/tools/inventory.pl b/tools/inventory.pl index ba10b14bb5..8c88349cd1 100755 --- a/tools/inventory.pl +++ b/tools/inventory.pl @@ -22,7 +22,7 @@ use strict; 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'); diff --git a/tools/koha-news.pl b/tools/koha-news.pl index 1859deb665..cf1e2b40e7 100755 --- a/tools/koha-news.pl +++ b/tools/koha-news.pl @@ -24,7 +24,7 @@ use strict; # use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Context; diff --git a/tools/letter.pl b/tools/letter.pl index ab4f78f2d6..b806e9b6f7 100755 --- a/tools/letter.pl +++ b/tools/letter.pl @@ -42,7 +42,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl index 961a327a56..f0f2ca5496 100755 --- a/tools/manage-marc-import.pl +++ b/tools/manage-marc-import.pl @@ -21,7 +21,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; use MARC::File::USMARC; diff --git a/tools/marc_modification_templates.pl b/tools/marc_modification_templates.pl index 4f9323f14d..31c663baef 100755 --- a/tools/marc_modification_templates.pl +++ b/tools/marc_modification_templates.pl @@ -18,7 +18,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl index a3f8b3f173..bc82ed46a8 100755 --- a/tools/modborrowers.pl +++ b/tools/modborrowers.pl @@ -26,7 +26,7 @@ # And for patron attributes. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Koha; diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl index 646276c4ef..678ee0d740 100755 --- a/tools/newHolidays.pl +++ b/tools/newHolidays.pl @@ -3,7 +3,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/tools/overduerules.pl b/tools/overduerules.pl index a824bd43c7..178a569129 100755 --- a/tools/overduerules.pl +++ b/tools/overduerules.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; use C4::Auth; diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl index b7d99d7940..af3012ab19 100755 --- a/tools/picture-upload.pl +++ b/tools/picture-upload.pl @@ -23,7 +23,7 @@ use Modern::Perl; use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use GD; use C4::Context; use C4::Auth; diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl index 7db61ce653..eae219c2db 100755 --- a/tools/quotes-upload.pl +++ b/tools/quotes-upload.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth; diff --git a/tools/quotes.pl b/tools/quotes.pl index e12f4bfff3..e65a013e4a 100755 --- a/tools/quotes.pl +++ b/tools/quotes.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth; diff --git a/tools/quotes/quotes-upload_ajax.pl b/tools/quotes/quotes-upload_ajax.pl index d2817d3af1..08606e0eda 100755 --- a/tools/quotes/quotes-upload_ajax.pl +++ b/tools/quotes/quotes-upload_ajax.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use JSON; use autouse 'Data::Dumper' => qw(Dumper); diff --git a/tools/quotes/quotes_ajax.pl b/tools/quotes/quotes_ajax.pl index 5f44a7efba..ece31c65dc 100755 --- a/tools/quotes/quotes_ajax.pl +++ b/tools/quotes/quotes_ajax.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use JSON; use autouse 'Data::Dumper' => qw(Dumper); diff --git a/tools/scheduler.pl b/tools/scheduler.pl index c909971188..b55204bba8 100755 --- a/tools/scheduler.pl +++ b/tools/scheduler.pl @@ -23,7 +23,7 @@ use C4::Context; use C4::Scheduler; use C4::Reports::Guided; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Dates; diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl index a5f4d17ba8..500e6cd0c8 100755 --- a/tools/stage-marc-import.pl +++ b/tools/stage-marc-import.pl @@ -28,7 +28,7 @@ use strict; #use warnings; FIXME - Bug 2505 # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; use MARC::File::USMARC; diff --git a/tools/tools-home.pl b/tools/tools-home.pl index b493f1fead..75f970bcee 100755 --- a/tools/tools-home.pl +++ b/tools/tools-home.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Review qw/numberofreviews/; diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl index 478c119177..1e6a1af8a5 100755 --- a/tools/upload-cover-image.pl +++ b/tools/upload-cover-image.pl @@ -41,7 +41,7 @@ use strict; use warnings; use File::Temp; -use CGI; +use CGI qw ( -utf8 ); use GD; use C4::Context; use C4::Auth; diff --git a/tools/upload-file-progress.pl b/tools/upload-file-progress.pl index c457dbb69d..dd1065cbe7 100755 --- a/tools/upload-file-progress.pl +++ b/tools/upload-file-progress.pl @@ -22,7 +22,7 @@ use strict; # 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/; diff --git a/tools/upload-file.pl b/tools/upload-file.pl index b705f5c8fc..dd8c4f5402 100755 --- a/tools/upload-file.pl +++ b/tools/upload-file.pl @@ -22,7 +22,7 @@ use strict; # 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/; diff --git a/tools/viewlog.pl b/tools/viewlog.pl index e526c1ff9f..6f5ea03325 100755 --- a/tools/viewlog.pl +++ b/tools/viewlog.pl @@ -21,7 +21,7 @@ use Modern::Perl; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use Text::CSV::Encoded; use C4::Context; use C4::Koha; diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl index 289a4aa9b1..87586f2086 100755 --- a/virtualshelves/addbybiblionumber.pl +++ b/virtualshelves/addbybiblionumber.pl @@ -61,7 +61,7 @@ addbybiblionumber.pl use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Output; use C4::VirtualShelves qw/:DEFAULT GetAllShelves/; diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl index caf01ac2db..27fc7f94d5 100755 --- a/virtualshelves/downloadshelf.pl +++ b/virtualshelves/downloadshelf.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use C4::Auth; diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl index 1d415819c1..c98e8ce1cd 100755 --- a/virtualshelves/sendshelf.pl +++ b/virtualshelves/sendshelf.pl @@ -20,8 +20,8 @@ use strict; use warnings; -use CGI; -use Encode qw(decode encode); +use CGI qw ( -utf8 ); +use Encode qw(encode); use Carp; use Mail::Sendmail; diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl index 9f82e9d8e6..9dba3f4ca1 100755 --- a/virtualshelves/shelves.pl +++ b/virtualshelves/shelves.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::VirtualShelves::Page; use C4::Auth; -- 2.39.5