From 8e181e5afa624a085cb8c13891a6734584288286 Mon Sep 17 00:00:00 2001 From: Fridolin Somers 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 . 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 . 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 . 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 . 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 . 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 . 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 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 @@ # 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . # 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 . 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 . 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 . -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 . 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 . 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 . 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