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 493c8dfc3db..ae99fe90c22 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 17e43e406ef..c5f21a822e2 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 b735ab8e5ca..5f3a9e5e00e 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 328c55e704e..7b74723737c 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 e33ef6edffc..b917a82a843 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 38042421da1..1869f2f0bbe 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 35ac2e1df15..1fe45ae8287 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 74019c0e781..fce28e42fb7 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 bb283fa4588..aaa1ce2eb47 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 edc1d046dbb..70fe9cc2e0e 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 2aca72f8667..5c6f6960694 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 259e28cb0e7..7350f9039c6 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 d834c5b14dc..f5129379651 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 d9990ff9074..d59cd70a937 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 35deb203d71..2ffeeaf0271 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 23f8bce273f..5a5cbd030eb 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 7f62910e8a9..e3ff04b8d1e 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 56518c2956d..052839d51de 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 4fbc7e89d41..7f0da61b7b3 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 8741aa48578..6aca89fd8ef 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Acquisition; diff --git a/acqui/addorder.pl b/acqui/addorder.pl index f5508a2cecd..d95ba7b12bd 100755 --- a/acqui/addorder.pl +++ b/acqui/addorder.pl @@ -121,7 +121,7 @@ =head1 CGI PARAMETERS use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Acquisition; # ModOrder use C4::Suggestions; # ModStatus diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index be8b8970d34..b4aa4d9cf20 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 0a74ada4712..fb0e5e5a8de 100755 --- a/acqui/ajax-getauthvaluedropbox.pl +++ b/acqui/ajax-getauthvaluedropbox.pl @@ -47,7 +47,7 @@ =head1 CGI PARAMETERS use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Charset; use C4::Auth qw/check_api_auth/; diff --git a/acqui/aqbasketuser_search.pl b/acqui/aqbasketuser_search.pl index 6c020ca9a37..660fd499e12 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 e04024a878b..921c67e79c0 100755 --- a/acqui/basket.pl +++ b/acqui/basket.pl @@ -25,7 +25,7 @@ use C4::Auth; use C4::Koha; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Acquisition; use C4::Budgets; use C4::Branch; diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl index ef629215e72..2b2bd78d669 100755 --- a/acqui/basketgroup.pl +++ b/acqui/basketgroup.pl @@ -50,7 +50,7 @@ =head1 CGI PARAMETERS use C4::Input; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Budgets qw/ConvertCurrency/; use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/; diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl index eefa45041ca..15c76e83356 100755 --- a/acqui/basketheader.pl +++ b/acqui/basketheader.pl @@ -47,7 +47,7 @@ =head1 CGI PARAMETERS use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Branch; diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl index 9a2bb2567fa..a5eb47d474a 100755 --- a/acqui/booksellers.pl +++ b/acqui/booksellers.pl @@ -57,7 +57,7 @@ =head1 CGI PARAMETERS use C4::Biblio; use C4::Budgets; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /; use C4::Members qw/GetMember/; diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl index 83fda5e840b..a140559d0f5 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 fe50b6d33ee..2ff2b3c5a22 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 d8f29fac63e..b9edd2555fe 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 7480fb6f1d1..c211cc39f90 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 6642561b7ad..286474ffd8e 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 376681f1bf7..5bc54040d3d 100755 --- a/acqui/histsearch.pl +++ b/acqui/histsearch.pl @@ -51,7 +51,7 @@ =head1 CGI PARAMETERS use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Acquisition; diff --git a/acqui/invoice.pl b/acqui/invoice.pl index d7e40b6bb63..f64836b5679 100755 --- a/acqui/invoice.pl +++ b/acqui/invoice.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Acquisition; diff --git a/acqui/invoices.pl b/acqui/invoices.pl index 4c72d64900a..6542b1818df 100755 --- a/acqui/invoices.pl +++ b/acqui/invoices.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION 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 585cac83c2e..96a182420d5 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 b68673f17f2..f944a066d52 100755 --- a/acqui/lateorders.pl +++ b/acqui/lateorders.pl @@ -44,7 +44,7 @@ =head1 CGI PARAMETERS =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Bookseller qw( GetBooksellersWithLateOrders ); use C4::Auth; use C4::Koha; diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl index 02bd77b0ef9..2c6b71b28af 100755 --- a/acqui/modordernotes.pl +++ b/acqui/modordernotes.pl @@ -28,7 +28,7 @@ =head1 DESCRIPTION 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 8d13915668a..dfcc5340f8d 100755 --- a/acqui/neworderbiblio.pl +++ b/acqui/neworderbiblio.pl @@ -59,7 +59,7 @@ =head1 CGI PARAMETERS #use warnings; FIXME - Bug 2505 use C4::Search; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Auth; use C4::Output; diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index b8f667b65d0..93c07c6b688 100755 --- a/acqui/neworderempty.pl +++ b/acqui/neworderempty.pl @@ -68,7 +68,7 @@ =head1 CGI PARAMETERS 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 04173dbb2a7..cb04c646f3a 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 e31c0a47983..839b4f4bbf7 100755 --- a/acqui/newordersuggestion.pl +++ b/acqui/newordersuggestion.pl @@ -91,7 +91,7 @@ =head1 CGI PARAMETERS use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Suggestions; diff --git a/acqui/ordered.pl b/acqui/ordered.pl index cdf2cd75c30..4a1ec5b0c4f 100755 --- a/acqui/ordered.pl +++ b/acqui/ordered.pl @@ -30,7 +30,7 @@ =head1 DESCRIPTION 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 878d77afe59..96a6a024bde 100755 --- a/acqui/orderreceive.pl +++ b/acqui/orderreceive.pl @@ -61,7 +61,7 @@ =head1 CGI PARAMETERS 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 65675e2e045..7f2ffb09c1f 100755 --- a/acqui/parcel.pl +++ b/acqui/parcel.pl @@ -62,7 +62,7 @@ =head1 CGI PARAMETERS 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 e3b8f5f0b7f..ba91abd9555 100755 --- a/acqui/parcels.pl +++ b/acqui/parcels.pl @@ -68,7 +68,7 @@ =head1 CGI PARAMETERS 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 c3c4693afb3..b4436e90183 100755 --- a/acqui/spent.pl +++ b/acqui/spent.pl @@ -34,7 +34,7 @@ =head1 DESCRIPTION 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 ba1ee5339b7..30a3d3ea576 100755 --- a/acqui/supplier.pl +++ b/acqui/supplier.pl @@ -46,7 +46,7 @@ =head1 CGI PARAMETERS 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 76d4f24599c..3e8bdc84ec1 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 8caff1c1805..b53b7e76219 100755 --- a/acqui/uncertainprice.pl +++ b/acqui/uncertainprice.pl @@ -49,7 +49,7 @@ =head1 CGI PARAMETERS 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 8e887df80a5..d125d89f2a7 100755 --- a/acqui/updatesupplier.pl +++ b/acqui/updatesupplier.pl @@ -56,7 +56,7 @@ =head1 CGI PARAMETERS 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 b431b49632e..03001370fe8 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 1bef1530a16..7221e415bb7 100755 --- a/admin/aqbudget_user_search.pl +++ b/admin/aqbudget_user_search.pl @@ -23,7 +23,7 @@ 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 119884ad99b..0de825ab635 100755 --- a/admin/aqbudgetperiods.pl +++ b/admin/aqbudgetperiods.pl @@ -46,7 +46,8 @@ =head1 admin/aqbudgetperiods.pl 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 8d3f3e83369..4ea2b9d034b 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 8997c3147bc..a19efdbd4b2 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 cc397fe1979..dda1d2199b4 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 0376a0f9b23..02eef5d81b6 100755 --- a/admin/auth_subfields_structure.pl +++ b/admin/auth_subfields_structure.pl @@ -21,7 +21,7 @@ #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 bd9ed32d9f4..2a4ff572a41 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 090fe9047ac..453746ccbc9 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 bbcfff37f8d..f705fdc85f6 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 ec45cb9707a..cac4d92cd9e 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 a7d91329136..1b6f0ecbb1f 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 2aa87df7d13..a698a26d1ed 100755 --- a/admin/branches.pl +++ b/admin/branches.pl @@ -39,7 +39,7 @@ =head1 branches.pl 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 8fb5c644f81..75cee493849 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 c1e0d4108c2..3ce9b70069d 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 27006f53893..04618eda7b2 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 fbd1252a5df..90502873cd4 100755 --- a/admin/checkmarc.pl +++ b/admin/checkmarc.pl @@ -22,7 +22,7 @@ #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 082350e2a7f..f491facb976 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 93914fda77d..6ca29d0d45e 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 c2343106a03..c8a39a7c602 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 90656816dd6..5550f0fd52e 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 434d0e9a31c..52ebeaa4877 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 eb6a4b11ffb..533bda0a5c7 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 65ab9387944..8214deb8f28 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 20729f2c679..cb7a1cc5633 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 f5370b8b4c0..bed078ce0b1 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 bfaa44c7869..1bfad90762e 100755 --- a/admin/itemtypes.pl +++ b/admin/itemtypes.pl @@ -42,7 +42,7 @@ =head1 admin/itemtypes.pl 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 8458ad5299f..8a51ec8a196 100755 --- a/admin/koha2marclinks.pl +++ b/admin/koha2marclinks.pl @@ -21,7 +21,7 @@ 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 9c231968922..5261dd48c2d 100755 --- a/admin/marc_subfields_structure.pl +++ b/admin/marc_subfields_structure.pl @@ -21,7 +21,7 @@ #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 d195718178f..f969b07092d 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 1afb5649698..9fc93b7df74 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 18a48bbe94e..ab2e9b30767 100755 --- a/admin/oai_set_mappings.pl +++ b/admin/oai_set_mappings.pl @@ -32,7 +32,7 @@ =head1 DESCRIPTION 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 c923e873227..00d964088f5 100755 --- a/admin/oai_sets.pl +++ b/admin/oai_sets.pl @@ -28,7 +28,7 @@ =head1 DESCRIPTION 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 6ae1b744385..41ca15fc2ef 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 ed6047340f2..b6cdaa2c2b0 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 04f73d9bb4c..f94cfeb2fee 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 eb3e8757d54..942e9bf5ed9 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 8c3f00d3f67..58b86e27283 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 1ac1b725610..bb37baed7ea 100755 --- a/admin/systempreferences.pl +++ b/admin/systempreferences.pl @@ -43,7 +43,7 @@ =head1 systempreferences.pl 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 db34c6f0932..54d8785aec3 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 b7a80c24d98..df4b99a7b80 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 607c6524f8b..818bb6d6fd1 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 f41775ccce2..578d9a0ceb4 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 89049fedf72..e610e7fcf4d 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 d0f4069e3d1..86371e01edc 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -43,7 +43,7 @@ =head1 FUNCTIONS 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 eed059c5049..027345dc770 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -44,7 +44,7 @@ =head1 FUNCTIONS 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 a84a9f51fbe..3f5018c3a0d 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -44,7 +44,7 @@ =head1 FUNCTIONS 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 dc886c05c33..6b79ffb6569 100755 --- a/authorities/export.pl +++ b/authorities/export.pl @@ -6,7 +6,7 @@ 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 362838150fd..6f2b154afa5 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 dd716a72b39..458b4c953d4 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 b669c08f334..7a28a6ba4a2 100755 --- a/authorities/ysearch.pl +++ b/authorities/ysearch.pl @@ -27,7 +27,7 @@ =head1 ysearch.pl =cut -use CGI; +use CGI qw ( -utf8 ); use Modern::Perl; use JSON; diff --git a/basket/basket.pl b/basket/basket.pl index 7fa915c14b7..ea8e86310b8 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 569335886a3..199271e43c5 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 a9314a3d3c2..36f3c1a6d8c 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 28843032c93..18f00147129 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -39,7 +39,7 @@ =head1 FUNCTIONS 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 5eb50e5b5d1..c11bdf3ed13 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -49,7 +49,7 @@ =head1 FUNCTIONS 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 f33e263e5a9..adf6823089c 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 efdf0eec2a6..e66d3f2e56e 100755 --- a/catalogue/export.pl +++ b/catalogue/export.pl @@ -6,7 +6,7 @@ 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 3bab8915231..ad9b4b16aa9 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 ff74cbefcf7..6f9142d9570 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 7c1ab1dd0c4..007bdfcecea 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 ff22bc0eca0..aae14d9e981 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 11f8f8555e6..7e9c6bad6ed 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 1893a33ccf8..39d3c9f3319 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 20e3b821104..a969701259e 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 24abcb0963d..26b37023844 100755 --- a/catalogue/search.pl +++ b/catalogue/search.pl @@ -159,7 +159,7 @@ =head3 Additional Notes 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 1954ce85182..de7fb2251d3 100755 --- a/catalogue/showmarc.pl +++ b/catalogue/showmarc.pl @@ -24,7 +24,7 @@ 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 74613e27a99..41a38b406aa 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 a9cd6e8703c..1ed4307ce36 100755 --- a/cataloguing/addbooks.pl +++ b/cataloguing/addbooks.pl @@ -26,7 +26,7 @@ =head1 cataloguing:addbooks.pl 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 09e2d971922..9c7fb3fe50c 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 f7cd6b896e5..79ab38cad53 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 fdac609799e..bac752636c4 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 26f08003ac2..82278a7fbd2 100755 --- a/cataloguing/merge_ajax.pl +++ b/cataloguing/merge_ajax.pl @@ -5,7 +5,7 @@ # 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 e108637bbdd..0e1cc77b06e 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 f3ef3e863e1..50aeb3279d0 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 f858de48a46..4a0dd773c13 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 17b313fd0d5..73190dc6855 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 f7338cb5635..313f66ad00d 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 26aea400abd..bb4b86191ab 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 a4a577071d8..f2144bc8205 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 3f5f6632757..e0cd235ae90 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 9a2753b30f7..8a16baedeff 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 f9a824a4968..ed601ecf6a2 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 93a143377c0..03ad6ae3518 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 0b08c2539d1..b3557b351e2 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 134c4732698..a41b94142ba 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 0c6a5764d57..b6126b26d43 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 fb21e9d00d5..71b5ba58499 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 baf0490aff2..e14a977e576 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 3148bad8169..478df1aae57 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 d5acce08ce0..d58757bb690 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 020b24f4057..ae32d09bb2f 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 677008b78bf..1b580fc106b 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 6c0e24f42bf..7c80e608d1c 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 1675e53b89a..4e061f88941 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 55bc77021f0..d0eedbf05ea 100755 --- a/cataloguing/value_builder/unimarc_field_100.pl +++ b/cataloguing/value_builder/unimarc_field_100.pl @@ -23,7 +23,7 @@ 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 0a4012b1762..28bc870bb3f 100644 --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ b/cataloguing/value_builder/unimarc_field_100_authorities.pl @@ -21,7 +21,7 @@ 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 67f6cbc3daa..6f68583aeb7 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -23,7 +23,7 @@ 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 21bd2f4ba6c..d6d4907d31c 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 1c567c1be68..5a2be80c162 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -23,7 +23,7 @@ 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 8075ae5ea96..e5470a19caa 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.pl @@ -23,7 +23,7 @@ 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 fbdde35e4a5..ae54ae8e8e2 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.pl @@ -23,7 +23,7 @@ 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 a1688747be1..ae020e7ae54 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.pl @@ -23,7 +23,7 @@ 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 6901765a52d..254c859f06a 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.pl @@ -23,7 +23,7 @@ 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 de9beeb0af0..702b7d47e52 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -23,7 +23,7 @@ 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 359a61d0e40..817192164ef 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -23,7 +23,7 @@ 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 6da8ba72e1f..f979accbd83 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 0c703414243..4dbca39ea4c 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 ce8e4e5ff1f..9a433448028 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 f74352cdc8a..335315b6ca7 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 f74352cdc8a..335315b6ca7 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 0d7541c3e5a..5cb8d8dfe2f 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 f74352cdc8a..335315b6ca7 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 5ada49fb863..52b894e0fc6 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 8ce202e6543..c0193a0d621 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 4f2bc8cad2d..a2ddad942c4 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 08563a9c241..21c8c409373 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 62e8a8f9dc5..89696c43350 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 486ef218f05..7615e0cfc36 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 2a29b0e9308..a5be87eb898 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 c1a731a0110..8ed9253e9c3 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 21965f28565..02063ca6131 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 53192170164..41049764cc7 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 5d3a622e6ca..89e6e5b1f19 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 045a1e21e0f..d4a31d2bf14 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 4e73164a8b5..2a86b3d538e 100755 --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ b/cataloguing/value_builder/unimarc_field_125b.pl @@ -23,7 +23,7 @@ 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 4f2bc8cad2d..a2ddad942c4 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 1afbba84c6e..2921068e76e 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.pl @@ -23,7 +23,7 @@ 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 5bf5caff63e..7fc32e51270 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 16195fef0e5..3ef0a9acdde 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 ef1b0062fe5..936ad20afbf 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 3f0835b1e80..34d435fb958 100755 --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ b/cataloguing/value_builder/unimarc_field_128b.pl @@ -23,7 +23,7 @@ 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 359d8e33e12..3b394aa8b3a 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 d6f99fa85c8..f0a9cff6914 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.pl @@ -23,7 +23,7 @@ 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 15c21eeb6bd..58097329c4a 100755 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ b/cataloguing/value_builder/unimarc_field_135a.pl @@ -23,7 +23,7 @@ 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 7d17caf1a73..cf0e4692a85 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.pl @@ -23,7 +23,7 @@ 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 e0b7a38690d..9691b364c4e 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 e6dace64ea9..67f4ab6cfd3 100755 --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ b/cataloguing/value_builder/unimarc_field_210c.pl @@ -25,7 +25,7 @@ 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 d9e02b22759..e7d09032aaf 100755 --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -42,7 +42,7 @@ =head1 SYNOPSIS #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 0a0894bd67b..22e47ebb2d5 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -42,7 +42,7 @@ =head1 SYNOPSIS 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 a473792e26b..3cacb51f5d7 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 2b44823fde6..714229cb935 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 ac99e4bbf3d..3facd0cb8af 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 04457e6b52f..4dc87ac744d 100755 --- a/cataloguing/value_builder/unimarc_leader.pl +++ b/cataloguing/value_builder/unimarc_leader.pl @@ -23,7 +23,7 @@ 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 49dfa3931f9..854ef7aa9ef 100755 --- a/cataloguing/ysearch.pl +++ b/cataloguing/ysearch.pl @@ -25,7 +25,7 @@ =head1 ysearch.pl =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 22dc565203c..b5c08a3e7c7 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 c4d68e37a42..a53ade81251 100755 --- a/changelanguage.pl +++ b/changelanguage.pl @@ -19,7 +19,7 @@ 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 053d197810f..3506c9b5c59 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 dcc1611723c..eeff50e9e56 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 c5a8743529a..36981143945 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 190ca718028..2c8612c1cc9 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 161158c5d8a..bbb715b9cf7 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 50936d7f3db..982669c76a0 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 72293733dc2..c04ff578aa6 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 525e25a400a..db0869c682a 100755 --- a/circ/hold-transfer-slip.pl +++ b/circ/hold-transfer-slip.pl @@ -22,7 +22,7 @@ #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 87bc67f1cf7..8cf93b17aa4 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 ebc161be51b..b7757e214ec 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 c2a0db11333..a0c7af72352 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -23,7 +23,7 @@ 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 2deb67b68bc..f964074c3bd 100755 --- a/circ/pendingreserves.pl +++ b/circ/pendingreserves.pl @@ -31,7 +31,7 @@ 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 7800fc98e83..180c881f4f7 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 73c68f00eaa..9585660e710 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 0faf22ab06e..a7e9c6e3d7e 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -30,7 +30,7 @@ =head1 returns.pl 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 4e5a8e468c6..cfabb7179a0 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 3fc8283aba7..6db5632578a 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 0abb4170807..3cf84cca474 100755 --- a/circ/transfer-slip.pl +++ b/circ/transfer-slip.pl @@ -23,7 +23,7 @@ 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 522d922841b..cf48c3e079e 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 54fe66e27b8..cff29c7b145 100755 --- a/circ/view_holdsqueue.pl +++ b/circ/view_holdsqueue.pl @@ -24,7 +24,7 @@ =head1 view_holdsqueue 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 222939ca4be..502aafd1214 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 517c8c050f8..091ce5faf18 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 89739029256..4ac19f5f783 100755 --- a/circ/ysearch.pl +++ b/circ/ysearch.pl @@ -27,7 +27,7 @@ =head1 ysearch.pl 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 9429d9182fa..0a968601071 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 8a578d5386e..b82df5b2de1 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 f7fbd8ed505..4ae6c9bf6c6 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 a82c7811c49..e87083fc1db 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 8f73203b2db..e94b4a841c6 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 cb161f75eaf..8b5144c0fd2 100755 --- a/docs/CAS/CASProxy/examples/koha_webservice.pl +++ b/docs/CAS/CASProxy/examples/koha_webservice.pl @@ -39,7 +39,7 @@ =head1 CGI PARAMETERS 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 85085d7d1f0..71630c3e9be 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas.pl @@ -30,7 +30,7 @@ =head1 DESCRIPTION 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 3c2c9efa403..31f39c24f33 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl @@ -27,7 +27,7 @@ =head1 DESCRIPTION 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 92c61a5392c..5afd7f18175 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl @@ -32,7 +32,7 @@ =head1 CGI PARAMETERS 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 62b449f4aac..8f56bfc9c95 100755 --- a/edithelp.pl +++ b/edithelp.pl @@ -21,7 +21,7 @@ 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 94da8ed39b0..23dc5aeb858 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 d9622c0f7f9..88c88d8e082 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 946eeae06ff..552398b87f8 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 e3b7b884851..11918c38a35 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 d72548945a8..e7e007141bd 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 bc2997d8523..9fb6e0cc8ec 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 4df8dc23741..7d4385d12f8 100755 --- a/help.pl +++ b/help.pl @@ -23,7 +23,7 @@ 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 dc01dc64c7a..4420fde4ab3 100755 --- a/installer/install.pl +++ b/installer/install.pl @@ -5,7 +5,7 @@ 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 1b0c02c97a3..3c23021edef 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 e23b068462f..9c75bf26d70 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 5e62ef81c95..3b568c70010 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 4bd58ff85e8..60d7b430590 100755 --- a/labels/label-edit-batch.pl +++ b/labels/label-edit-batch.pl @@ -22,7 +22,7 @@ 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 2dd7612764b..fe38903eda9 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 c1b25aedd42..df2e73b6faf 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 f527d282dfc..241f9fc2f11 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 44f3ed3df15..946a6ebc765 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 04db4d0ce6d..eb6defe387a 100755 --- a/labels/label-item-search.pl +++ b/labels/label-item-search.pl @@ -21,7 +21,7 @@ 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 061dea4e5aa..4ee8779db93 100755 --- a/labels/label-manage.pl +++ b/labels/label-manage.pl @@ -22,7 +22,7 @@ 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 7d53c74c2f1..b898d839898 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 576b399a41e..b24441be4b9 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 f88a6a118e9..31aed54e63b 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 ab3a7abbe95..09450f6a2dc 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 50f5db9fd12..d3b5240566d 100755 --- a/members/boraccount.pl +++ b/members/boraccount.pl @@ -28,7 +28,7 @@ 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 85c01667f1b..bad636cf8e1 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 f9b7080ff4a..efe4ad4052b 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 e5b39df7a8c..a9fe9dd95de 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 c8eb61987c0..c6ad4ded645 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -27,7 +27,7 @@ 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 c72b387f355..240c680e833 100755 --- a/members/maninvoice.pl +++ b/members/maninvoice.pl @@ -27,7 +27,7 @@ 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 ab96951ca9a..68c52aa117d 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 eb37b999459..310d641605a 100755 --- a/members/member-password.pl +++ b/members/member-password.pl @@ -14,7 +14,7 @@ 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 ad3ee854add..191ff44e81d 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 7a0329fb759..5db8273ff47 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -23,7 +23,7 @@ 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 37fc496b698..0d0e2794dea 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 68fec225cbb..84087022791 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 03cd89fd57e..bed43ac480c 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 592e1347ef6..98ad5ee0d3e 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 1735e026662..92fe2d94a9a 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -35,7 +35,7 @@ =head1 moremember.pl 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 e0338d3546e..113e20cbb94 100755 --- a/members/notices.pl +++ b/members/notices.pl @@ -23,7 +23,7 @@ #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 4f663d64cec..4161e97ea02 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 0e41f80fa38..381cf315f47 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -33,7 +33,7 @@ =head1 pay.pl 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 6473f022282..692b958545a 100755 --- a/members/paycollect.pl +++ b/members/paycollect.pl @@ -23,7 +23,7 @@ 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 7f1e251d4a0..1a138f8d3a2 100755 --- a/members/printfeercpt.pl +++ b/members/printfeercpt.pl @@ -28,7 +28,7 @@ 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 ef01d547ebf..c53cfaaa410 100755 --- a/members/printinvoice.pl +++ b/members/printinvoice.pl @@ -26,7 +26,7 @@ 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 cae8e433ef0..19458021bc9 100755 --- a/members/printslip.pl +++ b/members/printslip.pl @@ -34,7 +34,7 @@ =head1 moremember.pl 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 d7d7ab0dab3..4c58c3e8771 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 672c2c82ed9..de2baec7c8d 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 ae6bf1c53ff..efd067edb49 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 2c13401abc2..6ec490e0989 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 af31815e257..de9a6a349f3 100755 --- a/members/statistics.pl +++ b/members/statistics.pl @@ -24,7 +24,7 @@ =head1 members/statistics.pl 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 25e80ca4c93..1a320c040fe 100755 --- a/members/update-child.pl +++ b/members/update-child.pl @@ -28,7 +28,7 @@ =head1 updatechild.pl 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 99bd22fb2b9..9dc6c5851fe 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -29,7 +29,7 @@ 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 edd35a604eb..713057c805e 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 995d2dbfb4c..ec4342db437 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 73a2f78727e..aeff99fb962 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 e54ee5bd100..bd72d600c6d 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 2ce4f9791eb..05084c6d1c5 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 771d4594f8f..b56bb75482b 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 bf2426071cc..cc8006c84a1 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 4f42ecea817..368505eb185 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 2c0077fb18e..09d56c37a60 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 ca834f0079a..0b2528b02c9 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 5aa3f099673..fb8ee7e3e5d 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 af1b22834d3..456f7c8d4c4 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 a8cc47d5fca..efd759b5038 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -27,7 +27,7 @@ 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 53394cbb9ce..b6b3a24bd4a 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 b453408b97c..d6ef2e95391 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 2acddb42bc3..d45ebc37923 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -45,7 +45,7 @@ =head1 FUNCTIONS 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 2e9b53707d5..23c802a9fad 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -48,7 +48,7 @@ =head1 DESCRIPTION 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 3907001bbb1..7bbdc6ea5dc 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 4d8cf6a0865..f988d9da96e 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 f177878b5d5..694ce8ca5cd 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 1810c1c58bd..ab919444d2c 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 3e17cf18a95..2f2a0dc2f58 100755 --- a/opac/opac-authoritiesdetail.pl +++ b/opac/opac-authoritiesdetail.pl @@ -43,7 +43,7 @@ =head1 FUNCTIONS 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 690fc3c53da..2b345e1cbf8 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 87532d2a6fb..3d2f2333b70 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 0ff2c021ecf..fbdae0b6b4d 100755 --- a/opac/opac-browser.pl +++ b/opac/opac-browser.pl @@ -30,7 +30,7 @@ =head1 opac-browser.pl 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 1c0b842db30..a0026804216 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 9741359c102..b1cf4c186b9 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 b6a18aead45..eb542e20dee 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 9ba8120ac17..40721382577 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 2d4fb1b437f..98a7f3c0deb 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 012e51b6a14..7a6b1dd9e5d 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 64c758a1275..707392f5cc1 100755 --- a/opac/opac-export.pl +++ b/opac/opac-export.pl @@ -24,7 +24,7 @@ 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 dace1b136a1..acaac9bab07 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 e2dc5569dbb..c690f0bfd75 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 226997146f4..9d71bdc6ab1 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 5374f36a343..9db64cb2248 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 6abe803df85..de3ca523788 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 096dbffbfe7..b0c1cdedd22 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 d39e22031a5..92461b91325 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 4cefe21a9fa..25ec92c5ad7 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 a7ccf251dbb..5859e57213b 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 1e07b9f3ff5..dbf60af05c7 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 2948eb36337..377e09e8ee2 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 eab6abc0b76..a6fc4eea83e 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 fd98e6c1a87..4d611a369f6 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 a47484526ba..db8fc3fab04 100755 --- a/opac/opac-ratings-ajax.pl +++ b/opac/opac-ratings-ajax.pl @@ -26,7 +26,7 @@ =head1 DESCRIPTION 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 b2bcf6fed9e..552d8a6dad1 100755 --- a/opac/opac-ratings.pl +++ b/opac/opac-ratings.pl @@ -27,7 +27,7 @@ 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 1fc0dbca15f..0e2d89f2650 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 05b258f58a5..1984610470a 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 40a07e5746d..3a64ccfc984 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 ba778dba76d..6c381f36c9a 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 39b8f8fa414..948d5e5f8f7 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 5b5a66d754a..85e7f33875e 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 692d70b938d..d04f4361bd0 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -51,7 +51,7 @@ 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 8143cca5fc7..7b63ee2b7c0 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 b662664040e..61cc9792953 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 d27695264f1..93a0ae3a246 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 669629b9cf6..f29e170b4f5 100755 --- a/opac/opac-shareshelf.pl +++ b/opac/opac-shareshelf.pl @@ -24,7 +24,7 @@ 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 0cdd0c487fa..fe13b7d9151 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 86be88f6c22..786693efe2c 100755 --- a/opac/opac-showmarc.pl +++ b/opac/opac-showmarc.pl @@ -21,7 +21,7 @@ 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 cf493d5986c..2bca5d69295 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 2d89d9367c7..c4b13594c31 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 5a058d207c0..6388a013f0a 100755 --- a/opac/opac-tags.pl +++ b/opac/opac-tags.pl @@ -32,7 +32,7 @@ =head1 DESCRIPTION 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 19322c52e47..3a7a3078cea 100755 --- a/opac/opac-tags_subject.pl +++ b/opac/opac-tags_subject.pl @@ -30,7 +30,7 @@ =head1 opac-tags_subject.pl 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 d14163bd632..154e8807f20 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 ad4f339e69b..995db7b0111 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 356d351d7c8..e94f00bc4e9 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 09c6c6ae7e5..6ba0066931e 100755 --- a/opac/sco/printslip.pl +++ b/opac/sco/printslip.pl @@ -28,7 +28,7 @@ =head1 printslip.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 0d103ecb33d..c6b9b32b1f0 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 ed41e0818c3..e871f7418d9 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 02b6ad02767..22f4b1b78b8 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 af6b71240f4..bfc84e5c2a8 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 611c503c9e6..ea0e9d7c904 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 9c08565a791..0fbb31bd37b 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 7182fdb4ee5..d64b00bd526 100755 --- a/opac/tracklinks.pl +++ b/opac/tracklinks.pl @@ -22,7 +22,7 @@ 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 96076b69189..8b573e46df5 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 b5cafb2ea00..27060a61913 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 aa515c28d5a..f9d1aef19c0 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 a1dee24a2f9..ef2085c29fd 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 457520fbde2..a5cdf2b74c1 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 6e38ca1dcbb..658f92de8f9 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 482c15f2875..1d82ae03456 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 56a32e60f71..d507722ef22 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 fb730a70530..70dac9cb4dd 100755 --- a/patroncards/edit-batch.pl +++ b/patroncards/edit-batch.pl @@ -22,7 +22,7 @@ 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 dd5f46ad89b..513ab5f0f6c 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 0f03754bf12..84f18e6903f 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 0b1da553be3..8d07e8b4fda 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 cedfef20546..de7f243ffaf 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 0ec1b7b73dc..d72c655e4de 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 2c13a4e62ab..a05f0f8dd83 100755 --- a/patroncards/manage.pl +++ b/patroncards/manage.pl @@ -22,7 +22,7 @@ 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 8d46417970d..3492c7dd8bc 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 76ff2ebb3b0..4b20e5abd03 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 03095bb7055..693aca9795a 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 b7dad4103ad..bde1ff39973 100755 --- a/plugins/plugins-uninstall.pl +++ b/plugins/plugins-uninstall.pl @@ -21,7 +21,7 @@ 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 34805e86838..2cadb5db446 100755 --- a/plugins/plugins-upload.pl +++ b/plugins/plugins-upload.pl @@ -22,7 +22,7 @@ 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 50eb4dcb222..ec7ab6bb4a6 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 b19bf8eb00e..fd30926c97b 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 f8ee8e8c17c..d2199910985 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 9687234ffb8..3acfcdc6c3f 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 e71fef94b25..0280a864e6b 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 893fd211740..5916986ca31 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 2637f98f1aa..3454d2e02e0 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 2ab9bfecb7d..94371e90408 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 f3e08d00c7d..967c73a8e9e 100755 --- a/reports/dictionary.pl +++ b/reports/dictionary.pl @@ -20,7 +20,7 @@ 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 3781d37a7a8..93fe04676ff 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 806ff7cda05..95cee7deac3 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 0ab014374a3..7a487f84033 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 cb283d5acac..450ed45805b 100755 --- a/reports/itemslost.pl +++ b/reports/itemslost.pl @@ -28,7 +28,7 @@ =head1 itemslost 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 e4164a5a76f..b0505d09294 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 01b4deb1835..7a91e9e60d8 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 29d36178083..b1c73554520 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 bd5ee0cac52..90085bc1029 100755 --- a/reports/reservereport.pl +++ b/reports/reservereport.pl @@ -27,7 +27,7 @@ #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 11fcb8e9a09..df8d6481f60 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 c7644c84f0c..3ec22f80722 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 066aafa4b6a..9495360342e 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 0eef8d13b37..d50368d8e2f 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 183f52eb44b..9b64e245de3 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 a8662c7356d..4d3b6a5e3df 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 3fe459c2593..1499ea5007b 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 56fab0b5585..b5402d107db 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 70c002ace96..ce0e70f79ad 100755 --- a/reserve/request.pl +++ b/reserve/request.pl @@ -29,7 +29,7 @@ =head1 request.pl 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 206d63b9fb1..b7cf3afda63 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 6286a407e8b..93fa4eea1e6 100755 --- a/rotating_collections/addItems.pl +++ b/rotating_collections/addItems.pl @@ -24,7 +24,7 @@ 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 6d99ddb803d..fe02cf2273f 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 d86dab01534..8cbd77292e5 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 2a04857e6e7..8ed4bdbf22c 100755 --- a/rotating_collections/transferCollection.pl +++ b/rotating_collections/transferCollection.pl @@ -24,7 +24,7 @@ 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 319b852d283..2eb248eea5a 100755 --- a/serials/acqui-search-result.pl +++ b/serials/acqui-search-result.pl @@ -45,7 +45,7 @@ =head1 PARAMETERS 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 a8592fb5844..a8c2248c3b0 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 e24210f4c98..9feeaad36b3 100755 --- a/serials/checkexpiration.pl +++ b/serials/checkexpiration.pl @@ -44,7 +44,7 @@ =head1 PARAMETERS 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 7120515eb57..89150a1132c 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 f2c6d492c54..52b303d8a87 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 97b5bbe4302..a75b21cd11b 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 dfeb3734972..9ae769bab74 100755 --- a/serials/member-search.pl +++ b/serials/member-search.pl @@ -25,7 +25,7 @@ =head1 member-search.pl 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 8b64fc7723f..ba19b8c8131 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 1f219cc069d..db0984c0597 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 5dd53fecad2..5e857294e87 100755 --- a/serials/routing.pl +++ b/serials/routing.pl @@ -27,7 +27,7 @@ =head1 Routing.pl 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 de5989bb66d..0294c549b8c 100755 --- a/serials/serial-issues.pl +++ b/serials/serial-issues.pl @@ -43,7 +43,7 @@ =head1 PARAMETERS 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 2922c428f7d..6d173545970 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 54c8ccd212f..d9b97a631f4 100755 --- a/serials/serials-edit.pl +++ b/serials/serials-edit.pl @@ -63,7 +63,7 @@ =head1 Parameters 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 175321e6f0e..66e47e2214e 100755 --- a/serials/serials-home.pl +++ b/serials/serials-home.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION =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 d5daa9ff557..9fbce35d1f9 100755 --- a/serials/serials-recieve.pl +++ b/serials/serials-recieve.pl @@ -64,7 +64,7 @@ =head1 Parameters 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 b4e771521d6..b8a4007954b 100755 --- a/serials/serials-search.pl +++ b/serials/serials-search.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION =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 82cf8af8809..6945a36e83e 100755 --- a/serials/showpredictionpattern.pl +++ b/serials/showpredictionpattern.pl @@ -30,7 +30,7 @@ =head1 DESCRIPTION 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 b17fc608d0a..fa75f06cf34 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 e47b1e72df2..d8a8dd52de5 100755 --- a/serials/subscription-bib-search.pl +++ b/serials/subscription-bib-search.pl @@ -49,7 +49,7 @@ =head1 PARAMETERS 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 a3186cb89f7..ebdc4152d50 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 a44a9bb9f54..f3c6d572d37 100755 --- a/serials/subscription-frequencies.pl +++ b/serials/subscription-frequencies.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION 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 1d380823a07..f7fe7c0bdb2 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 a45074f6c2f..9310b5d0031 100755 --- a/serials/subscription-history.pl +++ b/serials/subscription-history.pl @@ -29,7 +29,7 @@ =head1 DESCRIPTION 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 2a59d02adf0..26745f1c141 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 934b545271c..2bcce3a077f 100755 --- a/serials/subscription-numberpatterns.pl +++ b/serials/subscription-numberpatterns.pl @@ -28,7 +28,7 @@ =head1 DESCRIPTION =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 df01dcccf8d..92f7766f71b 100755 --- a/serials/subscription-renew.pl +++ b/serials/subscription-renew.pl @@ -46,7 +46,7 @@ =head1 Parameters 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 7d813e02e50..af28d66d6db 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 3d7aa89edee..ff6eb12a1ef 100755 --- a/services/itemrecorddisplay.pl +++ b/services/itemrecorddisplay.pl @@ -30,7 +30,7 @@ =head1 DESCRIPTION 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 22f630e2555..5d599fb9395 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 c0e39d5d9bb..a94dc9589d1 100755 --- a/sms/sms_listen_windows_start.pl +++ b/sms/sms_listen_windows_start.pl @@ -7,7 +7,7 @@ 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 b146aad5e9f..b54703a11f4 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 945d3161e2b..b64ecc88e63 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 d7cd1699c2b..ef1e41c6159 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 e1c1f68a299..e7660f0fc48 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 ff29503eae4..590a243dc8d 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 f93428d7146..06c0fbfab99 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 435d8378313..7ec4d056902 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 ca4fbea2b0a..8736acafb28 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 9cafbd77bd1..6b0f63827d4 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 24c1344298e..4474d18752d 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 079779fdfc4..f7690407a63 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 668e1ca4f10..9ea2caa674f 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 1951eccba6e..9aee73e2928 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 8fbb709a3b2..32def219455 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 5813c83b406..24265a1a37e 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 b04c294442b..6da80277d42 100755 --- a/tags/review.pl +++ b/tags/review.pl @@ -23,7 +23,7 @@ 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 22853488f64..bdd8b4df5cc 100755 --- a/test/progressbar.pl +++ b/test/progressbar.pl @@ -28,7 +28,7 @@ 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 691947d0fe6..a15cf510c15 100755 --- a/test/progressbarsubmit.pl +++ b/test/progressbarsubmit.pl @@ -28,7 +28,7 @@ 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 63f371a936b..2aeda408479 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 380ad15c322..8f968d3ae56 100755 --- a/tools/background-job-progress.pl +++ b/tools/background-job-progress.pl @@ -22,7 +22,7 @@ # 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 ea9c856c6e7..4ff95e836b2 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 e3dec8384a2..c8c61989f00 100755 --- a/tools/batch_records_ajax.pl +++ b/tools/batch_records_ajax.pl @@ -31,7 +31,7 @@ =head1 SYNOPSIS 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 9a9c1ca003e..918dd9ece11 100755 --- a/tools/cleanborrowers.pl +++ b/tools/cleanborrowers.pl @@ -34,7 +34,7 @@ =head1 cleanborrowers.pl 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 83c9761ebed..5a1618d4ac7 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 942452c8391..c2613762ea2 100755 --- a/tools/csv-profiles.pl +++ b/tools/csv-profiles.pl @@ -41,7 +41,7 @@ =head1 FUNCTIONS 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 0a36a20e31b..45e22081015 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 bae69410be6..f1bbcbb80e9 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -20,7 +20,7 @@ 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 23468d167bc..b5aa4e3f626 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 55b7e7f8b20..3b557f05f0c 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -55,7 +55,7 @@ # ė # č -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 ba10b14bb52..8c88349cd15 100755 --- a/tools/inventory.pl +++ b/tools/inventory.pl @@ -22,7 +22,7 @@ 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 1859deb6656..cf1e2b40e78 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 ab4f78f2d68..b806e9b6f7d 100755 --- a/tools/letter.pl +++ b/tools/letter.pl @@ -42,7 +42,7 @@ =head1 tools/letter.pl 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 961a327a56f..f0f2ca54969 100755 --- a/tools/manage-marc-import.pl +++ b/tools/manage-marc-import.pl @@ -21,7 +21,7 @@ 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 4f9323f14dd..31c663baefd 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 a3f8b3f1733..bc82ed46a88 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 646276c4efc..678ee0d7409 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 a824bd43c78..178a569129f 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 b7d99d79401..af3012ab197 100755 --- a/tools/picture-upload.pl +++ b/tools/picture-upload.pl @@ -23,7 +23,7 @@ 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 7db61ce653a..eae219c2db2 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 e12f4bfff39..e65a013e4ad 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 d2817d3af1e..08606e0eda9 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 5f44a7efbaf..ece31c65dc5 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 c909971188c..b55204bba82 100755 --- a/tools/scheduler.pl +++ b/tools/scheduler.pl @@ -23,7 +23,7 @@ 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 a5f4d17ba89..500e6cd0c80 100755 --- a/tools/stage-marc-import.pl +++ b/tools/stage-marc-import.pl @@ -28,7 +28,7 @@ #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 b493f1feade..75f970bcee4 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 478c1191772..1e6a1af8a5f 100755 --- a/tools/upload-cover-image.pl +++ b/tools/upload-cover-image.pl @@ -41,7 +41,7 @@ =head1 DESCRIPTION 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 c457dbb69d6..dd1065cbe70 100755 --- a/tools/upload-file-progress.pl +++ b/tools/upload-file-progress.pl @@ -22,7 +22,7 @@ # 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 b705f5c8fc2..dd8c4f54024 100755 --- a/tools/upload-file.pl +++ b/tools/upload-file.pl @@ -22,7 +22,7 @@ # 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 e526c1ff9fc..6f5ea033252 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 289a4aa9b11..87586f2086e 100755 --- a/virtualshelves/addbybiblionumber.pl +++ b/virtualshelves/addbybiblionumber.pl @@ -61,7 +61,7 @@ =head1 CGI PARAMETERS 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 caf01ac2db6..27fc7f94d5e 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 1d415819c1f..c98e8ce1cd6 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 9f82e9d8e63..9dba3f4ca1c 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;