From 8e7604de8131716bb43667f9751c61eb92d08e98 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 --- 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/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 | 2 +- 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/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/fetch_sort_dropbox.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 | 2 +- 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/searchengine/solr/indexes.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/cardview.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.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/InstallAuth.pm | 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 | 2 +- opac/opac-authoritiesdetail.pl | 2 +- opac/opac-basket.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-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/search.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/Output.t | 2 +- t/Templates.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, 495 insertions(+), 495 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index ce75d5e..328e94a 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -73,7 +73,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 46cb1ec..24252b1 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 fa3c303..2691d80 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 bd201d3..b8a23f3 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 ba30460..d49d811 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/Reports.pm b/C4/Reports.pm index 104858e..252ade1 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 f827090..acdbaf3 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 c61eca6..006bebe 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 17185e0..7bbff98 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 b543293..581007d 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 d2cef07..e56da7a 100644 --- a/C4/Templates.pm +++ b/C4/Templates.pm @@ -3,7 +3,7 @@ package C4::Templates; use strict; use warnings; use Carp; -use CGI; +use CGI qw ( -utf8 ); use List::MoreUtils qw/any/; # 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 259e12d..d0ac35f 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 ba77ca6..ea8a33b 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 cd56831..b076cac 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -30,7 +30,7 @@ use strict; use warnings; use Number::Format; -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 1b05f07..49ed309 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; # NewOrder DelOrder ModOrder use C4::Suggestions; # ModStatus diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index e56bd06..bfbdb37 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Carp; use Number::Format qw(:all); diff --git a/acqui/aqbasketuser_search.pl b/acqui/aqbasketuser_search.pl index 512c10a..8f4b910 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 047ae84..d8f6a8a 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 b2d8b94..f5cbb01 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::Bookseller qw/GetBookSellerFromId/; use C4::Budgets qw/ConvertCurrency/; diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl index 93bd7f8..3bcc7a7 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 04aa2b8..95ad4f4 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::Bookseller qw/ GetBookSellerFromId GetBookSeller /; diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl index 6ee346c..902c5fb 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 8deb195..0040ccd 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/fetch_sort_dropbox.pl b/acqui/fetch_sort_dropbox.pl index ce47fb7..5968460 100755 --- a/acqui/fetch_sort_dropbox.pl +++ b/acqui/fetch_sort_dropbox.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/acqui/finishreceive.pl b/acqui/finishreceive.pl index 71bf90c..ac533f0 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 4e152e9..81054c6 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 5971ed1..5debe4c 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 451cf05..5b51d92 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 1a64a4c..89f7a44 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 ffdc9f6..04bb7b4 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 0e07066..269bf73 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::Bookseller qw/ GetBookSellerFromId /; use C4::Biblio; use C4::Auth; diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 9fdf032..e329467 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 7004853..b6eaa4c 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::Bookseller qw/GetBookSellerFromId/; diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl index efc634b..effad77 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 2a21c14..a1d83da 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 557030c..7249f80 100755 --- a/acqui/parcel.pl +++ b/acqui/parcel.pl @@ -63,7 +63,7 @@ use C4::Budgets; use C4::Bookseller qw/ GetBookSellerFromId /; 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 df02e21..25cdbd8 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 df417c0..e756d61 100755 --- a/acqui/supplier.pl +++ b/acqui/supplier.pl @@ -46,7 +46,7 @@ use C4::Auth; use C4::Contract qw/GetContract/; use C4::Biblio; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Bookseller qw( GetBookSellerFromId DelBookseller ); use C4::Budgets; diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl index fe4968a..2be6712 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 fd76e47..a76c9d4 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 qw/GetBookSellerFromId/; use C4::Acquisition qw/SearchOrders GetOrder ModOrder/; diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl index 7b3bf9d..287dc34 100755 --- a/acqui/updatesupplier.pl +++ b/acqui/updatesupplier.pl @@ -52,7 +52,7 @@ use C4::Auth; use C4::Bookseller qw( ModBookseller AddBookseller ); 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 bf3d9af..211ee1a 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 9371d01..6799468 100755 --- a/admin/aqbudgetperiods.pl +++ b/admin/aqbudgetperiods.pl @@ -48,7 +48,7 @@ script to administer the budget periods table use strict; #use warnings; FIXME - Bug 2505 use Number::Format qw(format_price); -use CGI; +use CGI qw ( -utf8 ); use List::Util qw/min/; use C4::Dates qw/format_date format_date_in_iso/; use C4::Koha; diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl index 229606e..c80093d 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 Number::Format qw(format_price); diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl index ab513e7..02bd130 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 9cc8c59..bb5050a 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 4cbb054..4f66373 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; diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl index 1f60dc5..521afad 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 f669301..3e43378 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 9869372..fe29afa 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 583bc50..2daca3e 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 e7422a6..5e92d16 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 9e6b14a..ce938f9 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 f4b2bb0..e1c5bd5 100755 --- a/admin/categorie.pl +++ b/admin/categorie.pl @@ -38,7 +38,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 8f56e2c..432c79e 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 cd3678b..497f89d 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 8734441..f60d493 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 e00e607..478c1bd 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 e7f6c9a..96e68e4 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 c9e4665..af329c8 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 ea22431..b141452 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::Dates qw(format_date); 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 f549cd0..91cff2b 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 1552010..1afedb0 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 2bfb496..d8d9c16 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 3c33073..c5d3418 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 68ec0dc..e99aa41 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 9a6e4fa..85b2a1d 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 862706e..fea3e21 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 ea86c48..6361578 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 3935f40..fd3e4d6 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 80c228c..74ed2ff 100755 --- a/admin/preferences.pl +++ b/admin/preferences.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/admin/printers.pl b/admin/printers.pl index c7e7492..91451c4 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/searchengine/solr/indexes.pl b/admin/searchengine/solr/indexes.pl index 39a5276..5506df9 100755 --- a/admin/searchengine/solr/indexes.pl +++ b/admin/searchengine/solr/indexes.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::Koha; use C4::Output; use C4::Auth; diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl index 456e738..f85e70c 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 a64745f..4c249a4 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 8722897..e23e840 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 faff6ec..2ebc06d 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 1dbd118..43189bd 100755 --- a/admin/z3950servers.pl +++ b/admin/z3950servers.pl @@ -21,7 +21,7 @@ use strict; use warnings; -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 2ff76ec..3351d3c 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 2fe4622..121adf0 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 de8bbf8..c6d2f9d 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 7bfe09e..f65ab8b 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 d4dc693..3a9785c 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 6402961..f60920e 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 04f28de..b923f52 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 ca64c60..54527b6 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 885ee41..d4cec52 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 2fa76bd..d0a88b2 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 2073ffd..08871d6 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/cardview.pl b/catalogue/cardview.pl index a288d4a..2de0911 100755 --- a/catalogue/cardview.pl +++ b/catalogue/cardview.pl @@ -18,7 +18,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use CGI; +use CGI qw ( -utf8 ); use XML::LibXSLT; use XML::LibXML; use C4::Koha; diff --git a/catalogue/detail.pl b/catalogue/detail.pl index 3f71a87..98fec30 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 6ecbc8d..9e9c582 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 ffb8d02..a6b6974 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 37cae1c..4efb1f9 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 86adb72..2ee1176 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.pl b/catalogue/search.pl index a391dfe..e3db991 100755 --- a/catalogue/search.pl +++ b/catalogue/search.pl @@ -156,7 +156,7 @@ use C4::Branch; # GetBranches 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 9cc039d..5c8d149 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 35cfa2c..1afdb32 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 db56ae4..9a57b4d 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 9b632f1..3d36ffa 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 e24b767..9c01c73 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 2622c36..e6c0fb0 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 0d1b539..97e30d3 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 56ef174..94d416b 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 d486649..9b45283 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 8f910b4..eee6c74 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 bba0c5f..22191f6 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 74e559d..0b2f11a 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 6fbb3d1..01a7af0 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 d5b5484..7a673aa 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 69b79d0..f13f2bb 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 b9cbe8b..dbe5c80 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 005ea97..9018401 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 800b445..20e5816 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 3e72ad9..5114d53 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 514394f..4b8a48d 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 51181e0..a8da70f 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 98ca163..a5c5bb7 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 260d346..e5d2a1a 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 0578d44..b841c68 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 6357822..a58e641 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 b48c9ae..a02ba6e 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 0ecf844..9eca433 100755 --- a/cataloguing/value_builder/unimarc_field_100.pl +++ b/cataloguing/value_builder/unimarc_field_100.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::Output; diff --git a/cataloguing/value_builder/unimarc_field_100_authorities.pl b/cataloguing/value_builder/unimarc_field_100_authorities.pl index 45a8df6..244935da 100644 --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ b/cataloguing/value_builder/unimarc_field_100_authorities.pl @@ -19,7 +19,7 @@ use Modern::Perl; 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 c84e826..ca6c943 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.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_106.pl b/cataloguing/value_builder/unimarc_field_106.pl index 0b51a18..52757da 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 2c301ae..8aa9193 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.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_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl index 2cd6806..88a87d8 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.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_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl index 919b1fa..ecacf3d 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.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_116.pl b/cataloguing/value_builder/unimarc_field_116.pl index 67f6875..6f02fe0 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.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_117.pl b/cataloguing/value_builder/unimarc_field_117.pl index fcbb18f..ac90999 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.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_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index f140fce..921aeba 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.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_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index d40f49c..c6c5941 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.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_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl index 2d570d7..e72d95d 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 045bd66..f0ba434 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 0fe85dc..7fee9f4 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 1df7fbc..b5ab724 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 1df7fbc..b5ab724 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 5932db5..a01d50e 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 1df7fbc..b5ab724 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 159caae..9d85410 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 36bfee9..b6a0be0 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 917e6a5..daefdf7 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 f6ae5f3..7065a69 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 143e226..3ecec5a 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 a1f12a4..2fd2934 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 b4176ba..a1c5ed6 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 1a82491..d56e8df 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 eb0661f..d1fe3be 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 83c19e6..be6412a 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 917e6a5..daefdf7 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 2fcbc94..260e6db 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 8c66161..d421f4d 100755 --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ b/cataloguing/value_builder/unimarc_field_125b.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_126.pl b/cataloguing/value_builder/unimarc_field_126.pl index 917e6a5..daefdf7 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 e3d47b5..91e78d5 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.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_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl index 24507d1..8091deb 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 46521b9..f746aff 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 025ef62..e41f94d 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 1f196ac..a906034 100755 --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ b/cataloguing/value_builder/unimarc_field_128b.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_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl index 2f8093c..6fc094e 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 d0eb5c9..9c1d7a1 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.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_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl index 93454aa..9a03a69 100755 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ b/cataloguing/value_builder/unimarc_field_135a.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_140.pl b/cataloguing/value_builder/unimarc_field_140.pl index 201e31a..dda5133 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.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_141.pl b/cataloguing/value_builder/unimarc_field_141.pl index b83a479..0626341 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 e3717ed..622a269 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 420fa8f..b1b51ea 100755 --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -44,7 +44,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 daba32e..59ab47a 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -44,7 +44,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 7d2fcbc..af3c1cf 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 d4b9653..5b34e2a 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 823daf3..1cd253f 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 af4d808..809e374 100755 --- a/cataloguing/value_builder/unimarc_leader.pl +++ b/cataloguing/value_builder/unimarc_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/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 a754c45..66f3e5a 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 9c39dc9..3d9b8f8 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 75bf319..1dd2018 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 31e2b44..2d83028 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 3be7bb4..085effe 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 d10829f..adfb45f 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 e02b569..d1e46ad 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -24,7 +24,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Print; use C4::Auth qw/:DEFAULT get_session/; diff --git a/circ/del_message.pl b/circ/del_message.pl index da13bdb..b88a134 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 8ae5d2a..6d2c489 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 80a9d7f..e15506c 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 0110deb..37e3ba2 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 26c7bf0..fda46ea 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 55eb018..ab5ccf9 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 93f36f2..eaa6052 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 b5adcfc..1b099cc 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 558a985..cb5b0f1 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 c8e97a0..b2d8085 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 365f200..acaf437 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 41db32b..a7f0842 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 fb7a3d1..ec0ed52 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 95baf7b..610ba8b 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 5b5d940..89d3bcb 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 122a1fe..f81d29d 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 02884f3..7bc18c7 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 bd6ddd4..17de098 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 5208c17..750f530 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 6f4cfcc..58f09b0 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 f2880f7..8ad2a2f 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/InstallAuth.pm b/installer/InstallAuth.pm index 0015a14..446140b 100644 --- a/installer/InstallAuth.pm +++ b/installer/InstallAuth.pm @@ -42,7 +42,7 @@ InstallAuth - Authenticates Koha users for Install process =head1 SYNOPSIS - use CGI; + use CGI qw ( -utf8 ); use InstallAuth; use C4::Output; diff --git a/installer/install.pl b/installer/install.pl index c9c1361..e7e3e79 100755 --- a/installer/install.pl +++ b/installer/install.pl @@ -5,7 +5,7 @@ use warnings; use diagnostics; use 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 e064121..73686ff 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 Encode qw( decode ); 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 aea4742..3e87a49 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 e814e3b..29b477f 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 59c6abc..9e7b349 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 f367a65..e3803cc 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 28acd1d..6325b96 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 6d7db6f..691436c 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 871780d..b17583d 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 dd895fb..b1536e6 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 bf61b9c..c85fc9a 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 7076a08..fba1e20 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 a0de153..9f0be43 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 255b1ff..3ec06a9 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 a6143b1..8e26e1b 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 dc08751..735e764 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 59ea5b1..7fda19c 100755 --- a/members/guarantor_search.pl +++ b/members/guarantor_search.pl @@ -24,7 +24,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Auth; use C4::Output; -use CGI; +use CGI qw ( -utf8 ); use C4::Dates qw/format_date/; use C4::Members; diff --git a/members/mancredit.pl b/members/mancredit.pl index a2c2258..321cda9 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 c4a9294..96409bf 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 7b08108..264bc9c 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 ac25da5..649e957 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 dfc7363..fb5df49 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::Members; use C4::Branch; use C4::Category; diff --git a/members/memberentry.pl b/members/memberentry.pl index ff92447..8d283ef 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 9d1e3e5..f2c83dd 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 e7b7b28..83a2712 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 0b39552..8d313d5 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 40f6d43..bc3dbce 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -34,7 +34,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 aca4514..9bc2d3a 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 ba81361..2fedfa3 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 96ca0fb..6ef0550 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::Accounts; use C4::Koha; diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl index 6a86bc3..2db1821 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 10ae114..8f83eaf 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 71fdda2..c3c4680 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 a624b68..1e88c77 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 2cb9437..6fe5875 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 6331d07..5e6e76e 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 0914364..7a8b1c3 100755 --- a/members/statistics.pl +++ b/members/statistics.pl @@ -22,7 +22,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 6e7b1da..8576cab 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 0725767..35c2887 100755 --- a/misc/cronjobs/runreport.pl +++ b/misc/cronjobs/runreport.pl @@ -28,7 +28,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 bfc1e35..29576d3 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 c503948..68180cc 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 86b5fda..d348062 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 75ff319..5b7ec4e 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 1972c46..708b007 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 d4f00e8..a76a600 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 bafe144..d06e2e9 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 02c1790..53ccccd 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 a617c22..ba2c9d6 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 7a8ea2b..3164e42 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 d68f09a..f35bd00 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 d106098..2b56307 100755 --- a/opac/maintenance.pl +++ b/opac/maintenance.pl @@ -20,7 +20,7 @@ use warnings; # FIXME - Generates a warning from C4/Context.pm (uninitilized value). -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; 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 2579a8b..c14d1ee 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 aaa565d..e941bf3 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 c3cb9b4..d12b3ee 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 004577d..ae1bc06 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 caeb123..b82944e 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 115012e..90ca582 100755 --- a/opac/opac-authorities-home.pl +++ b/opac/opac-authorities-home.pl @@ -21,7 +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 7b3a90a..e885192 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-browser.pl b/opac/opac-browser.pl index 0e9a632..3d398eb 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 7281652..027ea4a 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 83852c4..40037b5 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 46f76fb..b133946 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::Auth qw(:DEFAULT get_session); use C4::Branch; use C4::Koha; diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl index 12d6777..6b88e0c 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 e94b76c..0ccda94 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 002c88e..44e0c1e 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 d9d90a6..9b47158 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 1870321..2439ea1 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 a58659c..929c7b0 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 76fd32b..3ee8578 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 dc244db..6c4bb3f 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 e153538..d56f933 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 7ec11eb..2774376 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 8df73ac..6c627de 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 efac9a3..20ecedb 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 440f9a2..9e18bec 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 22fe694..5aaa3df 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 4f16c66..221afe4 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 a45b534..232a92d 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 c699b35..27cc5fc 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::Items; diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl index 6d5d46f..75b6ff1 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 16ed56a..9948e7a 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 760b52f..4fe178c 100755 --- a/opac/opac-search-history.pl +++ b/opac/opac-search-history.pl @@ -21,7 +21,7 @@ use strict; use warnings; use C4::Auth qw(:DEFAULT get_session ParseSearchHistorySession SetSearchHistorySession); -use CGI; +use CGI qw ( -utf8 ); use JSON qw/decode_json encode_json/; use C4::Context; use C4::Output; diff --git a/opac/opac-search.pl b/opac/opac-search.pl index 617d67e..7a35085 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -61,7 +61,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 ca3a973..06a555d 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 3f9b719..8a9cf4f 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 edc6248..610cb6a 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-shelves.pl b/opac/opac-shelves.pl index e17e95f..47a6a7b 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 c78b5b1..42bdb04 100755 --- a/opac/opac-showmarc.pl +++ b/opac/opac-showmarc.pl @@ -28,7 +28,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 151c101..8e4334d 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 72383eb..fe3bdad 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 d9f9f3c..d667502 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 a19f406..271f140 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 0afc692..f545306 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 7ca64bd..cbc17db 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 abcb396..78af807 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 e8a5685..dadb2b6 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 14f74b5..1e9d2ab 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/search.pl b/opac/search.pl index 1a8aa41..55aea44 100755 --- a/opac/search.pl +++ b/opac/search.pl @@ -20,7 +20,7 @@ use Modern::Perl; use C4::Context; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; use C4::Output; 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 57ca797..a629542 100755 --- a/opac/svc/report +++ b/opac/svc/report @@ -22,7 +22,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 33c9cde..ef0551e 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 a074345..e865198 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 1ca0c91..2b81965 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 b0cd3b3..916fd29 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 0c4dfe4..416c7c2 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 6189cb3..105d954 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 8f60b9c..4a8a83f 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 6121764..6fdef40 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 cf5257a..929c748 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 13b574b..86f3361 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 ef7a776..54a78ac 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 fcd1dc1..8b89ded 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 6324010..97cb328 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 28a647a..573cb48 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 6c462ed..0f58416 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 8d5cb1d..1d7a83b 100755 --- a/reports/acquisitions_stats.pl +++ b/reports/acquisitions_stats.pl @@ -23,7 +23,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 9618faf..3f971ce 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 55243b3..bca115b 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 8181285..84b2e98 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 22b88ae..126e34c 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 45609a0..f637ade 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 c8e2194..22cbfa4 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 96b71e9..9505e8b 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 b601a44..b4f8de9 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 ddc3740..5002414 100755 --- a/reports/issues_stats.pl +++ b/reports/issues_stats.pl @@ -21,7 +21,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 9ecd599..29b7dd4 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 177c64a..93fe529 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 d536b01..208376c 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 42a1d20..a49e862 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 bfeaf8b..bda667e 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 d86c5b9..1bcdf65 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 16b8f8a..fcca282 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 2f0b8d3..4087edd 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 48d5412..44c9847 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 3bc539b..7b93cd9 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 1b303c7..2c18e7c 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 7107216..83e5c6c 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 06b6b3a..8ca02c4 100755 --- a/rotating_collections/addItems.pl +++ b/rotating_collections/addItems.pl @@ -26,7 +26,7 @@ use C4::Context; use C4::RotatingCollections; use C4::Items; -use CGI; +use CGI qw ( -utf8 ); my $query = new CGI; my ($template, $loggedinuser, $cookie) diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl index e386608..7633024 100755 --- a/rotating_collections/editCollections.pl +++ b/rotating_collections/editCollections.pl @@ -19,7 +19,7 @@ use strict; #use warnings; FIXME - Bug 2505 require Exporter; -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 35aea56..cea0245 100755 --- a/rotating_collections/rotatingCollections.pl +++ b/rotating_collections/rotatingCollections.pl @@ -20,7 +20,7 @@ use strict; #use warnings; FIXME - Bug 2505 require Exporter; -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 23eff46..d3d6233 100755 --- a/rotating_collections/transferCollection.pl +++ b/rotating_collections/transferCollection.pl @@ -26,7 +26,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 e7d1e61..ce97bb7 100755 --- a/serials/acqui-search-result.pl +++ b/serials/acqui-search-result.pl @@ -44,7 +44,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/; use C4::Bookseller qw( GetBookSeller ); diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl index 1e5d917..9e376f3 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 8dff415..d7f18f1 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 c826804..0e23dc6 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 4fa88a0..aa0946e 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 2f00531..6d08bf2 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 d7cc40b..f508cf9 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 b57baa1..04a3560 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 ba97163..3507540 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 12e2256..60219bc 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 9ec0336..1bb9c51 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 c14e4d0..c6d5ad5 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 c654f55..2b45ffe 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 f609102..8e67093 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 089b31b..cd27259 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 6070bf5..7b9bcfd 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::Bookseller qw/GetBookSellerFromId/; diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl index 4036088..9a6f99c 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 80c7440..6d3b7e1 100755 --- a/serials/subscription-frequency.pl +++ b/serials/subscription-frequency.pl @@ -17,7 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -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 a58b10a..cf0fdfa 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 URI::Escape; diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl index c2a9800..5584acd 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 280b776..53325fd 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 5944ce1..7d0044a 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 cd5fb32..dc74a9f 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 02a0c6c..d1828b8 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 c0327ad..1b4f1eb 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 8f6a168..2a09034 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 0cff7dc..f816b47 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/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/Templates.t b/t/Templates.t index 9343b38..72673a6 100644 --- a/t/Templates.t +++ b/t/Templates.t @@ -19,7 +19,7 @@ use Modern::Perl; use Test::More tests => 3; use Test::MockModule; -use CGI; +use CGI qw ( -utf8 ); BEGIN { use_ok('C4::Templates'); diff --git a/t/db_dependent/Auth.t b/t/db_dependent/Auth.t index 6a100bc..9f43fee 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 43fbeea..1cc5aa8 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 e942982..5661ed7 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 91914b3..3b0b0cf 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 37d1412..bf207b0 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 c994baa..c171ebe 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 0982f58..742ffba 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 41d15cb..58d7652 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 bc0fe82..1ac12ca 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 9c1977b..2320549 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::Dates qw/format_date format_date_in_iso/; 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 45b1285..83592fd 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 9bbed0b..91f4c8c 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 376de5f..33fc5c4 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 4445db5..0d37595 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -52,7 +52,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 3d8939e..4dcdc73 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 aec9486..8670221 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 7582e66..0590cb8 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 deaab7d..35856e0 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 5bd2103..44dce72 100755 --- a/tools/modborrowers.pl +++ b/tools/modborrowers.pl @@ -25,7 +25,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 cc90d0b..47bb999 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 b2aa18a..cd85f6d 100755 --- a/tools/picture-upload.pl +++ b/tools/picture-upload.pl @@ -24,7 +24,7 @@ use File::Temp; use File::Copy; -use CGI; +use CGI qw ( -utf8 ); use GD; use C4::Context; use C4::Auth; diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl index 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 da5dc01..1cb2aa1 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 99210ac..b006c01 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 8d6ab1a..5076429 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 055f7f4..cdbea26 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 8ca419c..a881853 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 1fbd6be..3d2737c 100755 --- a/tools/viewlog.pl +++ b/tools/viewlog.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::Koha; use C4::Dates; diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl index 5fd82b3..fa0be54 100755 --- a/virtualshelves/addbybiblionumber.pl +++ b/virtualshelves/addbybiblionumber.pl @@ -61,7 +61,7 @@ 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 5c59f79..86950b2 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 cc3afde..5beba13 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 0b208a9..f424886 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; -- 1.7.10.4