@@ -, +, @@ --- 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(-) --- a/C4/Auth.pm +++ a/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; --- a/C4/Auth_with_cas.pm +++ a/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; --- a/C4/Debug.pm +++ a/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); --- a/C4/Form/MessagingPreferences.pm +++ a/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; --- a/C4/ILSDI/Services.pm +++ a/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; --- a/C4/Input.pm +++ a/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); --- a/C4/Reports.pm +++ a/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; --- a/C4/Reports/Guided.pm +++ a/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); --- a/C4/SIP/ILS/Transaction/Checkout.pm +++ a/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; --- a/C4/SIP/Sip/MsgType.pm +++ a/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. --- a/C4/SIP/t/03checkout.t +++ a/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( --- a/C4/SIP/t/SIPtest.pm +++ a/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); --- a/C4/Service.pm +++ a/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; --- a/C4/Suggestions.pm +++ a/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; --- a/C4/Templates.pm +++ a/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 --- a/C4/Utils/DataTables.pm +++ a/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; --- a/C4/VirtualShelves/Page.pm +++ a/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; --- a/about.pl +++ a/about.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use LWP::Simple; use XML::Simple; use Config; --- a/acqui/acqui-home.pl +++ a/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; --- a/acqui/addorder.pl +++ a/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 --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Carp; use Number::Format qw(:all); --- a/acqui/aqbasketuser_search.pl +++ a/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; --- a/acqui/basket.pl +++ a/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; --- a/acqui/basketgroup.pl +++ a/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/; --- a/acqui/basketheader.pl +++ a/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; --- a/acqui/booksellers.pl +++ a/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 /; --- a/acqui/check_budget_total.pl +++ a/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; --- a/acqui/check_duplicate_barcode_ajax.pl +++ a/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; --- a/acqui/check_uniqueness.pl +++ a/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; --- a/acqui/currency.pl +++ a/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; --- a/acqui/fetch_sort_dropbox.pl +++ a/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; --- a/acqui/finishreceive.pl +++ a/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; --- a/acqui/histsearch.pl +++ a/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; --- a/acqui/invoice.pl +++ a/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; --- a/acqui/invoices.pl +++ a/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; --- a/acqui/lateorders-export.pl +++ a/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; --- a/acqui/lateorders.pl +++ a/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; --- a/acqui/modordernotes.pl +++ a/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; --- a/acqui/neworderbiblio.pl +++ a/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; --- a/acqui/neworderempty.pl +++ a/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; --- a/acqui/newordersubscription.pl +++ a/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/; --- a/acqui/newordersuggestion.pl +++ a/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; --- a/acqui/ordered.pl +++ a/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; --- a/acqui/orderreceive.pl +++ a/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; --- a/acqui/parcel.pl +++ a/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; --- a/acqui/parcels.pl +++ a/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; --- a/acqui/spent.pl +++ a/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; --- a/acqui/supplier.pl +++ a/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; --- a/acqui/transferorder.pl +++ a/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; --- a/acqui/uncertainprice.pl +++ a/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/; --- a/acqui/updatesupplier.pl +++ a/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( --- a/admin/admin-home.pl +++ a/admin/admin-home.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/admin/aqbudget_user_search.pl +++ a/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; --- a/admin/aqbudgetperiods.pl +++ a/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; --- a/admin/aqbudgets.pl +++ a/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); --- a/admin/aqcontract.pl +++ a/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; --- a/admin/aqplan.pl +++ a/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/; --- a/admin/auth_subfields_structure.pl +++ a/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; --- a/admin/auth_tag_structure.pl +++ a/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; --- a/admin/authorised_values.pl +++ a/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; --- a/admin/authtypes.pl +++ a/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; --- a/admin/biblio_framework.pl +++ a/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; --- a/admin/branch_transfer_limits.pl +++ a/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; --- a/admin/branches.pl +++ a/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; --- a/admin/categorie.pl +++ a/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; --- a/admin/check_budget_parent.pl +++ a/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; --- a/admin/check_parent_total.pl +++ a/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; --- a/admin/checkmarc.pl +++ a/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; --- a/admin/cities.pl +++ a/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; --- a/admin/classsources.pl +++ a/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; --- a/admin/clone-rules.pl +++ a/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; --- a/admin/currency.pl +++ a/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); --- a/admin/didyoumean.pl +++ a/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; --- a/admin/env_tz_test.pl +++ a/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; --- a/admin/fieldmapping.pl +++ a/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; --- a/admin/import_export_framework.pl +++ a/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/; --- a/admin/item_circulation_alerts.pl +++ a/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; --- a/admin/itemtypes.pl +++ a/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; --- a/admin/koha2marclinks.pl +++ a/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; --- a/admin/marc_subfields_structure.pl +++ a/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; --- a/admin/marctagstructure.pl +++ a/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; --- a/admin/matching-rules.pl +++ a/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; --- a/admin/oai_set_mappings.pl +++ a/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; --- a/admin/oai_sets.pl +++ a/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; --- a/admin/patron-attr-types.pl +++ a/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; --- a/admin/preferences.pl +++ a/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; --- a/admin/printers.pl +++ a/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; --- a/admin/searchengine/solr/indexes.pl +++ a/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; --- a/admin/smart-rules.pl +++ a/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; --- a/admin/stopwords.pl +++ a/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; --- a/admin/systempreferences.pl +++ a/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; --- a/admin/transport-cost-matrix.pl +++ a/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; --- a/admin/z3950servers.pl +++ a/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; --- a/authorities/auth_finder.pl +++ a/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; --- a/authorities/authorities-home.pl +++ a/authorities/authorities-home.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use URI::Escape; use C4::Auth; --- a/authorities/authorities.pl +++ a/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; --- a/authorities/blinddetail-biblio-search.pl +++ a/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; --- a/authorities/detail-biblio-search.pl +++ a/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; --- a/authorities/detail.pl +++ a/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; --- a/authorities/export.pl +++ a/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( --- a/authorities/merge.pl +++ a/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; --- a/authorities/merge_ajax.pl +++ a/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/; --- a/authorities/ysearch.pl +++ a/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; --- a/basket/basket.pl +++ a/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; --- a/basket/downloadcart.pl +++ a/basket/downloadcart.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use C4::Auth; --- a/basket/sendbasket.pl +++ a/basket/sendbasket.pl @@ -18,7 +18,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use Carp; --- a/catalogue/ISBDdetail.pl +++ a/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; --- a/catalogue/MARCdetail.pl +++ a/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; --- a/catalogue/cardview.pl +++ a/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; --- a/catalogue/detail.pl +++ a/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/; --- a/catalogue/export.pl +++ a/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; --- a/catalogue/getitem-ajax.pl +++ a/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; --- a/catalogue/image.pl +++ a/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; --- a/catalogue/imageviewer.pl +++ a/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; --- a/catalogue/issuehistory.pl +++ a/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; --- a/catalogue/labeledMARCdetail.pl +++ a/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; --- a/catalogue/moredetail.pl +++ a/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; --- a/catalogue/search.pl +++ a/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); --- a/catalogue/showmarc.pl +++ a/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; --- a/catalogue/updateitem.pl +++ a/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; --- a/cataloguing/addbooks.pl +++ a/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; --- a/cataloguing/additem.pl +++ a/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; --- a/cataloguing/linkitem.pl +++ a/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; --- a/cataloguing/merge.pl +++ a/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; --- a/cataloguing/merge_ajax.pl +++ a/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; --- a/cataloguing/moveitem.pl +++ a/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; --- a/cataloguing/plugin_launcher.pl +++ a/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; --- a/cataloguing/value_builder/callnumber-KU.pl +++ a/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 --- a/cataloguing/value_builder/callnumber.pl +++ a/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 --- a/cataloguing/value_builder/labs_theses.pl +++ a/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; --- a/cataloguing/value_builder/macles.pl +++ a/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; --- a/cataloguing/value_builder/marc21_field_006.pl +++ a/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; --- a/cataloguing/value_builder/marc21_field_007.pl +++ a/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; --- a/cataloguing/value_builder/marc21_field_008.pl +++ a/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; --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ a/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; --- a/cataloguing/value_builder/marc21_leader.pl +++ a/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; --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ a/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; --- a/cataloguing/value_builder/marc21_leader_book.pl +++ a/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; --- a/cataloguing/value_builder/marc21_leader_computerfile.pl +++ a/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; --- a/cataloguing/value_builder/marc21_leader_video.pl +++ a/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; --- a/cataloguing/value_builder/marc21_linking_section.pl +++ a/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; --- a/cataloguing/value_builder/normarc_field_007.pl +++ a/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; --- a/cataloguing/value_builder/normarc_field_008.pl +++ a/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; --- a/cataloguing/value_builder/normarc_leader.pl +++ a/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; --- a/cataloguing/value_builder/stocknumberAV.pl +++ a/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 --- a/cataloguing/value_builder/stocknumberam123.pl +++ a/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 --- a/cataloguing/value_builder/unimarc_field_010.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_100.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_105.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_106.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_110.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_116.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_117.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_120.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_122.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_125.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_126.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_127.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_130.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_140.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_141.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_686a.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ a/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; --- a/cataloguing/value_builder/unimarc_leader.pl +++ a/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; --- a/cataloguing/ysearch.pl +++ a/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/; --- a/cataloguing/z3950_search.pl +++ a/cataloguing/z3950_search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/changelanguage.pl +++ a/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'); --- a/circ/add_message.pl +++ a/circ/add_message.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; --- a/circ/bookcount.pl +++ a/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; --- a/circ/branchoverdues.pl +++ a/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 --- a/circ/branchtransfers.pl +++ a/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; --- a/circ/circulation-home.pl +++ a/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; --- a/circ/circulation.pl +++ a/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/; --- a/circ/del_message.pl +++ a/circ/del_message.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; --- a/circ/hold-transfer-slip.pl +++ a/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; --- a/circ/offline-mf.pl +++ a/circ/offline-mf.pl @@ -18,7 +18,7 @@ # use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; my $query = new CGI; --- a/circ/offline.pl +++ a/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; --- a/circ/overdue.pl +++ a/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; --- a/circ/pendingreserves.pl +++ a/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; --- a/circ/renew.pl +++ a/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; --- a/circ/reserveratios.pl +++ a/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; --- a/circ/returns.pl +++ a/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/; --- a/circ/selectbranchprinter.pl +++ a/circ/selectbranchprinter.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Output; --- a/circ/stats.pl +++ a/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; --- a/circ/transfer-slip.pl +++ a/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; --- a/circ/transferstoreceive.pl +++ a/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 --- a/circ/view_holdsqueue.pl +++ a/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; --- a/circ/waitingreserves.pl +++ a/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 --- a/circ/ypattrodue-attr-search-authvalue.pl +++ a/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; --- a/circ/ysearch.pl +++ a/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/; --- a/course_reserves/add_items.pl +++ a/course_reserves/add_items.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/course_reserves/course-details.pl +++ a/course_reserves/course-details.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/course_reserves/course-reserves.pl +++ a/course_reserves/course-reserves.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/course_reserves/course.pl +++ a/course_reserves/course.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/course_reserves/mod_course.pl +++ a/course_reserves/mod_course.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; --- a/docs/CAS/CASProxy/examples/koha_webservice.pl +++ a/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; --- a/docs/CAS/CASProxy/examples/proxy_cas.pl +++ a/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 --- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl +++ a/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); --- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl +++ a/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; --- a/edithelp.pl +++ a/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); --- a/errors/400.pl +++ a/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; --- a/errors/401.pl +++ a/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; --- a/errors/402.pl +++ a/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; --- a/errors/403.pl +++ a/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; --- a/errors/404.pl +++ a/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; --- a/errors/500.pl +++ a/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; --- a/help.pl +++ a/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; --- a/installer/InstallAuth.pm +++ a/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; --- a/installer/install.pl +++ a/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; --- a/labels/label-create-csv.pl +++ a/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; --- a/labels/label-create-pdf.pl +++ a/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 ); --- a/labels/label-create-xml.pl +++ a/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; --- a/labels/label-edit-batch.pl +++ a/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); --- a/labels/label-edit-layout.pl +++ a/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); --- a/labels/label-edit-profile.pl +++ a/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); --- a/labels/label-edit-template.pl +++ a/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); --- a/labels/label-home.pl +++ a/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); --- a/labels/label-item-search.pl +++ a/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); --- a/labels/label-manage.pl +++ a/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); --- a/labels/label-print.pl +++ a/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); --- a/labels/spinelabel-home.pl +++ a/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; --- a/labels/spinelabel-print.pl +++ a/labels/spinelabel-print.pl @@ -17,7 +17,7 @@ use warnings; use strict; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/mainpage.pl +++ a/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; --- a/members/boraccount.pl +++ a/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; --- a/members/deletemem.pl +++ a/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; --- a/members/files.pl +++ a/members/files.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Branch; --- a/members/guarantor_search.pl +++ a/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; --- a/members/mancredit.pl +++ a/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; --- a/members/maninvoice.pl +++ a/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; --- a/members/member-flags.pl +++ a/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; --- a/members/member-password.pl +++ a/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); --- a/members/member.pl +++ a/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; --- a/members/memberentry.pl +++ a/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/; --- a/members/members-home.pl +++ a/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; --- a/members/members-update-do.pl +++ a/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; --- a/members/members-update.pl +++ a/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; --- a/members/mod_debarment.pl +++ a/members/mod_debarment.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use Koha::DateUtils; --- a/members/moremember.pl +++ a/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; --- a/members/notices.pl +++ a/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; --- a/members/patronimage.pl +++ a/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; --- a/members/pay.pl +++ a/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; --- a/members/paycollect.pl +++ a/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; --- a/members/printfeercpt.pl +++ a/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; --- a/members/printinvoice.pl +++ a/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; --- a/members/printslip.pl +++ a/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; --- a/members/purchase-suggestions.pl +++ a/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; --- a/members/readingrec.pl +++ a/members/readingrec.pl @@ -23,7 +23,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/members/routing-lists.pl +++ a/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 --- a/members/setstatus.pl +++ a/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; --- a/members/statistics.pl +++ a/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; --- a/members/update-child.pl +++ a/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; --- a/misc/cronjobs/runreport.pl +++ a/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; --- a/offline_circ/download.pl +++ a/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; --- a/offline_circ/enqueue_koc.pl +++ a/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; --- a/offline_circ/list.pl +++ a/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; --- a/offline_circ/process.pl +++ a/offline_circ/process.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Circulation; --- a/offline_circ/process_koc.pl +++ a/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; --- a/offline_circ/service.pl +++ a/offline_circ/service.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Circulation; --- a/opac/errors/400.pl +++ a/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; --- a/opac/errors/401.pl +++ a/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; --- a/opac/errors/402.pl +++ a/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; --- a/opac/errors/403.pl +++ a/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; --- a/opac/errors/404.pl +++ a/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; --- a/opac/errors/500.pl +++ a/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; --- a/opac/ilsdi.pl +++ a/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 --- a/opac/maintenance.pl +++ a/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; --- a/opac/oai.pl +++ a/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; --- a/opac/opac-ISBDdetail.pl +++ a/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; --- a/opac/opac-MARCdetail.pl +++ a/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; --- a/opac/opac-account.pl +++ a/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; --- a/opac/opac-addbybiblionumber.pl +++ a/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; --- a/opac/opac-alert-subscribe.pl +++ a/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; --- a/opac/opac-authorities-home.pl +++ a/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; --- a/opac/opac-authoritiesdetail.pl +++ a/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; --- a/opac/opac-basket.pl +++ a/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; --- a/opac/opac-browser.pl +++ a/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 --- a/opac/opac-changelanguage.pl +++ a/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'); --- a/opac/opac-course-details.pl +++ a/opac/opac-course-details.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/opac-course-reserves.pl +++ a/opac/opac-course-reserves.pl @@ -20,7 +20,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/opac-detail.pl +++ a/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; --- a/opac/opac-downloadcart.pl +++ a/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; --- a/opac/opac-downloadshelf.pl +++ a/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; --- a/opac/opac-export.pl +++ a/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; --- a/opac/opac-ics.pl +++ a/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; --- a/opac/opac-image.pl +++ a/opac/opac-image.pl @@ -26,7 +26,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Images; --- a/opac/opac-imageviewer.pl +++ a/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; --- a/opac/opac-main.pl +++ a/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 --- a/opac/opac-memberentry.pl +++ a/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 ); --- a/opac/opac-messaging.pl +++ a/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; --- a/opac/opac-modrequest-suspend.pl +++ a/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; --- a/opac/opac-modrequest.pl +++ a/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; --- a/opac/opac-mymessages.pl +++ a/opac/opac-mymessages.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; --- a/opac/opac-overdrive-search.pl +++ a/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; --- a/opac/opac-passwd.pl +++ a/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; --- a/opac/opac-patron-image.pl +++ a/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); --- a/opac/opac-privacy.pl +++ a/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; --- a/opac/opac-ratings-ajax.pl +++ a/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); --- a/opac/opac-ratings.pl +++ a/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; --- a/opac/opac-readingrecord.pl +++ a/opac/opac-readingrecord.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; --- a/opac/opac-registration-verify.pl +++ a/opac/opac-registration-verify.pl @@ -17,7 +17,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/opac-renew.pl +++ a/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; --- a/opac/opac-reserve.pl +++ a/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; --- a/opac/opac-review.pl +++ a/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; --- a/opac/opac-search-history.pl +++ a/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; --- a/opac/opac-search.pl +++ a/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"); --- a/opac/opac-sendbasket.pl +++ a/opac/opac-sendbasket.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use Carp; --- a/opac/opac-sendshelf.pl +++ a/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; --- a/opac/opac-serial-issues.pl +++ a/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; --- a/opac/opac-shelves.pl +++ a/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; --- a/opac/opac-showmarc.pl +++ a/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 --- a/opac/opac-showreviews.pl +++ a/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; --- a/opac/opac-suggestions.pl +++ a/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; --- a/opac/opac-tags.pl +++ a/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); --- a/opac/opac-tags_subject.pl +++ a/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 --- a/opac/opac-topissues.pl +++ a/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; --- a/opac/opac-user.pl +++ a/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; --- a/opac/sco/help.pl +++ a/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); --- a/opac/sco/printslip.pl +++ a/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; --- a/opac/sco/sco-main.pl +++ a/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); --- a/opac/search.pl +++ a/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; --- a/opac/svc/login +++ a/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; --- a/opac/svc/overdrive_proxy +++ a/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; --- a/opac/svc/report +++ a/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; --- a/opac/svc/shelfbrowser.pl +++ a/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; --- a/opac/svc/suggestion +++ a/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; --- a/opac/tracklinks.pl +++ a/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') || ''; --- a/opac/unapi +++ a/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; --- a/patron_lists/add-modify.pl +++ a/patron_lists/add-modify.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/patron_lists/delete.pl +++ a/patron_lists/delete.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/patron_lists/list.pl +++ a/patron_lists/list.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/patron_lists/lists.pl +++ a/patron_lists/lists.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/patron_lists/patrons.pl +++ a/patron_lists/patrons.pl @@ -19,7 +19,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/patroncards/card-print.pl +++ a/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); --- a/patroncards/create-pdf.pl +++ a/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; --- a/patroncards/edit-batch.pl +++ a/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); --- a/patroncards/edit-layout.pl +++ a/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); --- a/patroncards/edit-profile.pl +++ a/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); --- a/patroncards/edit-template.pl +++ a/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); --- a/patroncards/home.pl +++ a/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); --- a/patroncards/image-manage.pl +++ a/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); --- a/patroncards/manage.pl +++ a/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); --- a/patroncards/members-search.pl +++ a/patroncards/members-search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/patroncards/print.pl +++ a/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); --- a/plugins/plugins-home.pl +++ a/plugins/plugins-home.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Koha::Plugins; use C4::Auth; --- a/plugins/plugins-uninstall.pl +++ a/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; --- a/plugins/plugins-upload.pl +++ a/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; --- a/plugins/run.pl +++ a/plugins/run.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Koha::Plugins::Handler; use C4::Auth; --- a/reports/acquisitions_stats.pl +++ a/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; --- a/reports/bor_issues_top.pl +++ a/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; --- a/reports/borrowers_out.pl +++ a/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; --- a/reports/borrowers_stats.pl +++ a/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; --- a/reports/cat_issues_top.pl +++ a/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; --- a/reports/catalogue_out.pl +++ a/reports/catalogue_out.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Context; --- a/reports/catalogue_stats.pl +++ a/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; --- a/reports/dictionary.pl +++ a/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; --- a/reports/issues_avg_stats.pl +++ a/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; --- a/reports/issues_by_borrower_category.plugin +++ a/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; --- a/reports/issues_stats.pl +++ a/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; --- a/reports/itemslost.pl +++ a/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; --- a/reports/itemtypes.plugin +++ a/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; --- a/reports/manager.pl +++ a/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; --- a/reports/reports-home.pl +++ a/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; --- a/reports/reservereport.pl +++ a/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; --- a/reports/reserves_stats.pl +++ a/reports/reserves_stats.pl @@ -21,7 +21,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Debug; --- a/reports/serials_stats.pl +++ a/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/; --- a/reports/stats.print.pl +++ a/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; --- a/reports/stats.screen.pl +++ a/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; --- a/reserve/modrequest.pl +++ a/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; --- a/reserve/modrequest_suspendall.pl +++ a/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; --- a/reserve/placerequest.pl +++ a/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; --- a/reserve/renewscript.pl +++ a/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; --- a/reserve/request.pl +++ a/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; --- a/reviews/reviewswaiting.pl +++ a/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; --- a/rotating_collections/addItems.pl +++ a/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) --- a/rotating_collections/editCollections.pl +++ a/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; --- a/rotating_collections/rotatingCollections.pl +++ a/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; --- a/rotating_collections/transferCollection.pl +++ a/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; --- a/serials/acqui-search-result.pl +++ a/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 ); --- a/serials/acqui-search.pl +++ a/serials/acqui-search.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/serials/checkexpiration.pl +++ a/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; --- a/serials/claims.pl +++ a/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; --- a/serials/create-numberpattern.pl +++ a/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/; --- a/serials/lateissues-export.pl +++ a/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; --- a/serials/member-search.pl +++ a/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 --- a/serials/reorder_members.pl +++ a/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 ); --- a/serials/routing-preview.pl +++ a/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; --- a/serials/routing.pl +++ a/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; --- a/serials/serial-issues.pl +++ a/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; --- a/serials/serials-collection.pl +++ a/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/; --- a/serials/serials-edit.pl +++ a/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/; --- a/serials/serials-home.pl +++ a/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; --- a/serials/serials-recieve.pl +++ a/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; --- a/serials/serials-search.pl +++ a/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; --- a/serials/showpredictionpattern.pl +++ a/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; --- a/serials/subscription-add.pl +++ a/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; --- a/serials/subscription-bib-search.pl +++ a/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; --- a/serials/subscription-detail.pl +++ a/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/; --- a/serials/subscription-frequencies.pl +++ a/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; --- a/serials/subscription-frequency.pl +++ a/serials/subscription-frequency.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Context; use C4::Serials::Frequency; use C4::Auth qw/check_cookie_auth/; --- a/serials/subscription-history.pl +++ a/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; --- a/serials/subscription-numberpattern.pl +++ a/serials/subscription-numberpattern.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Serials::Numberpattern; use C4::Auth qw/check_cookie_auth/; use JSON qw( to_json ); --- a/serials/subscription-numberpatterns.pl +++ a/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; --- a/serials/subscription-renew.pl +++ a/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; --- a/serials/viewalerts.pl +++ a/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; --- a/services/itemrecorddisplay.pl +++ a/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; --- a/sms/sms.pl +++ a/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; --- a/sms/sms_listen_windows_start.pl +++ a/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"; --- a/suggestion/suggestion.pl +++ a/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; --- a/svc/authentication +++ a/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; --- a/svc/bib +++ a/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; --- a/svc/bib_profile +++ a/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; --- a/svc/cover_images +++ a/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/; --- a/svc/import_bib +++ a/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; --- a/svc/new_bib +++ a/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; --- a/svc/report +++ a/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; --- a/t/Output.t +++ a/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'); --- a/t/Templates.t +++ a/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'); --- a/t/db_dependent/Auth.t +++ a/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; --- a/t/db_dependent/BackgroundJob.t +++ a/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 { --- a/t/db_dependent/ILSDI_Services.t +++ a/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; --- a/t/db_dependent/Serials.t +++ a/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; --- a/tags/list.pl +++ a/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; --- a/tags/review.pl +++ a/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); --- a/test/progressbar.pl +++ a/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 --- a/test/progressbarsubmit.pl +++ a/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 --- a/tools/ajax-inventory.pl +++ a/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 ); --- a/tools/background-job-progress.pl +++ a/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/; --- a/tools/batchMod.pl +++ a/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; --- a/tools/batch_records_ajax.pl +++ a/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; --- a/tools/cleanborrowers.pl +++ a/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/; --- a/tools/copy-holidays.pl +++ a/tools/copy-holidays.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/tools/csv-profiles.pl +++ a/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; --- a/tools/exceptionHolidays.pl +++ a/tools/exceptionHolidays.pl @@ -3,7 +3,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/tools/export.pl +++ a/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 --- a/tools/holidays.pl +++ a/tools/holidays.pl @@ -19,7 +19,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/tools/import_borrowers.pl +++ a/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); --- a/tools/inventory.pl +++ a/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'); --- a/tools/koha-news.pl +++ a/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; --- a/tools/letter.pl +++ a/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; --- a/tools/manage-marc-import.pl +++ a/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; --- a/tools/marc_modification_templates.pl +++ a/tools/marc_modification_templates.pl @@ -18,7 +18,7 @@ use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; --- a/tools/modborrowers.pl +++ a/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; --- a/tools/newHolidays.pl +++ a/tools/newHolidays.pl @@ -3,7 +3,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/tools/overduerules.pl +++ a/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; --- a/tools/picture-upload.pl +++ a/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; --- a/tools/quotes-upload.pl +++ a/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; --- a/tools/quotes.pl +++ a/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; --- a/tools/quotes/quotes-upload_ajax.pl +++ a/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); --- a/tools/quotes/quotes_ajax.pl +++ a/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); --- a/tools/scheduler.pl +++ a/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; --- a/tools/stage-marc-import.pl +++ a/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; --- a/tools/tools-home.pl +++ a/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/; --- a/tools/upload-cover-image.pl +++ a/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; --- a/tools/upload-file-progress.pl +++ a/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/; --- a/tools/upload-file.pl +++ a/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/; --- a/tools/viewlog.pl +++ a/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; --- a/virtualshelves/addbybiblionumber.pl +++ a/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/; --- a/virtualshelves/downloadshelf.pl +++ a/virtualshelves/downloadshelf.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use Encode qw(encode); use C4::Auth; --- a/virtualshelves/sendshelf.pl +++ a/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; --- a/virtualshelves/shelves.pl +++ a/virtualshelves/shelves.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use CGI; +use CGI qw ( -utf8 ); use C4::VirtualShelves::Page; use C4::Auth; --