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 493c8df..ae99fe9 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 17e43e4..c5f21a8 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 b735ab8..5f3a9e5 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 328c55e..7b74723 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 e33ef6e..b917a82 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 3804242..1869f2f 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 35ac2e1..1fe45ae 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 74019c0..fce28e4 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 bb283fa..aaa1ce2 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 edc1d04..70fe9cc 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 2aca72f..5c6f696 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 259e28c..7350f90 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 d834c5b..f512937 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 d9990ff..d59cd70 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 35deb20..2ffeeaf 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 23f8bce..5a5cbd0 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 7f62910..e3ff04b 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 56518c2..052839d 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 4fbc7e8..7f0da61 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 8741aa4..6aca89f 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -29,7 +29,7 @@ this script is the main page for acqui use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Acquisition; diff --git a/acqui/addorder.pl b/acqui/addorder.pl index f5508a2..d95ba7b 100755 --- a/acqui/addorder.pl +++ b/acqui/addorder.pl @@ -121,7 +121,7 @@ if it is an order from an existing suggestion : the id of this suggestion. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Acquisition; # ModOrder use C4::Suggestions; # ModStatus diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index be8b897..b4aa4d9 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 0a74ada..fb0e5e5 100755 --- a/acqui/ajax-getauthvaluedropbox.pl +++ b/acqui/ajax-getauthvaluedropbox.pl @@ -47,7 +47,7 @@ Default value for the dropbox. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Charset; use C4::Auth qw/check_api_auth/; diff --git a/acqui/aqbasketuser_search.pl b/acqui/aqbasketuser_search.pl index 6c020ca..660fd49 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 e04024a..921c67e 100755 --- a/acqui/basket.pl +++ b/acqui/basket.pl @@ -25,7 +25,7 @@ use warnings; use C4::Auth; use C4::Koha; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Acquisition; use C4::Budgets; use C4::Branch; diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl index ef62921..2b2bd78 100755 --- a/acqui/basketgroup.pl +++ b/acqui/basketgroup.pl @@ -50,7 +50,7 @@ use Carp; use C4::Input; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Budgets qw/ConvertCurrency/; use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/; diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl index eefa450..15c76e8 100755 --- a/acqui/basketheader.pl +++ b/acqui/basketheader.pl @@ -47,7 +47,7 @@ If it exists, C<$basketno> is the basket we edit use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Branch; diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl index 9a2bb25..a5eb47d 100755 --- a/acqui/booksellers.pl +++ b/acqui/booksellers.pl @@ -57,7 +57,7 @@ use C4::Auth; use C4::Biblio; use C4::Budgets; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /; use C4::Members qw/GetMember/; diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl index 83fda5e..a140559 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 fe50b6d..2ff2b3c 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 d8f29fa..b9edd25 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 7480fb6..c211cc3 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 6642561..286474f 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 376681f..5bc5404 100755 --- a/acqui/histsearch.pl +++ b/acqui/histsearch.pl @@ -51,7 +51,7 @@ to filter on ended date. use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Acquisition; diff --git a/acqui/invoice.pl b/acqui/invoice.pl index d7e40b6..f64836b 100755 --- a/acqui/invoice.pl +++ b/acqui/invoice.pl @@ -29,7 +29,7 @@ Invoice details use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Acquisition; diff --git a/acqui/invoices.pl b/acqui/invoices.pl index 4c72d64..6542b18 100755 --- a/acqui/invoices.pl +++ b/acqui/invoices.pl @@ -29,7 +29,7 @@ Search for invoices use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl index 585cac8..96a1824 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 b68673f..f944a06 100755 --- a/acqui/lateorders.pl +++ b/acqui/lateorders.pl @@ -44,7 +44,7 @@ To know on which branch this script have to display late order. =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Bookseller qw( GetBooksellersWithLateOrders ); use C4::Auth; use C4::Koha; diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl index 02bd77b..2c6b71b 100755 --- a/acqui/modordernotes.pl +++ b/acqui/modordernotes.pl @@ -28,7 +28,7 @@ Modify just notes when basket is closed. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Acquisition; diff --git a/acqui/neworderbiblio.pl b/acqui/neworderbiblio.pl index 8d13915..dfcc534 100755 --- a/acqui/neworderbiblio.pl +++ b/acqui/neworderbiblio.pl @@ -59,7 +59,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Search; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Auth; use C4::Output; diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index b8f667b..93c07c6 100755 --- a/acqui/neworderempty.pl +++ b/acqui/neworderempty.pl @@ -68,7 +68,7 @@ the item's id in the breeding reservoir use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Input; diff --git a/acqui/newordersubscription.pl b/acqui/newordersubscription.pl index 04173db..cb04c64 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 e31c0a4..839b4f4 100755 --- a/acqui/newordersuggestion.pl +++ b/acqui/newordersuggestion.pl @@ -91,7 +91,7 @@ can be equal to use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Suggestions; diff --git a/acqui/ordered.pl b/acqui/ordered.pl index cdf2cd7..4a1ec5b 100755 --- a/acqui/ordered.pl +++ b/acqui/ordered.pl @@ -30,7 +30,7 @@ this script is to show orders ordered but not yet received use C4::Context; use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl index 878d77a..96a6a02 100755 --- a/acqui/orderreceive.pl +++ b/acqui/orderreceive.pl @@ -61,7 +61,7 @@ The biblionumber of this order. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Koha; # GetKohaAuthorisedValues GetItemTypes use C4::Acquisition; diff --git a/acqui/parcel.pl b/acqui/parcel.pl index 65675e2..7f2ffb0 100755 --- a/acqui/parcel.pl +++ b/acqui/parcel.pl @@ -62,7 +62,7 @@ use C4::Acquisition; use C4::Budgets; use C4::Biblio; use C4::Items; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Dates qw/format_date format_date_in_iso/; use C4::Suggestions; diff --git a/acqui/parcels.pl b/acqui/parcels.pl index e3b8f5f..ba91abd 100755 --- a/acqui/parcels.pl +++ b/acqui/parcels.pl @@ -68,7 +68,7 @@ To know how many results have to be display / page. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/acqui/spent.pl b/acqui/spent.pl index c3c4693..b4436e9 100755 --- a/acqui/spent.pl +++ b/acqui/spent.pl @@ -34,7 +34,7 @@ use C4::Auth; use C4::Output; use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); my $dbh = C4::Context->dbh; my $input = new CGI; diff --git a/acqui/supplier.pl b/acqui/supplier.pl index ba1ee53..30a3d3e 100755 --- a/acqui/supplier.pl +++ b/acqui/supplier.pl @@ -46,7 +46,7 @@ use C4::Auth; use C4::Contract; use C4::Biblio; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Bookseller qw( DelBookseller ); use C4::Bookseller::Contact; diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl index 76d4f24..3e8bdc8 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 8caff1c..b53b7e7 100755 --- a/acqui/uncertainprice.pl +++ b/acqui/uncertainprice.pl @@ -49,7 +49,7 @@ use warnings; use C4::Input; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Bookseller::Contact; use C4::Acquisition qw/SearchOrders GetOrder ModOrder/; diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl index 8e887df..d125d89 100755 --- a/acqui/updatesupplier.pl +++ b/acqui/updatesupplier.pl @@ -56,7 +56,7 @@ use C4::Bookseller qw( ModBookseller AddBookseller ); use C4::Bookseller::Contact; use C4::Biblio; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); my $input=new CGI; my ($template, $loggedinuser, $cookie) = get_template_and_user( diff --git a/admin/admin-home.pl b/admin/admin-home.pl index b431b49..0300137 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 1bef153..7221e41 100755 --- a/admin/aqbudget_user_search.pl +++ b/admin/aqbudget_user_search.pl @@ -23,7 +23,7 @@ use Modern::Perl; use C4::Auth ; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Dates qw/format_date/; use C4::Members; diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl index 119884a..0de825a 100755 --- a/admin/aqbudgetperiods.pl +++ b/admin/aqbudgetperiods.pl @@ -46,7 +46,8 @@ script to administer the budget periods table use Modern::Perl; -use CGI; +use Number::Format qw(format_price); +use CGI qw ( -utf8 ); use List::Util qw/min/; use Koha::DateUtils; use Koha::Database; diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl index 8d3f3e8..4ea2b9d 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 8997c31..a19efdb 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 cc397fe..dda1d21 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 0376a0f..02eef5d 100755 --- a/admin/auth_subfields_structure.pl +++ b/admin/auth_subfields_structure.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Output; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Koha; diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl index bd9ed32..2a4ff57 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 090fe90..453746c 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 bbcfff3..f705fdc 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 ec45cb9..cac4d92 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 a7d9132..1b6f0ec 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 2aa87df..a698a26 100755 --- a/admin/branches.pl +++ b/admin/branches.pl @@ -39,7 +39,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; diff --git a/admin/categorie.pl b/admin/categorie.pl index 8fb5c64..75cee49 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 c1e0d41..3ce9b70 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 27006f5..04618ed 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 fbd1252..9050287 100755 --- a/admin/checkmarc.pl +++ b/admin/checkmarc.pl @@ -22,7 +22,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Output; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Biblio; diff --git a/admin/cities.pl b/admin/cities.pl index 082350e..f491fac 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 93914fd..6ca29d0 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 c234310..c8a39a7 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 9065681..5550f0f 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 434d0e9..52ebeaa 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 eb6a4b1..533bda0 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 65ab938..8214deb 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 20729f2..cb7a1cc 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 f5370b8..bed078c 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 bfaa44c..1bfad90 100755 --- a/admin/itemtypes.pl +++ b/admin/itemtypes.pl @@ -42,7 +42,7 @@ written 20/02/2002 by paul.poulain@free.fr use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use List::Util qw/min/; use File::Spec; diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl index 8458ad5..8a51ec8 100755 --- a/admin/koha2marclinks.pl +++ b/admin/koha2marclinks.pl @@ -21,7 +21,7 @@ use strict; use warnings; use C4::Output; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Biblio; diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl index 9c23196..5261dd4 100755 --- a/admin/marc_subfields_structure.pl +++ b/admin/marc_subfields_structure.pl @@ -21,7 +21,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Output; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl index d195718..f969b07 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 1afb564..9fc93b7 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 18a48bb..ab2e9b3 100755 --- a/admin/oai_set_mappings.pl +++ b/admin/oai_set_mappings.pl @@ -32,7 +32,7 @@ the OR operator will be applied. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::OAI::Sets; diff --git a/admin/oai_sets.pl b/admin/oai_sets.pl index c923e87..00d9640 100755 --- a/admin/oai_sets.pl +++ b/admin/oai_sets.pl @@ -28,7 +28,7 @@ Admin page to describe OAI SETs use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::OAI::Sets; diff --git a/admin/patron-attr-types.pl b/admin/patron-attr-types.pl index 6ae1b74..41ca15f 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 ed60473..b6cdaa2 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 04f73d9..f94cfeb 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 eb3e875..942e9bf 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 8c3f00d..58b86e2 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 1ac1b72..bb37bae 100755 --- a/admin/systempreferences.pl +++ b/admin/systempreferences.pl @@ -43,7 +43,7 @@ ALSO : use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use MIME::Base64; use C4::Auth; use C4::Context; diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl index db34c6f..54d8785 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 b7a80c2..df4b99a 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 607c652..818bb6d 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 f41775c..578d9a0 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 89049fe..e610e7f 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 d0f4069..86371e0 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -43,7 +43,7 @@ use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index eed059c..027345d 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -44,7 +44,7 @@ use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; # use C4::Biblio; diff --git a/authorities/detail.pl b/authorities/detail.pl index a84a9f5..3f5018c 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -44,7 +44,7 @@ use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; diff --git a/authorities/export.pl b/authorities/export.pl index dc886c0..6b79ffb 100755 --- a/authorities/export.pl +++ b/authorities/export.pl @@ -6,7 +6,7 @@ use C4::Record; use C4::Auth; use C4::Output; use C4::AuthoritiesMarc; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/authorities/merge.pl b/authorities/merge.pl index 3628381..6f2b154 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 dd716a7..458b4c9 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 b669c08..7a28a6b 100755 --- a/authorities/ysearch.pl +++ b/authorities/ysearch.pl @@ -27,7 +27,7 @@ This script allows ajax call for dynamic authorities search =cut -use CGI; +use CGI qw ( -utf8 ); use Modern::Perl; use JSON; diff --git a/basket/basket.pl b/basket/basket.pl index 7fa915c..ea8e863 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 5693358..199271e 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 a9314a3..36f3c1a 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 2884303..18f0014 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -39,7 +39,7 @@ use strict; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Biblio; use C4::Items; diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 5eb50e5..c11bdf3 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -49,7 +49,7 @@ use strict; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use MARC::Record; use C4::Biblio; diff --git a/catalogue/detail.pl b/catalogue/detail.pl index f33e263..adf6823 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 efdf0ee..e66d3f2 100755 --- a/catalogue/export.pl +++ b/catalogue/export.pl @@ -6,7 +6,7 @@ use C4::Record; use C4::Auth; use C4::Output; use C4::Biblio; -use CGI; +use CGI qw ( -utf8 ); use C4::Ris; diff --git a/catalogue/getitem-ajax.pl b/catalogue/getitem-ajax.pl index 3bab891..ad9b4b1 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 ff74cbe..6f9142d 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 7c1ab1d..007bdfc 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 ff22bc0..aae14d9 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 11f8f85..7e9c6ba 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 1893a33..39d3c9f 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 20e3b82..a969701 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 24abcb0..26b3702 100755 --- a/catalogue/search.pl +++ b/catalogue/search.pl @@ -159,7 +159,7 @@ use URI::Escape; my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold"); # create a new CGI object # FIXME: no_undef_params needs to be tested -use CGI qw('-no_undef_params'); +use CGI qw('-no_undef_params' -utf8 ); my $cgi = new CGI; my ($template,$borrowernumber,$cookie); diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl index 1954ce8..de7fb22 100755 --- a/catalogue/showmarc.pl +++ b/catalogue/showmarc.pl @@ -24,7 +24,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI qw(:standard); +use CGI qw(:standard -utf8); use DBI; use Encode; diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl index 74613e2..41a38b4 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 a9cd6e8..1ed4307 100755 --- a/cataloguing/addbooks.pl +++ b/cataloguing/addbooks.pl @@ -26,7 +26,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Biblio; use C4::Breeding; diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index 09e2d97..9c7fb3f 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 f7cd6b8..79ab38c 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 fdac609..bac7526 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 26f0800..82278a7 100755 --- a/cataloguing/merge_ajax.pl +++ b/cataloguing/merge_ajax.pl @@ -5,7 +5,7 @@ use strict; # standard or CPAN modules used use IO::File; -use CGI; +use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; use C4::Biblio; diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl index e108637..0e1cc77 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 f3ef3e8..50aeb32 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 f858de4..4a0dd77 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 17b313f..73190dc 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 f7338cb..313f66a 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 26aea40..bb4b861 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 a4a5770..f2144bc 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 3f5f663..e0cd235 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 9a2753b..8a16bae 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 f9a824a..ed601ec 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 93a1433..03ad6ae 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 0b08c25..b3557b3 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 134c473..a41b941 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 0c6a576..b6126b2 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 fb21e9d..71b5ba5 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 baf0490..e14a977 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 3148bad..478df1a 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 d5acce0..d58757b 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 020b24f..ae32d09 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 677008b..1b580fc 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 6c0e24f..7c80e60 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 1675e53..4e061f8 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 55bc770..d0eedbf 100755 --- a/cataloguing/value_builder/unimarc_field_100.pl +++ b/cataloguing/value_builder/unimarc_field_100.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/cataloguing/value_builder/unimarc_field_100_authorities.pl b/cataloguing/value_builder/unimarc_field_100_authorities.pl index 0a4012b..28bc870 100644 --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ b/cataloguing/value_builder/unimarc_field_100_authorities.pl @@ -21,7 +21,7 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl index 67f6cbc..6f68583 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl index 21bd2f4..d6d4907 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 1c567c1..5a2be80 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl index 8075ae5..e5470a1 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl index fbdde35..ae54ae8 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl index a168874..ae020e7 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl index 6901765..254c859 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index de9beeb..702b7d4 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index 359a61d..8171921 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl index 6da8ba7..f979acc 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 0c70341..4dbca39 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 ce8e4e5..9a43344 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 f74352c..335315b 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 f74352c..335315b 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 0d7541c..5cb8d8d 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 f74352c..335315b 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 5ada49f..52b894e 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 8ce202e..c0193a0 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 4f2bc8c..a2ddad9 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 08563a9..21c8c40 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 62e8a8f..89696c4 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 486ef21..7615e0c 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 2a29b0e..a5be87e 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 c1a731a..8ed9253 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 21965f2..02063ca 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 5319217..4104976 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 5d3a622..89e6e5b 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 045a1e2..d4a31d2 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 4e73164..2a86b3d 100755 --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ b/cataloguing/value_builder/unimarc_field_125b.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl index 4f2bc8c..a2ddad9 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 1afbba8..2921068 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl index 5bf5caf..7fc32e5 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 16195fe..3ef0a9a 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 ef1b006..936ad20 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 3f0835b..34d435f 100755 --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ b/cataloguing/value_builder/unimarc_field_128b.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl index 359d8e3..3b394aa 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 d6f99fa..f0a9cff 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl index 15c21ee..5809732 100755 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ b/cataloguing/value_builder/unimarc_field_135a.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl index 7d17caf..cf0e469 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl index e0b7a38..9691b36 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 e6dace6..67f4ab6 100755 --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ b/cataloguing/value_builder/unimarc_field_210c.pl @@ -25,7 +25,7 @@ use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Search; use MARC::Record; use C4::Koha; diff --git a/cataloguing/value_builder/unimarc_field_210c_bis.pl b/cataloguing/value_builder/unimarc_field_210c_bis.pl index d9e02b2..e7d0903 100755 --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -42,7 +42,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::AuthoritiesMarc; diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl index 0a0894b..22e47eb 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -42,7 +42,7 @@ It need : use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::AuthoritiesMarc; diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl index a473792..3cacb51 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 2b44823..714229c 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 ac99e4b..3facd0c 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 04457e6..4dc87ac 100755 --- a/cataloguing/value_builder/unimarc_leader.pl +++ b/cataloguing/value_builder/unimarc_leader.pl @@ -23,7 +23,7 @@ use strict; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Search; diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl index 49dfa39..854ef7a 100755 --- a/cataloguing/ysearch.pl +++ b/cataloguing/ysearch.pl @@ -25,7 +25,7 @@ =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Charset; use C4::Auth qw/check_cookie_auth/; diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl index 22dc565..b5c08a3 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 c4d68e3..a53ade8 100755 --- a/changelanguage.pl +++ b/changelanguage.pl @@ -19,7 +19,7 @@ use strict; use warnings; use C4::Templates; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; my $language = $query->param('language'); diff --git a/circ/add_message.pl b/circ/add_message.pl index 053d197..3506c9b 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 dcc1611..eeff50e 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 c5a8743..3698114 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 190ca71..2c8612c 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 161158c..bbb715b 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 50936d7..982669c 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 7229373..c04ff57 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 525e25a..db0869c 100755 --- a/circ/hold-transfer-slip.pl +++ b/circ/hold-transfer-slip.pl @@ -22,7 +22,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/:DEFAULT get_session/; use C4::Reserves; diff --git a/circ/offline-mf.pl b/circ/offline-mf.pl index 87bc67f..8cf93b1 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 ebc161b..b7757e2 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 c2a0db1..a0c7af7 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -23,7 +23,7 @@ use strict; use warnings; use C4::Context; use C4::Output; -use CGI qw(-oldstyle_urls); +use CGI qw(-oldstyle_urls -utf8); use C4::Auth; use C4::Branch; use C4::Debug; diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl index 2deb67b..f964074 100755 --- a/circ/pendingreserves.pl +++ b/circ/pendingreserves.pl @@ -31,7 +31,7 @@ use constant TWO_DAYS_AGO => -2; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Dates qw/format_date format_date_in_iso/; use C4::Debug; diff --git a/circ/renew.pl b/circ/renew.pl index 7800fc9..180c881 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 73c68f0..9585660 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 0faf22a..a7e9c6e 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -30,7 +30,7 @@ script to execute returns of books use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use DateTime; use C4::Context; use C4::Auth qw/:DEFAULT get_session/; diff --git a/circ/selectbranchprinter.pl b/circ/selectbranchprinter.pl index 4e5a8e4..cfabb71 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 3fc8283..6db5632 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 0abb417..3cf84cc 100755 --- a/circ/transfer-slip.pl +++ b/circ/transfer-slip.pl @@ -23,7 +23,7 @@ use warnings; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw/:DEFAULT get_session/; use C4::Circulation; diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl index 522d922..cf48c3e 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 54fe66e..cff29c7 100755 --- a/circ/view_holdsqueue.pl +++ b/circ/view_holdsqueue.pl @@ -24,7 +24,7 @@ This script displays items in the tmp_holdsqueue table use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl index 222939c..502aafd 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 517c8c0..091ce5f 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 8973902..4ac19f5 100755 --- a/circ/ysearch.pl +++ b/circ/ysearch.pl @@ -27,7 +27,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Members; use C4::Auth qw/check_cookie_auth/; diff --git a/course_reserves/add_items.pl b/course_reserves/add_items.pl index 9429d91..0a96860 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 8a578d5..b82df5b 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 f7fbd8e..4ae6c9b 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 a82c781..e87083f 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 8f73203..e94b4a8 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 cb161f7..8b5144c 100755 --- a/docs/CAS/CASProxy/examples/koha_webservice.pl +++ b/docs/CAS/CASProxy/examples/koha_webservice.pl @@ -39,7 +39,7 @@ binmode(STDOUT, ":utf8"); use C4::Auth qw(check_api_auth); use C4::Output; use C4::Context; -use CGI; +use CGI qw ( -utf8 ); my $cgi = new CGI; diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl index 85085d7..71630c3 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas.pl @@ -30,7 +30,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Authen::CAS::Client; # URL Of the CAS Server diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl index 3c2c9ef..31f39c2 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl @@ -27,7 +27,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Authen::CAS::Client; use Storable qw(nstore_fd); diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl index 92c61a5..5afd7f1 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl @@ -32,7 +32,7 @@ This PGTIOU will allow us to retrive the matching PGTID use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Authen::CAS::Client; use Storable qw(fd_retrieve); use LWP::Simple; diff --git a/edithelp.pl b/edithelp.pl index 62b449f..8f56bfc 100755 --- a/edithelp.pl +++ b/edithelp.pl @@ -21,7 +21,7 @@ use strict; use C4::Output; use C4::Templates; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use warnings; use vars qw($debug); diff --git a/errors/400.pl b/errors/400.pl index 94da8ed..23dc5ae 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 d9622c0..88c88d8 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 946eeae..552398b 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 e3b7b88..11918c3 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 d725489..e7e0071 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 bc2997d..9fb6e0c 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 4df8dc2..7d4385d 100755 --- a/help.pl +++ b/help.pl @@ -23,7 +23,7 @@ use C4::Templates; use C4::Output; # use C4::Auth; use C4::Context; -use CGI; +use CGI qw ( -utf8 ); sub _help_template_file_of_url { my $url = shift; diff --git a/installer/install.pl b/installer/install.pl index dc01dc6..4420fde 100755 --- a/installer/install.pl +++ b/installer/install.pl @@ -5,7 +5,7 @@ use warnings; use diagnostics; use C4::InstallAuth; -use CGI; +use CGI qw ( -utf8 ); use IPC::Cmd; use C4::Context; diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl index 1b0c02c..3c23021 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 e23b068..9c75bf2 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 5e62ef8..3b568c7 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 4bd58ff..60d7b43 100755 --- a/labels/label-edit-batch.pl +++ b/labels/label-edit-batch.pl @@ -22,7 +22,7 @@ use strict; use warnings; use vars qw($debug); -use CGI; +use CGI qw ( -utf8 ); use C4::Auth qw(get_template_and_user); use C4::Output qw(output_html_with_http_headers); diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl index 2dd7612..fe38903 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 c1b25ae..df2e73b 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 f527d28..241f9fc 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 44f3ed3..946a6eb 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 04db4d0..eb6defe 100755 --- a/labels/label-item-search.pl +++ b/labels/label-item-search.pl @@ -21,7 +21,7 @@ use strict; use warnings; use vars qw($debug $cgi_debug); -use CGI; +use CGI qw ( -utf8 ); use List::Util qw( max min ); use POSIX qw(ceil); diff --git a/labels/label-manage.pl b/labels/label-manage.pl index 061dea4..4ee8779 100755 --- a/labels/label-manage.pl +++ b/labels/label-manage.pl @@ -22,7 +22,7 @@ use strict; use warnings; use vars qw($debug); -use CGI; +use CGI qw ( -utf8 ); use Data::Dumper; use C4::Auth qw(get_template_and_user); diff --git a/labels/label-print.pl b/labels/label-print.pl index 7d53c74..b898d83 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 576b399..b24441b 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 f88a6a1..31aed54 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 ab3a7ab..09450f6 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 50f5db9..d3b5240 100755 --- a/members/boraccount.pl +++ b/members/boraccount.pl @@ -28,7 +28,7 @@ use warnings; use C4::Auth; use C4::Output; use C4::Dates qw/format_date/; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; use C4::Accounts; diff --git a/members/deletemem.pl b/members/deletemem.pl index 85c0166..bad636c 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 f9b7080..efe4ad4 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 e5b39df..a9fe9dd 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 c8eb619..c6ad4de 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -27,7 +27,7 @@ use warnings; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; diff --git a/members/maninvoice.pl b/members/maninvoice.pl index c72b387..240c680 100755 --- a/members/maninvoice.pl +++ b/members/maninvoice.pl @@ -27,7 +27,7 @@ use warnings; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Accounts; use C4::Items; diff --git a/members/member-flags.pl b/members/member-flags.pl index ab96951..68c52aa 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 eb37b99..310d641 100755 --- a/members/member-password.pl +++ b/members/member-password.pl @@ -14,7 +14,7 @@ use C4::Context; use C4::Members; use C4::Branch; use C4::Circulation; -use CGI; +use CGI qw ( -utf8 ); use C4::Members::Attributes qw(GetBorrowerAttributes); use Digest::MD5 qw(md5_base64); diff --git a/members/member.pl b/members/member.pl index ad3ee85..191ff44 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 7a0329f..5db8273 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -23,7 +23,7 @@ use strict; use warnings; # external modules -use CGI; +use CGI qw ( -utf8 ); # use Digest::MD5 qw(md5_base64); use List::MoreUtils qw/uniq/; diff --git a/members/members-home.pl b/members/members-home.pl index 37fc496..0d0e279 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 68fec22..8408702 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 03cd89f..bed43ac 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 592e134..98ad5ee 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 1735e02..92fe2d9 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -35,7 +35,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Output; diff --git a/members/notices.pl b/members/notices.pl index e0338d3..113e20c 100755 --- a/members/notices.pl +++ b/members/notices.pl @@ -23,7 +23,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; use C4::Letters; diff --git a/members/patronimage.pl b/members/patronimage.pl index 4f663d6..4161e97 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 0e41f80..381cf31 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -33,7 +33,7 @@ use URI::Escape; use C4::Context; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Accounts; use C4::Stats; diff --git a/members/paycollect.pl b/members/paycollect.pl index 6473f02..692b958 100755 --- a/members/paycollect.pl +++ b/members/paycollect.pl @@ -23,7 +23,7 @@ use URI::Escape; use C4::Context; use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Members::Attributes qw(GetBorrowerAttributes); use C4::Accounts; diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl index 7f1e251..1a138f8 100755 --- a/members/printfeercpt.pl +++ b/members/printfeercpt.pl @@ -28,7 +28,7 @@ use warnings; use C4::Auth; use C4::Output; use C4::Dates qw/format_date/; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; use C4::Accounts; diff --git a/members/printinvoice.pl b/members/printinvoice.pl index ef01d54..c53cfaa 100755 --- a/members/printinvoice.pl +++ b/members/printinvoice.pl @@ -26,7 +26,7 @@ use warnings; use C4::Auth; use C4::Output; use C4::Dates qw/format_date/; -use CGI; +use CGI qw ( -utf8 ); use C4::Members; use C4::Branch; use C4::Accounts; diff --git a/members/printslip.pl b/members/printslip.pl index cae8e43..1945802 100755 --- a/members/printslip.pl +++ b/members/printslip.pl @@ -34,7 +34,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; use C4::Output; diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl index d7d7ab0..4c58c3e 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 672c2c8..de2baec 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 ae6bf1c..efd067e 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 2c13401..6ec490e 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 af31815..de9a6a3 100755 --- a/members/statistics.pl +++ b/members/statistics.pl @@ -24,7 +24,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Context; diff --git a/members/update-child.pl b/members/update-child.pl index 25e80ca..1a320c0 100755 --- a/members/update-child.pl +++ b/members/update-child.pl @@ -28,7 +28,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; use C4::Output; diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl index 99bd22f..9dc6c58 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -29,7 +29,7 @@ use Getopt::Long qw(:config auto_help auto_version); use Pod::Usage; use Mail::Sendmail; use Text::CSV_XS; -use CGI; +use CGI qw ( -utf8 ); use Carp; use Encode; diff --git a/offline_circ/download.pl b/offline_circ/download.pl index edd35a6..713057c 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 995d2db..ec4342d 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 73a2f78..aeff99f 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 e54ee5b..bd72d60 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 2ce4f97..05084c6 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 771d459..b56bb75 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 bf24260..cc8006c 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 4f42ece..368505e 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 2c0077f..09d56c3 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 ca834f0..0b2528b 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 5aa3f09..fb8ee7e 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 af1b228..456f7c8 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 a8cc47d..efd759b 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -27,7 +27,7 @@ use C4::Auth; use C4::Output; use C4::Context; use XML::Simple; -use CGI; +use CGI qw ( -utf8 ); =head1 DLF ILS-DI for Koha diff --git a/opac/maintenance.pl b/opac/maintenance.pl index 53394cb..b6b3a24 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 b453408..d6ef2e9 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 2acddb4..d45ebc3 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -45,7 +45,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Biblio; use C4::Items; diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index 2e9b537..23c802a 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -48,7 +48,7 @@ use Modern::Perl; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Biblio; use C4::Items; diff --git a/opac/opac-account.pl b/opac/opac-account.pl index 3907001..7bbdc6e 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 4d8cf6a..f988d9d 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 f177878..694ce8c 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 1810c1c..ab91944 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 3e17cf1..2f2a0dc 100755 --- a/opac/opac-authoritiesdetail.pl +++ b/opac/opac-authoritiesdetail.pl @@ -43,7 +43,7 @@ use C4::AuthoritiesMarc; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl index 690fc3c..2b345e1 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 87532d2..3d2f233 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 0ff2c02..fbdae0b 100755 --- a/opac/opac-browser.pl +++ b/opac/opac-browser.pl @@ -30,7 +30,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Koha; # use getitemtypeinfo diff --git a/opac/opac-changelanguage.pl b/opac/opac-changelanguage.pl index 1c0b842..a002680 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 9741359..b1cf4c1 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 b6a18ae..eb542e2 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 9ba8120..4072138 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 2d4fb1b..98a7f3c 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 012e51b..7a6b1dd 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 64c758a..707392f 100755 --- a/opac/opac-export.pl +++ b/opac/opac-export.pl @@ -24,7 +24,7 @@ use C4::Record; use C4::Auth; use C4::Output; use C4::Biblio; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Ris; diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl index dace1b1..acaac9b 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 e2dc556..c690f0b 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 2269971..9d71bdc 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 5374f36..9db64cb 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 6abe803..de3ca52 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 096dbff..b0c1cde 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 d39e220..92461b9 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 4cefe21..25ec92c 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 a7ccf25..5859e57 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 1e07b9f..dbf60af 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 2948eb3..377e09e 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 eab6abc..a6fc4ee 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 fd98e6c..4d611a3 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 a474845..db8fc3f 100755 --- a/opac/opac-ratings-ajax.pl +++ b/opac/opac-ratings-ajax.pl @@ -26,7 +26,7 @@ A script that takes an ajax json query, and then inserts or modifies a star-rati use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request use C4::Auth qw(:DEFAULT check_cookie_auth); diff --git a/opac/opac-ratings.pl b/opac/opac-ratings.pl index b2bcf6f..552d8a6 100755 --- a/opac/opac-ratings.pl +++ b/opac/opac-ratings.pl @@ -27,7 +27,7 @@ note: there is currently no 'delete rating' functionality in this script use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; use C4::Auth qw(:DEFAULT check_cookie_auth); use C4::Context; diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl index 1fc0dbc..0e2d89f 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 05b258f..1984610 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 40a07e5..3a64ccf 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 ba778db..6c381f3 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 39b8f8f..948d5e5 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 5b5a66d..85e7f33 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 692d70b..d04f436 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -51,7 +51,7 @@ use Business::ISBN; my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold"); # create a new CGI object # FIXME: no_undef_params needs to be tested -use CGI qw('-no_undef_params'); +use CGI qw('-no_undef_params' -utf8); my $cgi = new CGI; my $branch_group_limit = $cgi->param("branch_group_limit"); diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl index 8143cca..7b63ee2 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 b662664..61cc979 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 d276952..93a0ae3 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 669629b..f29e170 100755 --- a/opac/opac-shareshelf.pl +++ b/opac/opac-shareshelf.pl @@ -24,7 +24,7 @@ use constant TEMPLATE_NAME => 'opac-shareshelf.tt'; use constant SHELVES_URL => '/cgi-bin/koha/opac-shelves.pl?display=privateshelves&viewshelf='; -use CGI; +use CGI qw ( -utf8 ); use Email::Valid; use C4::Auth; diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl index 0cdd0c4..fe13b7d 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 86be88f..786693e 100755 --- a/opac/opac-showmarc.pl +++ b/opac/opac-showmarc.pl @@ -21,7 +21,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use Encode; # Koha modules used diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl index cf493d5..2bca5d6 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 2d89d93..c4b1359 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 5a058d2..6388a01 100755 --- a/opac/opac-tags.pl +++ b/opac/opac-tags.pl @@ -32,7 +32,7 @@ C4::Scrubber is used to remove all markup content from the sumitted text. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request use C4::Auth qw(:DEFAULT check_cookie_auth); diff --git a/opac/opac-tags_subject.pl b/opac/opac-tags_subject.pl index 19322c5..3a7a307 100755 --- a/opac/opac-tags_subject.pl +++ b/opac/opac-tags_subject.pl @@ -30,7 +30,7 @@ use warnings; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Koha; # use getitemtypeinfo diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl index d14163b..154e880 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 ad4f339..995db7b 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 356d351..e94f00b 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 09c6c6a..6ba0066 100755 --- a/opac/sco/printslip.pl +++ b/opac/sco/printslip.pl @@ -28,7 +28,7 @@ It is called from sco-main.pl use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; use C4::Output; diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index 0d103ec..c6b9b32 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 ed41e08..e871f74 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 02b6ad0..22f4b1b 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 af6b712..bfc84e5 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 611c503..ea0e9d7 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 9c08565..0fbb31b 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 7182fdb..d64b00b 100755 --- a/opac/tracklinks.pl +++ b/opac/tracklinks.pl @@ -22,7 +22,7 @@ use Modern::Perl; use C4::Context; use C4::Auth qw(checkauth); use Koha::Linktracker; -use CGI; +use CGI qw ( -utf8 ); my $cgi = new CGI; my $uri = $cgi->param('uri') || ''; diff --git a/opac/unapi b/opac/unapi index 96076b6..8b573e4 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 b5cafb2..27060a6 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 aa515c2..f9d1aef 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 a1dee24..ef2085c 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 457520f..a5cdf2b 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 6e38ca1..658f92d 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 482c15f..1d82ae0 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 56a32e6..d507722 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 fb730a7..70dac9c 100755 --- a/patroncards/edit-batch.pl +++ b/patroncards/edit-batch.pl @@ -22,7 +22,7 @@ use strict; use warnings; use vars qw($debug); -use CGI; +use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth qw(get_template_and_user); diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl index dd5f46a..513ab5f 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 0f03754..84f18e6 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 0b1da55..8d07e8b 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 cedfef2..de7f243 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 0ec1b7b..d72c655 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 2c13a4e..a05f0f8 100755 --- a/patroncards/manage.pl +++ b/patroncards/manage.pl @@ -22,7 +22,7 @@ use strict; use warnings; use vars qw($debug); -use CGI; +use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth qw(get_template_and_user); diff --git a/patroncards/members-search.pl b/patroncards/members-search.pl index 8d46417..3492c7d 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 76ff2eb..4b20e5a 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 03095bb..693aca9 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 b7dad41..bde1ff3 100755 --- a/plugins/plugins-uninstall.pl +++ b/plugins/plugins-uninstall.pl @@ -21,7 +21,7 @@ use warnings; use Archive::Extract; use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl index 34805e8..2cadb5d 100755 --- a/plugins/plugins-upload.pl +++ b/plugins/plugins-upload.pl @@ -22,7 +22,7 @@ use warnings; use Archive::Extract; use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; diff --git a/plugins/run.pl b/plugins/run.pl index 50eb4dc..ec7ab6b 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 b19bf8e..fd30926 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 f8ee8e8..d219991 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 9687234..3acfcdc 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 e71fef9..0280a86 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 893fd21..5916986 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 2637f98..3454d2e 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 2ab9bfe..94371e9 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 f3e08d0..967c73a 100755 --- a/reports/dictionary.pl +++ b/reports/dictionary.pl @@ -20,7 +20,7 @@ use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use strict; use warnings; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reports::Guided; use C4::Dates; diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl index 3781d37..93fe046 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 806ff7c..95cee7d 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 0ab0143..7a487f8 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 cb283d5..450ed45 100755 --- a/reports/itemslost.pl +++ b/reports/itemslost.pl @@ -28,7 +28,7 @@ This script displays lost items. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Biblio; diff --git a/reports/itemtypes.plugin b/reports/itemtypes.plugin index e4164a5..b0505d0 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 01b4deb..7a91e9e 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 29d3617..b1c7355 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 bd5ee0c..90085bc 100755 --- a/reports/reservereport.pl +++ b/reports/reservereport.pl @@ -27,7 +27,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Stats; use C4::Dates qw/format_date/; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Branch; # GetBranches use C4::Auth; diff --git a/reports/reserves_stats.pl b/reports/reserves_stats.pl index 11fcb8e..df8d648 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 c7644c8..3ec22f8 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 066aafa..9495360 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 0eef8d1..d50368d 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 183f52e..9b64e24 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 a8662c7..4d3b6a5 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 3fe459c..1499ea5 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 56fab0b..b5402d1 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 70c002a..ce0e70f 100755 --- a/reserve/request.pl +++ b/reserve/request.pl @@ -29,7 +29,7 @@ script to place reserves/requests use strict; use warnings; use C4::Branch; -use CGI; +use CGI qw ( -utf8 ); use List::MoreUtils qw/uniq/; use Date::Calc qw/Date_to_Days/; use C4::Output; diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl index 206d63b..b7cf3af 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 6286a40..93fa4ee 100755 --- a/rotating_collections/addItems.pl +++ b/rotating_collections/addItems.pl @@ -24,7 +24,7 @@ use C4::Context; use C4::RotatingCollections; use C4::Items; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl index 6d99ddb..fe02cf2 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 d86dab0..8cbd772 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 2a04857..8ed4bdb 100755 --- a/rotating_collections/transferCollection.pl +++ b/rotating_collections/transferCollection.pl @@ -24,7 +24,7 @@ use C4::Context; use C4::RotatingCollections; use C4::Branch; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl index 319b852..2eb248e 100755 --- a/serials/acqui-search-result.pl +++ b/serials/acqui-search-result.pl @@ -45,7 +45,7 @@ use warnings; use C4::Auth; use C4::Biblio; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Acquisition qw( SearchOrders ); use C4::Dates qw/format_date/; diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl index a8592fb..a8c2248 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 e24210f..9feeaad 100755 --- a/serials/checkexpiration.pl +++ b/serials/checkexpiration.pl @@ -44,7 +44,7 @@ The date to filter on. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Serials; # GetExpirationDate use C4::Output; diff --git a/serials/claims.pl b/serials/claims.pl index 7120515..89150a1 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 f2c6d49..52b303d 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 97b5bbe..a75b21c 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 dfeb373..9ae769b 100755 --- a/serials/member-search.pl +++ b/serials/member-search.pl @@ -25,7 +25,7 @@ Member Search.pl script used to search for members to add to a routing list use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user use C4::Output; use C4::Members; # BornameSearch diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl index 8b64fc7..ba19b8c 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 1f219cc..db0984c 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 5dd53fe..5e85729 100755 --- a/serials/routing.pl +++ b/serials/routing.pl @@ -27,7 +27,7 @@ printed out use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; use C4::Dates; diff --git a/serials/serial-issues.pl b/serials/serial-issues.pl index de5989b..0294c54 100755 --- a/serials/serial-issues.pl +++ b/serials/serial-issues.pl @@ -43,7 +43,7 @@ the biblionumber this script has to give more infos. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Dates; diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl index 2922c42..6d17354 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 54c8ccd..d9b97a6 100755 --- a/serials/serials-edit.pl +++ b/serials/serials-edit.pl @@ -63,7 +63,7 @@ op can be : use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw( decode is_utf8 ); use C4::Auth; use C4::Dates qw/format_date format_date_in_iso/; diff --git a/serials/serials-home.pl b/serials/serials-home.pl index 175321e..66e47e2 100755 --- a/serials/serials-home.pl +++ b/serials/serials-home.pl @@ -29,7 +29,7 @@ this script is the main page for serials/ =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Context; diff --git a/serials/serials-recieve.pl b/serials/serials-recieve.pl index d5daa9f..9fbce35 100755 --- a/serials/serials-recieve.pl +++ b/serials/serials-recieve.pl @@ -64,7 +64,7 @@ op can be : use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Dates qw/format_date format_date_in_iso/; use C4::Biblio; diff --git a/serials/serials-search.pl b/serials/serials-search.pl index b4e7715..b8a4007 100755 --- a/serials/serials-search.pl +++ b/serials/serials-search.pl @@ -29,7 +29,7 @@ this script is the search page for serials =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; use C4::Context; diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl index 82cf8af..6945a36 100755 --- a/serials/showpredictionpattern.pl +++ b/serials/showpredictionpattern.pl @@ -30,7 +30,7 @@ publication date, based on frequency and first publication date. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM); use C4::Auth; use C4::Output; diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl index b17fc60..fa75f06 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 e47b1e7..d8a8dd5 100755 --- a/serials/subscription-bib-search.pl +++ b/serials/subscription-bib-search.pl @@ -49,7 +49,7 @@ to multipage gestion. use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; use C4::Context; diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl index a3186cb..ebdc415 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 a44a9bb..f3c6d57 100755 --- a/serials/subscription-frequencies.pl +++ b/serials/subscription-frequencies.pl @@ -29,7 +29,7 @@ Manage subscription frequencies use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl index 1d38082..f7fe7c0 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 a45074f..9310b5d 100755 --- a/serials/subscription-history.pl +++ b/serials/subscription-history.pl @@ -29,7 +29,7 @@ Modify subscription history use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/subscription-numberpattern.pl b/serials/subscription-numberpattern.pl index 2a59d02..26745f1 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 934b545..2bcce3a 100755 --- a/serials/subscription-numberpatterns.pl +++ b/serials/subscription-numberpatterns.pl @@ -28,7 +28,7 @@ Manage numbering patterns =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl index df01dcc..92f7766 100755 --- a/serials/subscription-renew.pl +++ b/serials/subscription-renew.pl @@ -46,7 +46,7 @@ Id of the subscription this script has to renew use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Carp; use C4::Koha; use C4::Auth; diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl index 7d813e0..af28d66 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 3d7aa89..ff6eb12 100755 --- a/services/itemrecorddisplay.pl +++ b/services/itemrecorddisplay.pl @@ -30,7 +30,7 @@ It uses PrepareItemrecordDisplay use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Items; diff --git a/sms/sms.pl b/sms/sms.pl index 22f630e..5d599fb 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 c0e39d5..a94dc95 100755 --- a/sms/sms_listen_windows_start.pl +++ b/sms/sms_listen_windows_start.pl @@ -7,7 +7,7 @@ use strict; use Win32::Process; use Win32; use C4::Context; -use CGI; +use CGI qw ( -utf8 ); my $input=new CGI; my $fileplace=C4::Context->config('intranetdir'); my $fullpath=$fileplace."/cgi-bin/sms"; diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl index b146aad..b54703a 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 945d316..b64ecc8 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 d7cd169..ef1e41c 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 e1c1f68..e7660f0 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 ff29503..590a243 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 f93428d..06c0fbf 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 435d837..7ec4d05 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 ca4fbea..8736aca 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 9cafbd7..6b0f638 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 24c1344..4474d18 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 079779f..f769040 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 668e1ca..9ea2caa 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 1951ecc..9aee73e 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 8fbb709..32def21 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 5813c83..24265a1 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 b04c294..6da8027 100755 --- a/tags/review.pl +++ b/tags/review.pl @@ -23,7 +23,7 @@ use warnings; use strict; use Data::Dumper; use POSIX; -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request use C4::Auth qw(:DEFAULT check_cookie_auth); diff --git a/test/progressbar.pl b/test/progressbar.pl index 2285348..bdd8b4d 100755 --- a/test/progressbar.pl +++ b/test/progressbar.pl @@ -28,7 +28,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # Koha modules used diff --git a/test/progressbarsubmit.pl b/test/progressbarsubmit.pl index 691947d..a15cf51 100755 --- a/test/progressbarsubmit.pl +++ b/test/progressbarsubmit.pl @@ -28,7 +28,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; # Koha modules used diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl index 63f371a..2aeda40 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 380ad15..8f968d3 100755 --- a/tools/background-job-progress.pl +++ b/tools/background-job-progress.pl @@ -22,7 +22,7 @@ use strict; # standard or CPAN modules used use IO::File; -use CGI; +use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; use C4::Auth qw/check_cookie_auth/; diff --git a/tools/batchMod.pl b/tools/batchMod.pl index ea9c856..4ff95e8 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 e3dec83..c8c6198 100755 --- a/tools/batch_records_ajax.pl +++ b/tools/batch_records_ajax.pl @@ -31,7 +31,7 @@ the records from an import batch. use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use JSON qw/ to_json /; use C4::Context; diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl index 9a9c1ca..918dd9e 100755 --- a/tools/cleanborrowers.pl +++ b/tools/cleanborrowers.pl @@ -34,7 +34,7 @@ This script allows to do 2 things. use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; use C4::Members; # GetBorrowersWhoHavexxxBorrowed. diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl index 83c9761..5a1618d 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 942452c..c261376 100755 --- a/tools/csv-profiles.pl +++ b/tools/csv-profiles.pl @@ -41,7 +41,7 @@ use Encode; use C4::Auth; use C4::Context; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Koha; use C4::Csv; diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl index 0a36a20..45e2208 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 bae6941..f1bbcbb 100755 --- a/tools/export.pl +++ b/tools/export.pl @@ -20,7 +20,7 @@ use Modern::Perl; use MARC::File::XML; use List::MoreUtils qw(uniq); use Getopt::Long; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::AuthoritiesMarc; # GetAuthority use C4::Biblio; # GetMarcBiblio diff --git a/tools/holidays.pl b/tools/holidays.pl index 23468d1..b5aa4e3 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 55b7e7f..3b557f0 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -55,7 +55,7 @@ use Text::CSV; # ė # č -use CGI; +use CGI qw ( -utf8 ); # use encoding 'utf8'; # don't do this my (@errors, @feedback); diff --git a/tools/inventory.pl b/tools/inventory.pl index ba10b14..8c88349 100755 --- a/tools/inventory.pl +++ b/tools/inventory.pl @@ -22,7 +22,7 @@ use strict; use warnings; #need to open cgi and get the fh before anything else opens a new cgi context (see C4::Auth) -use CGI; +use CGI qw ( -utf8 ); my $input = CGI->new; my $uploadbarcodes = $input->param('uploadbarcodes'); diff --git a/tools/koha-news.pl b/tools/koha-news.pl index 1859deb..cf1e2b4 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 ab4f78f..b806e9b 100755 --- a/tools/letter.pl +++ b/tools/letter.pl @@ -42,7 +42,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; use C4::Output; diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl index 961a327..f0f2ca5 100755 --- a/tools/manage-marc-import.pl +++ b/tools/manage-marc-import.pl @@ -21,7 +21,7 @@ use strict; use warnings; # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; use MARC::File::USMARC; diff --git a/tools/marc_modification_templates.pl b/tools/marc_modification_templates.pl index 4f9323f..31c663b 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 a3f8b3f..bc82ed4 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 646276c..678ee0d 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 a824bd4..178a569 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 b7d99d7..af3012a 100755 --- a/tools/picture-upload.pl +++ b/tools/picture-upload.pl @@ -23,7 +23,7 @@ use Modern::Perl; use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use GD; use C4::Context; use C4::Auth; diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl index 7db61ce..eae219c 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 e12f4bf..e65a013 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 d2817d3..08606e0 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 5f44a7e..ece31c6 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 c909971..b55204b 100755 --- a/tools/scheduler.pl +++ b/tools/scheduler.pl @@ -23,7 +23,7 @@ use C4::Context; use C4::Scheduler; use C4::Reports::Guided; use C4::Auth; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Dates; diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl index a5f4d17..500e6cd 100755 --- a/tools/stage-marc-import.pl +++ b/tools/stage-marc-import.pl @@ -28,7 +28,7 @@ use strict; #use warnings; FIXME - Bug 2505 # standard or CPAN modules used -use CGI; +use CGI qw ( -utf8 ); use CGI::Cookie; use MARC::File::USMARC; diff --git a/tools/tools-home.pl b/tools/tools-home.pl index b493f1f..75f970b 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 478c119..1e6a1af 100755 --- a/tools/upload-cover-image.pl +++ b/tools/upload-cover-image.pl @@ -41,7 +41,7 @@ use strict; use warnings; use File::Temp; -use CGI; +use CGI qw ( -utf8 ); use GD; use C4::Context; use C4::Auth; diff --git a/tools/upload-file-progress.pl b/tools/upload-file-progress.pl index c457dbb..dd1065c 100755 --- a/tools/upload-file-progress.pl +++ b/tools/upload-file-progress.pl @@ -22,7 +22,7 @@ use strict; # standard or CPAN modules used use IO::File; -use CGI; +use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; use C4::Auth qw/check_cookie_auth/; diff --git a/tools/upload-file.pl b/tools/upload-file.pl index b705f5c..dd8c4f5 100755 --- a/tools/upload-file.pl +++ b/tools/upload-file.pl @@ -22,7 +22,7 @@ use strict; # standard or CPAN modules used use IO::File; -use CGI; +use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; use C4::Auth qw/check_cookie_auth/; diff --git a/tools/viewlog.pl b/tools/viewlog.pl index e526c1f..6f5ea03 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 289a4aa..87586f2 100755 --- a/virtualshelves/addbybiblionumber.pl +++ b/virtualshelves/addbybiblionumber.pl @@ -61,7 +61,7 @@ addbybiblionumber.pl use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Biblio; use C4::Output; use C4::VirtualShelves qw/:DEFAULT GetAllShelves/; diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl index caf01ac..27fc7f9 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 1d41581..c98e8ce 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 9f82e9d..9dba3f4 100755 --- a/virtualshelves/shelves.pl +++ b/virtualshelves/shelves.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::VirtualShelves::Page; use C4::Auth; -- 2.1.0