Bugzilla – Attachment 195334 Details for
Bug 42092
Remove space in use of qw
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 42092: Remove space in use of 'qw('
8e181e5.patch (text/plain), 281.88 KB, created by
Fridolin Somers
on 2026-03-13 15:03:33 UTC
(
hide
)
Description:
Bug 42092: Remove space in use of 'qw('
Filename:
MIME Type:
Creator:
Fridolin Somers
Created:
2026-03-13 15:03:33 UTC
Size:
281.88 KB
patch
obsolete
>From 8e181e5afa624a085cb8c13891a6734584288286 Mon Sep 17 00:00:00 2001 >From: Fridolin Somers <fridolin.somers@biblibre.com> >Date: Fri, 13 Mar 2026 16:01:22 +0100 >Subject: [PATCH] Bug 42092: Remove space in use of 'qw(' > >Just a syntax change so no test plan needed. >--- > C4/Auth.pm | 4 +- > C4/Auth_with_cas.pm | 2 +- > C4/Form/MessagingPreferences.pm | 2 +- > C4/ILSDI/Services.pm | 4 +- > C4/InstallAuth.pm | 2 +- > C4/Installer.pm | 2 +- > C4/Reports.pm | 2 +- > C4/Reports/Guided.pm | 2 +- > C4/SIP/ILS/Transaction/Checkout.pm | 2 +- > C4/SIP/Logger.pm | 2 +- > C4/SIP/Sip/MsgType.pm | 2 +- > C4/Service.pm | 2 +- > C4/Suggestions.pm | 2 +- > C4/Templates.pm | 2 +- > Koha/OAI/Client/Harvester.pm | 2 +- > Koha/Patron/Discharge.pm | 2 +- > about.pl | 2 +- > acqui/acqui-home.pl | 2 +- > acqui/addorder.pl | 4 +- > acqui/addorderiso2709.pl | 2 +- > acqui/ajax-getauthvaluedropbox.pl | 2 +- > acqui/basket.pl | 2 +- > acqui/basketgroup.pl | 2 +- > acqui/basketheader.pl | 5 +- > acqui/booksellers.pl | 2 +- > acqui/check_budget_total.pl | 2 +- > acqui/check_uniqueness.pl | 2 +- > acqui/duplicate_orders.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/moddeliverydate.pl | 2 +- > acqui/modordernotes.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/showorder.pl | 2 +- > acqui/spent.pl | 2 +- > acqui/transferorder.pl | 2 +- > acqui/uncertainprice.pl | 2 +- > acqui/vendor_issues.pl | 2 +- > acqui/vendors.pl | 2 +- > admin/admin-home.pl | 2 +- > admin/adveditorshortcuts.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/background_jobs.pl | 2 +- > admin/biblio_framework.pl | 2 +- > admin/branch_transfer_limits.pl | 2 +- > admin/branches.pl | 2 +- > admin/categories.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/credit_types.pl | 2 +- > admin/curbside_pickup.pl | 2 +- > admin/currency.pl | 2 +- > admin/debit_types.pl | 2 +- > admin/desks.pl | 2 +- > admin/didyoumean.pl | 2 +- > admin/file_transports.pl | 2 +- > admin/float_limits.pl | 2 +- > admin/identity_providers.pl | 2 +- > admin/ill_batch_statuses.pl | 2 +- > admin/import_export_authtype.pl | 2 +- > admin/import_export_framework.pl | 2 +- > admin/item_circulation_alerts.pl | 2 +- > admin/itemtypes.pl | 2 +- > admin/koha2marclinks.pl | 2 +- > admin/library_groups.pl | 2 +- > admin/marc-overlay-rules.pl | 2 +- > admin/marc_order_accounts.pl | 2 +- > admin/marc_subfields_structure.pl | 2 +- > admin/marctagstructure.pl | 2 +- > admin/matching-rules.pl | 2 +- > admin/oai_servers.pl | 2 +- > admin/oai_set_mappings.pl | 2 +- > admin/oai_sets.pl | 2 +- > admin/overdrive.pl | 2 +- > admin/patron-attr-types.pl | 2 +- > admin/preferences.pl | 6 +- > admin/record_sources.pl | 2 +- > admin/restrictions.pl | 2 +- > admin/share_content.pl | 2 +- > admin/smart-rules.pl | 2 +- > admin/smtp_servers.pl | 2 +- > admin/systempreferences.pl | 2 +- > admin/transfer_limits.pl | 2 +- > admin/transport-cost-matrix.pl | 2 +- > admin/usage_statistics.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 +- > bookings/list.pl | 2 +- > catalogue/ISBDdetail.pl | 2 +- > catalogue/MARCdetail.pl | 2 +- > catalogue/detail.pl | 2 +- > catalogue/export.pl | 2 +- > catalogue/image.pl | 2 +- > catalogue/imageviewer.pl | 2 +- > catalogue/issuehistory.pl | 2 +- > catalogue/labeledMARCdetail.pl | 2 +- > catalogue/moredetail.pl | 2 +- > catalogue/search-history.pl | 2 +- > catalogue/updateitem.pl | 2 +- > cataloguing/addbooks.pl | 2 +- > cataloguing/additem.pl | 2 +- > cataloguing/cataloging-home.pl | 2 +- > cataloguing/concerns.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/barcode.pl | 2 +- > cataloguing/value_builder/barcode_manual.pl | 2 +- > cataloguing/value_builder/callnumber-KU.pl | 2 +- > cataloguing/value_builder/callnumber.pl | 2 +- > cataloguing/value_builder/dateaccessioned.pl | 2 +- > cataloguing/value_builder/marc21_field_005.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 +- > .../marc21_field_008_authorities.pl | 2 +- > .../marc21_field_008_classifications.pl | 2 +- > .../value_builder/marc21_field_245h.pl | 2 +- > .../value_builder/marc21_field_260b.pl | 2 +- > cataloguing/value_builder/marc21_leader.pl | 2 +- > .../marc21_leader_authorities.pl | 2 +- > .../value_builder/marc21_linking_section.pl | 2 +- > cataloguing/value_builder/marc21_orgcode.pl | 2 +- > cataloguing/value_builder/stocknumber.pl | 2 +- > cataloguing/value_builder/stocknumberAV.pl | 2 +- > cataloguing/value_builder/stocknumberam123.pl | 2 +- > .../value_builder/unimarc_field_009_ppn.pl | 4 +- > .../value_builder/unimarc_field_010.pl | 2 +- > .../value_builder/unimarc_field_100.pl | 2 +- > .../unimarc_field_100_authorities.pl | 2 +- > .../value_builder/unimarc_field_105.pl | 2 +- > .../value_builder/unimarc_field_106.pl | 2 +- > .../value_builder/unimarc_field_110.pl | 2 +- > .../value_builder/unimarc_field_115a.pl | 2 +- > .../value_builder/unimarc_field_115b.pl | 2 +- > .../value_builder/unimarc_field_116.pl | 2 +- > .../value_builder/unimarc_field_117.pl | 2 +- > .../value_builder/unimarc_field_120.pl | 2 +- > .../value_builder/unimarc_field_121a.pl | 2 +- > .../value_builder/unimarc_field_121b.pl | 2 +- > .../value_builder/unimarc_field_122.pl | 2 +- > .../value_builder/unimarc_field_123a.pl | 2 +- > .../value_builder/unimarc_field_123defg.pl | 2 +- > .../value_builder/unimarc_field_123i.pl | 2 +- > .../value_builder/unimarc_field_123j.pl | 2 +- > .../value_builder/unimarc_field_124.pl | 2 +- > .../value_builder/unimarc_field_124a.pl | 2 +- > .../value_builder/unimarc_field_124b.pl | 2 +- > .../value_builder/unimarc_field_124c.pl | 2 +- > .../value_builder/unimarc_field_124d.pl | 2 +- > .../value_builder/unimarc_field_124e.pl | 2 +- > .../value_builder/unimarc_field_124f.pl | 2 +- > .../value_builder/unimarc_field_124g.pl | 2 +- > .../value_builder/unimarc_field_125.pl | 2 +- > .../value_builder/unimarc_field_125a.pl | 2 +- > .../value_builder/unimarc_field_125b.pl | 2 +- > .../value_builder/unimarc_field_126.pl | 2 +- > .../value_builder/unimarc_field_126a.pl | 2 +- > .../value_builder/unimarc_field_126b.pl | 2 +- > .../value_builder/unimarc_field_127.pl | 2 +- > .../value_builder/unimarc_field_128a.pl | 2 +- > .../value_builder/unimarc_field_128b.pl | 2 +- > .../value_builder/unimarc_field_128c.pl | 2 +- > .../value_builder/unimarc_field_130.pl | 2 +- > .../value_builder/unimarc_field_135a.pl | 2 +- > .../value_builder/unimarc_field_140.pl | 2 +- > .../value_builder/unimarc_field_141.pl | 2 +- > .../value_builder/unimarc_field_181-2.pl | 2 +- > .../value_builder/unimarc_field_181a.pl | 2 +- > .../value_builder/unimarc_field_181b.pl | 2 +- > .../value_builder/unimarc_field_181c.pl | 2 +- > .../value_builder/unimarc_field_182-2.pl | 2 +- > .../value_builder/unimarc_field_182a.pl | 2 +- > .../value_builder/unimarc_field_182c.pl | 2 +- > .../value_builder/unimarc_field_183-2.pl | 2 +- > .../value_builder/unimarc_field_183a.pl | 2 +- > .../value_builder/unimarc_field_210c.pl | 2 +- > .../value_builder/unimarc_field_210c_bis.pl | 2 +- > .../value_builder/unimarc_field_225a.pl | 2 +- > .../value_builder/unimarc_field_283-2.pl | 2 +- > .../value_builder/unimarc_field_283a.pl | 2 +- > .../value_builder/unimarc_field_325h.pl | 2 +- > .../value_builder/unimarc_field_325j.pl | 2 +- > .../value_builder/unimarc_field_4XX.pl | 2 +- > .../value_builder/unimarc_field_686a.pl | 2 +- > cataloguing/value_builder/unimarc_leader.pl | 2 +- > .../unimarc_leader_authorities.pl | 2 +- > cataloguing/value_builder/upload.pl | 2 +- > cataloguing/value_builder/validate_isbn.pl | 2 +- > cataloguing/value_builder/validate_issn.pl | 2 +- > cataloguing/ysearch.pl | 2 +- > cataloguing/z3950_search.pl | 2 +- > changelanguage.pl | 2 +- > circ/add_message.pl | 2 +- > circ/article-requests.pl | 2 +- > circ/bookcount.pl | 2 +- > circ/branchoverdues.pl | 2 +- > circ/branchtransfers.pl | 2 +- > circ/checkout-notes.pl | 2 +- > circ/circulation-home.pl | 2 +- > circ/circulation.pl | 2 +- > circ/curbside_pickups.pl | 2 +- > circ/del_message.pl | 2 +- > circ/hold-transfer-slip.pl | 2 +- > circ/overdue.pl | 45 +++++- > circ/pendingbookings.pl | 2 +- > circ/pendingreserves.pl | 2 +- > circ/renew.pl | 2 +- > circ/reserveratios.pl | 2 +- > circ/returns.pl | 2 +- > circ/set-library.pl | 2 +- > circ/transfer-slip.pl | 2 +- > circ/transfers_to_send.pl | 2 +- > circ/transferstoreceive.pl | 2 +- > circ/view_holdsqueue.pl | 2 +- > circ/waitingreserves.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 +- > .../CASProxy/examples/proxy_cas_callback.pl | 2 +- > docs/CAS/CASProxy/examples/proxy_cas_data.pl | 2 +- > erm/erm.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/data/mysql/updatedatabase.pl | 2 +- > installer/install.pl | 2 +- > installer/onboarding.pl | 2 +- > labels/barcode-print.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-range.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/accountline-details.pl | 2 +- > members/alert-subscriptions.pl | 2 +- > members/boraccount.pl | 2 +- > members/deletemem.pl | 2 +- > members/files.pl | 2 +- > members/holdshistory.pl | 2 +- > members/ill-requests.pl | 2 +- > members/mancredit.pl | 2 +- > members/maninvoice.pl | 4 +- > members/member-flags.pl | 2 +- > members/member-password.pl | 2 +- > members/memberentry.pl | 5 +- > members/members-home.pl | 2 +- > members/members-update-do.pl | 2 +- > members/members-update.pl | 2 +- > members/merge-patrons.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/printnotice.pl | 2 +- > members/printslip.pl | 2 +- > members/purchase-suggestions.pl | 2 +- > members/readingrec.pl | 2 +- > members/recallshistory.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/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/external/overdrive/auth.pl | 2 +- > opac/ilsdi.pl | 2 +- > opac/maintenance.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-alert-subscriptions.pl | 2 +- > opac/opac-article-request-cancel.pl | 2 +- > opac/opac-authorities-home.pl | 2 +- > opac/opac-authoritiesdetail.pl | 2 +- > opac/opac-basket.pl | 2 +- > opac/opac-blocked.pl | 2 +- > opac/opac-browse.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-curbside-pickups.pl | 2 +- > opac/opac-detail.pl | 2 +- > opac/opac-dismiss-message.pl | 2 +- > opac/opac-downloadcart.pl | 2 +- > opac/opac-downloadshelf.pl | 2 +- > opac/opac-export.pl | 2 +- > opac/opac-holdshistory.pl | 2 +- > opac/opac-ics.pl | 2 +- > opac/opac-illrequests-unauthenticated.pl | 2 +- > opac/opac-illrequests.pl | 2 +- > opac/opac-image.pl | 2 +- > opac/opac-imageviewer.pl | 2 +- > opac/opac-issue-note.pl | 2 +- > opac/opac-library.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-page.pl | 2 +- > opac/opac-passwd.pl | 2 +- > opac/opac-patron-image.pl | 2 +- > opac/opac-privacy.pl | 2 +- > opac/opac-ratings.pl | 2 +- > opac/opac-readingrecord.pl | 2 +- > opac/opac-recall.pl | 2 +- > opac/opac-recalls.pl | 2 +- > opac/opac-registration-verify.pl | 2 +- > opac/opac-renew.pl | 2 +- > opac/opac-reportproblem.pl | 2 +- > opac/opac-request-article.pl | 2 +- > opac/opac-reserve.pl | 2 +- > opac/opac-reset-password.pl | 2 +- > opac/opac-review.pl | 2 +- > opac/opac-routing-lists.pl | 2 +- > opac/opac-search-history.pl | 2 +- > opac/opac-sendbasket.pl | 2 +- > opac/opac-sendshelf.pl | 2 +- > opac/opac-serial-issues.pl | 2 +- > opac/opac-shareshelf.pl | 2 +- > opac/opac-shelves.pl | 2 +- > opac/opac-showmarc.pl | 2 +- > opac/opac-showreviews.pl | 2 +- > opac/opac-suggestions.pl | 2 +- > opac/opac-tags.pl | 2 +- > opac/opac-tags_subject.pl | 2 +- > opac/opac-topissues.pl | 2 +- > opac/opac-user.pl | 2 +- > opac/opac-virtual-card.pl | 2 +- > opac/sci/sci-main.pl | 2 +- > opac/sco/help.pl | 2 +- > opac/sco/printslip.pl | 2 +- > opac/sco/sco-main.pl | 2 +- > opac/svc/auth/googleopenidconnect | 2 +- > opac/svc/overdrive | 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/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/print.pl | 2 +- > plugins/plugins-enable.pl | 2 +- > plugins/plugins-home.pl | 2 +- > plugins/plugins-uninstall.pl | 2 +- > plugins/plugins-upload.pl | 2 +- > plugins/run.pl | 2 +- > pos/printreceipt.pl | 2 +- > preservation/home.pl | 2 +- > preservation/print_slip.pl | 2 +- > recalls/recall_pickup_slip.pl | 2 +- > recalls/recalls_old_queue.pl | 2 +- > recalls/recalls_overdue.pl | 2 +- > recalls/recalls_queue.pl | 2 +- > recalls/recalls_to_pull.pl | 2 +- > recalls/recalls_waiting.pl | 2 +- > recalls/request.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/catalog_by_itemtype.pl | 2 +- > reports/catalogue_out.pl | 2 +- > reports/catalogue_stats.pl | 2 +- > reports/dictionary.pl | 2 +- > reports/issues_avg_stats.pl | 2 +- > reports/issues_stats.pl | 2 +- > reports/itemslost.pl | 2 +- > reports/reports-home.pl | 2 +- > reports/reserves_stats.pl | 2 +- > reports/serials_stats.pl | 2 +- > reserve/modrequest.pl | 2 +- > reserve/modrequest_suspendall.pl | 2 +- > reserve/placerequest.pl | 2 +- > reserve/request.pl | 5 +- > 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/reorder_members.pl | 2 +- > serials/routing-preview.pl | 2 +- > serials/routing.pl | 2 +- > serials/serials-collection.pl | 2 +- > serials/serials-edit.pl | 2 +- > serials/serials-home.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 +- > sip2/sip2.pl | 2 +- > suggestion/suggestion.pl | 6 +- > svc/article_request | 2 +- > svc/authentication | 2 +- > svc/bib | 2 +- > svc/bib_framework | 2 +- > svc/bib_profile | 2 +- > svc/checkout_notes | 2 +- > svc/convert_report | 2 +- > svc/cover_images | 2 +- > svc/import_bib | 2 +- > svc/new_bib | 2 +- > svc/report | 2 +- > t/Languages.t | 2 +- > t/Output.t | 2 +- > t/db_dependent/Auth.t | 10 +- > t/db_dependent/Cache.t | 6 +- > t/db_dependent/ILSDI_Services.t | 4 +- > t/db_dependent/Output.t | 2 +- > t/db_dependent/Search/History.t | 2 +- > t/db_dependent/api/v1/biblios.t | 134 ++++++------------ > t/db_dependent/api/v1/bookings.t | 53 +++---- > tags/list.pl | 2 +- > tags/review.pl | 4 +- > tools/additional-contents.pl | 2 +- > tools/ajax-inventory.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/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/page.pl | 2 +- > tools/picture-upload.pl | 2 +- > tools/problem-reports.pl | 2 +- > tools/quotes-upload.pl | 2 +- > tools/quotes.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.pl | 2 +- > tools/viewlog.pl | 2 +- > virtualshelves/addbybiblionumber.pl | 2 +- > virtualshelves/downloadshelf.pl | 2 +- > virtualshelves/sendshelf.pl | 2 +- > virtualshelves/shelves.pl | 2 +- > 548 files changed, 667 insertions(+), 698 deletions(-) > >diff --git a/C4/Auth.pm b/C4/Auth.pm >index b5308ae4a4..53ec0707fb 100644 >--- a/C4/Auth.pm >+++ b/C4/Auth.pm >@@ -90,7 +90,7 @@ C4::Auth - Authenticates Koha users > > =head1 SYNOPSIS > >- use CGI qw ( -utf8 ); >+ use CGI qw( -utf8 ); > use C4::Auth; > use C4::Output; > >@@ -1236,7 +1236,7 @@ sub checkauth { > : Koha::Cash::Registers->search( > { branch => $branchcode, branch_default => 1 }, > { rows => 1 } >- )->single; >+ )->single; > $register_id = $register->id if ($register); > $register_name = $register->name if ($register); > } >diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm >index c21db81d1f..d482725cb2 100644 >--- a/C4/Auth_with_cas.pm >+++ b/C4/Auth_with_cas.pm >@@ -28,7 +28,7 @@ BEGIN { > use C4::Context; > use Koha::AuthUtils qw( get_script_name ); > use Authen::CAS::Client; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use YAML::XS; > use URI::Escape; > >diff --git a/C4/Form/MessagingPreferences.pm b/C4/Form/MessagingPreferences.pm >index 8c83263f2f..483580042f 100644 >--- a/C4/Form/MessagingPreferences.pm >+++ b/C4/Form/MessagingPreferences.pm >@@ -20,7 +20,7 @@ package C4::Form::MessagingPreferences; > use strict; > use warnings; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Members::Messaging; > >diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm >index 597a9ddd1d..6f024b35a2 100644 >--- a/C4/ILSDI/Services.pm >+++ b/C4/ILSDI/Services.pm >@@ -27,7 +27,7 @@ use C4::Accounts; > use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved ); > use C4::Context; > use C4::Auth; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use DateTime; > use C4::Auth; > use Koha::DateUtils qw( dt_from_string ); >@@ -54,7 +54,7 @@ hashref that will be printed by XML::Simple in opac/ilsdi.pl > > use C4::ILSDI::Services; > use XML::Simple; >- use CGI qw ( -utf8 ); >+ use CGI qw( -utf8 ); > > my $cgi = new CGI; > >diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm >index 8c84b532cb..0693a3324c 100644 >--- a/C4/InstallAuth.pm >+++ b/C4/InstallAuth.pm >@@ -42,7 +42,7 @@ InstallAuth - Authenticates Koha users for Install process > > =head1 SYNOPSIS > >- use CGI qw ( -utf8 ); >+ use CGI qw( -utf8 ); > use InstallAuth; > use C4::Output; > >diff --git a/C4/Installer.pm b/C4/Installer.pm >index 7dd124fba5..c544b463d2 100644 >--- a/C4/Installer.pm >+++ b/C4/Installer.pm >@@ -30,7 +30,7 @@ use C4::Context; > use Koha::Schema; > use Koha; > use Koha::Installer; >-use Koha::Installer::Output qw ( say_failure ); >+use Koha::Installer::Output qw( say_failure ); > > use vars qw(@ISA @EXPORT); > >diff --git a/C4/Reports.pm b/C4/Reports.pm >index b0e55ec48f..ec0057a3ef 100644 >--- a/C4/Reports.pm >+++ b/C4/Reports.pm >@@ -26,7 +26,7 @@ BEGIN { > ); > } > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > >diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm >index 577b369495..6869695737 100644 >--- a/C4/Reports/Guided.pm >+++ b/C4/Reports/Guided.pm >@@ -38,7 +38,7 @@ BEGIN { > ); > } > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Carp qw( carp croak ); > use JSON qw( from_json ); > >diff --git a/C4/SIP/ILS/Transaction/Checkout.pm b/C4/SIP/ILS/Transaction/Checkout.pm >index 39ffff173a..27cc5ab16c 100644 >--- a/C4/SIP/ILS/Transaction/Checkout.pm >+++ b/C4/SIP/ILS/Transaction/Checkout.pm >@@ -10,7 +10,7 @@ use strict; > use POSIX qw(strftime); > use C4::SIP::Sip qw( siplog ); > use Data::Dumper; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::SIP::ILS::Transaction; > >diff --git a/C4/SIP/Logger.pm b/C4/SIP/Logger.pm >index 99460d2012..48daf4512f 100644 >--- a/C4/SIP/Logger.pm >+++ b/C4/SIP/Logger.pm >@@ -3,7 +3,7 @@ package C4::SIP::Logger; > use Modern::Perl; > > use base 'Exporter'; >-BEGIN { our @EXPORT_OK = qw ( get_logger set_logger ); } >+BEGIN { our @EXPORT_OK = qw( get_logger set_logger ); } > > our $activeSIPServer; > our $activeLogger; >diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm >index e2ed6de3f7..4339e6d6b0 100644 >--- a/C4/SIP/Sip/MsgType.pm >+++ b/C4/SIP/Sip/MsgType.pm >@@ -15,7 +15,7 @@ use C4::SIP::Sip::Constants qw(:all); > use C4::SIP::Sip::Checksum qw(verify_cksum); > > use Data::Dumper; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw(&check_api_auth); > use C4::Items qw(ModDateLastSeen); >diff --git a/C4/Service.pm b/C4/Service.pm >index 88c0c44c37..3927259370 100644 >--- a/C4/Service.pm >+++ b/C4/Service.pm >@@ -41,7 +41,7 @@ This module packages several useful functions for JSON webservices. > use strict; > use warnings; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_api_auth ); > use C4::Output qw( output_with_http_headers ); > use C4::Output::JSONStream; >diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm >index 9c93770917..6d86bd9f49 100644 >--- a/C4/Suggestions.pm >+++ b/C4/Suggestions.pm >@@ -34,7 +34,7 @@ BEGIN { > ); > } > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Output; >diff --git a/C4/Templates.pm b/C4/Templates.pm >index 9afa49a65a..5a8ca07c9d 100644 >--- a/C4/Templates.pm >+++ b/C4/Templates.pm >@@ -3,7 +3,7 @@ package C4::Templates; > use strict; > use warnings; > use Carp qw( carp ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils qw( uniq ); > > # Copyright 2009 Chris Cormack and The Koha Dev Team >diff --git a/Koha/OAI/Client/Harvester.pm b/Koha/OAI/Client/Harvester.pm >index 0cb24cedee..fda685b167 100644 >--- a/Koha/OAI/Client/Harvester.pm >+++ b/Koha/OAI/Client/Harvester.pm >@@ -31,7 +31,7 @@ use utf8; > use open qw( :std :utf8 ); > > use C4::Biblio qw( AddBiblio GetFrameworkCode ModBiblio DelBiblio ); >-use C4::AuthoritiesMarc qw (AddAuthority GuessAuthTypeCode ModAuthority DelAuthority ); >+use C4::AuthoritiesMarc qw( AddAuthority GuessAuthTypeCode ModAuthority DelAuthority ); > use HTTP::OAI; > use HTTP::OAI::Metadata::OAI_DC; > use Koha::DateUtils qw( dt_from_string ); >diff --git a/Koha/Patron/Discharge.pm b/Koha/Patron/Discharge.pm >index 1d4b41e84b..591943d9e2 100644 >--- a/Koha/Patron/Discharge.pm >+++ b/Koha/Patron/Discharge.pm >@@ -6,7 +6,7 @@ use File::Temp qw( tmpnam ); > use IPC::Cmd; > use Carp qw( carp ); > >-use C4::Templates qw ( gettemplate ); >+use C4::Templates qw( gettemplate ); > use C4::Letters qw( GetPreparedLetter ); > > use Koha::Database; >diff --git a/about.pl b/about.pl >index 8885e21266..7a04640fbf 100755 >--- a/about.pl >+++ b/about.pl >@@ -22,7 +22,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use DateTime::TimeZone; > use File::Slurp qw( read_file ); > use IPC::Cmd qw(can_run); >diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl >index e5ac8ba6a3..560b0823b5 100755 >--- a/acqui/acqui-home.pl >+++ b/acqui/acqui-home.pl >@@ -28,7 +28,7 @@ this script is the main page for acqui > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget ); >diff --git a/acqui/addorder.pl b/acqui/addorder.pl >index 42309ea2ce..9725952026 100755 >--- a/acqui/addorder.pl >+++ b/acqui/addorder.pl >@@ -117,8 +117,8 @@ if it is an order from an existing suggestion : the id of this suggestion. > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >-use JSON qw ( to_json encode_json ); >+use CGI qw( -utf8 ); >+use JSON qw( to_json encode_json ); > > use C4::Acquisition qw( FillWithDefaultValues ModOrderUsers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl >index 12d0d25ed8..56fe685b44 100755 >--- a/acqui/addorderiso2709.pl >+++ b/acqui/addorderiso2709.pl >@@ -22,7 +22,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils; > use Encode; > use Scalar::Util qw( looks_like_number ); >diff --git a/acqui/ajax-getauthvaluedropbox.pl b/acqui/ajax-getauthvaluedropbox.pl >index 4339674b66..ce51a422e0 100755 >--- a/acqui/ajax-getauthvaluedropbox.pl >+++ b/acqui/ajax-getauthvaluedropbox.pl >@@ -47,7 +47,7 @@ Default value for the dropbox. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Charset qw( NormalizeString ); > use C4::Auth qw( check_api_auth ); > use Koha::AuthorisedValues; >diff --git a/acqui/basket.pl b/acqui/basket.pl >index 35c648c560..b59c1dddd7 100755 >--- a/acqui/basket.pl >+++ b/acqui/basket.pl >@@ -23,7 +23,7 @@ > use Modern::Perl; > use C4::Auth qw( get_template_and_user haspermission ); > use C4::Output qw( output_html_with_http_headers output_and_exit ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Acquisition > qw( GetBasket CanUserManageBasket GetBasketAsCSV NewBasket NewBasketgroup ModBasket ReopenBasket ModBasketUsers GetBasketgroup GetBasketgroups GetBasketUsers GetOrders GetOrder get_rounded_price ); > use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget ); >diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl >index ba717eb3d1..3a792d7342 100755 >--- a/acqui/basketgroup.pl >+++ b/acqui/basketgroup.pl >@@ -47,7 +47,7 @@ use Carp qw( croak ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use File::Spec; > > use C4::Acquisition >diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl >index 9809e6172f..f743ccfb9e 100755 >--- a/acqui/basketheader.pl >+++ b/acqui/basketheader.pl >@@ -46,7 +46,7 @@ If it exists, C<$basketno> is the basket we edit > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >@@ -181,8 +181,7 @@ if ( $op eq 'add_form' ) { > my $schema = Koha::Database->new()->schema(); > my $vendor_edi_account = > $schema->resultset('VendorEdiAccount') >- ->search( { vendor_id => scalar $input->param('basketbooksellerid') } ) >- ->first; >+ ->search( { vendor_id => scalar $input->param('basketbooksellerid') } )->first; > > if ( $vendor_edi_account && $vendor_edi_account->po_is_basketname ) { > >diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl >index f100e6ebe5..4aebb30c0b 100755 >--- a/acqui/booksellers.pl >+++ b/acqui/booksellers.pl >@@ -42,7 +42,7 @@ The id of the supplier whose baskets we will display > use Modern::Perl; > use C4::Auth qw( get_template_and_user haspermission ); > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Acquisition qw( GetBasket GetBasketsInfosByBookseller CanUserManageBasket GetBasketgroup ); > use C4::Budgets qw( GetBudgetHierarchy CanUserUseBudget ); >diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl >index f62bc04663..60eb45dd24 100755 >--- a/acqui/check_budget_total.pl >+++ b/acqui/check_budget_total.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/acqui/check_uniqueness.pl b/acqui/check_uniqueness.pl >index baefde5351..2dbe2a3d75 100755 >--- a/acqui/check_uniqueness.pl >+++ b/acqui/check_uniqueness.pl >@@ -31,7 +31,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw( to_json ); > use C4::Output qw( output_with_http_headers ); > use C4::Items qw( SearchItems ); >diff --git a/acqui/duplicate_orders.pl b/acqui/duplicate_orders.pl >index 9b27c11cf6..584bb226fc 100755 >--- a/acqui/duplicate_orders.pl >+++ b/acqui/duplicate_orders.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit output_html_with_http_headers ); >diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl >index 6d6ee38f7b..c5d50288e8 100755 >--- a/acqui/finishreceive.pl >+++ b/acqui/finishreceive.pl >@@ -21,7 +21,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( checkauth ); > use JSON qw( encode_json ); > use C4::Output; >diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl >index 9d1e76f008..07901623b7 100755 >--- a/acqui/histsearch.pl >+++ b/acqui/histsearch.pl >@@ -50,7 +50,7 @@ to filter on ended date. > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Acquisition qw( GetHistory ); >diff --git a/acqui/invoice.pl b/acqui/invoice.pl >index e42542a1fa..630f0c34cd 100755 >--- a/acqui/invoice.pl >+++ b/acqui/invoice.pl >@@ -28,7 +28,7 @@ Invoice details > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit output_html_with_http_headers ); > use C4::Acquisition >diff --git a/acqui/invoices.pl b/acqui/invoices.pl >index bb135f64b0..6290c38543 100755 >--- a/acqui/invoices.pl >+++ b/acqui/invoices.pl >@@ -28,7 +28,7 @@ Search for invoices > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl >index 42ea5effdb..fcb0a2205b 100755 >--- a/acqui/lateorders-export.pl >+++ b/acqui/lateorders-export.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > > use C4::Auth qw( get_template_and_user ); >diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl >index 95c7d547de..d29880aa94 100755 >--- a/acqui/lateorders.pl >+++ b/acqui/lateorders.pl >@@ -43,7 +43,7 @@ To know on which branch this script have to display late order. > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/acqui/moddeliverydate.pl b/acqui/moddeliverydate.pl >index 0a202c46fc..966b998f5b 100755 >--- a/acqui/moddeliverydate.pl >+++ b/acqui/moddeliverydate.pl >@@ -30,7 +30,7 @@ its basket is closed. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Acquisition qw( GetOrder GetBasket ModOrder ); >diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl >index 45fb7a38c3..4b26de0d7d 100755 >--- a/acqui/modordernotes.pl >+++ b/acqui/modordernotes.pl >@@ -28,7 +28,7 @@ Modify just notes when basket is closed. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Acquisition qw( GetOrder GetBasket ModOrder ); >diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl >index 1a8155904c..eb9f5f4a50 100755 >--- a/acqui/neworderempty.pl >+++ b/acqui/neworderempty.pl >@@ -64,7 +64,7 @@ the item's id in the breeding reservoir > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Auth qw( get_template_and_user ); >diff --git a/acqui/newordersubscription.pl b/acqui/newordersubscription.pl >index d31d364fe3..77ab44ca9f 100755 >--- a/acqui/newordersubscription.pl >+++ b/acqui/newordersubscription.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Acquisition qw( GetBasket ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl >index 02bfa2cfc3..3f2c0889a3 100755 >--- a/acqui/newordersuggestion.pl >+++ b/acqui/newordersuggestion.pl >@@ -90,7 +90,7 @@ can be equal to > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Suggestions qw( ConnectSuggestionAndBiblio ModSuggestion ); >diff --git a/acqui/ordered.pl b/acqui/ordered.pl >index 90485c84e2..4beee30431 100755 >--- a/acqui/ordered.pl >+++ b/acqui/ordered.pl >@@ -29,7 +29,7 @@ this script is to show orders ordered but not yet received > > use C4::Context; > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::Acquisition::Invoice::Adjustments; >diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl >index 0b00ab6493..95ab387a37 100755 >--- a/acqui/orderreceive.pl >+++ b/acqui/orderreceive.pl >@@ -59,7 +59,7 @@ The biblionumber of this order. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Acquisition qw( GetInvoice ); > use C4::Auth qw( get_template_and_user ); >diff --git a/acqui/parcel.pl b/acqui/parcel.pl >index d274a3db1a..f559e6793f 100755 >--- a/acqui/parcel.pl >+++ b/acqui/parcel.pl >@@ -58,7 +58,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails get_rounded_price ); > use C4::Budgets qw( GetBudget GetBudgetByOrderNumber GetBudgetName ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > > use Koha::Acquisition::Baskets; >diff --git a/acqui/parcels.pl b/acqui/parcels.pl >index 27ce71dd96..fb6558d162 100755 >--- a/acqui/parcels.pl >+++ b/acqui/parcels.pl >@@ -65,7 +65,7 @@ To know how many results have to be display / page. > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/acqui/showorder.pl b/acqui/showorder.pl >index 0c908bc289..0b10f20f39 100755 >--- a/acqui/showorder.pl >+++ b/acqui/showorder.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/acqui/spent.pl b/acqui/spent.pl >index 8fe5911ecd..60ae5da119 100755 >--- a/acqui/spent.pl >+++ b/acqui/spent.pl >@@ -33,7 +33,7 @@ use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Acquisition qw( get_rounded_price ); > use Koha::Acquisition::Invoice::Adjustments; > >diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl >index 7cbeaa72ac..7eddd62e37 100755 >--- a/acqui/transferorder.pl >+++ b/acqui/transferorder.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses> > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/acqui/uncertainprice.pl b/acqui/uncertainprice.pl >index e4f8c16176..b3ee789905 100755 >--- a/acqui/uncertainprice.pl >+++ b/acqui/uncertainprice.pl >@@ -45,7 +45,7 @@ use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Acquisition qw( SearchOrders GetOrder ModOrder ); > >diff --git a/acqui/vendor_issues.pl b/acqui/vendor_issues.pl >index d12fdb17f5..c1e615fabe 100755 >--- a/acqui/vendor_issues.pl >+++ b/acqui/vendor_issues.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/acqui/vendors.pl b/acqui/vendors.pl >index 1649dab184..06a37e177c 100755 >--- a/acqui/vendors.pl >+++ b/acqui/vendors.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > use C4::Auth qw( get_template_and_user haspermission ); > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > >diff --git a/admin/admin-home.pl b/admin/admin-home.pl >index 734c0aba0a..3ff3936853 100755 >--- a/admin/admin-home.pl >+++ b/admin/admin-home.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::Plugins; >diff --git a/admin/adveditorshortcuts.pl b/admin/adveditorshortcuts.pl >index c5b88761af..c43e4f68bc 100755 >--- a/admin/adveditorshortcuts.pl >+++ b/admin/adveditorshortcuts.pl >@@ -38,7 +38,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Koha::KeyboardShortcuts; > > my $input = CGI->new; >diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl >index c602cef906..7ddac8afb5 100755 >--- a/admin/aqbudgetperiods.pl >+++ b/admin/aqbudgetperiods.pl >@@ -46,7 +46,7 @@ script to administer the budget periods table > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw( encode_json ); > use Koha::Database; > use C4::Koha; >diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl >index 484fa318d5..83dbdc4b28 100755 >--- a/admin/aqbudgets.pl >+++ b/admin/aqbudgets.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Database; > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl >index 4b0af3bd39..745ec90397 100755 >--- a/admin/aqcontract.pl >+++ b/admin/aqcontract.pl >@@ -21,7 +21,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/aqplan.pl b/admin/aqplan.pl >index 7137072c29..cbb6fd7dcb 100755 >--- a/admin/aqplan.pl >+++ b/admin/aqplan.pl >@@ -21,7 +21,7 @@ > # This software is placed under the gnu General Public License, v2 (https://www.gnu.org/licenses/gpl.html) > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Date::Calc qw( Delta_YMD ); > use Date::Manip qw( DateCalc UnixDate ); > use Text::CSV_XS; >diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl >index a96100c42d..bcc9ea864e 100755 >--- a/admin/auth_subfields_structure.pl >+++ b/admin/auth_subfields_structure.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use Koha::Authority::Types; >diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl >index 963f4eb7a2..431f35aeae 100755 >--- a/admin/auth_tag_structure.pl >+++ b/admin/auth_tag_structure.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl >index e106338703..d6fc5f3453 100755 >--- a/admin/authorised_values.pl >+++ b/admin/authorised_values.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils qw( any ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/authtypes.pl b/admin/authtypes.pl >index 8c4d60b6f4..509e0fcfcc 100755 >--- a/admin/authtypes.pl >+++ b/admin/authtypes.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/background_jobs.pl b/admin/background_jobs.pl >index 3d02baa77a..7da3d59abf 100755 >--- a/admin/background_jobs.pl >+++ b/admin/background_jobs.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use Koha::DateUtils qw( dt_from_string ); >diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl >index ecad5c2bb2..8f189a09a1 100755 >--- a/admin/biblio_framework.pl >+++ b/admin/biblio_framework.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl >index 1b09a08d0b..c5976244be 100755 >--- a/admin/branch_transfer_limits.pl >+++ b/admin/branch_transfer_limits.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/branches.pl b/admin/branches.pl >index d157d8fbd8..66d4e941a3 100755 >--- a/admin/branches.pl >+++ b/admin/branches.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/categories.pl b/admin/categories.pl >index d471e9cc76..d470f34e4d 100755 >--- a/admin/categories.pl >+++ b/admin/categories.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/check_budget_parent.pl b/admin/check_budget_parent.pl >index 23170a965e..e4fde05a96 100755 >--- a/admin/check_budget_parent.pl >+++ b/admin/check_budget_parent.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/check_parent_total.pl b/admin/check_parent_total.pl >index 1429582577..14102f5fb9 100755 >--- a/admin/check_parent_total.pl >+++ b/admin/check_parent_total.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/checkmarc.pl b/admin/checkmarc.pl >index 665aedf857..b61f0c9b06 100755 >--- a/admin/checkmarc.pl >+++ b/admin/checkmarc.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > my $input = CGI->new; >diff --git a/admin/cities.pl b/admin/cities.pl >index b3c544256a..016bdd7a4f 100755 >--- a/admin/cities.pl >+++ b/admin/cities.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/classsources.pl b/admin/classsources.pl >index 43431be51a..1b18a694ac 100755 >--- a/admin/classsources.pl >+++ b/admin/classsources.pl >@@ -20,7 +20,7 @@ > # > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/clone-rules.pl b/admin/clone-rules.pl >index eb9510db42..c398ce0c9d 100755 >--- a/admin/clone-rules.pl >+++ b/admin/clone-rules.pl >@@ -25,7 +25,7 @@ > # The script can be called with one of the parameters, both or none > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/credit_types.pl b/admin/credit_types.pl >index 31533b8467..6ddcc8be9f 100755 >--- a/admin/credit_types.pl >+++ b/admin/credit_types.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Context; >diff --git a/admin/curbside_pickup.pl b/admin/curbside_pickup.pl >index d4ea98172f..9cd804c6ae 100755 >--- a/admin/curbside_pickup.pl >+++ b/admin/curbside_pickup.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/currency.pl b/admin/currency.pl >index 8fe85b0952..48e05d3110 100755 >--- a/admin/currency.pl >+++ b/admin/currency.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/debit_types.pl b/admin/debit_types.pl >index bde2826425..e8926e5c22 100755 >--- a/admin/debit_types.pl >+++ b/admin/debit_types.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Context; >diff --git a/admin/desks.pl b/admin/desks.pl >index 216a4940f4..9a89673f6c 100755 >--- a/admin/desks.pl >+++ b/admin/desks.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/didyoumean.pl b/admin/didyoumean.pl >index a90321d006..62655aa8bb 100755 >--- a/admin/didyoumean.pl >+++ b/admin/didyoumean.pl >@@ -1,7 +1,7 @@ > #!/usr/bin/perl > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/file_transports.pl b/admin/file_transports.pl >index ba988d2a2e..f0e02aef96 100755 >--- a/admin/file_transports.pl >+++ b/admin/file_transports.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Scalar::Util qw( blessed ); > use Try::Tiny qw( catch try ); > >diff --git a/admin/float_limits.pl b/admin/float_limits.pl >index 6d1f820a3e..f395619a65 100755 >--- a/admin/float_limits.pl >+++ b/admin/float_limits.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/identity_providers.pl b/admin/identity_providers.pl >index 7f2d6a775d..ed6ec6874e 100755 >--- a/admin/identity_providers.pl >+++ b/admin/identity_providers.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Scalar::Util qw( blessed ); > use Try::Tiny qw( catch try ); > >diff --git a/admin/ill_batch_statuses.pl b/admin/ill_batch_statuses.pl >index 89d67215bd..51c6b6be73 100755 >--- a/admin/ill_batch_statuses.pl >+++ b/admin/ill_batch_statuses.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Context; >diff --git a/admin/import_export_authtype.pl b/admin/import_export_authtype.pl >index 2b89f657aa..e1574a68d5 100755 >--- a/admin/import_export_authtype.pl >+++ b/admin/import_export_authtype.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; > use C4::Context; > use C4::Auth qw/check_cookie_auth/; >diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl >index 2b64442edd..002b1b232d 100755 >--- a/admin/import_export_framework.pl >+++ b/admin/import_export_framework.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; > use C4::Context; > use C4::Auth qw( check_cookie_auth ); >diff --git a/admin/item_circulation_alerts.pl b/admin/item_circulation_alerts.pl >index 108f7f2acc..fc997e2216 100755 >--- a/admin/item_circulation_alerts.pl >+++ b/admin/item_circulation_alerts.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw( encode_json ); > > #use Data::Dump 'pp'; >diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl >index eea77d2bb8..04a20d37be 100755 >--- a/admin/itemtypes.pl >+++ b/admin/itemtypes.pl >@@ -23,7 +23,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Koha qw( getImageSets GetAuthorisedValues ); > use C4::Context; >diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl >index 75bf753694..3fa353f68e 100755 >--- a/admin/koha2marclinks.pl >+++ b/admin/koha2marclinks.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Database; > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/library_groups.pl b/admin/library_groups.pl >index 5cf759928d..f51342a659 100755 >--- a/admin/library_groups.pl >+++ b/admin/library_groups.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/marc-overlay-rules.pl b/admin/marc-overlay-rules.pl >index bebaa1d6ac..3b8cdc0737 100755 >--- a/admin/marc-overlay-rules.pl >+++ b/admin/marc-overlay-rules.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > > use C4::Context; >diff --git a/admin/marc_order_accounts.pl b/admin/marc_order_accounts.pl >index 121ba0c5d8..27284b8e3e 100755 >--- a/admin/marc_order_accounts.pl >+++ b/admin/marc_order_accounts.pl >@@ -22,7 +22,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl >index 8b3e8b0ba3..7636687ef6 100755 >--- a/admin/marc_subfields_structure.pl >+++ b/admin/marc_subfields_structure.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > use Encode qw( encode_utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use Koha::Authority::Types; >diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl >index 5450716602..a059ee47d6 100755 >--- a/admin/marctagstructure.pl >+++ b/admin/marctagstructure.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Biblio qw( GetMarcFromKohaField ); >diff --git a/admin/matching-rules.pl b/admin/matching-rules.pl >index a2c1348eff..00e02a6617 100755 >--- a/admin/matching-rules.pl >+++ b/admin/matching-rules.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/oai_servers.pl b/admin/oai_servers.pl >index 9dcdd60178..ba670053d6 100755 >--- a/admin/oai_servers.pl >+++ b/admin/oai_servers.pl >@@ -21,7 +21,7 @@ > # delete_confirmed deletes a record and goes to list view. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/oai_set_mappings.pl b/admin/oai_set_mappings.pl >index 08678790ba..ff947ff658 100755 >--- a/admin/oai_set_mappings.pl >+++ b/admin/oai_set_mappings.pl >@@ -32,7 +32,7 @@ the OR operator will be applied. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::OAI::Sets qw( GetOAISet GetOAISetMappings ModOAISetMappings ); >diff --git a/admin/oai_sets.pl b/admin/oai_sets.pl >index 1975945247..8bce713051 100755 >--- a/admin/oai_sets.pl >+++ b/admin/oai_sets.pl >@@ -28,7 +28,7 @@ Admin page to describe OAI SETs > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::OAI::Sets qw( AddOAISet DelOAISet GetOAISet GetOAISets ModOAISet ); >diff --git a/admin/overdrive.pl b/admin/overdrive.pl >index f432232c99..7b5a79a5a1 100755 >--- a/admin/overdrive.pl >+++ b/admin/overdrive.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/admin/patron-attr-types.pl b/admin/patron-attr-types.pl >index 47c16306a8..ee8daf22f6 100755 >--- a/admin/patron-attr-types.pl >+++ b/admin/patron-attr-types.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils qw( uniq ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/preferences.pl b/admin/preferences.pl >index 475f8fc372..951c049f76 100755 >--- a/admin/preferences.pl >+++ b/admin/preferences.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Koha qw( getallthemes ); >@@ -167,7 +167,7 @@ sub _get_chunk { > @values = split /,/, $value if defined($value); > $chunk->{'CHOICES'} = [ > sort { $a->{'text'} cmp $b->{'text'} } >- map { >+ map { > my $c = $_; > { > text => $options{'choices'}->{$c}, >@@ -190,7 +190,7 @@ sub _get_chunk { > $chunk->{type} = 'multiple'; > $chunk->{CHOICES} = [ > sort { $a->{'text'} cmp $b->{'text'} } >- map { >+ map { > my $option_value = $_; > { > text => $options{multiple}->{$option_value}, >diff --git a/admin/record_sources.pl b/admin/record_sources.pl >index adcfd3f3ed..6928c64b35 100755 >--- a/admin/record_sources.pl >+++ b/admin/record_sources.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/admin/restrictions.pl b/admin/restrictions.pl >index 5b63c97aee..5262839d88 100755 >--- a/admin/restrictions.pl >+++ b/admin/restrictions.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( try catch ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/share_content.pl b/admin/share_content.pl >index 82df18c236..9c1412668d 100755 >--- a/admin/share_content.pl >+++ b/admin/share_content.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw( to_json ); > use HTTP::Request; > >diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl >index c0e5a3b858..5c77fac08a 100755 >--- a/admin/smart-rules.pl >+++ b/admin/smart-rules.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/smtp_servers.pl b/admin/smtp_servers.pl >index c01290f227..fe0f24ff4a 100755 >--- a/admin/smtp_servers.pl >+++ b/admin/smtp_servers.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Scalar::Util qw( blessed ); > use Try::Tiny qw( catch try ); > >diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl >index 59432a7d9a..c667576690 100755 >--- a/admin/systempreferences.pl >+++ b/admin/systempreferences.pl >@@ -42,7 +42,7 @@ ALSO : > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use MIME::Base64 qw( encode_base64 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/admin/transfer_limits.pl b/admin/transfer_limits.pl >index 06b907f982..a13b06e4bc 100755 >--- a/admin/transfer_limits.pl >+++ b/admin/transfer_limits.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl >index c64370ca30..e2fb713123 100755 >--- a/admin/transport-cost-matrix.pl >+++ b/admin/transport-cost-matrix.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/admin/usage_statistics.pl b/admin/usage_statistics.pl >index fae58d1cab..41b5e2c7f4 100755 >--- a/admin/usage_statistics.pl >+++ b/admin/usage_statistics.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::DateUtils qw( output_pref ); >diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl >index 22f94145f5..d25b2f12ee 100755 >--- a/admin/z3950servers.pl >+++ b/admin/z3950servers.pl >@@ -24,7 +24,7 @@ > # delete_confirmed deletes a record and goes to list view. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl >index 1d32344ad5..1d63d73eab 100755 >--- a/authorities/auth_finder.pl >+++ b/authorities/auth_finder.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl >index 798df8afc1..0f6cc50843 100755 >--- a/authorities/authorities-home.pl >+++ b/authorities/authorities-home.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI::Escape qw( uri_escape_utf8 ); > use POSIX qw( ceil ); > >diff --git a/authorities/authorities.pl b/authorities/authorities.pl >index 592fc68274..19de6db26f 100755 >--- a/authorities/authorities.pl >+++ b/authorities/authorities.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use POSIX qw( strftime ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl >index 1a76f1d998..ee40d1a44b 100755 >--- a/authorities/blinddetail-biblio-search.pl >+++ b/authorities/blinddetail-biblio-search.pl >@@ -42,7 +42,7 @@ use C4::Auth qw( get_template_and_user ); > use C4::AuthoritiesMarc qw( GetAuthority ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Authorities; > use Koha::Authority::Types; >diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl >index 53f0cee216..34ad96b5a4 100755 >--- a/authorities/detail-biblio-search.pl >+++ b/authorities/detail-biblio-search.pl >@@ -42,7 +42,7 @@ use C4::Auth qw( get_template_and_user ); > use C4::AuthoritiesMarc qw( GetAuthority GetTagsLabels ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > # use C4::Biblio; > # use C4::Catalogue; >diff --git a/authorities/detail.pl b/authorities/detail.pl >index 2e7622f7c9..34caafc6d3 100755 >--- a/authorities/detail.pl >+++ b/authorities/detail.pl >@@ -38,7 +38,7 @@ parameters tables. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy GetTagsLabels ); >diff --git a/authorities/export.pl b/authorities/export.pl >index 089ee90bf3..c4353a6d31 100755 >--- a/authorities/export.pl >+++ b/authorities/export.pl >@@ -5,7 +5,7 @@ use C4::Record; > use C4::Auth qw( get_template_and_user ); > use C4::Output; > use C4::AuthoritiesMarc qw( GetAuthority ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $query = CGI->new; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/authorities/merge.pl b/authorities/merge.pl >index 4117212d1f..41c51db2b6 100755 >--- a/authorities/merge.pl >+++ b/authorities/merge.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::AuthoritiesMarc qw( GetAuthority ModAuthority DelAuthority GetTagsLabels merge ); >diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl >index a2a76378e4..924741aa3e 100755 >--- a/authorities/merge_ajax.pl >+++ b/authorities/merge_ajax.pl >@@ -2,7 +2,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; # need to check cookies before CGI parses the POST request > use JSON qw( encode_json ); > >diff --git a/authorities/ysearch.pl b/authorities/ysearch.pl >index 4da5b5b636..f42f77332d 100755 >--- a/authorities/ysearch.pl >+++ b/authorities/ysearch.pl >@@ -27,7 +27,7 @@ This script allows ajax call for dynamic authorities search > > =cut > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Modern::Perl; > use JSON qw( to_json ); > >diff --git a/basket/basket.pl b/basket/basket.pl >index 49d98371f4..d7c1a25978 100755 >--- a/basket/basket.pl >+++ b/basket/basket.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Koha; > use C4::Biblio qw( > GetMarcSeries >diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl >index 900a5d8b99..5632551f6c 100755 >--- a/basket/downloadcart.pl >+++ b/basket/downloadcart.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode qw( encode ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl >index 8bc97420e1..0c8b9c2a28 100755 >--- a/basket/sendbasket.pl >+++ b/basket/sendbasket.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > use Carp qw( carp ); > use Try::Tiny qw( catch try ); >diff --git a/bookings/list.pl b/bookings/list.pl >index 65ace7a282..90e6ec2dfa 100755 >--- a/bookings/list.pl >+++ b/bookings/list.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl >index 82fa327c64..2264ca7e1b 100755 >--- a/catalogue/ISBDdetail.pl >+++ b/catalogue/ISBDdetail.pl >@@ -39,7 +39,7 @@ use HTML::Entities; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Biblio qw( GetBiblioData GetISBDView ); > use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber ); > use C4::Search qw( z3950_search_args enabled_staff_search_views ); >diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl >index 72cf4807c4..da12e9e009 100755 >--- a/catalogue/MARCdetail.pl >+++ b/catalogue/MARCdetail.pl >@@ -44,7 +44,7 @@ the items attached to the biblio > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use HTML::Entities; > > use C4::Auth qw( get_template_and_user ); >diff --git a/catalogue/detail.pl b/catalogue/detail.pl >index d5549762d6..bceef0e3a9 100755 >--- a/catalogue/detail.pl >+++ b/catalogue/detail.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use HTML::Entities; > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/catalogue/export.pl b/catalogue/export.pl >index a7c77c62f1..c5bab0a756 100755 >--- a/catalogue/export.pl >+++ b/catalogue/export.pl >@@ -4,7 +4,7 @@ use Modern::Perl; > use C4::Record; > use C4::Auth qw( get_template_and_user ); > use C4::Output; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Ris qw( marc2ris ); > > my $query = CGI->new; >diff --git a/catalogue/image.pl b/catalogue/image.pl >index e069ed1f60..08ef01dbe7 100755 >--- a/catalogue/image.pl >+++ b/catalogue/image.pl >@@ -25,7 +25,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( check_cookie_auth ); > use Koha::Biblios; >diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl >index 64e9b22507..ac02207fce 100755 >--- a/catalogue/imageviewer.pl >+++ b/catalogue/imageviewer.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Search qw( enabled_staff_search_views ); >diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl >index bee7e25325..673e726c28 100755 >--- a/catalogue/issuehistory.pl >+++ b/catalogue/issuehistory.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl >index 39f6604742..681c8bf756 100755 >--- a/catalogue/labeledMARCdetail.pl >+++ b/catalogue/labeledMARCdetail.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use HTML::Entities; > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl >index cdd6c09be0..d5f04ae2bd 100755 >--- a/catalogue/moredetail.pl >+++ b/catalogue/moredetail.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > use C4::Koha qw( GetAuthorisedValues ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use HTML::Entities; > use C4::Biblio qw( GetBiblioData GetFrameworkCode ); > use C4::Acquisition qw( GetOrderFromItemnumber GetBasket GetInvoice ); >diff --git a/catalogue/search-history.pl b/catalogue/search-history.pl >index 6e16e1cfc2..a8535f3962 100755 >--- a/catalogue/search-history.pl >+++ b/catalogue/search-history.pl >@@ -19,7 +19,7 @@ > # <https://www.gnu.org/licenses> > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Search::History; >diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl >index 80e4715902..4cc785ab42 100755 >--- a/catalogue/updateitem.pl >+++ b/catalogue/updateitem.pl >@@ -18,7 +18,7 @@ > # You should have received a copy of the GNU General Public License > # along with Koha; if not, see <https://www.gnu.org/licenses>. > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( checkauth ); > use C4::Context; > use C4::Output; >diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl >index 9c8c3e4ffb..92877f0a9e 100755 >--- a/cataloguing/addbooks.pl >+++ b/cataloguing/addbooks.pl >@@ -23,7 +23,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Breeding qw( BreedingSearch ); > use C4::Output qw( output_html_with_http_headers pagination_bar ); >diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl >index 5c3e200512..2d2a761c01 100755 >--- a/cataloguing/additem.pl >+++ b/cataloguing/additem.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user haspermission ); > use C4::Barcodes::ValueBuilder; >diff --git a/cataloguing/cataloging-home.pl b/cataloguing/cataloging-home.pl >index 0272a6c9e1..1cdf2a04c7 100755 >--- a/cataloguing/cataloging-home.pl >+++ b/cataloguing/cataloging-home.pl >@@ -17,7 +17,7 @@ > # > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_cataloguing_page_permissions get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/cataloguing/concerns.pl b/cataloguing/concerns.pl >index 32ca22e5a6..8090ac8b1b 100755 >--- a/cataloguing/concerns.pl >+++ b/cataloguing/concerns.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl >index b11d7238ee..3a8ec87bff 100755 >--- a/cataloguing/linkitem.pl >+++ b/cataloguing/linkitem.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Biblio qw( ModBiblio PrepHostMarcField ); >diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl >index 4ebc9c93bf..c6aca4525a 100755 >--- a/cataloguing/merge.pl >+++ b/cataloguing/merge.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl >index 8d497bb82e..d6da8dac4d 100755 >--- a/cataloguing/merge_ajax.pl >+++ b/cataloguing/merge_ajax.pl >@@ -2,7 +2,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; # need to check cookies before CGI parses the POST request > use JSON qw( encode_json ); > >diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl >index b27ed4090c..5244d23bfa 100755 >--- a/cataloguing/moveitem.pl >+++ b/cataloguing/moveitem.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Circulation qw( barcodedecode ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/cataloguing/plugin_launcher.pl b/cataloguing/plugin_launcher.pl >index 2ffbe6ac1d..a3b6724c4d 100755 >--- a/cataloguing/plugin_launcher.pl >+++ b/cataloguing/plugin_launcher.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > > use Koha::FrameworkPlugin; >diff --git a/cataloguing/value_builder/barcode.pl b/cataloguing/value_builder/barcode.pl >index 6ed165e260..1434d9211c 100755 >--- a/cataloguing/value_builder/barcode.pl >+++ b/cataloguing/value_builder/barcode.pl >@@ -29,7 +29,7 @@ use Koha::DateUtils qw( dt_from_string ); > > use Algorithm::CheckDigits qw( CheckDigits ); > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > my $input = CGI->new; > my ($auth_status) = >diff --git a/cataloguing/value_builder/barcode_manual.pl b/cataloguing/value_builder/barcode_manual.pl >index 4a9a9236f0..b008ca87b8 100755 >--- a/cataloguing/value_builder/barcode_manual.pl >+++ b/cataloguing/value_builder/barcode_manual.pl >@@ -27,7 +27,7 @@ use C4::Barcodes::ValueBuilder; > use C4::Biblio qw( GetMarcFromKohaField ); > use Koha::DateUtils qw( dt_from_string ); > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > my $input = CGI->new; > my ($auth_status) = >diff --git a/cataloguing/value_builder/callnumber-KU.pl b/cataloguing/value_builder/callnumber-KU.pl >index 654fa7b96c..88ef8bf563 100755 >--- a/cataloguing/value_builder/callnumber-KU.pl >+++ b/cataloguing/value_builder/callnumber-KU.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/cataloguing/value_builder/callnumber.pl b/cataloguing/value_builder/callnumber.pl >index 7bdeeeb3f5..957a951fbf 100755 >--- a/cataloguing/value_builder/callnumber.pl >+++ b/cataloguing/value_builder/callnumber.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/cataloguing/value_builder/dateaccessioned.pl b/cataloguing/value_builder/dateaccessioned.pl >index 877789823a..eea171934e 100755 >--- a/cataloguing/value_builder/dateaccessioned.pl >+++ b/cataloguing/value_builder/dateaccessioned.pl >@@ -21,7 +21,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > use C4::Context; > >diff --git a/cataloguing/value_builder/marc21_field_005.pl b/cataloguing/value_builder/marc21_field_005.pl >index a902082e5d..d4b56c7cfa 100755 >--- a/cataloguing/value_builder/marc21_field_005.pl >+++ b/cataloguing/value_builder/marc21_field_005.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > use C4::Context; > >diff --git a/cataloguing/value_builder/marc21_field_006.pl b/cataloguing/value_builder/marc21_field_006.pl >index 658af3ed1e..3b1aae62f9 100755 >--- a/cataloguing/value_builder/marc21_field_006.pl >+++ b/cataloguing/value_builder/marc21_field_006.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl >index ee93acf2e2..5c89136992 100755 >--- a/cataloguing/value_builder/marc21_field_007.pl >+++ b/cataloguing/value_builder/marc21_field_007.pl >@@ -22,7 +22,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/marc21_field_008.pl b/cataloguing/value_builder/marc21_field_008.pl >index 78219b224e..e33c9c4dd8 100755 >--- a/cataloguing/value_builder/marc21_field_008.pl >+++ b/cataloguing/value_builder/marc21_field_008.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl >index 2135d93c72..655e7d3647 100755 >--- a/cataloguing/value_builder/marc21_field_008_authorities.pl >+++ b/cataloguing/value_builder/marc21_field_008_authorities.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/marc21_field_008_classifications.pl b/cataloguing/value_builder/marc21_field_008_classifications.pl >index c872e58bdb..64ae945587 100755 >--- a/cataloguing/value_builder/marc21_field_008_classifications.pl >+++ b/cataloguing/value_builder/marc21_field_008_classifications.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/marc21_field_245h.pl b/cataloguing/value_builder/marc21_field_245h.pl >index 66cd162e8a..7b18004a51 100755 >--- a/cataloguing/value_builder/marc21_field_245h.pl >+++ b/cataloguing/value_builder/marc21_field_245h.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > use C4::Context; > >diff --git a/cataloguing/value_builder/marc21_field_260b.pl b/cataloguing/value_builder/marc21_field_260b.pl >index d9e14a82bb..082e0bd877 100755 >--- a/cataloguing/value_builder/marc21_field_260b.pl >+++ b/cataloguing/value_builder/marc21_field_260b.pl >@@ -27,7 +27,7 @@ biblioitems.publishercode > use Modern::Perl; > use C4::Context; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > use C4::Context; > >diff --git a/cataloguing/value_builder/marc21_leader.pl b/cataloguing/value_builder/marc21_leader.pl >index a88c7e6a5a..032da4af2a 100755 >--- a/cataloguing/value_builder/marc21_leader.pl >+++ b/cataloguing/value_builder/marc21_leader.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/cataloguing/value_builder/marc21_leader_authorities.pl b/cataloguing/value_builder/marc21_leader_authorities.pl >index 4b4487243b..a3da4e514d 100755 >--- a/cataloguing/value_builder/marc21_leader_authorities.pl >+++ b/cataloguing/value_builder/marc21_leader_authorities.pl >@@ -22,7 +22,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl >index 5462159680..d996ded9ac 100755 >--- a/cataloguing/value_builder/marc21_linking_section.pl >+++ b/cataloguing/value_builder/marc21_linking_section.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; > use C4::Search qw( new_record_from_zebra ); >diff --git a/cataloguing/value_builder/marc21_orgcode.pl b/cataloguing/value_builder/marc21_orgcode.pl >index 7fbb8f6950..3748d4ab1b 100755 >--- a/cataloguing/value_builder/marc21_orgcode.pl >+++ b/cataloguing/value_builder/marc21_orgcode.pl >@@ -24,7 +24,7 @@ use Modern::Perl; > use C4::Context; > > use Koha::Libraries; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > > my $input = CGI->new; >diff --git a/cataloguing/value_builder/stocknumber.pl b/cataloguing/value_builder/stocknumber.pl >index a9aca79be1..f9fbc92cf1 100755 >--- a/cataloguing/value_builder/stocknumber.pl >+++ b/cataloguing/value_builder/stocknumber.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > use C4::Context; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > my $input = CGI->new; > my ($auth_status) = >diff --git a/cataloguing/value_builder/stocknumberAV.pl b/cataloguing/value_builder/stocknumberAV.pl >index 891cf1a73e..ed04b78f9d 100755 >--- a/cataloguing/value_builder/stocknumberAV.pl >+++ b/cataloguing/value_builder/stocknumberAV.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/cataloguing/value_builder/stocknumberam123.pl b/cataloguing/value_builder/stocknumberam123.pl >index 4bf6045020..393a4c50cb 100755 >--- a/cataloguing/value_builder/stocknumberam123.pl >+++ b/cataloguing/value_builder/stocknumberam123.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/cataloguing/value_builder/unimarc_field_009_ppn.pl b/cataloguing/value_builder/unimarc_field_009_ppn.pl >index 1bd7adf461..3d0a075ba7 100755 >--- a/cataloguing/value_builder/unimarc_field_009_ppn.pl >+++ b/cataloguing/value_builder/unimarc_field_009_ppn.pl >@@ -23,8 +23,8 @@ use Modern::Perl; > use LWP::Simple qw(); > use LWP::UserAgent; > use JSON; >-use C4::Auth qw ( get_template_and_user ); >-use C4::Output qw ( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); > > my $res; > my $builder = sub { >diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl >index 71c3707220..a05ae50f69 100755 >--- a/cataloguing/value_builder/unimarc_field_010.pl >+++ b/cataloguing/value_builder/unimarc_field_010.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl >index ad3c0549c6..ac0dec958b 100755 >--- a/cataloguing/value_builder/unimarc_field_100.pl >+++ b/cataloguing/value_builder/unimarc_field_100.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_100_authorities.pl b/cataloguing/value_builder/unimarc_field_100_authorities.pl >index c8fa9b42ac..e4b67a7711 100755 >--- a/cataloguing/value_builder/unimarc_field_100_authorities.pl >+++ b/cataloguing/value_builder/unimarc_field_100_authorities.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl >index 133da61f25..b0c1c74b97 100755 >--- a/cataloguing/value_builder/unimarc_field_105.pl >+++ b/cataloguing/value_builder/unimarc_field_105.pl >@@ -23,7 +23,7 @@ use strict; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl >index ce19338a85..bebc3bbda8 100755 >--- a/cataloguing/value_builder/unimarc_field_106.pl >+++ b/cataloguing/value_builder/unimarc_field_106.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl >index 5ef09c18cb..636f2c05fa 100755 >--- a/cataloguing/value_builder/unimarc_field_110.pl >+++ b/cataloguing/value_builder/unimarc_field_110.pl >@@ -23,7 +23,7 @@ use strict; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl >index 1249353a78..850babfd5c 100755 >--- a/cataloguing/value_builder/unimarc_field_115a.pl >+++ b/cataloguing/value_builder/unimarc_field_115a.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl >index 4767e506ee..19e5bb8925 100755 >--- a/cataloguing/value_builder/unimarc_field_115b.pl >+++ b/cataloguing/value_builder/unimarc_field_115b.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl >index a683cc7bb8..bb70d2dee2 100755 >--- a/cataloguing/value_builder/unimarc_field_116.pl >+++ b/cataloguing/value_builder/unimarc_field_116.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl >index ff3b1e781e..5b2b86d1a3 100755 >--- a/cataloguing/value_builder/unimarc_field_117.pl >+++ b/cataloguing/value_builder/unimarc_field_117.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl >index fb38ba221d..ee0dad063b 100755 >--- a/cataloguing/value_builder/unimarc_field_120.pl >+++ b/cataloguing/value_builder/unimarc_field_120.pl >@@ -23,7 +23,7 @@ use strict; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl >index 08f5f13227..a25b2bcea0 100755 >--- a/cataloguing/value_builder/unimarc_field_121a.pl >+++ b/cataloguing/value_builder/unimarc_field_121a.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl >index fdb831e087..a19b2a511a 100755 >--- a/cataloguing/value_builder/unimarc_field_121b.pl >+++ b/cataloguing/value_builder/unimarc_field_121b.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl >index de6d18d41c..0a9512326a 100755 >--- a/cataloguing/value_builder/unimarc_field_122.pl >+++ b/cataloguing/value_builder/unimarc_field_122.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl >index bca028f8c1..15db825d4e 100755 >--- a/cataloguing/value_builder/unimarc_field_123a.pl >+++ b/cataloguing/value_builder/unimarc_field_123a.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_123defg.pl b/cataloguing/value_builder/unimarc_field_123defg.pl >index 148064b9bc..a1bf7bb420 100755 >--- a/cataloguing/value_builder/unimarc_field_123defg.pl >+++ b/cataloguing/value_builder/unimarc_field_123defg.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl >index 3e4b7ee3d6..7efe16210b 100755 >--- a/cataloguing/value_builder/unimarc_field_123i.pl >+++ b/cataloguing/value_builder/unimarc_field_123i.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl >index 982370df49..86933671b7 100755 >--- a/cataloguing/value_builder/unimarc_field_123j.pl >+++ b/cataloguing/value_builder/unimarc_field_123j.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl >index eb95c9bca5..f7749ce8bc 100755 >--- a/cataloguing/value_builder/unimarc_field_124.pl >+++ b/cataloguing/value_builder/unimarc_field_124.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl >index 3ce9137d15..4e252ce8d8 100755 >--- a/cataloguing/value_builder/unimarc_field_124a.pl >+++ b/cataloguing/value_builder/unimarc_field_124a.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl >index 0790b99ccc..76e5959c28 100755 >--- a/cataloguing/value_builder/unimarc_field_124b.pl >+++ b/cataloguing/value_builder/unimarc_field_124b.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl >index 01ef00d233..d209d6bf01 100755 >--- a/cataloguing/value_builder/unimarc_field_124c.pl >+++ b/cataloguing/value_builder/unimarc_field_124c.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl >index f36af112f0..72b44095cc 100755 >--- a/cataloguing/value_builder/unimarc_field_124d.pl >+++ b/cataloguing/value_builder/unimarc_field_124d.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl >index 853598384f..857e53ff22 100755 >--- a/cataloguing/value_builder/unimarc_field_124e.pl >+++ b/cataloguing/value_builder/unimarc_field_124e.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl >index 5eec42f22c..7e017ece9e 100755 >--- a/cataloguing/value_builder/unimarc_field_124f.pl >+++ b/cataloguing/value_builder/unimarc_field_124f.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl >index abef839bbd..fd71a2a66e 100755 >--- a/cataloguing/value_builder/unimarc_field_124g.pl >+++ b/cataloguing/value_builder/unimarc_field_124g.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl >index 3f0d73f390..3fb25354ef 100755 >--- a/cataloguing/value_builder/unimarc_field_125.pl >+++ b/cataloguing/value_builder/unimarc_field_125.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl >index ecf56433fd..32dc99f93b 100755 >--- a/cataloguing/value_builder/unimarc_field_125a.pl >+++ b/cataloguing/value_builder/unimarc_field_125a.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl >index e1d163b5f9..a890897243 100755 >--- a/cataloguing/value_builder/unimarc_field_125b.pl >+++ b/cataloguing/value_builder/unimarc_field_125b.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl >index eb95c9bca5..f7749ce8bc 100755 >--- a/cataloguing/value_builder/unimarc_field_126.pl >+++ b/cataloguing/value_builder/unimarc_field_126.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl >index 7677fb5722..621b7666ac 100755 >--- a/cataloguing/value_builder/unimarc_field_126a.pl >+++ b/cataloguing/value_builder/unimarc_field_126a.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl >index dc3dca40ae..47fa61868a 100755 >--- a/cataloguing/value_builder/unimarc_field_126b.pl >+++ b/cataloguing/value_builder/unimarc_field_126b.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl >index 26512916f5..efe440fcdf 100755 >--- a/cataloguing/value_builder/unimarc_field_127.pl >+++ b/cataloguing/value_builder/unimarc_field_127.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl >index e7e28a6ffa..c9be9eb98b 100755 >--- a/cataloguing/value_builder/unimarc_field_128a.pl >+++ b/cataloguing/value_builder/unimarc_field_128a.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl >index 4247fac790..bda9b067bb 100755 >--- a/cataloguing/value_builder/unimarc_field_128b.pl >+++ b/cataloguing/value_builder/unimarc_field_128b.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl >index d604a1c730..ef6eb4c3cd 100755 >--- a/cataloguing/value_builder/unimarc_field_128c.pl >+++ b/cataloguing/value_builder/unimarc_field_128c.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl >index ff1d4b4818..6a397b2a79 100755 >--- a/cataloguing/value_builder/unimarc_field_130.pl >+++ b/cataloguing/value_builder/unimarc_field_130.pl >@@ -23,7 +23,7 @@ use strict; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl >index ba7646e7c0..36881e77e0 100755 >--- a/cataloguing/value_builder/unimarc_field_135a.pl >+++ b/cataloguing/value_builder/unimarc_field_135a.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl >index 27f17aec94..172dd8acab 100755 >--- a/cataloguing/value_builder/unimarc_field_140.pl >+++ b/cataloguing/value_builder/unimarc_field_140.pl >@@ -23,7 +23,7 @@ use strict; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl >index 501b07b211..92567aa6a6 100755 >--- a/cataloguing/value_builder/unimarc_field_141.pl >+++ b/cataloguing/value_builder/unimarc_field_141.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_field_181-2.pl b/cataloguing/value_builder/unimarc_field_181-2.pl >index 9774ef3c2b..f8d48f3b36 100755 >--- a/cataloguing/value_builder/unimarc_field_181-2.pl >+++ b/cataloguing/value_builder/unimarc_field_181-2.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_181a.pl b/cataloguing/value_builder/unimarc_field_181a.pl >index b4d0b06e5a..5d67b0b950 100755 >--- a/cataloguing/value_builder/unimarc_field_181a.pl >+++ b/cataloguing/value_builder/unimarc_field_181a.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_181b.pl b/cataloguing/value_builder/unimarc_field_181b.pl >index a8632afbdb..b9541cbc01 100755 >--- a/cataloguing/value_builder/unimarc_field_181b.pl >+++ b/cataloguing/value_builder/unimarc_field_181b.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use Data::Dumper; >diff --git a/cataloguing/value_builder/unimarc_field_181c.pl b/cataloguing/value_builder/unimarc_field_181c.pl >index 192614dfe3..d30ebe4e1a 100755 >--- a/cataloguing/value_builder/unimarc_field_181c.pl >+++ b/cataloguing/value_builder/unimarc_field_181c.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_182-2.pl b/cataloguing/value_builder/unimarc_field_182-2.pl >index 910c596281..afd00ae0ed 100755 >--- a/cataloguing/value_builder/unimarc_field_182-2.pl >+++ b/cataloguing/value_builder/unimarc_field_182-2.pl >@@ -21,7 +21,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_182a.pl b/cataloguing/value_builder/unimarc_field_182a.pl >index f2620cca36..6a4d999263 100755 >--- a/cataloguing/value_builder/unimarc_field_182a.pl >+++ b/cataloguing/value_builder/unimarc_field_182a.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_182c.pl b/cataloguing/value_builder/unimarc_field_182c.pl >index 9eafe9516c..33404515d0 100755 >--- a/cataloguing/value_builder/unimarc_field_182c.pl >+++ b/cataloguing/value_builder/unimarc_field_182c.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_183-2.pl b/cataloguing/value_builder/unimarc_field_183-2.pl >index 2ee42c4306..5cb11b1b89 100755 >--- a/cataloguing/value_builder/unimarc_field_183-2.pl >+++ b/cataloguing/value_builder/unimarc_field_183-2.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_183a.pl b/cataloguing/value_builder/unimarc_field_183a.pl >index 993ffde3e7..3bec9719bd 100755 >--- a/cataloguing/value_builder/unimarc_field_183a.pl >+++ b/cataloguing/value_builder/unimarc_field_183a.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl >index 6a988b6dcc..880d3d481e 100755 >--- a/cataloguing/value_builder/unimarc_field_210c.pl >+++ b/cataloguing/value_builder/unimarc_field_210c.pl >@@ -22,7 +22,7 @@ use C4::Auth qw( get_template_and_user ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( pagination_bar output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Search; > use C4::Koha qw( getnbpages ); > use C4::AuthoritiesMarc qw( GetAuthority SearchAuthorities ); >diff --git a/cataloguing/value_builder/unimarc_field_210c_bis.pl b/cataloguing/value_builder/unimarc_field_210c_bis.pl >index 36058c5850..98705b5dc1 100755 >--- a/cataloguing/value_builder/unimarc_field_210c_bis.pl >+++ b/cataloguing/value_builder/unimarc_field_210c_bis.pl >@@ -41,7 +41,7 @@ It need : > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Auth qw( get_template_and_user ); >diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl >index 8906b56b31..73cc5e1fed 100755 >--- a/cataloguing/value_builder/unimarc_field_225a.pl >+++ b/cataloguing/value_builder/unimarc_field_225a.pl >@@ -42,7 +42,7 @@ use strict; > > #use warnings; FIXME - Bug 2505 > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Auth qw( get_template_and_user ); >diff --git a/cataloguing/value_builder/unimarc_field_283-2.pl b/cataloguing/value_builder/unimarc_field_283-2.pl >index 3ead432bb1..1173e46968 100755 >--- a/cataloguing/value_builder/unimarc_field_283-2.pl >+++ b/cataloguing/value_builder/unimarc_field_283-2.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_283a.pl b/cataloguing/value_builder/unimarc_field_283a.pl >index e0d7f4354c..c6e780ed18 100755 >--- a/cataloguing/value_builder/unimarc_field_283a.pl >+++ b/cataloguing/value_builder/unimarc_field_283a.pl >@@ -23,7 +23,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_325h.pl b/cataloguing/value_builder/unimarc_field_325h.pl >index c082e1f816..8b1acf8b2e 100755 >--- a/cataloguing/value_builder/unimarc_field_325h.pl >+++ b/cataloguing/value_builder/unimarc_field_325h.pl >@@ -25,7 +25,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_325j.pl b/cataloguing/value_builder/unimarc_field_325j.pl >index df8ace708b..ffe7237020 100755 >--- a/cataloguing/value_builder/unimarc_field_325j.pl >+++ b/cataloguing/value_builder/unimarc_field_325j.pl >@@ -25,7 +25,7 @@ use Date::Calc; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl >index 09d5b90600..230e2512fd 100755 >--- a/cataloguing/value_builder/unimarc_field_4XX.pl >+++ b/cataloguing/value_builder/unimarc_field_4XX.pl >@@ -21,7 +21,7 @@ use strict; > > #use warnings; FIXME - Bug 2505 > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; > use C4::Search qw( new_record_from_zebra ); >diff --git a/cataloguing/value_builder/unimarc_field_686a.pl b/cataloguing/value_builder/unimarc_field_686a.pl >index 561d44e714..f71f478004 100755 >--- a/cataloguing/value_builder/unimarc_field_686a.pl >+++ b/cataloguing/value_builder/unimarc_field_686a.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl >index b1ebc0a1fb..ed1623cf05 100755 >--- a/cataloguing/value_builder/unimarc_leader.pl >+++ b/cataloguing/value_builder/unimarc_leader.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > > use C4::Search; >diff --git a/cataloguing/value_builder/unimarc_leader_authorities.pl b/cataloguing/value_builder/unimarc_leader_authorities.pl >index 48e6a99bfd..c5e1287f2a 100755 >--- a/cataloguing/value_builder/unimarc_leader_authorities.pl >+++ b/cataloguing/value_builder/unimarc_leader_authorities.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use Koha::Util::FrameworkPlugin qw(wrapper); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/cataloguing/value_builder/upload.pl b/cataloguing/value_builder/upload.pl >index be262ec708..584aae9378 100755 >--- a/cataloguing/value_builder/upload.pl >+++ b/cataloguing/value_builder/upload.pl >@@ -30,7 +30,7 @@ use Modern::Perl; > # the possibility to delete the uploaded file. If the field is empty, you > # can upload a new file. > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_cookie_auth ); > use C4::Context; > my $input = CGI->new; >diff --git a/cataloguing/value_builder/validate_isbn.pl b/cataloguing/value_builder/validate_isbn.pl >index a67784084f..da8e6f2444 100755 >--- a/cataloguing/value_builder/validate_isbn.pl >+++ b/cataloguing/value_builder/validate_isbn.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/cataloguing/value_builder/validate_issn.pl b/cataloguing/value_builder/validate_issn.pl >index ad712bc572..686e26f886 100755 >--- a/cataloguing/value_builder/validate_issn.pl >+++ b/cataloguing/value_builder/validate_issn.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl >index 52ab099777..65795bec55 100755 >--- a/cataloguing/ysearch.pl >+++ b/cataloguing/ysearch.pl >@@ -25,7 +25,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Charset qw( nsb_clean ); > use C4::Auth qw( check_cookie_auth ); >diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl >index a80cd12242..00b59f3752 100755 >--- a/cataloguing/z3950_search.pl >+++ b/cataloguing/z3950_search.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/changelanguage.pl b/changelanguage.pl >index 36704be7e6..8fa95fbe2e 100755 >--- a/changelanguage.pl >+++ b/changelanguage.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Templates; > use Koha::Util::Navigation; > >diff --git a/circ/add_message.pl b/circ/add_message.pl >index 33dc1d8c60..1cd634b1a0 100755 >--- a/circ/add_message.pl >+++ b/circ/add_message.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit ); >diff --git a/circ/article-requests.pl b/circ/article-requests.pl >index 73c2786dac..d655266246 100755 >--- a/circ/article-requests.pl >+++ b/circ/article-requests.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/circ/bookcount.pl b/circ/bookcount.pl >index d1431df9d0..770da20fb1 100755 >--- a/circ/bookcount.pl >+++ b/circ/bookcount.pl >@@ -21,7 +21,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_and_exit output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl >index 8e8f4ade2f..2f714383dc 100755 >--- a/circ/branchoverdues.pl >+++ b/circ/branchoverdues.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > use C4::Context; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::Overdues qw( GetOverduesForBranch ); >diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl >index 9799b3c64a..1fcd9c1abb 100755 >--- a/circ/branchtransfers.pl >+++ b/circ/branchtransfers.pl >@@ -21,7 +21,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Circulation qw( transferbook barcodedecode ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Reserves qw( ModReserve ModReserveAffect ); >diff --git a/circ/checkout-notes.pl b/circ/checkout-notes.pl >index f47da3f513..788635641a 100755 >--- a/circ/checkout-notes.pl >+++ b/circ/checkout-notes.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/circ/circulation-home.pl b/circ/circulation-home.pl >index ca86f10363..93e8401fd4 100755 >--- a/circ/circulation-home.pl >+++ b/circ/circulation-home.pl >@@ -17,7 +17,7 @@ > # > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/circ/circulation.pl b/circ/circulation.pl >index dddd2a1f5f..1ddd674908 100755 >--- a/circ/circulation.pl >+++ b/circ/circulation.pl >@@ -25,7 +25,7 @@ > # FIXME There are too many calls to Koha::Patrons->find in this script > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI::Escape qw( uri_escape_utf8 ); > use DateTime; > use DateTime::Duration; >diff --git a/circ/curbside_pickups.pl b/circ/curbside_pickups.pl >index 305d3cf595..f7a99bc1ef 100755 >--- a/circ/curbside_pickups.pl >+++ b/circ/curbside_pickups.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/circ/del_message.pl b/circ/del_message.pl >index c68d2f9621..3961fa768d 100755 >--- a/circ/del_message.pl >+++ b/circ/del_message.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output; >diff --git a/circ/hold-transfer-slip.pl b/circ/hold-transfer-slip.pl >index 8b4b5cd297..0933daa6c6 100755 >--- a/circ/hold-transfer-slip.pl >+++ b/circ/hold-transfer-slip.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_session get_template_and_user ); > use C4::Reserves qw( ReserveSlip ); > >diff --git a/circ/overdue.pl b/circ/overdue.pl >index 2d58dd27ee..a7dd3ee5fd 100755 >--- a/circ/overdue.pl >+++ b/circ/overdue.pl >@@ -432,15 +432,50 @@ sub build_csv { > my @lines = (); > > # build header ... >- my @keys = >- qw ( duedate title author borrowertitle firstname surname phone barcode email address address2 zipcode city country >- branchcode datelastissued itemcallnumber biblionumber borrowernumber itemnum issuedate replacementprice itemnotes_nonpublic streetnumber streettype); >+ my @keys = qw( duedate >+ title >+ author >+ borrowertitle >+ firstname >+ surname >+ phone >+ barcode >+ email >+ address >+ address2 >+ zipcode >+ city >+ country >+ branchcode >+ datelastissued >+ itemcallnumber >+ biblionumber >+ borrowernumber >+ itemnum >+ issuedate >+ replacementprice >+ itemnotes_nonpublic >+ streetnumber >+ streettype >+ ); > my $csv = Text::CSV_XS->new( { formula => "empty" } ); > $csv->combine(@keys); > push @lines, $csv->string(); > >- my @private_keys = >- qw( borrowertitle firstname surname phone email address address2 zipcode city country streetnumber streettype ); >+ my @private_keys = qw( >+ borrowertitle >+ firstname >+ surname >+ phone >+ email >+ address >+ address2 >+ zipcode >+ city >+ country >+ streetnumber >+ streettype >+ ); > > # ... and rest of report > foreach my $overdue ( @{$overdues} ) { >diff --git a/circ/pendingbookings.pl b/circ/pendingbookings.pl >index 60115680c3..9cf5298aaf 100755 >--- a/circ/pendingbookings.pl >+++ b/circ/pendingbookings.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > >diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl >index 140b7b0bd1..a899e709d1 100755 >--- a/circ/pendingreserves.pl >+++ b/circ/pendingreserves.pl >@@ -25,7 +25,7 @@ use Encode; > > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Items; > use Koha::Biblios; >diff --git a/circ/renew.pl b/circ/renew.pl >index 523070ad52..9826ba16ef 100755 >--- a/circ/renew.pl >+++ b/circ/renew.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl >index 9810e3c42c..2640a93aa2 100755 >--- a/circ/reserveratios.pl >+++ b/circ/reserveratios.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use POSIX qw( ceil ); > > use C4::Context; >diff --git a/circ/returns.pl b/circ/returns.pl >index 97b2353490..92be501802 100755 >--- a/circ/returns.pl >+++ b/circ/returns.pl >@@ -31,7 +31,7 @@ use Modern::Perl; > > # FIXME There are weird things going on with $patron and $borrowernumber in this script > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use DateTime; > > use C4::Auth qw( get_template_and_user get_session haspermission ); >diff --git a/circ/set-library.pl b/circ/set-library.pl >index c1912b56f6..15169ea805 100755 >--- a/circ/set-library.pl >+++ b/circ/set-library.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl >index b76d7b273d..ecb385175f 100755 >--- a/circ/transfer-slip.pl >+++ b/circ/transfer-slip.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_session get_template_and_user ); > use C4::Circulation qw( TransferSlip ); > >diff --git a/circ/transfers_to_send.pl b/circ/transfers_to_send.pl >index 0b6690ae27..5fd6a1b551 100755 >--- a/circ/transfers_to_send.pl >+++ b/circ/transfers_to_send.pl >@@ -22,7 +22,7 @@ > # See also bug 22569. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl >index 1b7d135a31..80e63f95dc 100755 >--- a/circ/transferstoreceive.pl >+++ b/circ/transferstoreceive.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl >index 460c5d6ba9..c8d073e157 100755 >--- a/circ/view_holdsqueue.pl >+++ b/circ/view_holdsqueue.pl >@@ -22,7 +22,7 @@ This script displays items in the tmp_holdsqueue table > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::HoldsQueue qw( GetHoldsQueueItems ); >diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl >index 7c5d58cc49..057e1c8027 100755 >--- a/circ/waitingreserves.pl >+++ b/circ/waitingreserves.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/course_reserves/add_items.pl b/course_reserves/add_items.pl >index d367dd2985..bffc7ddc32 100755 >--- a/course_reserves/add_items.pl >+++ b/course_reserves/add_items.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Circulation qw( barcodedecode ); >diff --git a/course_reserves/course-details.pl b/course_reserves/course-details.pl >index 793ab6f818..8a6b0e9eb3 100755 >--- a/course_reserves/course-details.pl >+++ b/course_reserves/course-details.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/course_reserves/course-reserves.pl b/course_reserves/course-reserves.pl >index 1cb5949b83..18e529b326 100755 >--- a/course_reserves/course-reserves.pl >+++ b/course_reserves/course-reserves.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/course_reserves/course.pl b/course_reserves/course.pl >index 2ed9814a4e..0446c5537b 100755 >--- a/course_reserves/course.pl >+++ b/course_reserves/course.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/course_reserves/mod_course.pl b/course_reserves/mod_course.pl >index db54c72094..51c5aa9078 100755 >--- a/course_reserves/mod_course.pl >+++ b/course_reserves/mod_course.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output; > use C4::Reserves; >diff --git a/docs/CAS/CASProxy/examples/koha_webservice.pl b/docs/CAS/CASProxy/examples/koha_webservice.pl >index 7670fcbd65..2c28b10a91 100755 >--- a/docs/CAS/CASProxy/examples/koha_webservice.pl >+++ b/docs/CAS/CASProxy/examples/koha_webservice.pl >@@ -42,7 +42,7 @@ binmode( STDOUT, ":encoding(UTF-8)" ); > use C4::Auth qw(check_api_auth); > use C4::Output; > use C4::Context; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $cgi = CGI->new; > >diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl >index b91e996ad6..edec408873 100755 >--- a/docs/CAS/CASProxy/examples/proxy_cas.pl >+++ b/docs/CAS/CASProxy/examples/proxy_cas.pl >@@ -29,7 +29,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Authen::CAS::Client; > > # URL Of the CAS Server >diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl >index d248f72ea7..ccb18844bc 100755 >--- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl >+++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl >@@ -26,7 +26,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Authen::CAS::Client; > use Storable qw( nstore_fd ); > >diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl >index 101eb84d01..b8ad3e6579 100755 >--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl >+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl >@@ -31,7 +31,7 @@ This PGTIOU will allow us to retrieve the matching PGTID > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Authen::CAS::Client; > use Storable qw( fd_retrieve ); > use LWP::Simple qw( get ); >diff --git a/erm/erm.pl b/erm/erm.pl >index cfdb8c0c86..53caa4c2a2 100755 >--- a/erm/erm.pl >+++ b/erm/erm.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/errors/400.pl b/errors/400.pl >index 9edc056413..8efedea3ef 100755 >--- a/errors/400.pl >+++ b/errors/400.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/errors/401.pl b/errors/401.pl >index cdabefc1d7..bf0cf47d2c 100755 >--- a/errors/401.pl >+++ b/errors/401.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/errors/402.pl b/errors/402.pl >index 30ad2f6916..357c052006 100755 >--- a/errors/402.pl >+++ b/errors/402.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/errors/403.pl b/errors/403.pl >index 811f741387..5448ecfc97 100755 >--- a/errors/403.pl >+++ b/errors/403.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/errors/404.pl b/errors/404.pl >index 13953dcc03..44a4d4e3dd 100755 >--- a/errors/404.pl >+++ b/errors/404.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/errors/500.pl b/errors/500.pl >index a585f484bb..6a28045cc9 100755 >--- a/errors/500.pl >+++ b/errors/500.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/help.pl b/help.pl >index add4c9b458..a05037b107 100755 >--- a/help.pl >+++ b/help.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl >index 9d1e08384b..06f1ddebd9 100755 >--- a/installer/data/mysql/updatedatabase.pl >+++ b/installer/data/mysql/updatedatabase.pl >@@ -43,7 +43,7 @@ use Koha::Database; > use Koha; > use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Caches; >-use Koha::Installer::Output qw ( say_failure ); >+use Koha::Installer::Output qw( say_failure ); > use Koha::Plugins; > > use MARC::Record; >diff --git a/installer/install.pl b/installer/install.pl >index d1d5f0c770..3b7e11e51d 100755 >--- a/installer/install.pl >+++ b/installer/install.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > use diagnostics; > > use C4::InstallAuth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use POSIX; > use HTML::FromANSI::Tiny::Bootstrap; > >diff --git a/installer/onboarding.pl b/installer/onboarding.pl >index 7c3c3e6174..a8b9458694 100755 >--- a/installer/onboarding.pl >+++ b/installer/onboarding.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > use C4::Context; > use C4::InstallAuth qw( checkauth get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::Patrons; > use Koha::Libraries; >diff --git a/labels/barcode-print.pl b/labels/barcode-print.pl >index ab579af9cc..d6c7241f94 100755 >--- a/labels/barcode-print.pl >+++ b/labels/barcode-print.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl >index 24bf1b5264..42c2785752 100755 >--- a/labels/label-create-csv.pl >+++ b/labels/label-create-csv.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Text::CSV_XS; > > use C4::Labels; >diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl >index bbdeccc939..82d7439547 100755 >--- a/labels/label-create-pdf.pl >+++ b/labels/label-create-pdf.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Creators; > use C4::Labels; >diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl >index 52f9e99194..6751e46020 100755 >--- a/labels/label-create-xml.pl >+++ b/labels/label-create-xml.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use XML::Simple; > > use C4::Labels; >diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl >index ce33d69e50..c94eb2eb6f 100755 >--- a/labels/label-edit-batch.pl >+++ b/labels/label-edit-batch.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Circulation qw( barcodedecode ); >diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl >index 7ff8129598..ea121c1636 100755 >--- a/labels/label-edit-layout.pl >+++ b/labels/label-edit-layout.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use POSIX; > > use C4::Auth qw( get_template_and_user ); >diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl >index 0100134582..3941a6d4f9 100755 >--- a/labels/label-edit-profile.pl >+++ b/labels/label-edit-profile.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/labels/label-edit-range.pl b/labels/label-edit-range.pl >index 2c3aef4c74..fc8bcaf693 100755 >--- a/labels/label-edit-range.pl >+++ b/labels/label-edit-range.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl >index 7a57ea1402..60fd353462 100755 >--- a/labels/label-edit-template.pl >+++ b/labels/label-edit-template.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/labels/label-home.pl b/labels/label-home.pl >index d92bf0b3e2..f42dd2765f 100755 >--- a/labels/label-home.pl >+++ b/labels/label-home.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl >index dac22ace16..7abbb32dad 100755 >--- a/labels/label-item-search.pl >+++ b/labels/label-item-search.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use POSIX qw( ceil ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/labels/label-manage.pl b/labels/label-manage.pl >index d0a33d6da0..c1c88a6708 100755 >--- a/labels/label-manage.pl >+++ b/labels/label-manage.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/labels/label-print.pl b/labels/label-print.pl >index 857007aa80..63c863a7f3 100755 >--- a/labels/label-print.pl >+++ b/labels/label-print.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl >index a3555216c2..32d147f3e9 100755 >--- a/labels/spinelabel-home.pl >+++ b/labels/spinelabel-home.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl >index 98f89563a6..8a464b62ab 100755 >--- a/labels/spinelabel-print.pl >+++ b/labels/spinelabel-print.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/mainpage.pl b/mainpage.pl >index 21a1ad3c44..435b30b345 100755 >--- a/mainpage.pl >+++ b/mainpage.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::Koha; >diff --git a/members/accountline-details.pl b/members/accountline-details.pl >index f3e828e791..84aacb335a 100755 >--- a/members/accountline-details.pl >+++ b/members/accountline-details.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/members/alert-subscriptions.pl b/members/alert-subscriptions.pl >index fce4914b5a..a4eded2f3d 100755 >--- a/members/alert-subscriptions.pl >+++ b/members/alert-subscriptions.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/members/boraccount.pl b/members/boraccount.pl >index 19b6f8d731..a0f935408c 100755 >--- a/members/boraccount.pl >+++ b/members/boraccount.pl >@@ -25,7 +25,7 @@ use URI::Escape qw( uri_unescape ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Members; > use C4::Accounts; > use C4::Letters; >diff --git a/members/deletemem.pl b/members/deletemem.pl >index a244289895..6b01ddf131 100755 >--- a/members/deletemem.pl >+++ b/members/deletemem.pl >@@ -23,7 +23,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Try::Tiny qw( catch try ); > >diff --git a/members/files.pl b/members/files.pl >index 08cb7fba6f..61dc136b18 100755 >--- a/members/files.pl >+++ b/members/files.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/members/holdshistory.pl b/members/holdshistory.pl >index baaf2a513d..24ca8e1f80 100755 >--- a/members/holdshistory.pl >+++ b/members/holdshistory.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/members/ill-requests.pl b/members/ill-requests.pl >index 959b6d58b3..e9a368603c 100755 >--- a/members/ill-requests.pl >+++ b/members/ill-requests.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); > use JSON qw( encode_json ); >diff --git a/members/mancredit.pl b/members/mancredit.pl >index 039e9df28e..7b7ab6bab3 100755 >--- a/members/mancredit.pl >+++ b/members/mancredit.pl >@@ -25,7 +25,7 @@ use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Members; > use C4::Accounts; >diff --git a/members/maninvoice.pl b/members/maninvoice.pl >index a24172e665..ed8596fa67 100755 >--- a/members/maninvoice.pl >+++ b/members/maninvoice.pl >@@ -28,7 +28,7 @@ use URI::Escape qw( uri_escape_utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Members; > use C4::Accounts; > >@@ -140,7 +140,7 @@ if ( $op eq 'cud-add' ) { > borrowernumber => $borrowernumber > }, > { order_by => { -desc => 'returndate' }, rows => 1 } >- )->next; >+ )->next; > $issue_id = $checkout ? $checkout->issue_id : undef; > } > } >diff --git a/members/member-flags.pl b/members/member-flags.pl >index ccc6092e6b..1567b9e51b 100755 >--- a/members/member-flags.pl >+++ b/members/member-flags.pl >@@ -6,7 +6,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user get_all_subpermissions get_user_subpermissions ); > use C4::Context; >diff --git a/members/member-password.pl b/members/member-password.pl >index bb319683b8..8afd436183 100755 >--- a/members/member-password.pl >+++ b/members/member-password.pl >@@ -9,7 +9,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); > use C4::Context; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Patrons; > use Koha::Patron::Categories; >diff --git a/members/memberentry.pl b/members/memberentry.pl >index bade3ad35e..708bc0165d 100755 >--- a/members/memberentry.pl >+++ b/members/memberentry.pl >@@ -23,7 +23,7 @@ use Modern::Perl; > use Try::Tiny; > > # external modules >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Scalar::Util qw( blessed ); > > # internal modules >@@ -301,8 +301,7 @@ if ( ( $op eq 'cud-save' || $op eq 'cud-insert' ) && $guarantors_to_be_validated > # If $patron's categorycode is about to change, check guarantor requirements against > # the new category but keep the original $patron object intact > # (this clone()s the $patron) >- ( bless {%$patron}, ref $patron ) >- ->categorycode($categorycode) >+ ( bless {%$patron}, ref $patron )->categorycode($categorycode) > ->can_be_guaranteed_by($guarantors_to_be_validated); > } > } else { >diff --git a/members/members-home.pl b/members/members-home.pl >index 2956f27013..146b07698e 100755 >--- a/members/members-home.pl >+++ b/members/members-home.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/members/members-update-do.pl b/members/members-update-do.pl >index 8e7998bd06..1852a2bcc7 100755 >--- a/members/members-update-do.pl >+++ b/members/members-update-do.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( checkauth ); > use C4::Output; > use C4::Context; >diff --git a/members/members-update.pl b/members/members-update.pl >index 11e9973e8f..5866ce49d4 100755 >--- a/members/members-update.pl >+++ b/members/members-update.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/members/merge-patrons.pl b/members/merge-patrons.pl >index dce1e5e94c..2907fd9162 100755 >--- a/members/merge-patrons.pl >+++ b/members/merge-patrons.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/members/mod_debarment.pl b/members/mod_debarment.pl >index f95e434aab..1bc3311671 100755 >--- a/members/mod_debarment.pl >+++ b/members/mod_debarment.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( checkauth ); > use Koha::DateUtils qw( dt_from_string ); >diff --git a/members/moremember.pl b/members/moremember.pl >index b64a58e300..368209ae2b 100755 >--- a/members/moremember.pl >+++ b/members/moremember.pl >@@ -27,7 +27,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/members/notices.pl b/members/notices.pl >index f563bfc1cc..1c768b4aab 100755 >--- a/members/notices.pl >+++ b/members/notices.pl >@@ -22,7 +22,7 @@ > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Members; > use C4::Letters qw( GetPreparedLetter EnqueueLetter ); > use Koha::Patrons; >diff --git a/members/patronimage.pl b/members/patronimage.pl >index fa9a01559f..11c954885c 100755 >--- a/members/patronimage.pl >+++ b/members/patronimage.pl >@@ -22,7 +22,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_api_auth ); > use C4::Context; > use Koha::Patrons; >diff --git a/members/pay.pl b/members/pay.pl >index 8e013f414c..7414e251ad 100755 >--- a/members/pay.pl >+++ b/members/pay.pl >@@ -32,7 +32,7 @@ use URI::Escape qw( uri_escape_utf8 uri_unescape ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Members; > use C4::Accounts; > use C4::Stats; >diff --git a/members/paycollect.pl b/members/paycollect.pl >index 0d0044d003..3d413488cb 100755 >--- a/members/paycollect.pl >+++ b/members/paycollect.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use URI::Escape qw( uri_escape uri_unescape ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl >index d9f674d796..0b117f9c9f 100755 >--- a/members/printfeercpt.pl >+++ b/members/printfeercpt.pl >@@ -22,7 +22,7 @@ use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Letters; > use Koha::Account::Lines; > >diff --git a/members/printinvoice.pl b/members/printinvoice.pl >index 909aae11ef..f61c64a9c4 100755 >--- a/members/printinvoice.pl >+++ b/members/printinvoice.pl >@@ -22,7 +22,7 @@ use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Letters; > use Koha::Account::Lines; > >diff --git a/members/printnotice.pl b/members/printnotice.pl >index 205eafbbe3..a5d13607a0 100755 >--- a/members/printnotice.pl >+++ b/members/printnotice.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Letters; > use Koha::Account::Lines; > >diff --git a/members/printslip.pl b/members/printslip.pl >index 02fcf5dafe..f9e6bb6805 100755 >--- a/members/printslip.pl >+++ b/members/printslip.pl >@@ -32,7 +32,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_session get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl >index c5e0eb1ac0..6b9ce255ba 100755 >--- a/members/purchase-suggestions.pl >+++ b/members/purchase-suggestions.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/members/readingrec.pl b/members/readingrec.pl >index eda68f3637..9f014a7961 100755 >--- a/members/readingrec.pl >+++ b/members/readingrec.pl >@@ -22,7 +22,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/members/recallshistory.pl b/members/recallshistory.pl >index a367d5cc4f..00d4d66432 100755 >--- a/members/recallshistory.pl >+++ b/members/recallshistory.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/members/routing-lists.pl b/members/routing-lists.pl >index ff00b1c110..a2fa28227f 100755 >--- a/members/routing-lists.pl >+++ b/members/routing-lists.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::Members; >diff --git a/members/setstatus.pl b/members/setstatus.pl >index 7db0e4f590..3e21a9a795 100755 >--- a/members/setstatus.pl >+++ b/members/setstatus.pl >@@ -25,7 +25,7 @@ > use Modern::Perl; > use Try::Tiny; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( checkauth ); > use C4::Context; > use C4::Members; >diff --git a/members/statistics.pl b/members/statistics.pl >index 3c31970df5..38169fdbd7 100755 >--- a/members/statistics.pl >+++ b/members/statistics.pl >@@ -24,7 +24,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Members; >diff --git a/members/update-child.pl b/members/update-child.pl >index 5f591585b6..bc5c93d64b 100755 >--- a/members/update-child.pl >+++ b/members/update-child.pl >@@ -27,7 +27,7 @@ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers output_and_exit_if_error output_and_exit ); >diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl >index b7f048cf87..43fd05406c 100755 >--- a/misc/cronjobs/runreport.pl >+++ b/misc/cronjobs/runreport.pl >@@ -33,7 +33,7 @@ use Koha::SMTP::Servers; > use Getopt::Long qw( GetOptions ); > use Pod::Usage qw( pod2usage ); > use Text::CSV::Encoded; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Carp qw( carp ); > use Encode qw( decode ); > use JSON qw( to_json ); >diff --git a/offline_circ/enqueue_koc.pl b/offline_circ/enqueue_koc.pl >index 6cfa0017ae..021ddb20e6 100755 >--- a/offline_circ/enqueue_koc.pl >+++ b/offline_circ/enqueue_koc.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/offline_circ/list.pl b/offline_circ/list.pl >index 76e70d981d..366a368739 100755 >--- a/offline_circ/list.pl >+++ b/offline_circ/list.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/offline_circ/process.pl b/offline_circ/process.pl >index f64ed4810a..9084eccafd 100755 >--- a/offline_circ/process.pl >+++ b/offline_circ/process.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Circulation qw( GetOfflineOperation ProcessOfflineOperation DeleteOfflineOperation ); > >diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl >index 36bed2d148..3fc1d973d8 100755 >--- a/offline_circ/process_koc.pl >+++ b/offline_circ/process_koc.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/offline_circ/service.pl b/offline_circ/service.pl >index d15aa28ecc..9aab2d9e1f 100755 >--- a/offline_circ/service.pl >+++ b/offline_circ/service.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_api_auth check_cookie_auth ); > use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation ); > use Koha::DateUtils qw( dt_from_string ); >diff --git a/opac/errors/400.pl b/opac/errors/400.pl >index ce9fae7810..e5a65309c9 100755 >--- a/opac/errors/400.pl >+++ b/opac/errors/400.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/errors/401.pl b/opac/errors/401.pl >index 0c8287684f..ee9c16ff10 100755 >--- a/opac/errors/401.pl >+++ b/opac/errors/401.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/errors/402.pl b/opac/errors/402.pl >index 5431750f93..4bf652d00c 100755 >--- a/opac/errors/402.pl >+++ b/opac/errors/402.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/errors/403.pl b/opac/errors/403.pl >index a89a73d7b2..6648259238 100755 >--- a/opac/errors/403.pl >+++ b/opac/errors/403.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/errors/404.pl b/opac/errors/404.pl >index 06924487c0..42d8ae2bcc 100755 >--- a/opac/errors/404.pl >+++ b/opac/errors/404.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/errors/500.pl b/opac/errors/500.pl >index 1c95b677b6..d2e3f5b2db 100755 >--- a/opac/errors/500.pl >+++ b/opac/errors/500.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/external/overdrive/auth.pl b/opac/external/overdrive/auth.pl >index 5bfb22380b..82e0ba06b9 100755 >--- a/opac/external/overdrive/auth.pl >+++ b/opac/external/overdrive/auth.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI; > use URI::Escape qw( uri_escape ); > use Koha::Logger; >diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl >index 90060d77d5..1e4de110f6 100755 >--- a/opac/ilsdi.pl >+++ b/opac/ilsdi.pl >@@ -26,7 +26,7 @@ use C4::Context; > > use List::MoreUtils qw( any ); > use XML::Simple qw( XMLout ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Net::Netmask; > > =head1 DLF ILS-DI for Koha >diff --git a/opac/maintenance.pl b/opac/maintenance.pl >index 020a6c271f..b82f1f5531 100755 >--- a/opac/maintenance.pl >+++ b/opac/maintenance.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl >index 45e83c393d..a339dcd9ca 100755 >--- a/opac/opac-ISBDdetail.pl >+++ b/opac/opac-ISBDdetail.pl >@@ -43,7 +43,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( parametrized_url output_html_with_http_headers redirect_if_opac_suppressed ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Biblio qw( > CountItemsIssued > GetISBDView >diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl >index 03c2d18dd0..7daaa6bee0 100755 >--- a/opac/opac-MARCdetail.pl >+++ b/opac/opac-MARCdetail.pl >@@ -47,7 +47,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( parametrized_url output_html_with_http_headers redirect_if_opac_suppressed ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Biblio qw( > CountItemsIssued > GetAuthorisedValueDesc >diff --git a/opac/opac-account.pl b/opac/opac-account.pl >index ad9968284b..25971ba528 100755 >--- a/opac/opac-account.pl >+++ b/opac/opac-account.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Members; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl >index 368b8f1768..1a94da574a 100755 >--- a/opac/opac-addbybiblionumber.pl >+++ b/opac/opac-addbybiblionumber.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > >diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl >index d5f15a6155..52c42c16af 100755 >--- a/opac/opac-alert-subscribe.pl >+++ b/opac/opac-alert-subscribe.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/opac/opac-alert-subscriptions.pl b/opac/opac-alert-subscriptions.pl >index 1ba43b2125..19e1bb9647 100755 >--- a/opac/opac-alert-subscriptions.pl >+++ b/opac/opac-alert-subscriptions.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-article-request-cancel.pl b/opac/opac-article-request-cancel.pl >index 591e4b9b77..6a1a2d364a 100755 >--- a/opac/opac-article-request-cancel.pl >+++ b/opac/opac-article-request-cancel.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output; > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl >index 7206d3e351..fcf6a5a4a2 100755 >--- a/opac/opac-authorities-home.pl >+++ b/opac/opac-authorities-home.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI::Escape qw( uri_escape_utf8 ); > use Array::Utils qw(intersect); > >diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl >index 06d3e642c1..461641a7f3 100755 >--- a/opac/opac-authoritiesdetail.pl >+++ b/opac/opac-authoritiesdetail.pl >@@ -44,7 +44,7 @@ use C4::Context; > use C4::Languages; > use C4::Output qw( output_html_with_http_headers ); > use C4::AuthoritiesMarc qw( GetAuthority BuildSummary GetTagsLabels GenerateHierarchy ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Koha; > > use Koha::Authorities; >diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl >index 092b7e1061..ca41341e27 100755 >--- a/opac/opac-basket.pl >+++ b/opac/opac-basket.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Koha; > use C4::Biblio qw( >diff --git a/opac/opac-blocked.pl b/opac/opac-blocked.pl >index 27d9ef458b..e0cd30849f 100755 >--- a/opac/opac-blocked.pl >+++ b/opac/opac-blocked.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_with_http_headers ); > use C4::Context; >diff --git a/opac/opac-browse.pl b/opac/opac-browse.pl >index 970d34da45..0128c2890e 100755 >--- a/opac/opac-browse.pl >+++ b/opac/opac-browse.pl >@@ -20,7 +20,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-browser.pl b/opac/opac-browser.pl >index 6db155dbc7..08a2421029 100755 >--- a/opac/opac-browser.pl >+++ b/opac/opac-browser.pl >@@ -28,7 +28,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $query = CGI->new; > >diff --git a/opac/opac-changelanguage.pl b/opac/opac-changelanguage.pl >index 03791c1af9..f011b92ea6 100755 >--- a/opac/opac-changelanguage.pl >+++ b/opac/opac-changelanguage.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Templates; > use Koha::Util::Navigation; > >diff --git a/opac/opac-course-details.pl b/opac/opac-course-details.pl >index e3e9e900fb..9392fd35dd 100755 >--- a/opac/opac-course-details.pl >+++ b/opac/opac-course-details.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-course-reserves.pl b/opac/opac-course-reserves.pl >index 0f879aab5c..021600e9c7 100755 >--- a/opac/opac-course-reserves.pl >+++ b/opac/opac-course-reserves.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-curbside-pickups.pl b/opac/opac-curbside-pickups.pl >index 5e03f56f8a..fa4088b7f6 100755 >--- a/opac/opac-curbside-pickups.pl >+++ b/opac/opac-curbside-pickups.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > use C4::Members; > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl >index 4a41d4fa88..5bbfaf5eec 100755 >--- a/opac/opac-detail.pl >+++ b/opac/opac-detail.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Acquisition qw( SearchOrders ); > use C4::Auth qw( get_template_and_user get_session ); > use C4::Koha qw( >diff --git a/opac/opac-dismiss-message.pl b/opac/opac-dismiss-message.pl >index 003a706807..1cce949da5 100755 >--- a/opac/opac-dismiss-message.pl >+++ b/opac/opac-dismiss-message.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl >index e46dbd9993..d47e125ade 100755 >--- a/opac/opac-downloadcart.pl >+++ b/opac/opac-downloadcart.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode qw( encode ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl >index 0c369381f4..c777e7557e 100755 >--- a/opac/opac-downloadshelf.pl >+++ b/opac/opac-downloadshelf.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Biblio qw( GetFrameworkCode GetISBDView ); >diff --git a/opac/opac-export.pl b/opac/opac-export.pl >index e8ef025b5e..0df8419b4a 100755 >--- a/opac/opac-export.pl >+++ b/opac/opac-export.pl >@@ -26,7 +26,7 @@ use C4::Biblio qw( > GetFrameworkCode > GetISBDView > ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth; > use C4::Ris qw( marc2ris ); > use Koha::Biblios; >diff --git a/opac/opac-holdshistory.pl b/opac/opac-holdshistory.pl >index 9d3b591de2..75154c9ac2 100755 >--- a/opac/opac-holdshistory.pl >+++ b/opac/opac-holdshistory.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl >index dd58bc25e7..516f4e5ed7 100755 >--- a/opac/opac-ics.pl >+++ b/opac/opac-ics.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Data::ICal; > use Data::ICal::Entry::Event; > use DateTime; >diff --git a/opac/opac-illrequests-unauthenticated.pl b/opac/opac-illrequests-unauthenticated.pl >index ea49119d8d..2038a62e3b 100755 >--- a/opac/opac-illrequests-unauthenticated.pl >+++ b/opac/opac-illrequests-unauthenticated.pl >@@ -4,7 +4,7 @@ use Modern::Perl; > > use JSON qw( decode_json ); > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use URI::Escape qw( uri_unescape ); >diff --git a/opac/opac-illrequests.pl b/opac/opac-illrequests.pl >index 10431e74b1..c6b72b5d9c 100755 >--- a/opac/opac-illrequests.pl >+++ b/opac/opac-illrequests.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use JSON qw( encode_json ); > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Koha; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-image.pl b/opac/opac-image.pl >index 539188f5c4..f872684a76 100755 >--- a/opac/opac-image.pl >+++ b/opac/opac-image.pl >@@ -25,7 +25,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use Koha::Biblios; > use Koha::CoverImages; >diff --git a/opac/opac-imageviewer.pl b/opac/opac-imageviewer.pl >index 09cbc6faed..582cc66a89 100755 >--- a/opac/opac-imageviewer.pl >+++ b/opac/opac-imageviewer.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/opac/opac-issue-note.pl b/opac/opac-issue-note.pl >index 00c17074cc..ab3ffb08a6 100755 >--- a/opac/opac-issue-note.pl >+++ b/opac/opac-issue-note.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Koha; > use C4::Context; > use C4::Scrubber; >diff --git a/opac/opac-library.pl b/opac/opac-library.pl >index 29de02282a..5e7c28c566 100755 >--- a/opac/opac-library.pl >+++ b/opac/opac-library.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-main.pl b/opac/opac-main.pl >index 494376d111..77f1a8fc7c 100755 >--- a/opac/opac-main.pl >+++ b/opac/opac-main.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::Quotes; >diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl >index 1daa2daf2c..ac8dee3e34 100755 >--- a/opac/opac-memberentry.pl >+++ b/opac/opac-memberentry.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Digest::MD5 qw( md5_base64 md5_hex ); > use JSON qw( to_json ); > use List::MoreUtils qw( any each_array uniq ); >diff --git a/opac/opac-messaging.pl b/opac/opac-messaging.pl >index 754901efa3..7ff4b1f9cf 100755 >--- a/opac/opac-messaging.pl >+++ b/opac/opac-messaging.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-modrequest-suspend.pl b/opac/opac-modrequest-suspend.pl >index 48c9a6473b..4cf06d850f 100755 >--- a/opac/opac-modrequest-suspend.pl >+++ b/opac/opac-modrequest-suspend.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output; > use C4::Reserves qw( SuspendAll ); > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-modrequest.pl b/opac/opac-modrequest.pl >index 8611137040..9858b51fe5 100755 >--- a/opac/opac-modrequest.pl >+++ b/opac/opac-modrequest.pl >@@ -23,7 +23,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output; > use C4::Auth qw( get_template_and_user ); > use Koha::Holds; >diff --git a/opac/opac-mymessages.pl b/opac/opac-mymessages.pl >index 050129c6b5..4135856b82 100755 >--- a/opac/opac-mymessages.pl >+++ b/opac/opac-mymessages.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-overdrive-search.pl b/opac/opac-overdrive-search.pl >index 1139acf0dc..455b13ab0c 100755 >--- a/opac/opac-overdrive-search.pl >+++ b/opac/opac-overdrive-search.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-page.pl b/opac/opac-page.pl >index f60f1be72f..bf8612bc13 100755 >--- a/opac/opac-page.pl >+++ b/opac/opac-page.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Languages qw( getlanguage ); >diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl >index 07acb83276..8009a7b148 100755 >--- a/opac/opac-passwd.pl >+++ b/opac/opac-passwd.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user checkpw checkpw_hash ); > use C4::Context; >diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl >index 03a1ee53c8..01103726ef 100755 >--- a/opac/opac-patron-image.pl >+++ b/opac/opac-patron-image.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > use C4::Members; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; # need to check cookies before having CGI parse the POST request > use C4::Auth qw( check_cookie_auth ); > use Koha::Patron::Images; >diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl >index 3461d2be02..5fc2680b36 100755 >--- a/opac/opac-privacy.pl >+++ b/opac/opac-privacy.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-ratings.pl b/opac/opac-ratings.pl >index 942522fd55..0a0e54524b 100755 >--- a/opac/opac-ratings.pl >+++ b/opac/opac-ratings.pl >@@ -26,7 +26,7 @@ note: there is currently no 'delete rating' functionality in this script > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( checkauth ); > use C4::Context; >diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl >index 202c580686..4dae05cd9e 100755 >--- a/opac/opac-readingrecord.pl >+++ b/opac/opac-readingrecord.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Biblio; >diff --git a/opac/opac-recall.pl b/opac/opac-recall.pl >index aba53ae86e..719bbf0b7b 100755 >--- a/opac/opac-recall.pl >+++ b/opac/opac-recall.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/opac/opac-recalls.pl b/opac/opac-recalls.pl >index 62d82c2cf3..73261e5101 100755 >--- a/opac/opac-recalls.pl >+++ b/opac/opac-recalls.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode qw( encode ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl >index d2a6fd45ae..ccd8c6a74e 100755 >--- a/opac/opac-registration-verify.pl >+++ b/opac/opac-registration-verify.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl >index bd78fe1127..95218bb297 100755 >--- a/opac/opac-renew.pl >+++ b/opac/opac-renew.pl >@@ -22,7 +22,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Circulation qw( CanBookBeRenewed AddRenewal ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-reportproblem.pl b/opac/opac-reportproblem.pl >index 585221fcf4..26ccf59fb6 100755 >--- a/opac/opac-reportproblem.pl >+++ b/opac/opac-reportproblem.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-request-article.pl b/opac/opac-request-article.pl >index a20f068c50..7bded64bef 100755 >--- a/opac/opac-request-article.pl >+++ b/opac/opac-request-article.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl >index de5095853a..a60b39200e 100755 >--- a/opac/opac-reserve.pl >+++ b/opac/opac-reserve.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc ); > use C4::Circulation qw( GetBranchItemRule ); >diff --git a/opac/opac-reset-password.pl b/opac/opac-reset-password.pl >index a006682cf6..5977033d7d 100755 >--- a/opac/opac-reset-password.pl >+++ b/opac/opac-reset-password.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user checkpw checkpw_hash ); > use C4::Context; >diff --git a/opac/opac-review.pl b/opac/opac-review.pl >index cf04ebc891..7ef2313c5a 100755 >--- a/opac/opac-review.pl >+++ b/opac/opac-review.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Scrubber; >diff --git a/opac/opac-routing-lists.pl b/opac/opac-routing-lists.pl >index 146b1c813d..816e591b8d 100755 >--- a/opac/opac-routing-lists.pl >+++ b/opac/opac-routing-lists.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Members; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl >index b0a853b0dc..6164981e00 100755 >--- a/opac/opac-search-history.pl >+++ b/opac/opac-search-history.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Search::History; >diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl >index 3f5a21727d..ccbd6fc453 100755 >--- a/opac/opac-sendbasket.pl >+++ b/opac/opac-sendbasket.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl >index 0da18ed088..beb4b2b394 100755 >--- a/opac/opac-sendshelf.pl >+++ b/opac/opac-sendshelf.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > use Carp qw( carp ); > use Try::Tiny qw( catch try ); >diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl >index 4c8de8ad98..8cc12cc3bc 100755 >--- a/opac/opac-serial-issues.pl >+++ b/opac/opac-serial-issues.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Serials > qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber ); >diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl >index 812b61708d..dc3a9a5535 100755 >--- a/opac/opac-shareshelf.pl >+++ b/opac/opac-shareshelf.pl >@@ -22,7 +22,7 @@ use Modern::Perl; > use constant KEYLENGTH => 10; > use constant SHELVES_URL => '/cgi-bin/koha/opac-shelves.pl?display=privateshelves&viewshelf='; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl >index bd908db01e..bfbfc0aee4 100755 >--- a/opac/opac-shelves.pl >+++ b/opac/opac-shelves.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Biblio qw( GetBiblioData GetFrameworkCode ); > use C4::External::BakerTaylor qw( image_url link_url ); >diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl >index 2ae41357dd..d2d4d7f13f 100755 >--- a/opac/opac-showmarc.pl >+++ b/opac/opac-showmarc.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > # standard or CPAN modules used >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > > # Koha modules used >diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl >index 094e1617f7..d11c823c8c 100755 >--- a/opac/opac-showreviews.pl >+++ b/opac/opac-showreviews.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Koha qw( > GetNormalizedEAN >diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl >index 30bf425a37..85115afcdd 100755 >--- a/opac/opac-suggestions.pl >+++ b/opac/opac-suggestions.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > use C4::Auth qw( get_template_and_user ); > use C4::Members; >diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl >index 70429fda57..24d996d656 100755 >--- a/opac/opac-tags.pl >+++ b/opac/opac-tags.pl >@@ -31,7 +31,7 @@ C4::Scrubber is used to remove all markup content from the sumitted text. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; # need to check cookies before having CGI parse the POST request > use Array::Utils qw( array_minus ); > >diff --git a/opac/opac-tags_subject.pl b/opac/opac-tags_subject.pl >index aee039de0c..d8cd39feae 100755 >--- a/opac/opac-tags_subject.pl >+++ b/opac/opac-tags_subject.pl >@@ -28,7 +28,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $query = CGI->new; > >diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl >index 80d7f85bec..3a4391d596 100755 >--- a/opac/opac-topissues.pl >+++ b/opac/opac-topissues.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Search; >diff --git a/opac/opac-user.pl b/opac/opac-user.pl >index 3f1bc9f3d9..cb0c94b3ca 100755 >--- a/opac/opac-user.pl >+++ b/opac/opac-user.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI; > > use C4::Auth qw( get_template_and_user ); >diff --git a/opac/opac-virtual-card.pl b/opac/opac-virtual-card.pl >index aa2fe57187..7cf865f2f7 100755 >--- a/opac/opac-virtual-card.pl >+++ b/opac/opac-virtual-card.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::Libraries; >diff --git a/opac/sci/sci-main.pl b/opac/sci/sci-main.pl >index 951840df53..aa91bf164b 100755 >--- a/opac/sci/sci-main.pl >+++ b/opac/sci/sci-main.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Circulation qw( AddReturn ); >diff --git a/opac/sco/help.pl b/opac/sco/help.pl >index e8c38d4b54..b97e3e70e3 100755 >--- a/opac/sco/help.pl >+++ b/opac/sco/help.pl >@@ -21,7 +21,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( in_iprange get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl >index 2ed6f7a34d..9d8bee4a81 100755 >--- a/opac/sco/printslip.pl >+++ b/opac/sco/printslip.pl >@@ -26,7 +26,7 @@ It is called from sco-main.pl > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( in_iprange get_session get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl >index 7741ee8707..5391fa79e4 100755 >--- a/opac/sco/sco-main.pl >+++ b/opac/sco/sco-main.pl >@@ -30,7 +30,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( in_iprange get_template_and_user checkpw ); > use C4::Circulation qw( barcodedecode AddReturn CanBookBeIssued AddIssue CanBookBeRenewed AddRenewal ); >diff --git a/opac/svc/auth/googleopenidconnect b/opac/svc/auth/googleopenidconnect >index a6439f4af4..b7a0fd0128 100755 >--- a/opac/svc/auth/googleopenidconnect >+++ b/opac/svc/auth/googleopenidconnect >@@ -31,7 +31,7 @@ > # > > use Modern::Perl; >-use CGI qw ( -utf8 escape ); >+use CGI qw( -utf8 escape ); > use C4::Auth qw{ checkauth get_session get_template_and_user }; > use C4::Context; > use C4::Output qw{ output_html_with_http_headers }; >diff --git a/opac/svc/overdrive b/opac/svc/overdrive >index 39be2ef780..f067b0c031 100755 >--- a/opac/svc/overdrive >+++ b/opac/svc/overdrive >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw(encode_json); > use C4::Auth qw( checkauth ); > use C4::Output qw( output_with_http_headers ); >diff --git a/opac/svc/report b/opac/svc/report >index 3c2812f3ce..7ce25728f2 100755 >--- a/opac/svc/report >+++ b/opac/svc/report >@@ -27,7 +27,7 @@ use C4::Output qw(output_with_http_headers); > use C4::Reports::Guided qw( execute_query ); > use Koha::Reports; > use JSON; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Caches; > >diff --git a/opac/svc/shelfbrowser.pl b/opac/svc/shelfbrowser.pl >index 2f11fa2c72..e19cbafa72 100755 >--- a/opac/svc/shelfbrowser.pl >+++ b/opac/svc/shelfbrowser.pl >@@ -1,7 +1,7 @@ > #!/usr/bin/perl > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/opac/svc/suggestion b/opac/svc/suggestion >index 2bbce10da5..eb690f8e14 100755 >--- a/opac/svc/suggestion >+++ b/opac/svc/suggestion >@@ -56,7 +56,7 @@ use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON; > use Koha::SuggestionEngine; > >diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl >index 471615522a..3770417dff 100755 >--- a/opac/tracklinks.pl >+++ b/opac/tracklinks.pl >@@ -26,7 +26,7 @@ use C4::Output qw( output_error ); > use Koha::Biblios; > use Koha::Items; > use Koha::Linktracker; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils qw( any ); > > my $cgi = CGI->new; >diff --git a/opac/unapi b/opac/unapi >index 9a24e13006..6fc668622f 100755 >--- a/opac/unapi >+++ b/opac/unapi >@@ -36,7 +36,7 @@ an XML format such as OAI DC, RSS2, MARCXML, or MODS. > > =cut > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Biblio qw( GetXmlBiblio ); > use Koha::XSLT::Base; >diff --git a/patron_lists/add-modify.pl b/patron_lists/add-modify.pl >index 7fea1185c2..92da6f7bf8 100755 >--- a/patron_lists/add-modify.pl >+++ b/patron_lists/add-modify.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/patron_lists/delete.pl b/patron_lists/delete.pl >index 5e11137e4c..a92dae25e7 100755 >--- a/patron_lists/delete.pl >+++ b/patron_lists/delete.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output; >diff --git a/patron_lists/list.pl b/patron_lists/list.pl >index d4d9c9ed1e..28e988e79b 100755 >--- a/patron_lists/list.pl >+++ b/patron_lists/list.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/patron_lists/lists.pl b/patron_lists/lists.pl >index 77b9cb286c..868daec47d 100755 >--- a/patron_lists/lists.pl >+++ b/patron_lists/lists.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/patron_lists/patrons.pl b/patron_lists/patrons.pl >index 24eb730faa..32df069e6b 100755 >--- a/patron_lists/patrons.pl >+++ b/patron_lists/patrons.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl >index 75b8fe6814..0cfd9c1b06 100755 >--- a/patroncards/create-pdf.pl >+++ b/patroncards/create-pdf.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use Graphics::Magick; > use XML::Simple qw( XMLin ); >diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl >index dd5acb315a..b86052b6c9 100755 >--- a/patroncards/edit-batch.pl >+++ b/patroncards/edit-batch.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); > > use C4::Auth qw( get_template_and_user ); >diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl >index 63dd3a579c..a1db660e14 100755 >--- a/patroncards/edit-layout.pl >+++ b/patroncards/edit-layout.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use XML::Simple qw( XMLin XMLout ); > use autouse 'Data::Dumper' => qw(Dumper); > >diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl >index 884493a87f..5d929cf6a9 100755 >--- a/patroncards/edit-profile.pl >+++ b/patroncards/edit-profile.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl >index 0ae512bcfa..6a4a68e8ff 100755 >--- a/patroncards/edit-template.pl >+++ b/patroncards/edit-template.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); > > use C4::Auth qw( get_template_and_user ); >diff --git a/patroncards/home.pl b/patroncards/home.pl >index 447ee60428..bd8008f7e8 100755 >--- a/patroncards/home.pl >+++ b/patroncards/home.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl >index 2c9db9d792..f536890764 100755 >--- a/patroncards/image-manage.pl >+++ b/patroncards/image-manage.pl >@@ -2,7 +2,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Graphics::Magick; > > use C4::Context; >diff --git a/patroncards/manage.pl b/patroncards/manage.pl >index 8a56221281..a351d4e9fb 100755 >--- a/patroncards/manage.pl >+++ b/patroncards/manage.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); > > use C4::Auth qw( get_template_and_user ); >diff --git a/patroncards/print.pl b/patroncards/print.pl >index 76caeb8f6b..afa280dfbb 100755 >--- a/patroncards/print.pl >+++ b/patroncards/print.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); > > use C4::Auth qw( get_template_and_user ); >diff --git a/plugins/plugins-enable.pl b/plugins/plugins-enable.pl >index d39317a38c..7204d41c14 100755 >--- a/plugins/plugins-enable.pl >+++ b/plugins/plugins-enable.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Auth qw( check_cookie_auth ); >diff --git a/plugins/plugins-home.pl b/plugins/plugins-home.pl >index b46fe73a32..ae0bc01fcd 100755 >--- a/plugins/plugins-home.pl >+++ b/plugins/plugins-home.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use JSON qw( from_json ); > use LWP::Simple qw( get ); >diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl >index 75d1329bc7..b2fb11c806 100755 >--- a/plugins/plugins-uninstall.pl >+++ b/plugins/plugins-uninstall.pl >@@ -18,7 +18,7 @@ > use Modern::Perl; > > use Archive::Extract; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl >index 8dd96030d8..c49e654f75 100755 >--- a/plugins/plugins-upload.pl >+++ b/plugins/plugins-upload.pl >@@ -19,7 +19,7 @@ > use Modern::Perl; > > use Archive::Extract; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::Util qw( any ); > use Mojo::UserAgent; > use File::Temp; >diff --git a/plugins/run.pl b/plugins/run.pl >index 9f04a2af92..c040df45c7 100755 >--- a/plugins/run.pl >+++ b/plugins/run.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Plugins::Handler; > use C4::Auth qw( get_template_and_user ); >diff --git a/pos/printreceipt.pl b/pos/printreceipt.pl >index 321e3db604..81c5de93c4 100755 >--- a/pos/printreceipt.pl >+++ b/pos/printreceipt.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Koha::Account::Lines; > use Koha::Notice::Templates; > >diff --git a/preservation/home.pl b/preservation/home.pl >index 433eb04710..4cc3cf7e5d 100755 >--- a/preservation/home.pl >+++ b/preservation/home.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/preservation/print_slip.pl b/preservation/print_slip.pl >index bebc894414..e07dce3440 100755 >--- a/preservation/print_slip.pl >+++ b/preservation/print_slip.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); >diff --git a/recalls/recall_pickup_slip.pl b/recalls/recall_pickup_slip.pl >index f58f607638..3a89192884 100755 >--- a/recalls/recall_pickup_slip.pl >+++ b/recalls/recall_pickup_slip.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/recalls/recalls_old_queue.pl b/recalls/recalls_old_queue.pl >index dd13219c6a..c9da354476 100755 >--- a/recalls/recalls_old_queue.pl >+++ b/recalls/recalls_old_queue.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::BiblioFrameworks; >diff --git a/recalls/recalls_overdue.pl b/recalls/recalls_overdue.pl >index 77f1303774..83b617ef41 100755 >--- a/recalls/recalls_overdue.pl >+++ b/recalls/recalls_overdue.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::BiblioFrameworks; >diff --git a/recalls/recalls_queue.pl b/recalls/recalls_queue.pl >index 519074a205..b749a04fae 100755 >--- a/recalls/recalls_queue.pl >+++ b/recalls/recalls_queue.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::BiblioFrameworks; >diff --git a/recalls/recalls_to_pull.pl b/recalls/recalls_to_pull.pl >index 0f91a775d1..e77718f286 100755 >--- a/recalls/recalls_to_pull.pl >+++ b/recalls/recalls_to_pull.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils qw( uniq ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/recalls/recalls_waiting.pl b/recalls/recalls_waiting.pl >index 8a5171b334..04e20c78ee 100755 >--- a/recalls/recalls_waiting.pl >+++ b/recalls/recalls_waiting.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::Recalls; >diff --git a/recalls/request.pl b/recalls/request.pl >index 8ed4b7c870..e8bb066ce3 100755 >--- a/recalls/request.pl >+++ b/recalls/request.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Search; >diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl >index e5effc95c2..c0c29a9f0b 100755 >--- a/reports/acquisitions_stats.pl >+++ b/reports/acquisitions_stats.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Reports qw( GetDelimiterChoices ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl >index 47c06ecd44..1412608e93 100755 >--- a/reports/bor_issues_top.pl >+++ b/reports/bor_issues_top.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >diff --git a/reports/borrowers_out.pl b/reports/borrowers_out.pl >index 72ef8248f5..05bae5af38 100755 >--- a/reports/borrowers_out.pl >+++ b/reports/borrowers_out.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl >index fc9ac9e46b..db697e59e9 100755 >--- a/reports/borrowers_stats.pl >+++ b/reports/borrowers_stats.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl >index 03dc0dd4e8..2e2a867515 100755 >--- a/reports/cat_issues_top.pl >+++ b/reports/cat_issues_top.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Koha qw( GetAuthorisedValues ); >diff --git a/reports/catalog_by_itemtype.pl b/reports/catalog_by_itemtype.pl >index 79e3196dd9..5da7e1cc64 100755 >--- a/reports/catalog_by_itemtype.pl >+++ b/reports/catalog_by_itemtype.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl >index 9f144ef153..12657095af 100755 >--- a/reports/catalogue_out.pl >+++ b/reports/catalogue_out.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl >index fd8508a15d..d246406720 100755 >--- a/reports/catalogue_stats.pl >+++ b/reports/catalogue_stats.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Koha qw( GetAuthorisedValues ); >diff --git a/reports/dictionary.pl b/reports/dictionary.pl >index 5207d2353d..212fa4634c 100755 >--- a/reports/dictionary.pl >+++ b/reports/dictionary.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Reports::Guided > qw( get_from_dictionary get_columns get_column_type get_distinct_values save_dictionary delete_definition get_report_areas ); >diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl >index 3565a82b67..661cab4ed5 100755 >--- a/reports/issues_avg_stats.pl >+++ b/reports/issues_avg_stats.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Reports qw( GetDelimiterChoices ); >diff --git a/reports/issues_stats.pl b/reports/issues_stats.pl >index c0b550f613..447bb8c7be 100755 >--- a/reports/issues_stats.pl >+++ b/reports/issues_stats.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/reports/itemslost.pl b/reports/itemslost.pl >index 3b69733a85..5a017ac9a5 100755 >--- a/reports/itemslost.pl >+++ b/reports/itemslost.pl >@@ -26,7 +26,7 @@ This script displays lost items. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Text::CSV::Encoded; >diff --git a/reports/reports-home.pl b/reports/reports-home.pl >index 32cf5b795c..9e891eb6fe 100755 >--- a/reports/reports-home.pl >+++ b/reports/reports-home.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/reports/reserves_stats.pl b/reports/reserves_stats.pl >index 9d5fab4a47..9cf3b948bb 100755 >--- a/reports/reserves_stats.pl >+++ b/reports/reserves_stats.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl >index 703cb7841d..78f923ed5c 100755 >--- a/reports/serials_stats.pl >+++ b/reports/serials_stats.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Reports qw( GetDelimiterChoices ); >diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl >index c6dfd3c134..1392516b9e 100755 >--- a/reserve/modrequest.pl >+++ b/reserve/modrequest.pl >@@ -22,7 +22,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI; > use List::MoreUtils qw( uniq ); > use Try::Tiny; >diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl >index 29b95242f4..cb740a6b49 100755 >--- a/reserve/modrequest_suspendall.pl >+++ b/reserve/modrequest_suspendall.pl >@@ -22,7 +22,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output; > use C4::Reserves qw( SuspendAll ); > use C4::Auth qw( checkauth ); >diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl >index 9b67ef7ad3..48e3ce5f50 100755 >--- a/reserve/placerequest.pl >+++ b/reserve/placerequest.pl >@@ -22,7 +22,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use URI; > use C4::Reserves qw( CanItemBeReserved AddReserve CanBookBeReserved ); > use C4::Auth qw( checkauth ); >diff --git a/reserve/request.pl b/reserve/request.pl >index fbc08a0826..5678e276df 100755 >--- a/reserve/request.pl >+++ b/reserve/request.pl >@@ -27,7 +27,7 @@ script to place reserves/requests > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use List::MoreUtils qw( uniq ); > use Date::Calc qw( Date_to_Days ); > use C4::Output qw( output_html_with_http_headers ); >@@ -341,8 +341,7 @@ if ( ( $findborrower && $borrowernumber_hold || $findclub && $club_hold ) > > if ( $patron && $multi_hold ) { > my @multi_pickup_locations = >- Koha::Biblios->search( { biblionumber => \@biblionumbers } ) >- ->pickup_locations( { patron => $patron } ) >+ Koha::Biblios->search( { biblionumber => \@biblionumbers } )->pickup_locations( { patron => $patron } ) > ->as_list; > $template->param( multi_pickup_locations => \@multi_pickup_locations ); > } >diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl >index fe5ed8c6ac..fa72e919ad 100755 >--- a/reviews/reviewswaiting.pl >+++ b/reviews/reviewswaiting.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( pagination_bar output_html_with_http_headers ); > use C4::Context; >diff --git a/rotating_collections/addItems.pl b/rotating_collections/addItems.pl >index b22c46da10..5f19cf462a 100755 >--- a/rotating_collections/addItems.pl >+++ b/rotating_collections/addItems.pl >@@ -26,7 +26,7 @@ use C4::RotatingCollections; > > use Koha::Items; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $query = CGI->new; > my $op = $query->param('op') || q{}; >diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl >index c02571765b..158902b51e 100755 >--- a/rotating_collections/editCollections.pl >+++ b/rotating_collections/editCollections.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/rotating_collections/rotatingCollections.pl b/rotating_collections/rotatingCollections.pl >index 349cb5d11e..697c8cc4f8 100755 >--- a/rotating_collections/rotatingCollections.pl >+++ b/rotating_collections/rotatingCollections.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl >index 48946557c7..a9582ef8c6 100755 >--- a/rotating_collections/transferCollection.pl >+++ b/rotating_collections/transferCollection.pl >@@ -23,7 +23,7 @@ use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::RotatingCollections; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $query = CGI->new; > >diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl >index 2128e21947..b10411b294 100755 >--- a/serials/acqui-search-result.pl >+++ b/serials/acqui-search-result.pl >@@ -41,7 +41,7 @@ acqui-search-result.pl > use Modern::Perl; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Acquisition qw( SearchOrders ); > use Koha::DateUtils qw( output_pref ); > >diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl >index fcc952e764..7aac6c7535 100755 >--- a/serials/acqui-search.pl >+++ b/serials/acqui-search.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl >index 8876ddd862..5bef4dd3c4 100755 >--- a/serials/checkexpiration.pl >+++ b/serials/checkexpiration.pl >@@ -42,7 +42,7 @@ The date to filter on. > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Serials qw( SearchSubscriptions GetExpirationDate ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/claims.pl b/serials/claims.pl >index 64110795c6..4acdbe28ab 100755 >--- a/serials/claims.pl >+++ b/serials/claims.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/create-numberpattern.pl b/serials/create-numberpattern.pl >index 133a322fef..b01a143e7d 100755 >--- a/serials/create-numberpattern.pl >+++ b/serials/create-numberpattern.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Serials::Numberpattern qw( > AddSubscriptionNumberpattern >diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl >index cb33f8ec00..86cf9f8655 100755 >--- a/serials/lateissues-export.pl >+++ b/serials/lateissues-export.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth; > use C4::Serials qw( GetLateOrMissingIssues updateClaim ); > use C4::Output; >diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl >index fa7df4a689..c812e43425 100755 >--- a/serials/reorder_members.pl >+++ b/serials/reorder_members.pl >@@ -19,7 +19,7 @@ > # where the hierarchical order can be changed on the fly and a routing list can be > # printed out > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( checkauth ); > use C4::Serials qw( reorder_members ); > >diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl >index 6c65ec9a7e..be7c80b2b9 100755 >--- a/serials/routing-preview.pl >+++ b/serials/routing-preview.pl >@@ -19,7 +19,7 @@ > # lets one print out routing slip and create (in this instance) the hierarchy > # of reserves for the serial > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Koha; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/routing.pl b/serials/routing.pl >index 0de8de97ee..86fe4c3b54 100755 >--- a/serials/routing.pl >+++ b/serials/routing.pl >@@ -26,7 +26,7 @@ printed out > > use Modern::Perl; > use Try::Tiny; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Koha; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_and_exit output_html_with_http_headers ); >diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl >index da3e76433e..b2a3bcd27d 100755 >--- a/serials/serials-collection.pl >+++ b/serials/serials-collection.pl >@@ -19,7 +19,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Serials > qw( ModSerialStatus GetSubscription GetNextExpected GetNextSeq GetNextDate NewIssue HasSubscriptionExpired abouttoexpire check_routing GetFullSubscription PrepareSerialsData CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber GetFullSubscriptionsFromBiblionumber ); >diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl >index f497f4157e..b56bf8ffa1 100755 >--- a/serials/serials-edit.pl >+++ b/serials/serials-edit.pl >@@ -62,7 +62,7 @@ op can be : > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > use C4::Auth qw( get_template_and_user haspermission ); > use C4::Biblio qw( GetMarcFromKohaField TransformHtmlToXml ); >diff --git a/serials/serials-home.pl b/serials/serials-home.pl >index 6d8bbc848f..e3346da7c3 100755 >--- a/serials/serials-home.pl >+++ b/serials/serials-home.pl >@@ -28,7 +28,7 @@ this script is the main page for serials/ > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/serials-search.pl b/serials/serials-search.pl >index 84aa0a5c2b..f92d1bf32a 100755 >--- a/serials/serials-search.pl >+++ b/serials/serials-search.pl >@@ -28,7 +28,7 @@ this script is the search page for serials > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl >index 3a53b871a4..b997e0ebbc 100755 >--- a/serials/showpredictionpattern.pl >+++ b/serials/showpredictionpattern.pl >@@ -30,7 +30,7 @@ publication date, based on frequency and first publication date. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Date::Calc qw( Add_Delta_Days Add_Delta_YM Day_of_Week Delta_Days ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl >index 16a6630fd5..404a64212f 100755 >--- a/serials/subscription-add.pl >+++ b/serials/subscription-add.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Date::Calc qw( Add_Delta_Days Add_Delta_YM ); > use C4::Koha qw( GetAuthorisedValues ); > use C4::Auth qw( get_template_and_user ); >diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl >index 1a82af45f8..eca548830f 100755 >--- a/serials/subscription-bib-search.pl >+++ b/serials/subscription-bib-search.pl >@@ -47,7 +47,7 @@ to multipage gestion. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Koha qw( GetAuthorisedValues ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; >diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl >index df1e860049..e94e44de6e 100755 >--- a/serials/subscription-detail.pl >+++ b/serials/subscription-detail.pl >@@ -16,7 +16,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user checkauth ); > use C4::Serials > qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription ); >diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl >index b5247b36da..a74f3caac1 100755 >--- a/serials/subscription-frequencies.pl >+++ b/serials/subscription-frequencies.pl >@@ -29,7 +29,7 @@ Manage subscription frequencies > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl >index 426679208b..0abc885e14 100755 >--- a/serials/subscription-frequency.pl >+++ b/serials/subscription-frequency.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Serials::Frequency qw( GetSubscriptionFrequency ); > use C4::Auth qw( check_cookie_auth ); >diff --git a/serials/subscription-history.pl b/serials/subscription-history.pl >index dc399b94e7..07d0bf748e 100755 >--- a/serials/subscription-history.pl >+++ b/serials/subscription-history.pl >@@ -29,7 +29,7 @@ Modify subscription history > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > >diff --git a/serials/subscription-numberpattern.pl b/serials/subscription-numberpattern.pl >index 03ebaaa46a..5a38025c11 100755 >--- a/serials/subscription-numberpattern.pl >+++ b/serials/subscription-numberpattern.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern ); > use C4::Auth qw( check_cookie_auth ); > use JSON qw( to_json ); >diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl >index 994b746aae..5daf37c356 100755 >--- a/serials/subscription-numberpatterns.pl >+++ b/serials/subscription-numberpatterns.pl >@@ -28,7 +28,7 @@ Manage numbering patterns > =cut > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl >index 18c158e77d..87cc923d42 100755 >--- a/serials/subscription-renew.pl >+++ b/serials/subscription-renew.pl >@@ -44,7 +44,7 @@ Id of the subscription this script has to renew > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Carp qw( carp ); > use C4::Koha; > use C4::Auth qw( get_template_and_user ); >diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl >index 34d4cc5bcb..01606d3110 100755 >--- a/serials/viewalerts.pl >+++ b/serials/viewalerts.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl >index c1fc49b2dc..b19ca5dca4 100755 >--- a/services/itemrecorddisplay.pl >+++ b/services/itemrecorddisplay.pl >@@ -29,7 +29,7 @@ It uses PrepareItemrecordDisplay > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Items qw( PrepareItemrecordDisplay ); >diff --git a/sip2/sip2.pl b/sip2/sip2.pl >index 631a9532fd..3df1e0c4db 100755 >--- a/sip2/sip2.pl >+++ b/sip2/sip2.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl >index 3b61a17c53..073b6577c7 100755 >--- a/suggestion/suggestion.pl >+++ b/suggestion/suggestion.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > require Exporter; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers output_and_exit_if_error ); > use C4::Suggestions; >@@ -442,12 +442,12 @@ if ( $op eq 'else' ) { > if ( $search_params->{budgetid} && $search_params->{budgetid} eq '__NONE__' ) { > $search_params->{budgetid} = [ undef, '' ]; > } >- for my $f (qw (branchcode budgetid)) { >+ for my $f (qw(branchcode budgetid)) { > delete $search_params->{$f} > if $search_params->{$f} eq '__ANY__' > || $search_params->{$f} eq ''; > } >- for my $bi (qw (title author isbn publishercode copyrightdate collectiontitle)) { >+ for my $bi (qw(title author isbn publishercode copyrightdate collectiontitle)) { > if ( $search_params->{$bi} ) { > $search_params->{"me.$bi"} = { 'like' => "%" . $search_params->{$bi} . "%" }; > delete $search_params->{$bi}; >diff --git a/svc/article_request b/svc/article_request >index b3d810918b..f0a3a1605a 100755 >--- a/svc/article_request >+++ b/svc/article_request >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw(to_json); > > use C4::Auth qw(check_cookie_auth); >diff --git a/svc/authentication b/svc/authentication >index 83745a4599..d75ffcef0a 100755 >--- a/svc/authentication >+++ b/svc/authentication >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw/check_api_auth get_session/; > use XML::Simple; > >diff --git a/svc/bib b/svc/bib >index 0938ec7a8c..91d92f11b6 100755 >--- a/svc/bib >+++ b/svc/bib >@@ -21,7 +21,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_api_auth ); > use C4::Biblio qw( GetFrameworkCode ); > use C4::Items; >diff --git a/svc/bib_framework b/svc/bib_framework >index fe86f09298..e0fda431dd 100755 >--- a/svc/bib_framework >+++ b/svc/bib_framework >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > # > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw/check_api_auth/; > use C4::Biblio; > use C4::Items; >diff --git a/svc/bib_profile b/svc/bib_profile >index eb7d511b0a..2ce9087e52 100755 >--- a/svc/bib_profile >+++ b/svc/bib_profile >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw/check_api_auth/; > use C4::Context; > use C4::Koha; >diff --git a/svc/checkout_notes b/svc/checkout_notes >index 8942c7d843..fd10cd5222 100755 >--- a/svc/checkout_notes >+++ b/svc/checkout_notes >@@ -21,7 +21,7 @@ use Modern::Perl; > > use JSON qw( to_json ); > use CGI; >-use C4::Auth qw ( check_cookie_auth ); >+use C4::Auth qw( check_cookie_auth ); > use C4::Output qw( is_ajax output_with_http_headers ); > use Koha::Checkouts; > >diff --git a/svc/convert_report b/svc/convert_report >index dc186a528c..af67a0a002 100755 >--- a/svc/convert_report >+++ b/svc/convert_report >@@ -23,7 +23,7 @@ use C4::Reports::Guided; > use Koha::Reports; > use C4::Auth qw( get_template_and_user get_session ); > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $query = CGI->new(); > my $report_id = $query->param('id'); >diff --git a/svc/cover_images b/svc/cover_images >index 8b310e4a45..bae6ac24d9 100755 >--- a/svc/cover_images >+++ b/svc/cover_images >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw/check_cookie_auth/; > use Koha::CoverImages; > use JSON qw/to_json/; >diff --git a/svc/import_bib b/svc/import_bib >index b2770f0150..694a4c127b 100755 >--- a/svc/import_bib >+++ b/svc/import_bib >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw/check_api_auth/; > use C4::Context; > use C4::ImportBatch >diff --git a/svc/new_bib b/svc/new_bib >index 6f8dea6eae..4ea9810e75 100755 >--- a/svc/new_bib >+++ b/svc/new_bib >@@ -20,7 +20,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw/check_api_auth/; > use C4::Biblio; > use C4::Items; >diff --git a/svc/report b/svc/report >index 905dff8fd9..a5bfd2d8dd 100755 >--- a/svc/report >+++ b/svc/report >@@ -24,7 +24,7 @@ use C4::Auth qw( check_api_auth ); > use C4::Reports::Guided qw( execute_query ); > use Koha::Reports; > use JSON qw( encode_json decode_json to_json ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Koha::Caches; > >diff --git a/t/Languages.t b/t/Languages.t >index 3c03a16f40..1c33893061 100755 >--- a/t/Languages.t >+++ b/t/Languages.t >@@ -21,7 +21,7 @@ use Modern::Perl; > use Test::NoWarnings; > use Test::More tests => 6; > use Test::MockModule; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Koha::Cache::Memory::Lite; > use Koha::Language; > >diff --git a/t/Output.t b/t/Output.t >index a3a5722a7a..66f3ed13af 100755 >--- a/t/Output.t >+++ b/t/Output.t >@@ -24,7 +24,7 @@ use Test::Exception; > use Test::MockModule; > > use File::Temp qw/tempfile/; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > >diff --git a/t/db_dependent/Auth.t b/t/db_dependent/Auth.t >index 39585933e5..a7eb437df8 100755 >--- a/t/db_dependent/Auth.t >+++ b/t/db_dependent/Auth.t >@@ -2,7 +2,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Test::MockObject; > use Test::MockModule; >@@ -1192,7 +1192,7 @@ subtest 'checkpw() return values tests' => sub { > $password_expired = 1; > @return = checkpw( $patron->userid, $password, undef, ); > >- is( scalar @return, 2, "Two results on expired password scenario" ); >+ is( scalar @return, 2, "Two results on expired password scenario" ); > is( $return[0], -2, '-2 returned' ); > is( ref( $return[1] ), 'Koha::Patron' ); > is( $return[1]->id, $patron->id, 'Patron matched correctly' ); >@@ -1200,7 +1200,7 @@ subtest 'checkpw() return values tests' => sub { > t::lib::Mocks::mock_preference( 'AnonymousPatron', $patron->id ); > @return = checkpw( $patron->userid, $password, undef, ); > >- is( scalar @return, 2, "Two results on expired password scenario" ); >+ is( scalar @return, 2, "Two results on expired password scenario" ); > is( $return[0], -3, '-3 returned' ); > is( ref( $return[1] ), 'Koha::Patron' ); > is( $return[1]->id, $patron->id, 'Patron matched correctly' ); >@@ -1284,14 +1284,14 @@ subtest 'checkpw() return values tests' => sub { > $password_expired = 1; > @return = checkpw( $patron->userid, $password, $query, ); > >- is( scalar @return, 2, "Two results on expired password scenario" ); >+ is( scalar @return, 2, "Two results on expired password scenario" ); > is( $return[0], -2, '-2 returned' ); > is( ref( $return[1] ), 'Koha::Patron' ); > is( $return[1]->id, $patron->id, 'Patron matched correctly' ); > > t::lib::Mocks::mock_preference( 'AnonymousPatron', $patron->id ); > @return = checkpw( $patron->userid, $password, undef, ); >- is( scalar @return, 2, "Two results on expired password scenario" ); >+ is( scalar @return, 2, "Two results on expired password scenario" ); > is( $return[0], -3, '-3 returned' ); > is( ref( $return[1] ), 'Koha::Patron' ); > is( $return[1]->id, $patron->id, 'Patron matched correctly' ); >diff --git a/t/db_dependent/Cache.t b/t/db_dependent/Cache.t >index 62f65a1d29..7ad4019173 100755 >--- a/t/db_dependent/Cache.t >+++ b/t/db_dependent/Cache.t >@@ -210,20 +210,20 @@ SKIP: { > $cache->set_in_cache( 'test_deep_copy_array', \@item ); > $item_from_cache = $cache->get_from_cache('test_deep_copy_array'); > @$item_from_cache = qw( another array ref ); >- is_deeply( $cache->get_from_cache('test_deep_copy_array'), [qw ( an array ref )], 'An array will be deep copied' ); >+ is_deeply( $cache->get_from_cache('test_deep_copy_array'), [qw( an array ref )], 'An array will be deep copied' ); > > $cache->flush_L1_cache(); > $item_from_cache = $cache->get_from_cache('test_deep_copy_array'); > @$item_from_cache = qw( another array ref ); > is_deeply( >- $cache->get_from_cache('test_deep_copy_array'), [qw ( an array ref )], >+ $cache->get_from_cache('test_deep_copy_array'), [qw( an array ref )], > 'An array will be deep copied even it is the first fetch from L2' > ); > > $item_from_cache = $cache->get_from_cache( 'test_deep_copy_array', { unsafe => 1 } ); > @$item_from_cache = qw( another array ref ); > is_deeply( >- $cache->get_from_cache( 'test_deep_copy_array', { unsafe => 1 } ), [qw ( another array ref )], >+ $cache->get_from_cache( 'test_deep_copy_array', { unsafe => 1 } ), [qw( another array ref )], > 'An array will not be deep copied if the unsafe flag is set' > ); > >diff --git a/t/db_dependent/ILSDI_Services.t b/t/db_dependent/ILSDI_Services.t >index 48267c6841..7bb4af50dc 100755 >--- a/t/db_dependent/ILSDI_Services.t >+++ b/t/db_dependent/ILSDI_Services.t >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use Test::NoWarnings; > use Test::More tests => 16; >@@ -29,7 +29,7 @@ use XML::LibXML; > > use C4::Items qw( ModItemTransfer ); > use C4::Circulation qw( AddIssue ); >-use C4::Reserves qw (AddReserve ModReserve ModReserveAffect ModReserveStatus); >+use C4::Reserves qw(AddReserve ModReserve ModReserveAffect ModReserveStatus); > > use Koha::AuthUtils; > use Koha::DateUtils qw( dt_from_string ); >diff --git a/t/db_dependent/Output.t b/t/db_dependent/Output.t >index 5ed9b6e6a5..9cb5538895 100755 >--- a/t/db_dependent/Output.t >+++ b/t/db_dependent/Output.t >@@ -22,7 +22,7 @@ use Test::MockModule; > use Test::NoWarnings; > use Test::Warn; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use t::lib::Mocks; > use t::lib::TestBuilder; >diff --git a/t/db_dependent/Search/History.t b/t/db_dependent/Search/History.t >index ac9a0a73c0..929a0836b8 100755 >--- a/t/db_dependent/Search/History.t >+++ b/t/db_dependent/Search/History.t >@@ -2,7 +2,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Test::MockModule; > use List::MoreUtils qw/all any none/; > use t::lib::Mocks; >diff --git a/t/db_dependent/api/v1/biblios.t b/t/db_dependent/api/v1/biblios.t >index 8ea4c18b39..b7f8a7b720 100755 >--- a/t/db_dependent/api/v1/biblios.t >+++ b/t/db_dependent/api/v1/biblios.t >@@ -36,7 +36,7 @@ use C4::Circulation qw( AddIssue AddReturn ); > > use Koha::Biblios; > use Koha::Database; >-use Koha::DateUtils qw (dt_from_string output_pref); >+use Koha::DateUtils qw(dt_from_string output_pref); > use Koha::Checkouts; > use Koha::Old::Checkouts; > >@@ -81,8 +81,7 @@ subtest 'get() tests' => sub { > ->status_is(400); > > $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber => { Accept => 'application/json' } ) >- ->status_is(200) >- ->json_is( '/title', 'The unbearable lightness of being' ) >+ ->status_is(200)->json_is( '/title', 'The unbearable lightness of being' ) > ->json_is( '/author', 'Milan Kundera' ); > > $t->get_ok( >@@ -97,21 +96,18 @@ subtest 'get() tests' => sub { > ->status_is(200); > > $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber => { Accept => 'text/plain' } ) >- ->status_is(200) >- ->content_is( $biblio->metadata->record->as_formatted ); >+ ->status_is(200)->content_is( $biblio->metadata->record->as_formatted ); > > # Simulate a data error situation (BZ35246) > $biblio->biblioitem->delete(); > > $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber => { Accept => 'application/json' } ) >- ->status_is(500) >- ->json_is( '/error_code', 'internal_server_error' ) >- ->json_is( '/error', 'Something went wrong, check Koha logs for details.' ); >+ ->status_is(500)->json_is( '/error_code', 'internal_server_error' ) >+ ->json_is( '/error', 'Something went wrong, check Koha logs for details.' ); > > $biblio->delete; > $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber => { Accept => 'application/marc' } ) >- ->status_is(404) >- ->json_is( '/error', 'Bibliographic record not found' ); >+ ->status_is(404)->json_is( '/error', 'Bibliographic record not found' ); > > subtest 'marc-in-json encoding tests' => sub { > >@@ -128,8 +124,7 @@ subtest 'get() tests' => sub { > > my $result = $t->get_ok( > "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber => { Accept => 'application/marc-in-json' } ) >- ->status_is(200) >- ->tx->res->body; >+ ->status_is(200)->tx->res->body; > > my $encoded_title = Encode::encode( "UTF-8", $title_with_diacritics ); > >@@ -158,8 +153,7 @@ subtest 'get() tests' => sub { > > my $result = $t->get_ok( > "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber => { Accept => 'application/marcxml+xml' } ) >- ->status_is(200) >- ->tx->res->body; >+ ->status_is(200)->tx->res->body; > > my $encoded_title = Encode::encode( "UTF-8", $title_with_diacritics ); > >@@ -192,16 +186,14 @@ subtest 'get_items() tests' => sub { > > $patron->flags(4)->store; > >- $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items" )->status_is(200) > ->json_is( '' => [], 'No items on the biblio' ); > > my $item_1 = $builder->build_sample_item( { biblionumber => $biblio->biblionumber } ); > my $item_2 = $builder->build_sample_item( { biblionumber => $biblio->biblionumber } ); > > $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items?_order_by=item_id" ) >- ->status_is(200) >- ->json_is( '' => [ $item_1->to_api, $item_2->to_api ], 'The items are returned' ); >+ ->status_is(200)->json_is( '' => [ $item_1->to_api, $item_2->to_api ], 'The items are returned' ); > > $t->get_ok( > "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/items" => { "x-koha-embed" => "+strings" } ) >@@ -242,8 +234,7 @@ subtest 'get_items() tests' => sub { > > $t->get_ok( "//$userid:$password@/api/v1/biblios/" > . $item->biblionumber >- . "/items" => { "x-koha-embed" => "first_hold+strings" } ) >- ->status_is(200) >+ . "/items" => { "x-koha-embed" => "first_hold+strings" } )->status_is(200) > ->json_is( > '/0/first_hold/_strings/pickup_library_id' => { type => 'library', str => $pickup_library->branchname } ); > }; >@@ -291,8 +282,7 @@ subtest 'delete() tests' => sub { > $item->delete(); > > # Bibs with no items can be deleted >- $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id") >- ->status_is( 204, 'REST3.2.4' ) >+ $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id")->status_is( 204, 'REST3.2.4' ) > ->content_is( '', 'REST3.3.4' ); > > $t->delete_ok("//$userid:$password@/api/v1/biblios/$biblio_id")->status_is(404); >@@ -339,8 +329,7 @@ subtest 'get_public() tests' => sub { > . $biblio->biblionumber => { Accept => 'application/weird+format' } )->status_is(400); > > $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'text/plain' } ) >- ->status_is(200) >- ->content_like(qr{100\s+_aMilan Kundera}) >+ ->status_is(200)->content_like(qr{100\s+_aMilan Kundera}) > ->content_like(qr{245\s+_aThe unbearable lightness of being}); > > $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" >@@ -354,8 +343,7 @@ subtest 'get_public() tests' => sub { > ->status_is(200); > > $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'text/plain' } ) >- ->status_is(200) >- ->content_is( $biblio->metadata->record->as_formatted ); >+ ->status_is(200)->content_is( $biblio->metadata->record->as_formatted ); > > subtest 'anonymous access' => sub { > plan tests => 9; >@@ -369,8 +357,7 @@ subtest 'get_public() tests' => sub { > $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'application/marc' } ) > ->status_is(200); > >- $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'text/plain' } ) >- ->status_is(200) >+ $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'text/plain' } )->status_is(200) > ->content_is( $biblio->metadata->record->as_formatted ); > }; > >@@ -389,8 +376,7 @@ subtest 'get_public() tests' => sub { > > my $result = > $t->get_ok( "/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'application/marc-in-json' } ) >- ->status_is(200) >- ->tx->res->body; >+ ->status_is(200)->tx->res->body; > > my $encoded_title = Encode::encode( "UTF-8", $title_with_diacritics ); > >@@ -406,8 +392,7 @@ subtest 'get_public() tests' => sub { > Koha::Caches->get_instance()->flush_all; > > $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'text/plain' } ) >- ->status_is(200) >- ->content_unlike(qr{100\s+_aMilan Kundera}) >+ ->status_is(200)->content_unlike(qr{100\s+_aMilan Kundera}) > ->content_like(qr{245\s+_aThe unbearable lightness of being}); > > subtest 'hidden_in_opac tests' => sub { >@@ -471,8 +456,7 @@ subtest 'get_public() tests' => sub { > $biblio->delete; > $t->get_ok( > "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber => { Accept => 'application/marc' } ) >- ->status_is(404) >- ->json_is( '/error', 'Bibliographic record not found' ); >+ ->status_is(404)->json_is( '/error', 'Bibliographic record not found' ); > > $schema->storage->txn_rollback; > }; >@@ -597,8 +581,7 @@ subtest 'pickup_locations() tests' => sub { > . "patron_id=" > . $patron->id > . "&_order_by=marc_org_code" >- . "&_per_page=1" ) >- ->json_is( [$library_1_api] ) >+ . "&_per_page=1" )->json_is( [$library_1_api] ) > ->header_is( 'X-Total-Count', '4', '4 is the count for libraries with pickup_location=1' ) > ->header_is( 'X-Base-Total-Count', '4', '4 is the count for libraries with pickup_location=1' ) > ->header_unlike( 'Link', qr|rel="prev"| ) >@@ -629,11 +612,8 @@ subtest 'pickup_locations() tests' => sub { > . "patron_id=" > . $patron->id > . "&_order_by=marc_org_code" >- . "&_per_page=1" ) >- ->json_is( [$library_1_api] ) >- ->header_is( 'X-Total-Count', '2' ) >- ->header_is( 'X-Base-Total-Count', '2' ) >- ->header_unlike( 'Link', qr|rel="prev"| ) >+ . "&_per_page=1" )->json_is( [$library_1_api] )->header_is( 'X-Total-Count', '2' ) >+ ->header_is( 'X-Base-Total-Count', '2' )->header_unlike( 'Link', qr|rel="prev"| ) > ->header_like( 'Link', qr#(_per_page=1.*\&_page=2.*|_page=2.*\&_per_page=1.*)>\; rel="next"# ) > ->header_like( 'Link', qr#(_per_page=1.*\&_page=1.*|_page=1.*\&_per_page=1).*>\; rel="first"# ) > ->header_like( 'Link', qr#(_per_page=1.*\&_page=2.*|_page=2.*\&_per_page=1).*>\; rel="last"# ); >@@ -653,8 +633,7 @@ subtest 'pickup_locations() tests' => sub { > > $t->get_ok( > "//$userid:$password@/api/v1/biblios/" . $biblio->id . "/pickup_locations?" . "patron_id=" . $patron->id ) >- ->status_is(404) >- ->json_is( '/error' => 'Bibliographic record not found' ); >+ ->status_is(404)->json_is( '/error' => 'Bibliographic record not found' ); > > $schema->storage->txn_rollback; > }; >@@ -693,15 +672,13 @@ subtest 'get_items_public() tests' => sub { > > my $biblio = $builder->build_sample_biblio(); > >- $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->id . "/items" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->id . "/items" )->status_is(200) > ->json_is( '' => [], 'No items on the biblio' ); > > my $item_1 = $builder->build_sample_item( { biblionumber => $biblio->id } ); > my $item_2 = $builder->build_sample_item( { biblionumber => $biblio->id, withdrawn => 1 } ); > >- $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/items" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/items" )->status_is(200) > ->json_is( > '' => [ > $item_1->to_api( { public => 1 } ), >@@ -712,8 +689,7 @@ subtest 'get_items_public() tests' => sub { > > $rules = { withdrawn => ['1'] }; > >- $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/items" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/items" )->status_is(200) > ->json_is( > '' => [ $item_1->to_api( { public => 1 } ) ], > 'The items are returned, hidden one is not returned' >@@ -726,8 +702,7 @@ subtest 'get_items_public() tests' => sub { > > $override_hidden_items = 1; > >- $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/items" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/items" )->status_is(200) > ->json_is( > '' => [ > $item_1->to_api( { public => 1 } ), >@@ -780,8 +755,7 @@ subtest 'get_bookings() tests' => sub { > > $t->get_ok( "//$unauth_userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/bookings" )->status_is(403); > >- $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/bookings" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/bookings" )->status_is(200) > ->json_is( '' => [], 'No bookings on the biblio' ); > > # One booking >@@ -800,8 +774,7 @@ subtest 'get_bookings() tests' => sub { > ); > > my $ret = >- $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/bookings" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/bookings" )->status_is(200) > ->tx->res->json; > > is_deeply( $ret, [ $booking_0->to_api ] ); >@@ -874,8 +847,7 @@ subtest 'get_checkouts() tests' => sub { > AddIssue( $patron, $item_2->barcode ); > > my $ret = >- $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/checkouts" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/checkouts" )->status_is(200) > ->tx->res->json; > > my $checkout_1 = Koha::Checkouts->find( { itemnumber => $item_1->id } ); >@@ -886,16 +858,14 @@ subtest 'get_checkouts() tests' => sub { > AddReturn( $item_1->barcode ); > > $ret = >- $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/checkouts" ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/checkouts" )->status_is(200) > ->tx->res->json; > > is_deeply( $ret, [ $checkout_2->to_api ] ); > > $ret = > $t->get_ok( "//$userid:$password@/api/v1/biblios/" . $biblio->biblionumber . "/checkouts?checked_in=1" ) >- ->status_is(200) >- ->tx->res->json; >+ ->status_is(200)->tx->res->json; > > my $old_checkout_1 = Koha::Old::Checkouts->find( $checkout_1->id ); > >@@ -927,18 +897,12 @@ subtest 'set_rating() tests' => sub { > > $t->post_ok( > "//$userid:$password@/api/v1/public/biblios/" . $biblio->biblionumber . "/ratings" => json => { rating => 3 } ) >- ->status_is(200) >- ->json_is( '/rating', '3' ) >- ->json_is( '/average', '3' ) >- ->json_is( '/count', '1' ); >+ ->status_is(200)->json_is( '/rating', '3' )->json_is( '/average', '3' )->json_is( '/count', '1' ); > > $t->post_ok( "//$userid:$password@/api/v1/public/biblios/" > . $biblio->biblionumber >- . "/ratings" => json => { rating => undef } ) >- ->status_is(200) >- ->json_is( '/rating', undef ) >- ->json_is( '/average', '0' ) >- ->json_is( '/count', '0' ); >+ . "/ratings" => json => { rating => undef } )->status_is(200)->json_is( '/rating', undef ) >+ ->json_is( '/average', '0' )->json_is( '/count', '0' ); > > $schema->storage->txn_rollback; > >@@ -1364,8 +1328,7 @@ subtest 'add() tests' => sub { > > $t->post_ok( "//$userid:$password@/api/v1/biblios" => > { 'Content-Type' => 'application/marcxml+xml', 'x-framework-id' => $frameworkcode } => $marcxml ) >- ->status_is(200) >- ->json_has('/id') >+ ->status_is(200)->json_has('/id') > ->header_is( 'Location' => "/api/v1/biblios/" . $t->tx->res->json->{id}, "REST3.4.1" ); > > $t->post_ok( >@@ -1376,8 +1339,7 @@ subtest 'add() tests' => sub { > )->status_is(200)->json_has('/id'); > > $t->post_ok( "//$userid:$password@/api/v1/biblios" => >- { 'Content-Type' => 'application/marc', 'x-framework-id' => $frameworkcode } => $marc ) >- ->status_is(200) >+ { 'Content-Type' => 'application/marc', 'x-framework-id' => $frameworkcode } => $marc )->status_is(200) > ->json_has('/id'); > > subtest 'x-record-source-id header tests' => sub { >@@ -1421,8 +1383,7 @@ subtest 'add() tests' => sub { > $mock_biblio->mock( 'AddBiblio', sub { return ( undef, undef ); } ); > > $t->post_ok( "//$userid:$password@/api/v1/biblios" => >- { 'Content-Type' => 'application/marc', 'x-framework-id' => $frameworkcode } => $marc ) >- ->status_is(400) >+ { 'Content-Type' => 'application/marc', 'x-framework-id' => $frameworkcode } => $marc )->status_is(400) > ->json_is( > { > error => 'Error creating record', >@@ -1850,8 +1811,7 @@ subtest 'put() tests' => sub { > > $t->put_ok( "//$userid:$password@/api/v1/biblios/$biblionumber" => > { 'Content-Type' => 'application/marcxml+xml', 'x-framework-id' => $frameworkcode } => $marcxml ) >- ->status_is(200) >- ->json_has('/id'); >+ ->status_is(200)->json_has('/id'); > > $biblio = Koha::Biblios->find($biblionumber); > >@@ -1859,16 +1819,14 @@ subtest 'put() tests' => sub { > > $t->put_ok( "//$userid:$password@/api/v1/biblios/$biblionumber" => > { 'Content-Type' => 'application/marc-in-json', 'x-framework-id' => $frameworkcode } => $mij ) >- ->status_is(200) >- ->json_has('/id'); >+ ->status_is(200)->json_has('/id'); > > $biblio = Koha::Biblios->find($biblionumber); > > is( $biblio->title, 'Introduction to Attic Greek (Using mij) /' ); > > $t->put_ok( "//$userid:$password@/api/v1/biblios/$biblionumber" => >- { 'Content-Type' => 'application/marc', 'x-framework-id' => $frameworkcode } => $marc ) >- ->status_is(200) >+ { 'Content-Type' => 'application/marc', 'x-framework-id' => $frameworkcode } => $marc )->status_is(200) > ->json_has('/id'); > > $biblio = Koha::Biblios->find($biblionumber); >@@ -1927,8 +1885,7 @@ subtest 'list() tests' => sub { > > my $result = > $t->get_ok( "//$userid:$password@/api/v1/biblios?q=$query" => { Accept => 'application/marcxml+xml' } ) >- ->status_is(200) >- ->tx->res->body; >+ ->status_is(200)->tx->res->body; > > my $encoded_title = Encode::encode( "UTF-8", $title_with_diacritics ); > like( $result, qr/\Q$encoded_title/, "The title is not double encoded" ); >@@ -1956,8 +1913,7 @@ subtest 'list() tests' => sub { > > $query = encode_json( { biblio_id => $biblio->id } ); > >- $t->get_ok( "//$userid:$password@/api/v1/biblios?q=$query" => { Accept => 'application/json' } ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/biblios?q=$query" => { Accept => 'application/json' } )->status_is(200) > ->json_is( '/0/timestamp' => > output_pref( { dt => $fixed_date, dateformat => 'rfc3339' }, 'biblio table timestamp takes precedence' ) ); > >@@ -2321,8 +2277,7 @@ subtest 'merge() tests' => sub { > my $result = > $t->post_ok( "//$userid:$password@/api/v1/biblios/$biblio_id1/merge" => > { 'Content-Type' => 'application/json', 'Accept' => 'application/marc-in-json' } => $json_input1 ) >- ->status_is(200) >- ->tx->res->body; >+ ->status_is(200)->tx->res->body; > like( $result, qr/$title_1/, "Merged record has the correct title" ); > unlike( $result, qr/$title_2/, "Merged record doesn't have the wrong title" ); > >@@ -2334,8 +2289,7 @@ subtest 'merge() tests' => sub { > $result = > $t->post_ok( "//$userid:$password@/api/v1/biblios/$biblio_id1/merge" => > { 'Content-Type' => 'application/json', 'Accept' => 'application/marc-in-json' } => $json_input2 ) >- ->status_is(200) >- ->tx->res->body; >+ ->status_is(200)->tx->res->body; > like( $result, qr/Using mij/, "Update with Marc-in-json record" ); > unlike( $result, qr/$title_1/, "Change all record with dat in the 'datarecord' field" ); > >diff --git a/t/db_dependent/api/v1/bookings.t b/t/db_dependent/api/v1/bookings.t >index c6a1cb05fb..9da1c887a2 100755 >--- a/t/db_dependent/api/v1/bookings.t >+++ b/t/db_dependent/api/v1/bookings.t >@@ -29,7 +29,7 @@ use JSON qw(encode_json); > > use Koha::Bookings; > use Koha::Database; >-use Koha::DateUtils qw (dt_from_string output_pref); >+use Koha::DateUtils qw(dt_from_string output_pref); > > my $schema = Koha::Database->new->schema; > my $builder = t::lib::TestBuilder->new; >@@ -135,13 +135,11 @@ subtest 'list() tests' => sub { > > $api_filter = encode_json( > { 'me.start_date' => { '<=' => output_pref( { dateformat => "rfc3339", dt => dt_from_string } ) } } ); >- $t->get_ok("//$userid:$password@/api/v1/bookings?q=$api_filter") >- ->status_is(200) >+ $t->get_ok("//$userid:$password@/api/v1/bookings?q=$api_filter")->status_is(200) > ->json_is( '' => [ $booking_0->to_api ], 'filtering to before today also works' ); > > # Warn on unsupported query parameter >- $t->get_ok("//$userid:$password@/api/v1/bookings?booking_blah=blah") >- ->status_is(400) >+ $t->get_ok("//$userid:$password@/api/v1/bookings?booking_blah=blah")->status_is(400) > ->json_is( [ { path => '/query/booking_blah', message => 'Malformed query string' } ] ); > > $schema->storage->txn_rollback; >@@ -178,16 +176,14 @@ subtest 'get() tests' => sub { > $t->get_ok( "//$unauth_userid:$password@/api/v1/bookings/" . $booking->booking_id )->status_is(403); > > # Authorized user tests >- $t->get_ok( "//$userid:$password@/api/v1/bookings/" . $booking->booking_id ) >- ->status_is(200) >+ $t->get_ok( "//$userid:$password@/api/v1/bookings/" . $booking->booking_id )->status_is(200) > ->json_is( $booking->to_api ); > > my $booking_to_delete = $builder->build_object( { class => 'Koha::Bookings' } ); > my $non_existent_id = $booking_to_delete->id; > $booking_to_delete->delete; > >- $t->get_ok("//$userid:$password@/api/v1/bookings/$non_existent_id") >- ->status_is(404) >+ $t->get_ok("//$userid:$password@/api/v1/bookings/$non_existent_id")->status_is(404) > ->json_is( '/error' => 'Booking not found' ); > > $schema->storage->txn_rollback; >@@ -248,8 +244,7 @@ subtest 'add() tests' => sub { > # Authorized attempt to write invalid data > my $booking_with_invalid_field = { %{$booking}, blah => 'some stuff' }; > >- $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_invalid_field ) >- ->status_is(400) >+ $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_invalid_field )->status_is(400) > ->json_is( > "/errors" => [ > { >@@ -261,10 +256,8 @@ subtest 'add() tests' => sub { > > # Authorized attempt to write > my $booking_id = >- $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking ) >- ->status_is( 201, 'REST3.2.1' ) >- ->header_like( Location => qr|^\/api\/v1\/bookings/\d*|, 'REST3.4.1' ) >- ->json_is( '/biblio_id' => $biblio->id ) >+ $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking )->status_is( 201, 'REST3.2.1' ) >+ ->header_like( Location => qr|^\/api\/v1\/bookings/\d*|, 'REST3.4.1' )->json_is( '/biblio_id' => $biblio->id ) > ->tx->res->json->{booking_id}; > > # Authorized attempt to create with null id >@@ -277,8 +270,7 @@ subtest 'add() tests' => sub { > $booking->{start_date} = output_pref( { dateformat => "rfc3339", dt => dt_from_string->add( days => 10 ) } ); > $booking->{end_date} = output_pref( { dateformat => "rfc3339", dt => dt_from_string->add( days => 14 ) } ); > warnings_like { >- $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking ) >- ->status_is(409) >+ $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking )->status_is(409) > ->json_is( "/error" => "Duplicate booking_id" ); > } > qr/DBD::mysql::st execute failed: Duplicate entry '(.*?)' for key '(.*\.?)PRIMARY'/; >@@ -346,8 +338,7 @@ subtest 'update() tests' => sub { > }; > > $t->put_ok( "//$userid:$password@/api/v1/bookings/$booking_id" => json => $booking_with_missing_field ) >- ->status_is(400) >- ->json_is( "/errors" => [ { message => "Missing property.", path => "/body/biblio_id" } ] ); >+ ->status_is(400)->json_is( "/errors" => [ { message => "Missing property.", path => "/body/biblio_id" } ] ); > > # Full object update on PUT > my $booking_with_updated_field = { >@@ -360,8 +351,7 @@ subtest 'update() tests' => sub { > }; > > $t->put_ok( "//$userid:$password@/api/v1/bookings/$booking_id" => json => $booking_with_updated_field ) >- ->status_is(200) >- ->json_is( '/biblio_id' => $biblio->id ); >+ ->status_is(200)->json_is( '/biblio_id' => $biblio->id ); > > # Authorized attempt to write invalid data > my $booking_with_invalid_field = { >@@ -375,8 +365,7 @@ subtest 'update() tests' => sub { > }; > > $t->put_ok( "//$userid:$password@/api/v1/bookings/$booking_id" => json => $booking_with_invalid_field ) >- ->status_is(400) >- ->json_is( >+ ->status_is(400)->json_is( > "/errors" => [ > { > message => "Properties not allowed: blah.", >@@ -445,8 +434,7 @@ subtest 'delete() tests' => sub { > # Unauthorized attempt to delete > $t->delete_ok("//$unauth_userid:$password@/api/v1/bookings/$booking_id")->status_is(403); > >- $t->delete_ok("//$userid:$password@/api/v1/bookings/$booking_id") >- ->status_is( 204, 'REST3.2.4' ) >+ $t->delete_ok("//$userid:$password@/api/v1/bookings/$booking_id")->status_is( 204, 'REST3.2.4' ) > ->content_is( '', 'REST3.3.4' ); > > $t->delete_ok("//$userid:$password@/api/v1/bookings/$booking_id")->status_is(404); >@@ -506,8 +494,7 @@ subtest 'patch() tests' => sub { > }; > > $t->patch_ok( "//$userid:$password@/api/v1/bookings/$booking_id" => json => $booking_with_invalid_field ) >- ->status_is(400) >- ->json_is( >+ ->status_is(400)->json_is( > "/errors" => [ > { > message => "Properties not allowed: blah.", >@@ -586,8 +573,7 @@ subtest 'add() with itemtype_id tests' => sub { > > my $tx = > $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_itemtype ) >- ->status_is( 201, 'Created booking with itemtype_id' ) >- ->json_has( '/item_id', 'Server assigned an item_id' ) >+ ->status_is( 201, 'Created booking with itemtype_id' )->json_has( '/item_id', 'Server assigned an item_id' ) > ->json_is( '/biblio_id' => $biblio->id ); > > my $assigned_item_id = $tx->tx->res->json->{item_id}; >@@ -607,8 +593,7 @@ subtest 'add() with itemtype_id tests' => sub { > end_date => output_pref( { dateformat => "rfc3339", dt => dt_from_string->add( days => 14 ) } ), > }; > >- $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_both ) >- ->status_is(400) >+ $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_both )->status_is(400) > ->json_is( '/error' => 'Cannot specify both item_id and itemtype_id' ); > > # Test 3: Booking with neither item_id nor itemtype_id should fail >@@ -620,8 +605,7 @@ subtest 'add() with itemtype_id tests' => sub { > end_date => output_pref( { dateformat => "rfc3339", dt => dt_from_string->add( days => 24 ) } ), > }; > >- $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_neither ) >- ->status_is(400) >+ $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_with_neither )->status_is(400) > ->json_is( '/error' => 'Either item_id or itemtype_id must be provided' ); > > # Test 4: Verify optimal selection - book all items, then try to book again >@@ -648,8 +632,7 @@ subtest 'add() with itemtype_id tests' => sub { > end_date => output_pref( { dateformat => "rfc3339", dt => dt_from_string->add( days => 5 ) } ), > }; > >- $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_should_fail ) >- ->status_is(400) >+ $t->post_ok( "//$userid:$password@/api/v1/bookings" => json => $booking_should_fail )->status_is(400) > ->json_is( '/error' => 'Booking would conflict' ); > > $schema->storage->txn_rollback; >diff --git a/tags/list.pl b/tags/list.pl >index 05df0a167e..f97edee059 100755 >--- a/tags/list.pl >+++ b/tags/list.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Biblio qw( GetBiblioData ); >diff --git a/tags/review.pl b/tags/review.pl >index 858483d780..526e32865c 100755 >--- a/tags/review.pl >+++ b/tags/review.pl >@@ -21,7 +21,7 @@ > > use Modern::Perl; > use POSIX qw( ceil ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; # need to check cookies before having CGI parse the POST request > use URI::Escape qw( uri_escape_utf8 uri_unescape ); > use C4::Auth qw( check_cookie_auth get_template_and_user ); >@@ -110,7 +110,7 @@ if ( $op eq 'cud-approve' ) { > $template->param( > test_term => $tag, > ( >- $check >= 1 ? 'verdict_ok' >+ $check >= 1 ? 'verdict_ok' > : $check <= -1 ? 'verdict_rej' > : 'verdict_indeterminate' > ) => 1, >diff --git a/tools/additional-contents.pl b/tools/additional-contents.pl >index 4c019f5951..02a1ddd666 100755 >--- a/tools/additional-contents.pl >+++ b/tools/additional-contents.pl >@@ -23,7 +23,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > use Array::Utils qw( array_minus ); > use C4::Auth qw(get_template_and_user); >diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl >index b929fcf509..daaba2f485 100755 >--- a/tools/ajax-inventory.pl >+++ b/tools/ajax-inventory.pl >@@ -1,7 +1,7 @@ > #!/usr/bin/perl > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( check_api_auth ); > use C4::Items qw( ModDateLastSeen ); > >diff --git a/tools/batchMod.pl b/tools/batchMod.pl >index 09072fc77a..5b25f77c84 100755 >--- a/tools/batchMod.pl >+++ b/tools/batchMod.pl >@@ -17,7 +17,7 @@ > # You should have received a copy of the GNU General Public License > # along with Koha; if not, see <https://www.gnu.org/licenses>. > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Modern::Perl; > use Try::Tiny qw( catch try ); > >diff --git a/tools/batch_records_ajax.pl b/tools/batch_records_ajax.pl >index 7181e62421..c08f4972ef 100755 >--- a/tools/batch_records_ajax.pl >+++ b/tools/batch_records_ajax.pl >@@ -31,7 +31,7 @@ the records from an import batch. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON qw( to_json ); > > use C4::Context; >diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl >index 3340aa1998..5cbb9804bb 100755 >--- a/tools/cleanborrowers.pl >+++ b/tools/cleanborrowers.pl >@@ -33,7 +33,7 @@ This script allows to do 2 things. > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Members qw( GetBorrowersToExpunge ); >diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl >index 3646145db6..e1f74b8e06 100755 >--- a/tools/copy-holidays.pl >+++ b/tools/copy-holidays.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( checkauth ); > use C4::Output; >diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl >index 3f41d0d3c1..6742aeb515 100755 >--- a/tools/csv-profiles.pl >+++ b/tools/csv-profiles.pl >@@ -40,7 +40,7 @@ use Encode; > use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Koha::CsvProfiles; > > my $input = CGI->new; >diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl >index e00b26bc8d..b7646bb95a 100755 >--- a/tools/exceptionHolidays.pl >+++ b/tools/exceptionHolidays.pl >@@ -2,7 +2,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( checkauth ); > use C4::Output; >diff --git a/tools/export.pl b/tools/export.pl >index 5e0bdfd8e2..1b00d6dffb 100755 >--- a/tools/export.pl >+++ b/tools/export.pl >@@ -17,7 +17,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use MARC::File::XML; > use List::MoreUtils qw( uniq ); > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/holidays.pl b/tools/holidays.pl >index 28b0c29857..9f9536d71e 100755 >--- a/tools/holidays.pl >+++ b/tools/holidays.pl >@@ -18,7 +18,7 @@ > #####Sets holiday periods for each branch. Datedues will be extended if branch is closed -TG > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl >index eed7265758..9edb0eb14c 100755 >--- a/tools/import_borrowers.pl >+++ b/tools/import_borrowers.pl >@@ -52,7 +52,7 @@ my $Import = Koha::Patrons::Import->new(); > > use Text::CSV; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > my $extended = C4::Context->preference('ExtendedPatronAttributes'); > >diff --git a/tools/inventory.pl b/tools/inventory.pl >index 19c0cadc9a..f4ae26aa6f 100755 >--- a/tools/inventory.pl >+++ b/tools/inventory.pl >@@ -21,7 +21,7 @@ > use Modern::Perl; > > #need to open cgi and get the fh before anything else opens a new cgi context (see C4::Auth) >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > my $input = CGI->new; > my $uploadbarcodes = $input->param('uploadbarcodes'); > my $barcodelist = $input->param('barcodelist'); >diff --git a/tools/letter.pl b/tools/letter.pl >index 631cfa2646..0d29fc80b1 100755 >--- a/tools/letter.pl >+++ b/tools/letter.pl >@@ -41,7 +41,7 @@ > # The DB interaction should be handled by calls to C4/Letters.pm > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny; > > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl >index 55f8bd264b..eb02724497 100755 >--- a/tools/manage-marc-import.pl >+++ b/tools/manage-marc-import.pl >@@ -20,7 +20,7 @@ > use Modern::Perl; > > # standard or CPAN modules used >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; > use MARC::File::USMARC; > use Try::Tiny; >diff --git a/tools/marc_modification_templates.pl b/tools/marc_modification_templates.pl >index 66c4f52903..9f19cb91e1 100755 >--- a/tools/marc_modification_templates.pl >+++ b/tools/marc_modification_templates.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl >index b09a41d343..479fa571e5 100755 >--- a/tools/modborrowers.pl >+++ b/tools/modborrowers.pl >@@ -26,7 +26,7 @@ > # And for patron attributes. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Koha qw( GetAuthorisedValues ); > use C4::Members; >diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl >index 9361083e0c..81f7cc85a3 100755 >--- a/tools/newHolidays.pl >+++ b/tools/newHolidays.pl >@@ -18,7 +18,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( checkauth ); > use C4::Output; >diff --git a/tools/overduerules.pl b/tools/overduerules.pl >index 1279d51c85..44bfe42c0d 100755 >--- a/tools/overduerules.pl >+++ b/tools/overduerules.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/page.pl b/tools/page.pl >index da68cc3439..dbd8e41077 100755 >--- a/tools/page.pl >+++ b/tools/page.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::AdditionalContents; >diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl >index 3b2f42ff95..4b80951512 100755 >--- a/tools/picture-upload.pl >+++ b/tools/picture-upload.pl >@@ -22,7 +22,7 @@ > use Modern::Perl; > > use File::Temp; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use GD; > use MIME::Base64; > use Cwd; >diff --git a/tools/problem-reports.pl b/tools/problem-reports.pl >index 13d1db41fb..3a253fdd0b 100755 >--- a/tools/problem-reports.pl >+++ b/tools/problem-reports.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Context; > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl >index d8260d94d9..9c80c9e211 100755 >--- a/tools/quotes-upload.pl >+++ b/tools/quotes-upload.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); > > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/quotes.pl b/tools/quotes.pl >index 04d259297d..0baa437055 100755 >--- a/tools/quotes.pl >+++ b/tools/quotes.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Try::Tiny qw( catch try ); > > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/scheduler.pl b/tools/scheduler.pl >index 97483d003d..9e1c26dc78 100755 >--- a/tools/scheduler.pl >+++ b/tools/scheduler.pl >@@ -22,7 +22,7 @@ use C4::Context; > use C4::Scheduler qw( add_at_job get_jobs remove_at_job ); > use C4::Reports::Guided qw( get_saved_reports ); > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use Koha::DateUtils qw( dt_from_string ); > use Koha::Reports; >diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl >index c70b401b32..a589b1f6be 100755 >--- a/tools/stage-marc-import.pl >+++ b/tools/stage-marc-import.pl >@@ -27,7 +27,7 @@ > use Modern::Perl; > > # standard or CPAN modules used >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; > use MARC::File::USMARC; > use Try::Tiny; >diff --git a/tools/tools-home.pl b/tools/tools-home.pl >index 9db358affa..87726fc49f 100755 >--- a/tools/tools-home.pl >+++ b/tools/tools-home.pl >@@ -17,7 +17,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Tags qw( get_count_by_tag_status ); >diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl >index ee3e9ae102..a7be9e3fa3 100755 >--- a/tools/upload-cover-image.pl >+++ b/tools/upload-cover-image.pl >@@ -41,7 +41,7 @@ use Modern::Perl; > use Cwd; > > use File::Temp; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use GD; > use C4::Context; > use C4::Auth qw( get_template_and_user ); >diff --git a/tools/upload-file.pl b/tools/upload-file.pl >index 41de083f11..29dc7d95b4 100755 >--- a/tools/upload-file.pl >+++ b/tools/upload-file.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use CGI::Cookie; > use Encode; > use JSON; >diff --git a/tools/viewlog.pl b/tools/viewlog.pl >index 2ea2feb359..46d02b7a12 100755 >--- a/tools/viewlog.pl >+++ b/tools/viewlog.pl >@@ -21,7 +21,7 @@ > use Modern::Perl; > > use C4::Auth qw( get_template_and_user ); >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use JSON; > use Text::CSV::Encoded; > use C4::Context; >diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl >index 82dcbb1885..fe001cb937 100755 >--- a/virtualshelves/addbybiblionumber.pl >+++ b/virtualshelves/addbybiblionumber.pl >@@ -57,7 +57,7 @@ addbybiblionumber.pl > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Output qw( output_html_with_http_headers ); > use C4::Auth qw( get_template_and_user ); > >diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl >index fbf7ff7499..8913de51e0 100755 >--- a/virtualshelves/downloadshelf.pl >+++ b/virtualshelves/downloadshelf.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > > use C4::Auth qw( get_template_and_user ); > use C4::Output qw( output_html_with_http_headers ); >diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl >index d8f42cf178..a0d06fc95c 100755 >--- a/virtualshelves/sendshelf.pl >+++ b/virtualshelves/sendshelf.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use Encode; > use Carp qw( carp ); > use Try::Tiny qw( catch try ); >diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl >index f64caf7542..ffa4f42b2f 100755 >--- a/virtualshelves/shelves.pl >+++ b/virtualshelves/shelves.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <https://www.gnu.org/licenses>. > > use Modern::Perl; >-use CGI qw ( -utf8 ); >+use CGI qw( -utf8 ); > use C4::Auth qw( get_template_and_user haspermission ); > use C4::Circulation qw( barcodedecode ); > use C4::Context; >-- >2.43.0 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 42092
:
195333
|
195334
|
195359
|
195360