@@ -, +, @@ --- C4/Acquisition.pm | 4 +-- C4/Auth.pm | 6 ++--- C4/Auth_with_cas.pm | 2 +- C4/Auth_with_ldap.pm | 4 +-- C4/Auth_with_shibboleth.pm | 2 +- C4/AuthoritiesMarc.pm | 6 ++--- C4/BackgroundJob.pm | 2 +- C4/Biblio.pm | 3 ++- C4/Breeding.pm | 10 +++---- C4/Circulation.pm | 8 +++--- C4/ClassSortRoutine/Dewey.pm | 2 +- C4/ClassSortRoutine/Generic.pm | 2 +- C4/ClassSortRoutine/LCC.pm | 2 +- C4/CourseReserves.pm | 2 +- C4/HoldsQueue.pm | 4 +-- C4/ILSDI/Services.pm | 12 ++++----- C4/ImportBatch.pm | 8 +++--- C4/InstallAuth.pm | 2 +- C4/Items.pm | 4 +-- C4/Labels/Label.pm | 2 +- C4/MarcModificationTemplates.pm | 2 +- C4/Members.pm | 4 +-- C4/Message.pm | 2 +- C4/Output.pm | 2 +- C4/Record.pm | 4 +-- C4/Reports/Guided.pm | 2 +- C4/Reserves.pm | 6 ++--- C4/Ris.pm | 2 +- C4/SIP/ILS.pm | 2 +- C4/SIP/SIPServer.pm | 12 ++++----- C4/SIP/Sip.pm | 2 +- C4/Search.pm | 10 +++---- C4/Serials.pm | 4 +-- C4/Service.pm | 4 +-- C4/ShelfBrowser.pm | 4 +-- C4/SocialData.pm | 2 +- C4/Suggestions.pm | 2 +- C4/Templates.pm | 2 +- C4/TmplToken.pm | 2 +- C4/XISBN.pm | 6 ++--- C4/XSLT.pm | 6 ++--- Koha/Account.pm | 2 +- Koha/Account/Line.pm | 2 +- Koha/Acquisition/Order.pm | 2 +- Koha/BackgroundJob/BatchUpdateBiblio.pm | 2 +- Koha/Biblio.pm | 2 +- Koha/BiblioUtils.pm | 2 +- Koha/BiblioUtils/Iterator.pm | 2 +- Koha/Checkout.pm | 2 +- Koha/Checkouts.pm | 2 +- Koha/EDI.pm | 2 +- Koha/Exporter/Record.pm | 2 +- Koha/ExternalContent.pm | 2 +- Koha/Hold.pm | 2 +- Koha/I18N.pm | 2 +- Koha/Illrequest.pm | 4 +-- Koha/Illrequest/Logger.pm | 2 +- Koha/Item.pm | 6 ++--- Koha/Item/Transfer.pm | 2 +- Koha/ItemType.pm | 4 +-- Koha/ItemTypes.pm | 2 +- Koha/MetaSearcher.pm | 2 +- Koha/MetadataRecord.pm | 2 +- Koha/MetadataRecord/Authority.pm | 2 +- Koha/Patron.pm | 2 +- Koha/Patron/Discharge.pm | 2 +- Koha/Patrons/Import.pm | 2 +- Koha/Plugins/Base.pm | 2 +- Koha/SearchEngine/Search.pm | 2 +- Koha/UploadedFiles.pm | 2 +- Koha/Virtualshelf.pm | 2 +- Koha/Z3950Responder/Session.pm | 2 +- about.pl | 6 ++--- acqui/acqui-home.pl | 4 +-- acqui/add_user_search.pl | 4 +-- acqui/addorder.pl | 8 +++--- acqui/addorderiso2709.pl | 12 ++++----- acqui/ajax-getauthvaluedropbox.pl | 4 +-- acqui/basket.pl | 10 +++---- acqui/basketgroup.pl | 6 ++--- acqui/basketheader.pl | 4 +-- acqui/booksellers.pl | 4 +-- acqui/cancelorder.pl | 4 +-- acqui/check_budget_total.pl | 4 +-- acqui/check_uniqueness.pl | 4 +-- acqui/duplicate_orders.pl | 4 +-- acqui/edi_ean.pl | 4 +-- acqui/edifactmsgs.pl | 6 ++--- acqui/edimsg.pl | 4 +-- acqui/finishreceive.pl | 6 ++--- acqui/histsearch.pl | 4 +-- acqui/invoice-files.pl | 4 +-- acqui/invoice.pl | 4 +-- acqui/invoices.pl | 4 +-- acqui/lateorders-export.pl | 2 +- acqui/lateorders.pl | 6 ++--- acqui/modordernotes.pl | 4 +-- acqui/neworderempty.pl | 12 ++++----- acqui/newordersubscription.pl | 6 ++--- acqui/newordersuggestion.pl | 4 +-- acqui/ordered.pl | 4 +-- acqui/orderreceive.pl | 8 +++--- acqui/parcel.pl | 6 ++--- acqui/parcels.pl | 4 +-- acqui/showorder.pl | 4 +-- acqui/spent.pl | 4 +-- acqui/supplier.pl | 4 +-- acqui/transferorder.pl | 4 +-- acqui/uncertainprice.pl | 4 +-- acqui/updatesupplier.pl | 2 +- acqui/z3950_search.pl | 6 ++--- admin/add_user_search.pl | 4 +-- admin/additional-fields.pl | 4 +-- admin/admin-home.pl | 4 +-- admin/adveditorshortcuts.pl | 4 +-- admin/aqbudgetperiods.pl | 4 +-- admin/aqbudgets.pl | 6 ++--- admin/aqcontract.pl | 4 +-- admin/aqplan.pl | 4 +-- admin/audio_alerts.pl | 4 +-- admin/auth_subfields_structure.pl | 4 +-- admin/auth_tag_structure.pl | 4 +-- admin/authorised_values.pl | 6 ++--- admin/authtypes.pl | 4 +-- admin/background_jobs.pl | 4 +-- admin/biblio_framework.pl | 4 +-- admin/branch_transfer_limits.pl | 6 ++--- admin/branches.pl | 4 +-- admin/cash_registers.pl | 4 +-- admin/categories.pl | 4 +-- admin/check_budget_parent.pl | 4 +-- admin/check_parent_total.pl | 4 +-- admin/checkmarc.pl | 4 +-- admin/cities.pl | 4 +-- admin/classsources.pl | 8 +++--- admin/clone-rules.pl | 4 +-- admin/columns_settings.pl | 4 +-- admin/credit_types.pl | 4 +-- admin/currency.pl | 4 +-- admin/debit_types.pl | 4 +-- admin/desks.pl | 4 +-- admin/didyoumean.pl | 4 +-- admin/edi_accounts.pl | 4 +-- admin/edi_ean_accounts.pl | 4 +-- admin/import_export_framework.pl | 4 +-- admin/item_circulation_alerts.pl | 4 +-- admin/items_search_field.pl | 4 +-- admin/items_search_fields.pl | 4 +-- admin/itemtypes.pl | 6 ++--- admin/koha2marclinks.pl | 4 +-- admin/library_groups.pl | 4 +-- admin/localization.pl | 4 +-- admin/marc_subfields_structure.pl | 4 +-- admin/marctagstructure.pl | 4 +-- admin/matching-rules.pl | 4 +-- admin/oai_set_mappings.pl | 4 +-- admin/oai_sets.pl | 4 +-- admin/overdrive.pl | 4 +-- admin/patron-attr-types.pl | 4 +-- admin/preferences.pl | 10 +++---- admin/share_content.pl | 4 +-- admin/smart-rules.pl | 4 +-- admin/sms_providers.pl | 4 +-- admin/smtp_servers.pl | 4 +-- admin/sru_modmapping.pl | 4 +-- admin/systempreferences.pl | 10 +++---- admin/transfer_limits.pl | 4 +-- admin/transport-cost-matrix.pl | 6 ++--- admin/usage_statistics.pl | 4 +-- admin/z3950servers.pl | 4 +-- authorities/auth_finder.pl | 4 +-- authorities/authorities-home.pl | 6 ++--- authorities/authorities.pl | 10 +++---- authorities/blinddetail-biblio-search.pl | 6 ++--- authorities/detail-biblio-search.pl | 6 ++--- authorities/detail.pl | 8 +++--- authorities/export.pl | 4 +-- authorities/merge.pl | 8 +++--- authorities/merge_ajax.pl | 4 +-- authorities/ysearch.pl | 6 ++--- basket/basket.pl | 8 +++--- basket/downloadcart.pl | 6 ++--- basket/sendbasket.pl | 8 +++--- catalogue/ISBDdetail.pl | 12 ++++----- catalogue/MARCdetail.pl | 14 +++++----- catalogue/detail.pl | 24 ++++++++--------- catalogue/export.pl | 4 +-- catalogue/getitem-ajax.pl | 6 ++--- catalogue/imageviewer.pl | 8 +++--- catalogue/issuehistory.pl | 8 +++--- catalogue/item-export.pl | 2 +- catalogue/itemsearch.pl | 8 +++--- catalogue/labeledMARCdetail.pl | 12 ++++----- catalogue/moredetail.pl | 14 +++++----- catalogue/search-history.pl | 4 +-- catalogue/search.pl | 12 ++++----- catalogue/showmarc.pl | 8 +++--- catalogue/stockrotation.pl | 10 +++---- catalogue/updateitem.pl | 4 +-- cataloguing/addbiblio.pl | 16 ++++++------ cataloguing/addbooks.pl | 12 ++++----- cataloguing/additem.pl | 16 ++++++------ cataloguing/editor.pl | 4 +-- cataloguing/linkitem.pl | 8 +++--- cataloguing/merge.pl | 12 ++++----- cataloguing/merge_ajax.pl | 4 +-- cataloguing/moveitem.pl | 6 ++--- cataloguing/value_builder/EXAMPLE.pl | 4 +-- cataloguing/value_builder/barcode.pl | 2 +- cataloguing/value_builder/barcode_manual.pl | 2 +- cataloguing/value_builder/callnumber-KU.pl | 4 +-- cataloguing/value_builder/callnumber.pl | 4 +-- cataloguing/value_builder/cn_browser.pl | 6 ++--- cataloguing/value_builder/macles.pl | 4 +-- cataloguing/value_builder/marc21_field_006.pl | 4 +-- cataloguing/value_builder/marc21_field_007.pl | 4 +-- cataloguing/value_builder/marc21_field_008.pl | 4 +-- .../marc21_field_008_authorities.pl | 4 +-- .../marc21_field_008_classifications.pl | 4 +-- cataloguing/value_builder/marc21_leader.pl | 4 +-- .../marc21_leader_authorities.pl | 4 +-- .../value_builder/marc21_linking_section.pl | 10 +++---- .../value_builder/normarc_field_007.pl | 4 +-- .../value_builder/normarc_field_008.pl | 4 +-- cataloguing/value_builder/normarc_leader.pl | 4 +-- cataloguing/value_builder/stocknumberAV.pl | 4 +-- cataloguing/value_builder/stocknumberam123.pl | 4 +-- .../value_builder/unimarc_field_010.pl | 4 +-- .../value_builder/unimarc_field_100.pl | 4 +-- .../unimarc_field_100_authorities.pl | 4 +-- .../value_builder/unimarc_field_105.pl | 4 +-- .../value_builder/unimarc_field_106.pl | 4 +-- .../value_builder/unimarc_field_110.pl | 4 +-- .../value_builder/unimarc_field_115a.pl | 4 +-- .../value_builder/unimarc_field_115b.pl | 4 +-- .../value_builder/unimarc_field_116.pl | 4 +-- .../value_builder/unimarc_field_117.pl | 4 +-- .../value_builder/unimarc_field_120.pl | 4 +-- .../value_builder/unimarc_field_121a.pl | 4 +-- .../value_builder/unimarc_field_121b.pl | 4 +-- .../value_builder/unimarc_field_122.pl | 4 +-- .../value_builder/unimarc_field_123a.pl | 4 +-- .../value_builder/unimarc_field_123d.pl | 4 +-- .../value_builder/unimarc_field_123e.pl | 4 +-- .../value_builder/unimarc_field_123f.pl | 4 +-- .../value_builder/unimarc_field_123g.pl | 4 +-- .../value_builder/unimarc_field_123i.pl | 4 +-- .../value_builder/unimarc_field_123j.pl | 4 +-- .../value_builder/unimarc_field_124.pl | 4 +-- .../value_builder/unimarc_field_124a.pl | 4 +-- .../value_builder/unimarc_field_124b.pl | 4 +-- .../value_builder/unimarc_field_124c.pl | 4 +-- .../value_builder/unimarc_field_124d.pl | 4 +-- .../value_builder/unimarc_field_124e.pl | 4 +-- .../value_builder/unimarc_field_124f.pl | 4 +-- .../value_builder/unimarc_field_124g.pl | 4 +-- .../value_builder/unimarc_field_125.pl | 4 +-- .../value_builder/unimarc_field_125a.pl | 4 +-- .../value_builder/unimarc_field_125b.pl | 4 +-- .../value_builder/unimarc_field_126.pl | 4 +-- .../value_builder/unimarc_field_126a.pl | 4 +-- .../value_builder/unimarc_field_126b.pl | 4 +-- .../value_builder/unimarc_field_127.pl | 4 +-- .../value_builder/unimarc_field_128a.pl | 4 +-- .../value_builder/unimarc_field_128b.pl | 4 +-- .../value_builder/unimarc_field_128c.pl | 4 +-- .../value_builder/unimarc_field_130.pl | 4 +-- .../value_builder/unimarc_field_135a.pl | 4 +-- .../value_builder/unimarc_field_140.pl | 4 +-- .../value_builder/unimarc_field_141.pl | 4 +-- .../value_builder/unimarc_field_210c.pl | 8 +++--- .../value_builder/unimarc_field_210c_bis.pl | 6 ++--- .../value_builder/unimarc_field_225a.pl | 6 ++--- .../value_builder/unimarc_field_225a_bis.pl | 4 +-- .../value_builder/unimarc_field_4XX.pl | 10 +++---- .../value_builder/unimarc_field_686a.pl | 4 +-- .../value_builder/unimarc_field_700-4.pl | 4 +-- cataloguing/value_builder/unimarc_leader.pl | 4 +-- cataloguing/ysearch.pl | 4 +-- cataloguing/z3950_auth_search.pl | 6 ++--- cataloguing/z3950_search.pl | 6 ++--- circ/add_message.pl | 2 +- circ/article-request-slip.pl | 6 ++--- circ/article-requests.pl | 4 +-- circ/bookcount.pl | 4 +-- circ/branchoverdues.pl | 10 +++---- circ/branchtransfers.pl | 8 +++--- circ/checkout-notes.pl | 4 +-- circ/circulation-home.pl | 4 +-- circ/circulation.pl | 10 +++---- circ/del_message.pl | 2 +- circ/hold-transfer-slip.pl | 6 ++--- circ/offline-mf.pl | 2 +- circ/offline.pl | 4 +-- circ/on-site_checkouts.pl | 4 +-- circ/overdue.pl | 4 +-- circ/pendingreserves.pl | 4 +-- circ/renew.pl | 6 ++--- circ/request-article.pl | 8 +++--- circ/reserveratios.pl | 4 +-- circ/returns.pl | 16 ++++++------ circ/set-library.pl | 4 +-- circ/transfer-slip.pl | 6 ++--- circ/transfers_to_send.pl | 4 +-- circ/transferstoreceive.pl | 6 ++--- circ/view_holdsqueue.pl | 6 ++--- circ/waitingreserves.pl | 8 +++--- circ/ysearch.pl | 2 +- clubs/club-enrollments.pl | 4 +-- clubs/clubs-add-modify.pl | 4 +-- clubs/clubs.pl | 4 +-- clubs/patron-clubs-tab.pl | 4 +-- clubs/patron-enroll.pl | 4 +-- clubs/templates-add-modify.pl | 4 +-- course_reserves/add_items.pl | 8 +++--- course_reserves/batch_add_items.pl | 6 ++--- course_reserves/batch_rm_items.pl | 6 ++--- course_reserves/course-details.pl | 6 ++--- course_reserves/course-reserves.pl | 6 ++--- course_reserves/course.pl | 8 +++--- course_reserves/mod_course.pl | 4 +-- errors/400.pl | 4 +-- errors/401.pl | 4 +-- errors/402.pl | 4 +-- errors/403.pl | 4 +-- errors/404.pl | 4 +-- errors/500.pl | 4 +-- help.pl | 2 +- ill/ill-requests.pl | 4 +-- installer/install.pl | 6 ++--- installer/onboarding.pl | 6 ++--- labels/label-create-pdf.pl | 2 +- labels/label-edit-batch.pl | 4 +-- labels/label-edit-layout.pl | 4 +-- labels/label-edit-profile.pl | 4 +-- labels/label-edit-range.pl | 4 +-- labels/label-edit-template.pl | 4 +-- labels/label-home.pl | 4 +-- labels/label-item-search.pl | 8 +++--- labels/label-manage.pl | 4 +-- labels/label-print.pl | 4 +-- labels/spinelabel-home.pl | 4 +-- labels/spinelabel-print.pl | 4 +-- mainpage.pl | 6 ++--- members/accountline-details.pl | 4 +-- members/apikeys.pl | 4 +-- members/boraccount.pl | 4 +-- members/cancel-charge.pl | 2 +- members/deletemem.pl | 4 +-- members/discharge.pl | 4 +-- members/discharges.pl | 4 +-- members/files.pl | 4 +-- members/guarantor_search.pl | 4 +-- members/holdshistory.pl | 4 +-- members/housebound.pl | 4 +-- members/ill-requests.pl | 4 +-- members/mancredit.pl | 4 +-- members/maninvoice.pl | 4 +-- members/member-flags.pl | 6 ++--- members/member-password.pl | 4 +-- members/member.pl | 4 +-- members/memberentry.pl | 12 ++++----- members/members-home.pl | 4 +-- members/members-update-do.pl | 2 +- members/members-update.pl | 4 +-- members/merge-patrons.pl | 4 +-- members/mod_debarment.pl | 2 +- members/moremember.pl | 4 +-- members/notices.pl | 6 ++--- members/pay.pl | 4 +-- members/paycollect.pl | 4 +-- members/print_overdues.pl | 6 ++--- members/printfeercpt.pl | 6 ++--- members/printinvoice.pl | 6 ++--- members/printslip.pl | 6 ++--- members/purchase-suggestions.pl | 4 +-- members/readingrec.pl | 6 ++--- members/routing-lists.pl | 4 +-- members/setstatus.pl | 2 +- members/statistics.pl | 6 ++--- members/summary-print.pl | 6 ++--- members/update-child.pl | 4 +-- misc/add_date_fields_to_marc_records.pl | 2 +- misc/batchDeleteUnusedSubfields.pl | 2 +- misc/batchImportMARCWithBiblionumbers.pl | 2 +- misc/batchRebuildBiblioTables.pl | 4 +-- misc/batchRebuildItemsTables.pl | 4 +-- misc/batchRepairMissingBiblionumbers.pl | 2 +- misc/batchdeletebiblios.pl | 2 +- misc/commit_file.pl | 2 +- misc/cronjobs/advance_notices.pl | 2 +- misc/cronjobs/archive_purchase_suggestions.pl | 2 +- .../automatic_item_modification_by_age.pl | 2 +- misc/cronjobs/automatic_renewals.pl | 4 +-- misc/cronjobs/build_browser_and_cloud.pl | 2 +- misc/cronjobs/cart_to_shelf.pl | 2 +- misc/cronjobs/check-url-quick.pl | 2 +- misc/cronjobs/delete_items.pl | 2 +- misc/cronjobs/delete_patrons.pl | 2 +- misc/cronjobs/delete_records_via_leader.pl | 2 +- misc/cronjobs/edi_cron.pl | 2 +- misc/cronjobs/fines.pl | 2 +- misc/cronjobs/gather_print_notices.pl | 2 +- misc/cronjobs/import_webservice_batch.pl | 2 +- misc/cronjobs/longoverdue.pl | 4 +-- misc/cronjobs/membership_expiry.pl | 2 +- misc/cronjobs/overdue_notices.pl | 4 +-- misc/cronjobs/patron_emailer.pl | 2 +- misc/cronjobs/process_message_queue.pl | 2 +- misc/cronjobs/runreport.pl | 2 +- misc/cronjobs/serialsUpdate.pl | 4 +-- misc/cronjobs/staticfines.pl | 2 +- misc/cronjobs/stockrotation.pl | 2 +- misc/cronjobs/update_totalissues.pl | 2 +- misc/devel/get_prepared_letter.pl | 2 +- misc/link_bibs_to_authorities.pl | 2 +- ...MARC_sync_date_created_with_marc_biblio.pl | 2 +- misc/maintenance/fix_tags_weight.pl | 2 +- .../process_record_through_filter.pl | 2 +- .../remove_items_from_biblioitems.pl | 2 +- misc/maintenance/sanitize_records.pl | 2 +- .../search_for_data_inconsistencies.pl | 2 +- misc/maintenance/touch_all_biblios.pl | 2 +- misc/maintenance/touch_all_items.pl | 2 +- misc/migration_tools/buildEDITORS.pl | 2 +- misc/migration_tools/build_oai_sets.pl | 4 +-- misc/migration_tools/bulkmarcimport.pl | 6 ++--- misc/migration_tools/create_analytical_rel.pl | 4 +-- misc/migration_tools/import_lexile.pl | 2 +- misc/migration_tools/rebuild_zebra.pl | 4 +-- .../switch_marc21_series_info.pl | 2 +- misc/migration_tools/upgradeitems.pl | 4 +-- misc/mod_zebraqueue.pl | 2 +- misc/recreateIssueStatistics.pl | 2 +- misc/sip_cli_emulator.pl | 4 +-- misc/stage_file.pl | 2 +- misc/translator/TmplTokenizer.pm | 2 +- offline_circ/download.pl | 2 +- offline_circ/enqueue_koc.pl | 8 +++--- offline_circ/list.pl | 6 ++--- offline_circ/process.pl | 4 +-- offline_circ/process_koc.pl | 8 +++--- offline_circ/service.pl | 4 +-- opac/clubs/clubs-tab.pl | 4 +-- opac/clubs/enroll.pl | 4 +-- opac/errors/400.pl | 4 +-- opac/errors/401.pl | 4 +-- opac/errors/402.pl | 4 +-- opac/errors/403.pl | 4 +-- opac/errors/404.pl | 4 +-- opac/errors/500.pl | 4 +-- opac/ilsdi.pl | 4 +-- opac/maintenance.pl | 2 +- opac/opac-ISBDdetail.pl | 12 ++++----- opac/opac-MARCdetail.pl | 10 +++---- opac/opac-account-pay-return.pl | 2 +- opac/opac-account-pay.pl | 2 +- opac/opac-account.pl | 4 +-- opac/opac-addbybiblionumber.pl | 4 +-- opac/opac-alert-subscribe.pl | 6 ++--- opac/opac-article-request-cancel.pl | 2 +- opac/opac-authorities-home.pl | 8 +++--- opac/opac-authoritiesdetail.pl | 10 +++---- opac/opac-basket.pl | 10 +++---- opac/opac-blocked.pl | 4 +-- opac/opac-browse.pl | 4 +-- opac/opac-browser.pl | 4 +-- opac/opac-course-details.pl | 6 ++--- opac/opac-course-reserves.pl | 6 ++--- opac/opac-detail.pl | 26 +++++++++---------- opac/opac-discharge.pl | 4 +-- opac/opac-downloadcart.pl | 6 ++--- opac/opac-downloadshelf.pl | 6 ++--- opac/opac-export.pl | 2 +- opac/opac-holdshistory.pl | 4 +-- opac/opac-ics.pl | 2 +- opac/opac-idref.pl | 4 +-- opac/opac-illrequests.pl | 4 +-- opac/opac-imageviewer.pl | 4 +-- opac/opac-issue-note.pl | 6 ++--- opac/opac-library.pl | 4 +-- opac/opac-main.pl | 6 ++--- opac/opac-memberentry.pl | 8 +++--- opac/opac-messaging.pl | 4 +-- opac/opac-modrequest-suspend.pl | 4 +-- opac/opac-modrequest.pl | 4 +-- opac/opac-mymessages.pl | 6 ++--- opac/opac-news-rss.pl | 4 +-- opac/opac-overdrive-search.pl | 4 +-- opac/opac-passwd.pl | 4 +-- opac/opac-password-recovery.pl | 4 +-- opac/opac-patron-consent.pl | 4 +-- opac/opac-patron-image.pl | 2 +- opac/opac-privacy.pl | 4 +-- opac/opac-ratings-ajax.pl | 4 +-- opac/opac-ratings.pl | 2 +- opac/opac-readingrecord.pl | 12 ++++----- opac/opac-recordedbooks-search.pl | 4 +-- opac/opac-registration-verify.pl | 6 ++--- opac/opac-renew.pl | 4 +-- opac/opac-reportproblem.pl | 6 ++--- opac/opac-request-article.pl | 4 +-- opac/opac-reserve.pl | 14 +++++----- opac/opac-restrictedpage.pl | 4 +-- opac/opac-retrieve-file.pl | 4 +-- opac/opac-review.pl | 4 +-- opac/opac-routing-lists.pl | 4 +-- opac/opac-search-history.pl | 4 +-- opac/opac-search.pl | 16 ++++++------ opac/opac-sendbasket.pl | 8 +++--- opac/opac-sendshelf.pl | 8 +++--- opac/opac-serial-issues.pl | 6 ++--- opac/opac-shareshelf.pl | 6 ++--- opac/opac-shelves.pl | 12 ++++----- opac/opac-showmarc.pl | 4 +-- opac/opac-showreviews.pl | 8 +++--- opac/opac-suggestions.pl | 8 +++--- opac/opac-tags.pl | 10 +++---- opac/opac-tags_subject.pl | 4 +-- opac/opac-topissues.pl | 6 ++--- opac/opac-user.pl | 12 ++++----- opac/sci/sci-main.pl | 6 ++--- opac/sco/help.pl | 4 +-- opac/sco/printslip.pl | 6 ++--- opac/sco/sco-main.pl | 6 ++--- opac/sco/sco-patron-image.pl | 2 +- opac/svc/shelfbrowser.pl | 6 ++--- opac/tracklinks.pl | 6 ++--- patron_lists/add-modify.pl | 4 +-- patron_lists/delete.pl | 2 +- patron_lists/list.pl | 4 +-- patron_lists/lists.pl | 4 +-- patron_lists/patrons.pl | 4 +-- patroncards/add_user_search.pl | 4 +-- patroncards/create-pdf.pl | 2 +- patroncards/edit-batch.pl | 4 +-- patroncards/edit-layout.pl | 4 +-- patroncards/edit-profile.pl | 4 +-- patroncards/edit-template.pl | 4 +-- patroncards/home.pl | 4 +-- patroncards/image-manage.pl | 4 +-- patroncards/manage.pl | 4 +-- patroncards/print.pl | 4 +-- plugins/plugins-enable.pl | 2 +- plugins/plugins-home.pl | 4 +-- plugins/plugins-uninstall.pl | 2 +- plugins/plugins-upload.pl | 4 +-- plugins/run.pl | 4 +-- pos/pay.pl | 4 +-- pos/printreceipt.pl | 6 ++--- pos/register.pl | 4 +-- pos/registers.pl | 4 +-- reports/acquisitions_stats.pl | 10 +++---- reports/bor_issues_top.pl | 6 ++--- reports/borrowers_out.pl | 6 ++--- reports/borrowers_stats.pl | 8 +++--- reports/cash_register_stats.pl | 6 ++--- reports/cat_issues_top.pl | 8 +++--- reports/catalogue_out.pl | 4 +-- reports/catalogue_stats.pl | 10 +++---- reports/dictionary.pl | 6 ++--- reports/guided_reports.pl | 6 ++--- reports/issues_avg_stats.pl | 6 ++--- reports/issues_stats.pl | 8 +++--- reports/itemslost.pl | 4 +-- reports/manager.pl | 4 +-- reports/orders_by_fund.pl | 4 +-- reports/reports-home.pl | 4 +-- reports/reserves_stats.pl | 8 +++--- reports/serials_stats.pl | 8 +++--- reserve/modrequest.pl | 4 +-- reserve/modrequest_suspendall.pl | 4 +-- reserve/placerequest.pl | 4 +-- reserve/request.pl | 16 ++++++------ reviews/reviewswaiting.pl | 4 +-- rotating_collections/addItems.pl | 4 +-- rotating_collections/editCollections.pl | 4 +-- rotating_collections/rotatingCollections.pl | 4 +-- rotating_collections/transferCollection.pl | 4 +-- serials/acqui-search-result.pl | 4 +-- serials/acqui-search.pl | 4 +-- serials/add_user_search.pl | 4 +-- serials/checkexpiration.pl | 6 ++--- serials/claims.pl | 8 +++--- serials/create-numberpattern.pl | 2 +- serials/lateissues-export.pl | 2 +- serials/routing-preview.pl | 10 +++---- serials/routing.pl | 8 +++--- serials/serials-collection.pl | 6 ++--- serials/serials-edit.pl | 12 ++++----- serials/serials-home.pl | 4 +-- serials/serials-search.pl | 6 ++--- serials/showpredictionpattern.pl | 8 +++--- serials/subscription-add.pl | 16 ++++++------ serials/subscription-batchedit.pl | 6 ++--- serials/subscription-bib-search.pl | 10 +++---- serials/subscription-detail.pl | 8 +++--- serials/subscription-frequencies.pl | 8 +++--- serials/subscription-frequency.pl | 2 +- serials/subscription-history.pl | 6 ++--- serials/subscription-numberpattern.pl | 2 +- serials/subscription-numberpatterns.pl | 4 +-- serials/subscription-renew.pl | 8 +++--- serials/viewalerts.pl | 4 +-- services/itemrecorddisplay.pl | 6 ++--- suggestion/add_user_search.pl | 4 +-- suggestion/suggestion.pl | 8 +++--- svc/cataloguing/automatic_linker.pl | 4 +-- t/lib/TestBuilder.pm | 4 +-- tags/list.pl | 10 +++---- tags/review.pl | 7 +++-- tools/access_files.pl | 4 +-- tools/ajax-inventory.pl | 2 +- tools/automatic_item_modification_by_age.pl | 6 ++--- tools/background-job-progress.pl | 2 +- tools/batchMod.pl | 12 ++++----- tools/batch_delete_records.pl | 8 +++--- tools/batch_record_modification.pl | 2 +- tools/batch_records_ajax.pl | 4 +-- tools/cleanborrowers.pl | 6 ++--- tools/copy-holidays.pl | 2 +- tools/csv-profiles.pl | 4 +-- tools/exceptionHolidays.pl | 2 +- tools/export.pl | 4 +-- tools/holidays.pl | 4 +-- tools/import_borrowers.pl | 4 +-- tools/inventory.pl | 14 +++++----- tools/koha-news.pl | 6 ++--- tools/letter.pl | 6 ++--- tools/manage-marc-import.pl | 8 +++--- tools/marc_modification_templates.pl | 4 +-- tools/modborrowers.pl | 6 ++--- tools/newHolidays.pl | 2 +- tools/overduerules.pl | 8 +++--- tools/picture-upload.pl | 4 +-- tools/problem-reports.pl | 4 +-- tools/quotes-upload.pl | 4 +-- tools/quotes.pl | 4 +-- tools/scheduler.pl | 8 +++--- tools/showdiffmarc.pl | 10 +++---- tools/stage-marc-import.pl | 6 ++--- tools/stockrotation.pl | 6 ++--- tools/tools-home.pl | 6 ++--- tools/upload-cover-image.pl | 4 +-- tools/upload-file.pl | 2 +- tools/upload.pl | 4 +-- tools/viewlog.pl | 10 +++---- virtualshelves/addbybiblionumber.pl | 4 +-- virtualshelves/downloadshelf.pl | 6 ++--- virtualshelves/sendshelf.pl | 8 +++--- virtualshelves/shelves.pl | 10 +++---- 651 files changed, 1569 insertions(+), 1569 deletions(-) --- a/C4/Acquisition.pm +++ a/C4/Acquisition.pm @@ -23,7 +23,7 @@ use Carp; use Text::CSV_XS; use C4::Context; use C4::Suggestions; -use C4::Biblio; +use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal ); use C4::Contract; use C4::Log qw(logaction); use C4::Templates qw(gettemplate); @@ -39,7 +39,7 @@ use Koha::Libraries; use Koha::CsvProfiles; use Koha::Patrons; -use C4::Koha; +use C4::Koha qw( GetVariationsOfISBN ); use MARC::Field; use MARC::Record; --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -28,11 +28,11 @@ use CGI::Session; use C4::Context; use C4::Templates; # to get the template -use C4::Languages; +use C4::Languages qw( getlanguage ); use C4::Search::History; use Koha; use Koha::Caches; -use Koha::AuthUtils qw(get_script_name hash_password); +use Koha::AuthUtils qw( get_script_name hash_password ); use Koha::Checkouts; use Koha::DateUtils qw(dt_from_string); use Koha::Library::Groups; @@ -44,7 +44,7 @@ use Koha::Patron::Consents; use POSIX qw/strftime/; use List::MoreUtils qw/ any /; use Encode qw( encode is_utf8); -use C4::Auth_with_shibboleth; +use C4::Auth_with_shibboleth qw( shib_ok get_login_shib login_shib_url logout_shib checkpw_shib ); use Net::CIDR; use C4::Log qw/logaction/; --- a/C4/Auth_with_cas.pm +++ a/C4/Auth_with_cas.pm @@ -21,7 +21,7 @@ use strict; use warnings; use C4::Context; -use Koha::AuthUtils qw(get_script_name); +use Koha::AuthUtils qw( get_script_name ); use Authen::CAS::Client; use CGI qw ( -utf8 ); use FindBin; --- a/C4/Auth_with_ldap.pm +++ a/C4/Auth_with_ldap.pm @@ -22,9 +22,9 @@ use Carp; use C4::Context; use C4::Members::Messaging; -use C4::Auth qw(checkpw_internal); +use C4::Auth qw( checkpw checkpw_internal ); use Koha::Patrons; -use Koha::AuthUtils qw(hash_password); +use Koha::AuthUtils qw( hash_password ); use List::MoreUtils qw( any ); use Net::LDAP; use Net::LDAP::Filter; --- a/C4/Auth_with_shibboleth.pm +++ a/C4/Auth_with_shibboleth.pm @@ -20,7 +20,7 @@ package C4::Auth_with_shibboleth; use Modern::Perl; use C4::Context; -use Koha::AuthUtils qw(get_script_name); +use Koha::AuthUtils qw( get_script_name ); use Koha::Database; use Koha::Patrons; use C4::Members::Messaging; --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -22,11 +22,11 @@ use strict; use warnings; use C4::Context; use MARC::Record; -use C4::Biblio; -use C4::Search; +use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode ); +use C4::Search qw( FindDuplicate new_record_from_zebra ); use C4::AuthoritiesMarc::MARC21; use C4::AuthoritiesMarc::UNIMARC; -use C4::Charset; +use C4::Charset qw( SetUTF8Flag ); use C4::Log; use Koha::MetadataRecord::Authority; use Koha::Authorities; --- a/C4/BackgroundJob.pm +++ a/C4/BackgroundJob.pm @@ -20,7 +20,7 @@ package C4::BackgroundJob; use Modern::Perl; use C4::Context; -use C4::Auth qw/get_session/; +use C4::Auth qw( get_session ); use Digest::MD5; --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -89,9 +89,10 @@ use C4::Koha; use C4::Log; # logaction use C4::Budgets; use C4::ClassSource qw( GetClassSort ); -use C4::Charset qw( SetUTF8Flag ); +use C4::Charset qw( SetUTF8Flag SetMarcUnicodeFlag StripNonXmlChars nsb_clean ); use C4::Linker; use C4::OAI::Sets; +use C4::Debug; use Koha::Logger; use Koha::Caches; --- a/C4/Breeding.pm +++ a/C4/Breeding.pm @@ -21,14 +21,14 @@ package C4::Breeding; use strict; use warnings; -use C4::Biblio; -use C4::Koha; -use C4::Charset; +use C4::Biblio qw( AddBiblio TransformMarcToKoha TransformMarcToKohaOneField ); +use C4::Koha qw( GetNormalizedISBN ); +use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); use MARC::File::USMARC; use MARC::Field; -use C4::ImportBatch; +use C4::ImportBatch qw( sub GetZ3950BatchId AddBiblioToBatch AddAuthToBatch ); use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority -use C4::Languages; +use C4::Languages qw( getlanguage ); use Koha::Database; use Koha::XSLT::Base; --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -27,15 +27,15 @@ use Encode; use Koha::DateUtils; use C4::Context; use C4::Stats; -use C4::Reserves; -use C4::Biblio; -use C4::Items; +use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ); +use C4::Biblio qw( UpdateTotalIssues ModZebra ); +use C4::Items qw( sub ModItemTransfer ModDateLastSeen CartToShelf ); use C4::Members; use C4::Accounts; use C4::ItemCirculationAlertPreference; use C4::Message; use C4::Log; # logaction -use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units); +use C4::Overdues qw( UpdateFine get_chargeable_units CalcFine ); use C4::RotatingCollections qw(GetCollectionItemBranches); use Algorithm::CheckDigits; --- a/C4/ClassSortRoutine/Dewey.pm +++ a/C4/ClassSortRoutine/Dewey.pm @@ -28,7 +28,7 @@ C4::ClassSortRoutine::Dewey - generic call number sorting key routine =head1 SYNOPSIS -use C4::ClassSortRoutine; +use C4::ClassSortRoutine qw( GetClassSortKey ); my $cn_sort = GetClassSortKey('Dewey', $cn_class, $cn_item); --- a/C4/ClassSortRoutine/Generic.pm +++ a/C4/ClassSortRoutine/Generic.pm @@ -28,7 +28,7 @@ C4::ClassSortRoutine::Generic - generic call number sorting key routine =head1 SYNOPSIS -use C4::ClassSortRoutine; +use C4::ClassSortRoutine qw( GetClassSortKey ); my $cn_sort = GetClassSortKey('Generic', $cn_class, $cn_item); --- a/C4/ClassSortRoutine/LCC.pm +++ a/C4/ClassSortRoutine/LCC.pm @@ -30,7 +30,7 @@ C4::ClassSortRoutine::LCC - generic call number sorting key routine =head1 SYNOPSIS -use C4::ClassSortRoutine; +use C4::ClassSortRoutine qw( GetClassSortKey ); my $cn_sort = GetClassSortKey('LCC', $cn_class, $cn_item); --- a/C4/CourseReserves.pm +++ a/C4/CourseReserves.pm @@ -20,7 +20,7 @@ use Modern::Perl; use List::MoreUtils qw(any); use C4::Context; -use C4::Circulation qw(GetOpenIssue); +use C4::Circulation qw( GetOpenIssue ); use Koha::Courses; use Koha::Course::Instructors; --- a/C4/HoldsQueue.pm +++ a/C4/HoldsQueue.pm @@ -24,8 +24,8 @@ use warnings; use C4::Context; use C4::Search; -use C4::Items; -use C4::Circulation; +use C4::Items qw( sub ); +use C4::Circulation qw( GetTransfers GetBranchItemRule ); use C4::Members; use C4::Biblio; use Koha::DateUtils; --- a/C4/ILSDI/Services.pm +++ a/C4/ILSDI/Services.pm @@ -21,18 +21,18 @@ use strict; use warnings; use C4::Members; -use C4::Items; -use C4::Circulation; +use C4::Items qw( sub get_hostitemnumbers_of ); +use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal ); use C4::Accounts; -use C4::Biblio; -use C4::Reserves qw(AddReserve CanBookBeReserved CanItemBeReserved IsAvailableForItemLevelRequest); +use C4::Biblio qw( GetMarcBiblio ); +use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved ); use C4::Context; -use C4::AuthoritiesMarc; +use C4::Auth qw( checkpw ); use XML::Simple; use HTML::Entities; use CGI qw ( -utf8 ); use DateTime; -use C4::Auth; +use C4::Auth qw( checkpw ); use Koha::DateUtils; use Koha::Biblios; --- a/C4/ImportBatch.pm +++ a/C4/ImportBatch.pm @@ -21,10 +21,10 @@ use strict; use warnings; use C4::Context; -use C4::Koha; -use C4::Biblio; -use C4::Items; -use C4::Charset; +use C4::Koha qw( GetNormalizedISBN ); +use C4::Biblio qw( AddBiblio ModBiblio GetMarcFromKohaField GetXmlBiblio TransformMarcToKoha DelBiblio ); +use C4::Items qw( sub ModItemFromMarc AddItemFromMarc ); +use C4::Charset qw( SetUTF8Flag StripNonXmlChars MarcToUTF8Record ); use C4::AuthoritiesMarc; use C4::MarcModificationTemplates; use Koha::Items; --- a/C4/InstallAuth.pm +++ a/C4/InstallAuth.pm @@ -25,7 +25,7 @@ use File::Spec; require Exporter; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Templates; use C4::Koha; --- a/C4/Items.pm +++ a/C4/Items.pm @@ -51,10 +51,10 @@ use Carp; use Try::Tiny; use C4::Context; use C4::Koha; -use C4::Biblio qw( GetFrameworkCode ); +use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformMarcToKoha _disambiguate AddBiblio GetMarcBiblio TransformKohaToMarc GetMarcStructure ); use Koha::DateUtils; use MARC::Record; -use C4::ClassSource; +use C4::ClassSource qw( GetClassSort GetClassSources GetClassSource ); use C4::Log; use List::MoreUtils qw(any); use DateTime::Format::MySQL; --- a/C4/Labels/Label.pm +++ a/C4/Labels/Label.pm @@ -10,7 +10,7 @@ use Data::Dumper; use Text::Bidi qw( log2vis ); use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetAuthorisedValueDesc GetMarcFromKohaField GetMarcBiblio ); use Koha::ClassSources; use Koha::ClassSortRules; use Koha::ClassSplitRules; --- a/C4/MarcModificationTemplates.pm +++ a/C4/MarcModificationTemplates.pm @@ -22,7 +22,7 @@ use Modern::Perl; use DateTime; use C4::Context; -use Koha::SimpleMARC; +use Koha::SimpleMARC qw( field_exists field_equals copy_field copy_and_replace_field add_field update_field move_field delete_field ); use Koha::MoreUtils; use Koha::DateUtils; --- a/C4/Members.pm +++ a/C4/Members.pm @@ -28,11 +28,11 @@ use Date::Calc qw/Today check_date Date_to_Days/; use List::MoreUtils qw( uniq ); use JSON qw(to_json); use C4::Log; # logaction -use C4::Overdues; +use C4::Overdues qw( checkoverdues ); use C4::Reserves; use C4::Accounts; use C4::Biblio; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter ); use C4::NewsChannels; #get slip news use DateTime; use Koha::Database; --- a/C4/Message.pm +++ a/C4/Message.pm @@ -22,7 +22,7 @@ package C4::Message; use strict; use warnings; use C4::Context; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter getletter ); use YAML::XS; use Encode; use Carp; --- a/C4/Output.pm +++ a/C4/Output.pm @@ -30,7 +30,7 @@ use Modern::Perl; use URI::Escape; use Scalar::Util qw( looks_like_number ); -use C4::Auth qw(get_template_and_user); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Templates; --- a/C4/Record.pm +++ a/C4/Record.pm @@ -26,7 +26,7 @@ use MARC::Record; # marc2marcxml, marcxml2marc, changeEncoding use MARC::File::XML; # marc2marcxml, marcxml2marc, changeEncoding use Biblio::EndnoteStyle; use Unicode::Normalize; # _entity_encode -use C4::Biblio; #marc2bibtex +use C4::Biblio qw( GetXmlBiblio GetMarcBiblio EmbedItemsInMarcBiblio GetFrameworkCode ); use C4::Koha; #marc2csv use C4::XSLT (); use YAML::XS; #marcrecords2csv @@ -34,7 +34,7 @@ use Encode; use Template; use Text::CSV::Encoded; #marc2csv use Koha::Items; -use Koha::SimpleMARC qw(read_field); +use Koha::SimpleMARC qw( delete_field read_field ); use Koha::XSLT::Base; use Koha::CsvProfiles; use Koha::AuthorisedValues; --- a/C4/Reports/Guided.pm +++ a/C4/Reports/Guided.pm @@ -24,7 +24,7 @@ use JSON qw( from_json ); use C4::Context; use C4::Templates qw/themelanguage/; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use Koha::DateUtils; use Koha::Patrons; use Koha::Reports; --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -25,10 +25,10 @@ use Modern::Perl; use C4::Accounts; use C4::Biblio; -use C4::Circulation; +use C4::Circulation qw( CheckIfIssuedToPatron checkHighHolds GetAgeRestriction GetBranchItemRule ); use C4::Context; -use C4::Items; -use C4::Letters; +use C4::Items qw( sub get_hostitemnumbers_of ModItemTransfer CartToShelf ); +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use C4::Log; use C4::Members::Messaging; use C4::Members; --- a/C4/Ris.pm +++ a/C4/Ris.pm @@ -67,7 +67,7 @@ use YAML::XS; use Encode; use vars qw(@ISA @EXPORT); -use Koha::SimpleMARC qw(read_field); +use Koha::SimpleMARC qw( read_field ); @ISA = qw(Exporter); --- a/C4/SIP/ILS.pm +++ a/C4/SIP/ILS.pm @@ -6,7 +6,7 @@ package C4::SIP::ILS; use warnings; use strict; -use C4::SIP::Sip qw(siplog); +use C4::SIP::Sip qw( siplog ); use Data::Dumper; use C4::SIP::ILS::Item; --- a/C4/SIP/SIPServer.pm +++ a/C4/SIP/SIPServer.pm @@ -13,12 +13,12 @@ use Scalar::Util qw(blessed); require UNIVERSAL::require; use C4::Context; -use C4::SIP::Sip qw(siplog); -use C4::SIP::Sip::Constants qw(:all); -use C4::SIP::Sip::Configuration; -use C4::SIP::Sip::Checksum qw(checksum verify_cksum); -use C4::SIP::Sip::MsgType qw( handle login_core ); -use C4::SIP::Logger qw(set_logger); +use C4::SIP::Sip qw( siplog ); +use C4::SIP::Sip qw( siplog ); +use C4::SIP::Sip qw( siplog ); +use C4::SIP::Sip qw( siplog ); +use C4::SIP::Sip qw( siplog ); +use C4::SIP::Logger qw( set_logger ); use Koha::Caches; --- a/C4/SIP/Sip.pm +++ a/C4/SIP/Sip.pm @@ -15,7 +15,7 @@ use List::Util qw(first); use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG); use C4::SIP::Sip::Checksum qw(checksum); -use C4::SIP::Logger qw(get_logger); +use C4::SIP::Logger qw( get_logger ); use base qw(Exporter); --- a/C4/Search.pm +++ a/C4/Search.pm @@ -17,19 +17,19 @@ package C4::Search; use Modern::Perl; use C4::Context; -use C4::Biblio; # GetMarcFromKohaField, GetBiblioData -use C4::Koha; # getFacets +use C4::Biblio qw( TransformMarcToKoha GetMarcFromKohaField GetFrameworkCode GetAuthorisedValueDesc GetBiblioData ); +use C4::Koha qw( getFacets GetVariationsOfISBN GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation ); use Koha::DateUtils; use Koha::Libraries; use Lingua::Stem; use XML::Simple; use C4::XSLT; -use C4::Reserves; # GetReserveStatus -use C4::Charset; -use Koha::Logger; +use C4::Reserves qw( GetReserveStatus ); +use C4::Charset qw( SetUTF8Flag ); use Koha::AuthorisedValues; use Koha::ItemTypes; use Koha::Libraries; +use Koha::Logger; use Koha::Patrons; use Koha::RecordProcessor; use URI::Escape; --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -20,12 +20,12 @@ package C4::Serials; use Modern::Perl; -use C4::Auth qw(haspermission); +use C4::Auth qw( haspermission ); use C4::Context; use DateTime; use Date::Calc qw(:all); use POSIX qw(strftime); -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio ); use C4::Log; # logaction use C4::Serials::Frequency; use C4::Serials::Numberpattern; --- a/C4/Service.pm +++ a/C4/Service.pm @@ -43,8 +43,8 @@ use warnings; use CGI qw ( -utf8 ); use C4::Auth qw( check_api_auth ); -use C4::Output qw( :ajax ); -use C4::Output::JSONStream; +use C4::Output qw( output_with_http_headers ); +use C4::Output qw( output_with_http_headers ); use JSON; our $debug; --- a/C4/ShelfBrowser.pm +++ a/C4/ShelfBrowser.pm @@ -20,9 +20,9 @@ package C4::ShelfBrowser; use strict; use warnings; -use C4::Biblio; +use C4::Biblio qw( GetAuthorisedValueDesc GetMarcBiblio ); use C4::Context; -use C4::Koha; +use C4::Koha qw( GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN GetNormalizedEAN ); use Koha::Biblios; use Koha::Libraries; --- a/C4/SocialData.pm +++ a/C4/SocialData.pm @@ -19,7 +19,7 @@ use Modern::Perl; use C4::Context; use Business::ISBN; -use C4::Koha; +use C4::Koha qw( GetNormalizedISBN ); =head1 NAME --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -23,7 +23,7 @@ use CGI qw ( -utf8 ); use C4::Context; use C4::Output; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use C4::Biblio qw( GetMarcFromKohaField ); use Koha::DateUtils; use Koha::Suggestions; --- a/C4/Templates.pm +++ a/C4/Templates.pm @@ -32,7 +32,7 @@ C4::Templates - Object for manipulating templates for use with Koha use base qw(Class::Accessor); use Template; use Template::Constants qw( :debug ); -use C4::Languages qw(getTranslatedLanguages get_bidi regex_lang_subtags language_get_description accept_language ); +use C4::Languages qw( regex_lang_subtags get_bidi getTranslatedLanguages getlanguage ); use C4::Context; --- a/C4/TmplToken.pm +++ a/C4/TmplToken.pm @@ -20,7 +20,7 @@ package C4::TmplToken; use strict; use warnings; -use C4::TmplTokenType; +use C4::TmplTokenType qw( DIRECTIVE TAG CDATA TEXT TEXT_PARAMETRIZED ); =head1 NAME --- a/C4/XISBN.pm +++ a/C4/XISBN.pm @@ -20,9 +20,9 @@ package C4::XISBN; use Modern::Perl; use XML::Simple; #use LWP::Simple; -use C4::Biblio; -use C4::Koha; -use C4::Search; +use C4::Biblio qw( TransformMarcToKoha TransformMarcToKohaOneField ); +use C4::Koha qw( GetNormalizedISBN ); +use C4::Search qw( new_record_from_zebra ); use C4::External::Syndetics qw(get_syndetics_editions); use LWP::UserAgent; use HTTP::Request::Common; --- a/C4/XSLT.pm +++ a/C4/XSLT.pm @@ -24,9 +24,9 @@ package C4::XSLT; use Modern::Perl; use C4::Context; -use C4::Items; -use C4::Koha; -use C4::Biblio; +use C4::Items qw( sub ); +use C4::Koha qw( xml_escape ); +use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc ); use C4::Circulation; use C4::Reserves; use Koha::AuthorisedValues; --- a/Koha/Account.pm +++ a/Koha/Account.pm @@ -25,7 +25,7 @@ use List::MoreUtils qw( uniq ); use Try::Tiny; use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal ); -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use C4::Log qw( logaction ); use C4::Stats qw( UpdateStats ); use C4::Overdues qw(GetFine); --- a/Koha/Account/Line.pm +++ a/Koha/Account/Line.pm @@ -21,7 +21,7 @@ use Carp; use Data::Dumper; use C4::Log qw(logaction); -use C4::Overdues qw(GetFine); +use C4::Overdues qw( UpdateFine ); use Koha::Account::CreditType; use Koha::Account::DebitType; --- a/Koha/Acquisition/Order.pm +++ a/Koha/Acquisition/Order.pm @@ -20,7 +20,7 @@ use Modern::Perl; use Carp qw( croak ); use Try::Tiny; -use C4::Biblio qw(DelBiblio); +use C4::Biblio qw( DelBiblio ); use Koha::Acquisition::Baskets; use Koha::Acquisition::Funds; --- a/Koha/BackgroundJob/BatchUpdateBiblio.pm +++ a/Koha/BackgroundJob/BatchUpdateBiblio.pm @@ -20,7 +20,7 @@ use JSON qw( encode_json decode_json ); use Koha::BackgroundJobs; use Koha::DateUtils qw( dt_from_string ); -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode ModBiblio ); use C4::MarcModificationTemplates; use base 'Koha::BackgroundJob'; --- a/Koha/Biblio.pm +++ a/Koha/Biblio.pm @@ -24,7 +24,7 @@ use List::MoreUtils qw(any); use URI; use URI::Escape; -use C4::Koha; +use C4::Koha qw( GetNormalizedISBN ); use C4::Biblio qw(); use Koha::Database; --- a/Koha/BiblioUtils.pm +++ a/Koha/BiblioUtils.pm @@ -32,7 +32,7 @@ the new thing that should be used. =cut -use C4::Biblio; # EmbedItemsInMarcBiblio +use C4::Biblio qw( GetMarcBiblio ); use Koha::MetadataIterator; use Koha::Database; use Modern::Perl; --- a/Koha/BiblioUtils/Iterator.pm +++ a/Koha/BiblioUtils/Iterator.pm @@ -43,7 +43,7 @@ Returns biblionumber and marc in list context. =cut -use C4::Biblio; # :( - for EmbedItemsInMarcBiblio +use C4::Biblio qw( GetXmlBiblio EmbedItemsInMarcBiblio ); use Carp; use MARC::Record; --- a/Koha/Checkout.pm +++ a/Koha/Checkout.pm @@ -24,7 +24,7 @@ use Carp; use DateTime; use Try::Tiny; -use C4::Circulation qw(MarkIssueReturned); +use C4::Circulation qw( LostItem MarkIssueReturned ); use Koha::Checkouts::ReturnClaims; use Koha::Database; use Koha::DateUtils; --- a/Koha/Checkouts.pm +++ a/Koha/Checkouts.pm @@ -22,7 +22,7 @@ use Modern::Perl; use Carp; use C4::Context; -use C4::Circulation; +use C4::Circulation qw( AddReturn ); use Koha::Checkout; use Koha::Database; use Koha::DateUtils; --- a/Koha/EDI.pm +++ a/Koha/EDI.pm @@ -30,7 +30,7 @@ use Koha::Database; use Koha::DateUtils; use C4::Acquisition qw( NewBasket ModOrder); use C4::Suggestions qw( ModSuggestion ); -use C4::Biblio qw( AddBiblio TransformKohaToMarc GetMarcBiblio GetFrameworkCode GetMarcFromKohaField ); +use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField AddBiblio TransformKohaToMarc ); use Koha::Edifact::Order; use Koha::Edifact; use C4::Log qw(logaction); --- a/Koha/Exporter/Record.pm +++ a/Koha/Exporter/Record.pm @@ -5,7 +5,7 @@ use MARC::File::XML; use MARC::File::USMARC; use C4::AuthoritiesMarc; -use C4::Biblio; +use C4::Biblio qw( RemoveAllNsb GetMarcBiblio EmbedItemsInMarcBiblio GetMarcFromKohaField ); use C4::Record; use Koha::CsvProfiles; use Koha::Logger; --- a/Koha/ExternalContent.pm +++ a/Koha/ExternalContent.pm @@ -24,7 +24,7 @@ use base qw(Class::Accessor); use Koha; use Koha::Logger; use Koha::Patrons; -use C4::Auth; +use C4::Auth qw( get_session ); __PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger)); --- a/Koha/Hold.pm +++ a/Koha/Hold.pm @@ -25,7 +25,7 @@ use Data::Dumper qw(Dumper); use List::MoreUtils qw(any); use C4::Context qw(preference); -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use C4::Log; use Koha::AuthorisedValues; --- a/Koha/I18N.pm +++ a/Koha/I18N.pm @@ -20,7 +20,7 @@ package Koha::I18N; use Modern::Perl; use CGI; -use C4::Languages; +use C4::Languages qw( getlanguage ); use C4::Context; use Encode; --- a/Koha/Illrequest.pm +++ a/Koha/Illrequest.pm @@ -25,7 +25,7 @@ use Encode qw( encode ); use Try::Tiny; use DateTime; -use C4::Letters; +use C4::Letters qw( EnqueueLetter GetPreparedLetter ); use C4::Members; use Koha::Database; use Koha::DateUtils qw/ dt_from_string /; @@ -41,7 +41,7 @@ use Koha::Items; use Koha::ItemTypes; use Koha::Libraries; -use C4::Circulation qw( CanBookBeIssued AddIssue ); +use C4::Circulation qw( CanBookBeIssued AddIssue ); use base qw(Koha::Object); --- a/Koha/Illrequest/Logger.pm +++ a/Koha/Illrequest/Logger.pm @@ -21,7 +21,7 @@ use Modern::Perl; use JSON qw( to_json from_json ); use Time::Local; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use C4::Context; use C4::Templates; use C4::Log qw( logaction ); --- a/Koha/Item.pm +++ a/Koha/Item.pm @@ -28,9 +28,9 @@ use Koha::Database; use Koha::DateUtils qw( dt_from_string ); use C4::Context; -use C4::Circulation; -use C4::Reserves; -use C4::ClassSource; # FIXME We would like to avoid that +use C4::Circulation qw( GetBranchItemRule ); +use C4::Reserves qw( GetReservesControlBranch ); +use C4::ClassSource qw( GetClassSort ); use C4::Log qw( logaction ); use Koha::Checkouts; --- a/Koha/Item/Transfer.pm +++ a/Koha/Item/Transfer.pm @@ -19,7 +19,7 @@ use Modern::Perl; use Carp; -use C4::Items; +use C4::Items qw( sub CartToShelf ModDateLastSeen ); use Koha::Database; use Koha::DateUtils; --- a/Koha/ItemType.pm +++ a/Koha/ItemType.pm @@ -19,8 +19,8 @@ use Modern::Perl; use Carp; -use C4::Koha; -use C4::Languages; +use C4::Koha qw( getitemtypeimagelocation ); +use C4::Languages qw( getlanguage ); use Koha::Database; use Koha::CirculationRules; use Koha::Localizations; --- a/Koha/ItemTypes.pm +++ a/Koha/ItemTypes.pm @@ -19,7 +19,7 @@ use Modern::Perl; use Carp; -use C4::Languages; +use C4::Languages qw( getlanguage ); use Koha::Database; use Koha::ItemType; --- a/Koha/MetaSearcher.pm +++ a/Koha/MetaSearcher.pm @@ -22,7 +22,7 @@ use Modern::Perl; use base 'Class::Accessor'; use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); -use C4::Search qw(); # Purely for new_record_from_zebra +use C4::Search qw( new_record_from_zebra ); use DBIx::Class::ResultClass::HashRefInflator; use IO::Select; use Koha::Caches; --- a/Koha/MetadataRecord.pm +++ a/Koha/MetadataRecord.pm @@ -35,7 +35,7 @@ and authority) records in Koha. use Modern::Perl; use Carp; -use C4::Biblio; +use C4::Biblio qw( TransformMarcToKoha TransformMarcToKohaOneField ); use Koha::Util::MARC; use base qw(Class::Accessor); --- a/Koha/MetadataRecord/Authority.pm +++ a/Koha/MetadataRecord/Authority.pm @@ -37,7 +37,7 @@ use Carp; use C4::Context; use MARC::Record; use MARC::File::XML; -use C4::Charset; +use C4::Charset qw( StripNonXmlChars ); use Koha::Util::MARC; use base qw(Koha::MetadataRecord); --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -30,7 +30,7 @@ use C4::Log; use Koha::Account; use Koha::ArticleRequests; use C4::Letters qw( GetPreparedLetter EnqueueLetter ); -use Koha::AuthUtils; +use Koha::AuthUtils qw( hash_password is_password_valid ); use Koha::Checkouts; use Koha::Club::Enrollments; use Koha::Database; --- a/Koha/Patron/Discharge.pm +++ a/Koha/Patron/Discharge.pm @@ -6,7 +6,7 @@ use File::Temp qw( :POSIX ); use Carp; use C4::Templates qw ( gettemplate ); -use C4::Letters qw ( GetPreparedLetter ); +use C4::Letters qw( GetPreparedLetter ); use Koha::Database; use Koha::DateUtils qw( dt_from_string output_pref ); --- a/Koha/Patrons/Import.pm +++ a/Koha/Patrons/Import.pm @@ -24,7 +24,7 @@ use Text::CSV; use Encode qw( decode_utf8 ); use Try::Tiny; -use C4::Members; +use C4::Members qw( checkcardnumber ); use Koha::Libraries; use Koha::Patrons; --- a/Koha/Plugins/Base.pm +++ a/Koha/Plugins/Base.pm @@ -26,7 +26,7 @@ use List::Util qw(max); use base qw{Module::Bundled::Files}; use C4::Context; -use C4::Output qw(output_with_http_headers output_html_with_http_headers); +use C4::Output qw( output_with_http_headers ); =head1 NAME --- a/Koha/SearchEngine/Search.pm +++ a/Koha/SearchEngine/Search.pm @@ -45,7 +45,7 @@ Creates a new C of whatever the relevant type is. use Modern::Perl; use C4::Context; -use C4::Biblio qw//; +use C4::Biblio qw( GetMarcFromKohaField ); use POSIX qw(ceil floor); sub new { --- a/Koha/UploadedFiles.pm +++ a/Koha/UploadedFiles.pm @@ -19,7 +19,7 @@ package Koha::UploadedFiles; use Modern::Perl; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use Koha::Database; use Koha::DateUtils; use Koha::UploadedFile; --- a/Koha/Virtualshelf.pm +++ a/Koha/Virtualshelf.pm @@ -19,7 +19,7 @@ use Modern::Perl; use Carp; -use C4::Auth; +use C4::Auth qw( haspermission ); use Koha::Patrons; use Koha::Database; --- a/Koha/Z3950Responder/Session.pm +++ a/Koha/Z3950Responder/Session.pm @@ -22,7 +22,7 @@ use Modern::Perl; use C4::Circulation qw( GetTransfers ); use C4::Context; use C4::Reserves qw( GetReserveStatus ); -use C4::Search qw(); +use C4::Search qw( new_record_from_zebra ); use Koha::Items; use Koha::Logger; --- a/about.pl +++ a/about.pl @@ -36,8 +36,8 @@ use Try::Tiny; use YAML::XS; use Encode; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user get_user_subpermissions ); use C4::Context; use C4::Installer::PerlModules; @@ -56,7 +56,7 @@ use Koha::SearchEngine::Elasticsearch; use Koha::Logger; use Koha::Filter::MARC::ViewPolicy; -use C4::Members::Statistics; +use C4::Members::Statistics qw( get_fields ); #use Smart::Comments '####'; --- a/acqui/acqui-home.pl +++ a/acqui/acqui-home.pl @@ -29,8 +29,8 @@ this script is the main page for acqui use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use C4::Budgets; use C4::Members; --- a/acqui/add_user_search.pl +++ a/acqui/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/acqui/addorder.pl +++ a/acqui/addorder.pl @@ -120,13 +120,13 @@ if it is an order from an existing suggestion : the id of this suggestion. use Modern::Perl; use CGI qw ( -utf8 ); use JSON qw ( to_json ); -use C4::Auth; # get_template_and_user +use C4::Auth qw( get_template_and_user ); use C4::Acquisition; # ModOrder use C4::Suggestions; # ModStatus -use C4::Biblio; # AddBiblio TransformKohaToMarc +use C4::Biblio qw( TransformHtmlToXml TransformKohaToMarc AddBiblio GetMarcFromKohaField ); use C4::Budgets; -use C4::Items; -use C4::Output; +use C4::Items qw( sub AddItemFromMarc ); +use C4::Output qw( output_html_with_http_headers ); use C4::Log qw(logaction); use Koha::Acquisition::Currencies; use Koha::Acquisition::Orders; --- a/acqui/addorderiso2709.pl +++ a/acqui/addorderiso2709.pl @@ -29,14 +29,14 @@ use List::MoreUtils qw/uniq/; use Encode; use C4::Context; -use C4::Auth; -use C4::Output; -use C4::ImportBatch; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches sub SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction ); use C4::Matcher; -use C4::Search qw/FindDuplicate/; +use C4::Search qw( FindDuplicate ); use C4::Acquisition; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetMarcQuantity GetMarcFromKohaField AddBiblio GetMarcPrice TransformHtmlToXml ); +use C4::Items qw( PrepareItemrecordDisplay sub AddItemFromMarc ); use C4::Koha; use C4::Budgets; use C4::Acquisition; --- a/acqui/ajax-getauthvaluedropbox.pl +++ a/acqui/ajax-getauthvaluedropbox.pl @@ -48,8 +48,8 @@ Default value for the dropbox. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Charset; -use C4::Auth qw/check_api_auth/; +use C4::Charset qw( NormalizeString ); +use C4::Auth qw( check_api_auth ); use Koha::AuthorisedValues; my $query = CGI->new(); --- a/acqui/basket.pl +++ a/acqui/basket.pl @@ -21,25 +21,25 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user haspermission ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers output_and_exit ); use CGI qw ( -utf8 ); use C4::Acquisition; use C4::Budgets; use C4::Contract; use C4::Biblio; -use C4::Items; +use C4::Items qw( sub ); use C4::Suggestions; use Koha::Biblios; use Koha::Acquisition::Baskets; use Koha::Acquisition::Booksellers; use Koha::Acquisition::Orders; use Koha::Libraries; -use C4::Letters qw/SendAlerts/; +use C4::Letters qw( SendAlerts ); use Date::Calc qw/Add_Delta_Days/; use Koha::Database; -use Koha::EDI qw( create_edi_order get_edifact_ean ); +use Koha::EDI qw( create_edi_order ); use Koha::CsvProfiles; use Koha::Patrons; --- a/acqui/basketgroup.pl +++ a/acqui/basketgroup.pl @@ -46,13 +46,13 @@ The bookseller who we want to display the baskets (and basketgroups) of. use Modern::Perl; use Carp; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use File::Spec; use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV get_rounded_price/; -use Koha::EDI qw/create_edi_order get_edifact_ean/; +use Koha::EDI qw( get_edifact_ean create_edi_order ); use Koha::Biblioitems; use Koha::Acquisition::Booksellers; --- a/acqui/basketheader.pl +++ a/acqui/basketheader.pl @@ -48,8 +48,8 @@ If it exists, C<$basketno> is the basket we edit use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/; use C4::Contract qw/GetContracts/; --- a/acqui/booksellers.pl +++ a/acqui/booksellers.pl @@ -52,10 +52,10 @@ The id of the supplier whose baskets we will display =cut use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; use C4::Budgets; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /; --- a/acqui/cancelorder.pl +++ a/acqui/cancelorder.pl @@ -32,8 +32,8 @@ and add possibility to indicate a reason for cancellation use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use Koha::Acquisition::Baskets; --- a/acqui/check_budget_total.pl +++ a/acqui/check_budget_total.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Budgets; =head1 DESCRIPTION --- a/acqui/check_uniqueness.pl +++ a/acqui/check_uniqueness.pl @@ -33,8 +33,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON; -use C4::Output; -use C4::Items; +use C4::Output qw( output_with_http_headers ); +use C4::Items qw( SearchItems ); my $input = CGI->new; my @field = $input->multi_param('field[]'); --- a/acqui/duplicate_orders.pl +++ a/acqui/duplicate_orders.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Acquisition qw(GetHistory); use C4::Budgets qw(GetBudgetPeriods GetBudgetHierarchy CanUserUseBudget); use Koha::Acquisition::Baskets; --- a/acqui/edi_ean.pl +++ a/acqui/edi_ean.pl @@ -23,9 +23,9 @@ # use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; use CGI; my $schema = Koha::Database->new()->schema(); --- a/acqui/edifactmsgs.pl +++ a/acqui/edifactmsgs.pl @@ -20,11 +20,11 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; -use Koha::EDI qw(process_invoice); +use Koha::EDI qw( process_invoice ); my $q = CGI->new; my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( --- a/acqui/edimsg.pl +++ a/acqui/edimsg.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; use Koha::Database; use C4::Koha; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $q = CGI->new; my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user( --- a/acqui/finishreceive.pl +++ a/acqui/finishreceive.pl @@ -22,12 +22,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Output; use C4::Context; use C4::Acquisition; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml ); +use C4::Items qw( sub GetMarcItem ModItemFromMarc AddItemFromMarc ); use C4::Search; use Koha::Number::Price; --- a/acqui/histsearch.pl +++ a/acqui/histsearch.pl @@ -51,8 +51,8 @@ to filter on ended date. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # get_template_and_user -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use C4::Koha; use Koha::AdditionalFields; --- a/acqui/invoice-files.pl +++ a/acqui/invoice-files.pl @@ -30,8 +30,8 @@ Manage files associated with invoice use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use Koha::Misc::Files; --- a/acqui/invoice.pl +++ a/acqui/invoice.pl @@ -29,8 +29,8 @@ Invoice details use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Acquisition; use C4::Budgets; --- a/acqui/invoices.pl +++ a/acqui/invoices.pl @@ -29,8 +29,8 @@ Search for invoices use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition qw/GetInvoices/; use C4::Budgets; --- a/acqui/lateorders-export.pl +++ a/acqui/lateorders-export.pl @@ -19,7 +19,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Acquisition; use C4::Output; use C4::Context; --- a/acqui/lateorders.pl +++ a/acqui/lateorders.pl @@ -45,12 +45,12 @@ To know on which branch this script have to display late order. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Acquisition; -use C4::Letters; +use C4::Letters qw( SendAlerts GetLetters ); use Koha::DateUtils; use Koha::Acquisition::Orders; use Koha::CsvProfiles; --- a/acqui/modordernotes.pl +++ a/acqui/modordernotes.pl @@ -29,8 +29,8 @@ Modify just notes when basket is closed. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use Koha::Acquisition::Booksellers; --- a/acqui/neworderempty.pl +++ a/acqui/neworderempty.pl @@ -68,21 +68,21 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Budgets; use C4::Acquisition; use C4::Contract; use C4::Suggestions; # GetSuggestion -use C4::Biblio; # GetBiblioData GetMarcPrice -use C4::Items; #PrepareItemRecord -use C4::Output; +use C4::Biblio qw( AddBiblio GetMarcPrice GetMarcStructure GetMarcFromKohaField GetBiblioData IsMarcStructureInternal GetMarcBiblio ); +use C4::Items qw( sub ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Koha; use C4::Members; -use C4::Search qw/FindDuplicate/; +use C4::Search qw( FindDuplicate ); #needed for z3950 import: -use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus SetMatchedBiblionumber/; +use C4::ImportBatch qw( sub SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc ); use Koha::Acquisition::Booksellers; use Koha::Acquisition::Currencies; --- a/acqui/newordersubscription.pl +++ a/acqui/newordersubscription.pl @@ -20,10 +20,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Acquisition; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::Serials; +use C4::Output qw( output_html_with_http_headers ); +use C4::Serials qw( SearchSubscriptions subscriptionCurrentlyOnOrder check_routing ); use Koha::Acquisition::Booksellers; --- a/acqui/newordersuggestion.pl +++ a/acqui/newordersuggestion.pl @@ -91,8 +91,8 @@ can be equal to use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # get_template_and_user -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Suggestions; use C4::Biblio; use C4::Budgets; --- a/acqui/ordered.pl +++ a/acqui/ordered.pl @@ -30,8 +30,8 @@ this script is to show orders ordered but not yet received use C4::Context; use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Acquisition::Invoice::Adjustments; use C4::Acquisition; --- a/acqui/orderreceive.pl +++ a/acqui/orderreceive.pl @@ -63,12 +63,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Acquisition; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /; use C4::Members; -use C4::Items; -use C4::Biblio; +use C4::Items qw( sub ); +use C4::Biblio qw( GetMarcStructure ); use C4::Suggestions; use C4::Koha; --- a/acqui/parcel.pl +++ a/acqui/parcel.pl @@ -56,13 +56,13 @@ To filter the results list on this given date. use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Acquisition; use C4::Budgets; use C4::Biblio; -use C4::Items; +use C4::Items qw( sub ); use CGI qw ( -utf8 ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Suggestions; use Koha::Acquisition::Baskets; --- a/acqui/parcels.pl +++ a/acqui/parcels.pl @@ -68,8 +68,8 @@ To know how many results have to be display / page. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use C4::Budgets; --- a/acqui/showorder.pl +++ a/acqui/showorder.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Acquisition::Orders; use Koha::Patrons; --- a/acqui/spent.pl +++ a/acqui/spent.pl @@ -30,8 +30,8 @@ this script is designed to show the spent amount in budgets =cut use C4::Context; -use C4::Auth; -use C4::Output; +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 C4::Acquisition; --- a/acqui/supplier.pl +++ a/acqui/supplier.pl @@ -41,10 +41,10 @@ To know the bookseller this script has to display details. =cut use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Contract; use C4::Biblio; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Budgets; --- a/acqui/transferorder.pl +++ a/acqui/transferorder.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Acquisition; use Koha::Acquisition::Booksellers; --- a/acqui/uncertainprice.pl +++ a/acqui/uncertainprice.pl @@ -45,8 +45,8 @@ The bookseller who we want to display the orders of. use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Acquisition qw/SearchOrders GetOrder ModOrder/; --- a/acqui/updatesupplier.pl +++ a/acqui/updatesupplier.pl @@ -49,7 +49,7 @@ contact_serialsprimary. use Modern::Perl; use List::Util; use C4::Context; -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Biblio; use C4::Output; --- a/acqui/z3950_search.pl +++ a/acqui/z3950_search.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw/-utf8/; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Breeding; +use C4::Breeding qw( Z3950Search ); use C4::Koha; use Koha::Acquisition::Booksellers; --- a/admin/add_user_search.pl +++ a/admin/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/admin/additional-fields.pl +++ a/admin/additional-fields.pl @@ -18,9 +18,9 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::AdditionalFields; my $input = CGI->new; --- a/admin/admin-home.pl +++ a/admin/admin-home.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Plugins; my $query = CGI->new; --- a/admin/adveditorshortcuts.pl +++ a/admin/adveditorshortcuts.pl @@ -36,9 +36,9 @@ This script allows the user to redefine the keyboard shortcuts for the advacned use Modern::Perl; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Koha; use Koha::KeyboardShortcuts; --- a/admin/aqbudgetperiods.pl +++ a/admin/aqbudgetperiods.pl @@ -52,8 +52,8 @@ use Koha::DateUtils; use Koha::Database; use C4::Koha; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; use C4::Budgets; use Koha::Acquisition::Currencies; --- a/admin/aqbudgets.pl +++ a/admin/aqbudgets.pl @@ -25,12 +25,12 @@ use CGI qw ( -utf8 ); use List::Util qw/min/; use Koha::Database; -use C4::Auth qw/get_user_subpermissions/; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); use C4::Acquisition; use C4::Budgets; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers output_and_exit ); use C4::Koha; use Koha::Acquisition::Currencies; use Koha::Patrons; --- a/admin/aqcontract.pl +++ a/admin/aqcontract.pl @@ -23,8 +23,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Contract; use Koha::DateUtils; --- a/admin/aqplan.pl +++ a/admin/aqplan.pl @@ -30,9 +30,9 @@ use Text::CSV_XS; use C4::Acquisition; use C4::Budgets; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Koha::Acquisition::Currencies; our $input = CGI->new; --- a/admin/audio_alerts.pl +++ a/admin/audio_alerts.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::AudioAlert; use Koha::AudioAlerts; --- a/admin/auth_subfields_structure.pl +++ a/admin/auth_subfields_structure.pl @@ -18,8 +18,8 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Koha; --- a/admin/auth_tag_structure.pl +++ a/admin/auth_tag_structure.pl @@ -20,10 +20,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Authority::Types; --- a/admin/authorised_values.pl +++ a/admin/authorised_values.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use List::MoreUtils qw(any); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Output; +use C4::Koha qw( getImageSets getitemtypeimagelocation ); +use C4::Output qw( output_html_with_http_headers ); use Koha::AuthorisedValues; use Koha::AuthorisedValueCategories; --- a/admin/authtypes.pl +++ a/admin/authtypes.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Authorities; use Koha::Authority::Types; --- a/admin/background_jobs.pl +++ a/admin/background_jobs.pl @@ -21,8 +21,8 @@ use JSON qw( decode_json ); use Try::Tiny; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::BackgroundJobs; use Koha::Virtualshelves; --- a/admin/biblio_framework.pl +++ a/admin/biblio_framework.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Biblios; use Koha::BiblioFramework; use Koha::BiblioFrameworks; --- a/admin/branch_transfer_limits.pl +++ a/admin/branch_transfer_limits.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit }; +use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed ); my $input = CGI->new; --- a/admin/branches.pl +++ a/admin/branches.pl @@ -23,9 +23,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use Koha::Database; --- a/admin/cash_registers.pl +++ a/admin/cash_registers.pl @@ -23,11 +23,11 @@ use warnings; use CGI; use Try::Tiny; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Koha::Libraries; use C4::Koha; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Cash::Registers; my $cgi = CGI->new(); --- a/admin/categories.pl +++ a/admin/categories.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Form::MessagingPreferences; use Koha::Patrons; use Koha::Database; --- a/admin/check_budget_parent.pl +++ a/admin/check_budget_parent.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Budgets; =head1 DESCRIPTION --- a/admin/check_parent_total.pl +++ a/admin/check_parent_total.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Budgets; =head1 DESCRIPTION --- a/admin/checkmarc.pl +++ a/admin/checkmarc.pl @@ -19,8 +19,8 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Biblio; --- a/admin/cities.pl +++ a/admin/cities.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Cities; --- a/admin/classsources.pl +++ a/admin/classsources.pl @@ -21,12 +21,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::ClassSortRoutine; -use C4::ClassSplitRoutine; +use C4::ClassSortRoutine qw( GetSortRoutineNames ); +use C4::ClassSplitRoutine qw( GetSplitRoutineNames ); use Koha::ClassSources; use Koha::ClassSortRules; use Koha::ClassSplitRules; --- a/admin/clone-rules.pl +++ a/admin/clone-rules.pl @@ -28,8 +28,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use Koha::CirculationRules; --- a/admin/columns_settings.pl +++ a/admin/columns_settings.pl @@ -2,9 +2,9 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Utils::DataTables::TablesSettings qw( get_modules ); my $input = CGI->new; --- a/admin/credit_types.pl +++ a/admin/credit_types.pl @@ -22,8 +22,8 @@ use CGI qw ( -utf8 ); use Try::Tiny; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Account::CreditType; use Koha::Account::CreditTypes; --- a/admin/currency.pl +++ a/admin/currency.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Acquisition::Booksellers; use Koha::Acquisition::Currencies; --- a/admin/debit_types.pl +++ a/admin/debit_types.pl @@ -22,8 +22,8 @@ use CGI qw ( -utf8 ); use Try::Tiny; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Account::DebitType; use Koha::Account::DebitTypes; --- a/admin/desks.pl +++ a/admin/desks.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Desks; --- a/admin/didyoumean.pl +++ a/admin/didyoumean.pl @@ -3,8 +3,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::SuggestionEngine; use Module::Load::Conditional qw(can_load); use JSON; --- a/admin/edi_accounts.pl +++ a/admin/edi_accounts.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; use Koha::Plugins; --- a/admin/edi_ean_accounts.pl +++ a/admin/edi_ean_accounts.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; my $input = CGI->new(); --- a/admin/import_export_framework.pl +++ a/admin/import_export_framework.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; use C4::Context; -use C4::Auth qw/check_cookie_auth/; -use C4::ImportExportFramework; +use C4::Auth qw( check_cookie_auth ); +use C4::ImportExportFramework qw( ExportFramework createODS ImportFramework ); my %cookies = CGI::Cookie->fetch(); my $authenticated = 0; --- a/admin/item_circulation_alerts.pl +++ a/admin/item_circulation_alerts.pl @@ -23,10 +23,10 @@ use Encode; use JSON; #use Data::Dump 'pp'; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::ItemCirculationAlertPreference; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::ItemTypes; use Koha::Patron::Categories; --- a/admin/items_search_field.pl +++ a/admin/items_search_field.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField); --- a/admin/items_search_fields.pl +++ a/admin/items_search_fields.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField); --- a/admin/itemtypes.pl +++ a/admin/itemtypes.pl @@ -27,10 +27,10 @@ use CGI qw ( -utf8 ); use File::Spec; -use C4::Koha; +use C4::Koha qw( getImageSets GetAuthorisedValues ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::ItemTypes; use Koha::ItemType; use Koha::Localizations; --- a/admin/koha2marclinks.pl +++ a/admin/koha2marclinks.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Koha::Database; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::BiblioFrameworks; use Koha::Caches; use Koha::MarcSubfieldStructures; --- a/admin/library_groups.pl +++ a/admin/library_groups.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Libraries; use Koha::Library::Group; --- a/admin/localization.pl +++ a/admin/localization.pl @@ -18,8 +18,8 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Localization; use Koha::Localizations; --- a/admin/marc_subfields_structure.pl +++ a/admin/marc_subfields_structure.pl @@ -18,8 +18,8 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; --- a/admin/marctagstructure.pl +++ a/admin/marctagstructure.pl @@ -20,10 +20,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Caches; --- a/admin/matching-rules.pl +++ a/admin/matching-rules.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use C4::Matcher qw/valid_normalization_routines/; --- a/admin/oai_set_mappings.pl +++ a/admin/oai_set_mappings.pl @@ -33,8 +33,8 @@ the OR operator will be applied. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::OAI::Sets; use Data::Dumper; --- a/admin/oai_sets.pl +++ a/admin/oai_sets.pl @@ -29,8 +29,8 @@ Admin page to describe OAI SETs use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::OAI::Sets; use Data::Dumper; --- a/admin/overdrive.pl +++ a/admin/overdrive.pl @@ -19,9 +19,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Libraries; use Koha::Library::OverDriveInfos; --- a/admin/patron-attr-types.pl +++ a/admin/patron-attr-types.pl @@ -24,9 +24,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use List::MoreUtils qw/uniq/; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use Koha::Patron::Attribute::Types; --- a/admin/preferences.pl +++ a/admin/preferences.pl @@ -20,13 +20,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Languages qw(getTranslatedLanguages); -use C4::ClassSource; +use C4::Koha qw( getallthemes ); +use C4::Languages qw( getTranslatedLanguages ); +use C4::ClassSource qw( GetClassSources GetClassSource ); use C4::Log; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Templates; use Koha::Acquisition::Currencies; use File::Spec; --- a/admin/share_content.pl +++ a/admin/share_content.pl @@ -21,8 +21,8 @@ use CGI qw ( -utf8 ); use JSON; use HTTP::Request; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::SharedContent; --- a/admin/smart-rules.pl +++ a/admin/smart-rules.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use Koha::DateUtils; use Koha::Database; --- a/admin/sms_providers.pl +++ a/admin/sms_providers.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::SMS::Provider; use Koha::SMS::Providers; --- a/admin/smtp_servers.pl +++ a/admin/smtp_servers.pl @@ -23,8 +23,8 @@ use CGI qw ( -utf8 ); use Scalar::Util qw(blessed); use Try::Tiny; -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 ); use Koha::Libraries; use Koha::SMTP::Servers; --- a/admin/sru_modmapping.pl +++ a/admin/sru_modmapping.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); # Initialize CGI, template --- a/admin/systempreferences.pl +++ a/admin/systempreferences.pl @@ -44,12 +44,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use MIME::Base64; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Languages qw(getTranslatedLanguages); -use C4::ClassSource; -use C4::Output; +use C4::Koha qw( getallthemes ); +use C4::Languages qw( getTranslatedLanguages ); +use C4::ClassSource qw( GetClassSources GetClassSource ); +use C4::Output qw( output_html_with_http_headers ); use YAML::XS; my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml) --- a/admin/transfer_limits.pl +++ a/admin/transfer_limits.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit }; --- a/admin/transport-cost-matrix.pl +++ a/admin/transport-cost-matrix.pl @@ -20,10 +20,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::HoldsQueue qw(TransportCostMatrix UpdateTransportCostMatrix); +use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix ); use Koha::Libraries; --- a/admin/usage_statistics.pl +++ a/admin/usage_statistics.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Libraries; --- a/admin/z3950servers.pl +++ a/admin/z3950servers.pl @@ -27,8 +27,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; use Koha::Z3950Servers; --- a/authorities/auth_finder.pl +++ a/authorities/auth_finder.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Acquisition; use C4::Koha; --- a/authorities/authorities-home.pl +++ a/authorities/authorities-home.pl @@ -24,9 +24,9 @@ use URI::Escape; use POSIX qw( ceil ); use C4::Context; -use C4::Auth; -use C4::Output; -use C4::AuthoritiesMarc; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit pagination_bar output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Acquisition; use C4::Koha; use C4::Biblio; --- a/authorities/authorities.pl +++ a/authorities/authorities.pl @@ -21,16 +21,16 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::AuthoritiesMarc; -use C4::ImportBatch; #GetImportRecordMarc +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::ImportBatch qw( sub GetImportRecordMarc ); use C4::Context; use C4::Koha; use Date::Calc qw(Today); use MARC::File::USMARC; use MARC::File::XML; -use C4::Biblio; +use C4::Biblio qw( TransformHtmlToMarc ); use Koha::Authority::Types; use Koha::ItemTypes; use vars qw( $tagslib); --- a/authorities/blinddetail-biblio-search.pl +++ a/authorities/blinddetail-biblio-search.pl @@ -38,10 +38,10 @@ parameters tables. use Modern::Perl; -use C4::AuthoritiesMarc; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; --- a/authorities/detail-biblio-search.pl +++ a/authorities/detail-biblio-search.pl @@ -38,10 +38,10 @@ parameters tables. use Modern::Perl; -use C4::AuthoritiesMarc; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use MARC::Record; use C4::Koha; --- a/authorities/detail.pl +++ a/authorities/detail.pl @@ -38,13 +38,13 @@ parameters tables. use Modern::Perl; -use C4::AuthoritiesMarc; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use MARC::Record; -use C4::Koha; +use C4::Koha qw( display_marc_indicators ); use Koha::Authorities; use Koha::Authority::Types; --- a/authorities/export.pl +++ a/authorities/export.pl @@ -2,9 +2,9 @@ use Modern::Perl; use C4::Record; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; -use C4::AuthoritiesMarc; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); my $query = CGI->new; --- a/authorities/merge.pl +++ a/authorities/merge.pl @@ -19,11 +19,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; -use C4::AuthoritiesMarc; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Biblio; +use C4::Biblio qw( TransformHtmlToMarc ); use Koha::Authority::MergeRequests; use Koha::Authority::Types; --- a/authorities/merge_ajax.pl +++ a/authorities/merge_ajax.pl @@ -7,8 +7,8 @@ use CGI::Cookie; # need to check cookies before CGI parses the POST request use JSON; use C4::Context; -use C4::Auth qw/check_cookie_auth/; -use C4::AuthoritiesMarc; +use C4::Auth qw( check_cookie_auth ); +use C4::Auth qw( check_cookie_auth ); my %cookies = CGI::Cookie->fetch; my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' }); --- a/authorities/ysearch.pl +++ a/authorities/ysearch.pl @@ -32,9 +32,9 @@ use Modern::Perl; use JSON; use C4::Context; -use C4::Charset; -use C4::Auth qw/check_cookie_auth/; -use C4::Output; +use C4::Charset qw( nsb_clean ); +use C4::Auth qw( check_cookie_auth ); +use C4::Output qw( output_with_http_headers ); use Koha::SearchEngine::Search; use Koha::SearchEngine::QueryBuilder; --- a/basket/basket.pl +++ a/basket/basket.pl @@ -19,10 +19,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; -use C4::Biblio; -use C4::Items; -use C4::Auth; -use C4::Output; +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls ); +use C4::Items qw( sub GetItemsInfo ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::AuthorisedValues; use Koha::Biblios; --- a/basket/downloadcart.pl +++ a/basket/downloadcart.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw(encode); -use C4::Auth; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio ); use C4::Items; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Record; use C4::Ris; --- a/basket/sendbasket.pl +++ a/basket/sendbasket.pl @@ -22,10 +22,10 @@ use Encode qw(encode); use Carp; use Try::Tiny; -use C4::Biblio; -use C4::Items; -use C4::Auth; -use C4::Output; +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects ); +use C4::Items qw( sub GetItemsInfo ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Templates (); use Koha::Email; use Koha::Token; --- a/catalogue/ISBDdetail.pl +++ a/catalogue/ISBDdetail.pl @@ -36,15 +36,15 @@ This script needs a biblionumber as parameter use Modern::Perl; use HTML::Entities; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Koha; -use C4::Biblio; -use C4::Items; -use C4::Serials; # CountSubscriptionFromBiblionumber -use C4::Search; # enabled_staff_search_views +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData ); +use C4::Items qw( sub ); +use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber ); +use C4::Search qw( z3950_search_args enabled_staff_search_views ); use Koha::Biblios; use Koha::Patrons; --- a/catalogue/MARCdetail.pl +++ a/catalogue/MARCdetail.pl @@ -47,16 +47,16 @@ use Modern::Perl; use CGI qw ( -utf8 ); use HTML::Entities; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::Koha; +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( display_marc_indicators ); use MARC::Record; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData GetAuthorisedValueDesc GetMarcFromKohaField ); +use C4::Items qw( sub ); use C4::Acquisition; -use C4::Serials; #uses getsubscriptionsfrombiblionumber GetSubscriptionsFromBiblionumber -use C4::Search; # enabled_staff_search_views +use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber ); +use C4::Search qw( z3950_search_args enabled_staff_search_views ); use Koha::Biblios; use Koha::BiblioFrameworks; --- a/catalogue/detail.pl +++ a/catalogue/detail.pl @@ -21,24 +21,24 @@ use Modern::Perl; use CGI qw ( -utf8 ); use HTML::Entities; use Try::Tiny; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Serials; #uses getsubscriptionfrom biblionumber -use C4::Output; -use C4::Biblio; -use C4::Items; -use C4::Circulation; +use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation GetAuthorisedValues ); +use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetBiblioData ); +use C4::Items qw( GetItemsInfo GetHostItemsInfo sub GetAnalyticsCount ); +use C4::Circulation qw( GetTransfers ); use C4::Reserves; -use C4::Serials; -use C4::XISBN qw(get_xisbns); +use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); +use C4::XISBN qw( get_xisbns ); use C4::External::Amazon; -use C4::Search; # enabled_staff_search_views -use C4::Tags qw(get_tags); +use C4::Search qw( z3950_search_args enabled_staff_search_views ); +use C4::Tags qw( get_tags get_tag ); use C4::XSLT; use Koha::DateUtils; use C4::HTML5Media; -use C4::CourseReserves qw(GetItemCourseReservesInfo); +use C4::CourseReserves qw( GetItemCourseReservesInfo ); use C4::Acquisition qw(GetOrdersByBiblionumber); use Koha::AuthorisedValues; use Koha::Biblios; --- a/catalogue/export.pl +++ a/catalogue/export.pl @@ -2,9 +2,9 @@ use Modern::Perl; use C4::Record; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber ); use CGI qw ( -utf8 ); use C4::Ris; --- a/catalogue/getitem-ajax.pl +++ a/catalogue/getitem-ajax.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON; -use C4::Auth; -use C4::Biblio; +use C4::Auth qw( check_api_auth ); +use C4::Biblio qw( GetMarcStructure ); use C4::Items; use C4::Koha; -use C4::Output; +use C4::Output qw( output_with_http_headers ); use Koha::Libraries; use Koha::AuthorisedValues; --- a/catalogue/imageviewer.pl +++ a/catalogue/imageviewer.pl @@ -20,11 +20,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Items; -use C4::Output; -use C4::Search; +use C4::Items qw( GetItemsInfo ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Search qw( enabled_staff_search_views ); use Koha::Biblios; use Koha::Items; --- a/catalogue/issuehistory.pl +++ a/catalogue/issuehistory.pl @@ -19,12 +19,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; # GetBiblio -use C4::Search; # enabled_staff_search_views -use C4::Serials; +use C4::Search qw( enabled_staff_search_views ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); use Koha::Checkouts; use Koha::Old::Checkouts; --- a/catalogue/item-export.pl +++ a/catalogue/item-export.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; my $cgi = CGI->new; --- a/catalogue/itemsearch.pl +++ a/catalogue/itemsearch.pl @@ -21,11 +21,11 @@ use CGI; use JSON; -use C4::Auth; -use C4::Output; -use C4::Items; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers output_html_with_http_headers ); +use C4::Items qw( SearchItems ); use C4::Biblio; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use Koha::AuthorisedValues; use Koha::Biblios; --- a/catalogue/labeledMARCdetail.pl +++ a/catalogue/labeledMARCdetail.pl @@ -21,13 +21,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); use HTML::Entities; use MARC::Record; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::Biblio; -use C4::Items; -use C4::Search; # enabled_staff_search_views -use C4::Serials; +use C4::Output qw( output_html_with_http_headers ); +use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData ); +use C4::Items qw( sub ); +use C4::Search qw( z3950_search_args enabled_staff_search_views ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); use Koha::Biblios; use Koha::BiblioFrameworks; --- a/catalogue/moredetail.pl +++ a/catalogue/moredetail.pl @@ -20,16 +20,16 @@ use Modern::Perl; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use CGI qw ( -utf8 ); use HTML::Entities; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); +use C4::Items qw( sub GetItemsInfo GetHostItemsInfo ); use C4::Acquisition; -use C4::Output; -use C4::Auth; -use C4::Serials; -use C4::Search; # enabled_staff_search_views +use C4::Output qw( output_and_exit output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); +use C4::Search qw( enabled_staff_search_views z3950_search_args ); use Koha::Acquisition::Booksellers; use Koha::AuthorisedValues; --- a/catalogue/search-history.pl +++ a/catalogue/search-history.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Search::History; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; --- a/catalogue/search.pl +++ a/catalogue/search.pl @@ -140,14 +140,14 @@ use Modern::Perl; ## load Koha modules use C4::Context; -use C4::Output; -use C4::Auth qw(:DEFAULT get_session); -use C4::Search; -use C4::Languages qw(getLanguages); -use C4::Koha; +use C4::Output qw( output_html_with_http_headers pagination_bar ); +use C4::Auth qw( get_template_and_user ); +use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra ); +use C4::Languages qw( getlanguage getLanguages ); +use C4::Koha qw( getitemtypeimagelocation GetAuthorisedValues ); use URI::Escape; use POSIX qw(ceil floor); -use C4::Search::History; +use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra ); use Koha::ItemTypes; use Koha::Library::Groups; --- a/catalogue/showmarc.pl +++ a/catalogue/showmarc.pl @@ -29,10 +29,10 @@ use Encode; # Koha modules used use C4::Context; -use C4::Output; -use C4::Auth; -use C4::Biblio; -use C4::ImportBatch; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio GetXmlBiblio ); +use C4::ImportBatch qw( GetRecordFromImportBiblio ); use C4::XSLT (); my $input= CGI->new; --- a/catalogue/stockrotation.pl +++ a/catalogue/stockrotation.pl @@ -27,16 +27,16 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; -use C4::Search; -use C4::Serials; +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 ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); use Koha::Biblio; use Koha::Item; use Koha::StockRotationRotas; use Koha::StockRotationStages; -use Koha::Util::StockRotation qw(:ALL); +use Koha::Util::StockRotation qw( get_stages get_branches toggle_indemand remove_from_stage move_to_next_stage ); my $input = CGI->new; --- a/catalogue/updateitem.pl +++ a/catalogue/updateitem.pl @@ -19,12 +19,12 @@ # along with Koha; if not, see . use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Context; use C4::Biblio; use C4::Items; use C4::Output; -use C4::Circulation; +use C4::Circulation qw( LostItem ); use C4::Reserves; my $cgi= CGI->new; --- a/cataloguing/addbiblio.pl +++ a/cataloguing/addbiblio.pl @@ -22,18 +22,18 @@ use Modern::Perl; use CGI q(-utf8); -use C4::Output; -use C4::Auth; -use C4::Biblio; -use C4::Search; -use C4::AuthoritiesMarc; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user haspermission ); +use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetUsedMarcStructure GetMarcBiblio PrepHostMarcField prepare_host_field TransformHtmlToMarc ModBiblio AddBiblio DelBiblio ); +use C4::Search qw( FindDuplicate enabled_staff_search_views ); +use C4::Auth qw( get_template_and_user haspermission ); use C4::Context; use MARC::Record; use C4::Log; use C4::Koha; -use C4::ClassSource; -use C4::ImportBatch; -use C4::Charset; +use C4::ClassSource qw( GetClassSources GetClassSource ); +use C4::ImportBatch qw( sub GetImportRecordMarc ); +use C4::Charset qw( SetMarcUnicodeFlag ); use Koha::BiblioFrameworks; use Koha::DateUtils; --- a/cataloguing/addbooks.pl +++ a/cataloguing/addbooks.pl @@ -28,13 +28,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); use URI::Escape; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Breeding; -use C4::Output; -use C4::Koha; -use C4::Languages qw(getlanguage); -use C4::Search; +use C4::Breeding qw( BreedingSearch ); +use C4::Output qw( output_html_with_http_headers pagination_bar ); +use C4::Koha qw( getnbpages ); +use C4::Languages qw( getlanguage ); +use C4::Search qw( searchResults z3950_search_args ); use Koha::BiblioFrameworks; use Koha::SearchEngine::Search; --- a/cataloguing/additem.pl +++ a/cataloguing/additem.pl @@ -22,14 +22,14 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Biblio; -use C4::Items; +use C4::Auth qw( get_template_and_user haspermission ); +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); +use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetMarcBiblio TransformMarcToKoha TransformHtmlToXml ModBiblio EmbedItemsInMarcBiblio GetAuthorisedValueDesc IsMarcStructureInternal ); +use C4::Items qw( sub AddItemFromMarc GetMarcItem ModItemFromMarc ); use C4::Context; -use C4::Circulation; -use C4::Koha; -use C4::ClassSource; +use C4::Circulation qw( LostItem ); +use C4::Koha qw( GetAuthorisedValues ); +use C4::ClassSource qw( GetClassSources GetClassSource ); use Koha::DateUtils; use Koha::Items; use Koha::ItemTypes; @@ -37,7 +37,7 @@ use Koha::Libraries; use Koha::Patrons; use Koha::SearchEngine::Indexer; use List::MoreUtils qw/any/; -use C4::Search; +use C4::Search qw( enabled_staff_search_views ); use Storable qw(thaw freeze); use URI::Escape; use C4::Members; --- a/cataloguing/editor.pl +++ a/cataloguing/editor.pl @@ -23,10 +23,10 @@ use Modern::Perl; use CGI; use MARC::Record; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use DBIx::Class::ResultClass::HashRefInflator; use Koha::Database; use Koha::MarcSubfieldStructures; --- a/cataloguing/linkitem.pl +++ a/cataloguing/linkitem.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Biblio; -use C4::Items; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Biblio qw( GetMarcBiblio PrepHostMarcField ModBiblio ); +use C4::Items qw( sub ); use C4::Context; use C4::Koha; --- a/cataloguing/merge.pl +++ a/cataloguing/merge.pl @@ -21,13 +21,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; -use C4::Items; -use C4::Biblio; -use C4::Serials; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Items qw( sub MoveItemFromBiblio ); +use C4::Biblio qw( TransformHtmlToMarc GetMarcBiblio ModBiblio DelBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); use C4::Koha; -use C4::Reserves qw/MergeHolds/; +use C4::Reserves qw( MergeHolds ); use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/; use Koha::BiblioFrameworks; --- a/cataloguing/merge_ajax.pl +++ a/cataloguing/merge_ajax.pl @@ -7,8 +7,8 @@ use CGI::Cookie; # need to check cookies before CGI parses the POST request use JSON; use C4::Context; -use C4::Biblio; -use C4::Auth qw/check_cookie_auth/; +use C4::Biblio qw( GetMarcStructure ); +use C4::Auth qw( check_cookie_auth ); my %cookies = CGI::Cookie->fetch; my ( $auth_status, $sessionID ) = check_cookie_auth( --- a/cataloguing/moveitem.pl +++ a/cataloguing/moveitem.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; -use C4::Items; +use C4::Items qw( MoveItemFromBiblio ); use C4::Context; use C4::Koha; use C4::ClassSource; --- a/cataloguing/value_builder/EXAMPLE.pl +++ a/cataloguing/value_builder/EXAMPLE.pl @@ -19,8 +19,8 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); # Example of framework plugin new style. # It should define and return at least one and normally two anynomous --- a/cataloguing/value_builder/barcode.pl +++ a/cataloguing/value_builder/barcode.pl @@ -24,7 +24,7 @@ use Modern::Perl; use C4::Context; use C4::Barcodes::ValueBuilder; -use C4::Biblio qw/GetMarcFromKohaField/; +use C4::Biblio qw( GetMarcFromKohaField ); use Koha::DateUtils; use Algorithm::CheckDigits; --- a/cataloguing/value_builder/barcode_manual.pl +++ a/cataloguing/value_builder/barcode_manual.pl @@ -24,7 +24,7 @@ use Modern::Perl; use C4::Context; use C4::Barcodes::ValueBuilder; -use C4::Biblio qw/GetMarcFromKohaField/; +use C4::Biblio qw( GetMarcFromKohaField ); use Koha::DateUtils; my $DEBUG = 0; --- a/cataloguing/value_builder/callnumber-KU.pl +++ a/cataloguing/value_builder/callnumber-KU.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/callnumber.pl +++ a/cataloguing/value_builder/callnumber.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/cn_browser.pl +++ a/cataloguing/value_builder/cn_browser.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::ClassSource; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::ClassSource qw( GetClassSort ); +use C4::Output qw( output_html_with_http_headers ); use Koha::ClassSources; --- a/cataloguing/value_builder/macles.pl +++ a/cataloguing/value_builder/macles.pl @@ -23,8 +23,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_field_006.pl +++ a/cataloguing/value_builder/marc21_field_006.pl @@ -20,12 +20,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use XML::LibXML; --- a/cataloguing/value_builder/marc21_field_007.pl +++ a/cataloguing/value_builder/marc21_field_007.pl @@ -21,12 +21,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_field_008.pl +++ a/cataloguing/value_builder/marc21_field_008.pl @@ -20,12 +20,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use XML::LibXML; use Koha::Util::FrameworkPlugin qw|date_entered|; --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ a/cataloguing/value_builder/marc21_field_008_authorities.pl @@ -20,12 +20,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Util::FrameworkPlugin qw|date_entered|; use constant FIXLEN_DATA_ELTS => '|| aca||aabn | a|a d'; --- a/cataloguing/value_builder/marc21_field_008_classifications.pl +++ a/cataloguing/value_builder/marc21_field_008_classifications.pl @@ -16,12 +16,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Util::FrameworkPlugin qw|date_entered|; use constant FIXLEN_DATA_ELTS => 'baaaaaaa'; --- a/cataloguing/value_builder/marc21_leader.pl +++ a/cataloguing/value_builder/marc21_leader.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ a/cataloguing/value_builder/marc21_leader_authorities.pl @@ -21,12 +21,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_linking_section.pl +++ a/cataloguing/value_builder/marc21_linking_section.pl @@ -22,13 +22,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Search; -use C4::Auth; -use C4::Output; +use C4::Search qw( new_record_from_zebra ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha ); use C4::Koha; use MARC::Record; --- a/cataloguing/value_builder/normarc_field_007.pl +++ a/cataloguing/value_builder/normarc_field_007.pl @@ -18,12 +18,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/normarc_field_008.pl +++ a/cataloguing/value_builder/normarc_field_008.pl @@ -18,12 +18,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); # find today's date my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time); --- a/cataloguing/value_builder/normarc_leader.pl +++ a/cataloguing/value_builder/normarc_leader.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/stocknumberAV.pl +++ a/cataloguing/value_builder/stocknumberAV.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::AuthorisedValues; =head1 DESCRIPTION --- a/cataloguing/value_builder/stocknumberam123.pl +++ a/cataloguing/value_builder/stocknumberam123.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/unimarc_field_010.pl +++ a/cataloguing/value_builder/unimarc_field_010.pl @@ -19,10 +19,10 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { --- a/cataloguing/value_builder/unimarc_field_100.pl +++ a/cataloguing/value_builder/unimarc_field_100.pl @@ -23,10 +23,10 @@ use Modern::Perl; use Date::Calc qw( Today ); use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ a/cataloguing/value_builder/unimarc_field_100_authorities.pl @@ -20,10 +20,10 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { --- a/cataloguing/value_builder/unimarc_field_105.pl +++ a/cataloguing/value_builder/unimarc_field_105.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_106.pl +++ a/cataloguing/value_builder/unimarc_field_106.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_110.pl +++ a/cataloguing/value_builder/unimarc_field_110.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ a/cataloguing/value_builder/unimarc_field_115a.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ a/cataloguing/value_builder/unimarc_field_115b.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_116.pl +++ a/cataloguing/value_builder/unimarc_field_116.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_117.pl +++ a/cataloguing/value_builder/unimarc_field_117.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_120.pl +++ a/cataloguing/value_builder/unimarc_field_120.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ a/cataloguing/value_builder/unimarc_field_121a.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ a/cataloguing/value_builder/unimarc_field_121b.pl @@ -19,12 +19,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_122.pl +++ a/cataloguing/value_builder/unimarc_field_122.pl @@ -19,12 +19,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ a/cataloguing/value_builder/unimarc_field_123a.pl @@ -19,12 +19,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ a/cataloguing/value_builder/unimarc_field_123d.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ a/cataloguing/value_builder/unimarc_field_123e.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ a/cataloguing/value_builder/unimarc_field_123f.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ a/cataloguing/value_builder/unimarc_field_123g.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ a/cataloguing/value_builder/unimarc_field_123i.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ a/cataloguing/value_builder/unimarc_field_123j.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124.pl +++ a/cataloguing/value_builder/unimarc_field_124.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ a/cataloguing/value_builder/unimarc_field_124a.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ a/cataloguing/value_builder/unimarc_field_124b.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ a/cataloguing/value_builder/unimarc_field_124c.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ a/cataloguing/value_builder/unimarc_field_124d.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ a/cataloguing/value_builder/unimarc_field_124e.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ a/cataloguing/value_builder/unimarc_field_124f.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ a/cataloguing/value_builder/unimarc_field_124g.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_125.pl +++ a/cataloguing/value_builder/unimarc_field_125.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ a/cataloguing/value_builder/unimarc_field_125a.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ a/cataloguing/value_builder/unimarc_field_125b.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_126.pl +++ a/cataloguing/value_builder/unimarc_field_126.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ a/cataloguing/value_builder/unimarc_field_126a.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ a/cataloguing/value_builder/unimarc_field_126b.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_127.pl +++ a/cataloguing/value_builder/unimarc_field_127.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ a/cataloguing/value_builder/unimarc_field_128a.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ a/cataloguing/value_builder/unimarc_field_128b.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ a/cataloguing/value_builder/unimarc_field_128c.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_130.pl +++ a/cataloguing/value_builder/unimarc_field_130.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ a/cataloguing/value_builder/unimarc_field_135a.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_140.pl +++ a/cataloguing/value_builder/unimarc_field_140.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_141.pl +++ a/cataloguing/value_builder/unimarc_field_141.pl @@ -20,12 +20,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ a/cataloguing/value_builder/unimarc_field_210c.pl @@ -19,14 +19,14 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::AuthoritiesMarc; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( pagination_bar output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Search; use MARC::Record; -use C4::Koha; +use C4::Koha qw( getnbpages ); ###TODO To rewrite in order to use SearchAuthorities --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ a/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -40,12 +40,12 @@ It need : use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::AuthoritiesMarc; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ a/cataloguing/value_builder/unimarc_field_225a.pl @@ -41,12 +41,12 @@ It need : use strict; #use warnings; FIXME - Bug 2505 -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::AuthoritiesMarc; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/unimarc_field_225a_bis.pl +++ a/cataloguing/value_builder/unimarc_field_225a_bis.pl @@ -24,11 +24,11 @@ biblioitems.collectiontitle use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ a/cataloguing/value_builder/unimarc_field_4XX.pl @@ -22,13 +22,13 @@ use strict; #use warnings; FIXME - Bug 2505 use CGI qw ( -utf8 ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Search; -use C4::Auth; -use C4::Output; +use C4::Search qw( new_record_from_zebra ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha ); use C4::Koha; use MARC::Record; --- a/cataloguing/value_builder/unimarc_field_686a.pl +++ a/cataloguing/value_builder/unimarc_field_686a.pl @@ -19,12 +19,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ a/cataloguing/value_builder/unimarc_field_700-4.pl @@ -21,12 +21,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_leader.pl +++ a/cataloguing/value_builder/unimarc_leader.pl @@ -21,12 +21,12 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/ysearch.pl +++ a/cataloguing/ysearch.pl @@ -27,8 +27,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Charset; -use C4::Auth qw/check_cookie_auth/; +use C4::Charset qw( nsb_clean ); +use C4::Auth qw( check_cookie_auth ); use JSON qw/ to_json /; my $input = CGI->new; --- a/cataloguing/z3950_auth_search.pl +++ a/cataloguing/z3950_auth_search.pl @@ -20,10 +20,10 @@ use Modern::Perl; use CGI qw / -utf8 /; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Breeding; +use C4::Breeding qw( Z3950Search Z3950SearchAuth ); use C4::Koha; my $input = CGI->new; --- a/cataloguing/z3950_search.pl +++ a/cataloguing/z3950_search.pl @@ -21,10 +21,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Breeding; +use C4::Breeding qw( Z3950Search ); use C4::Koha; my $input = CGI->new; --- a/circ/add_message.pl +++ a/circ/add_message.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use Koha::Patron::Message; --- a/circ/article-request-slip.pl +++ a/circ/article-request-slip.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; -use C4::Letters; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Letters qw( GetPreparedLetter ); use Koha::ArticleRequests; use Koha::Patrons; --- a/circ/article-requests.pl +++ a/circ/article-requests.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::ArticleRequests; my $query = CGI->new; --- a/circ/bookcount.pl +++ a/circ/bookcount.pl @@ -24,9 +24,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Circulation; -use C4::Output; +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Koha; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Koha::Biblios; use Koha::DateUtils; use Koha::Libraries; --- a/circ/branchoverdues.pl +++ a/circ/branchoverdues.pl @@ -19,11 +19,11 @@ use Modern::Perl; use C4::Context; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; -use C4::Overdues; -use C4::Biblio; -use C4::Koha; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Overdues qw( GetOverduesForBranch ); +use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure ); +use C4::Koha qw( GetAuthorisedValues ); use Koha::DateUtils; use Koha::BiblioFrameworks; use Data::Dumper; --- a/circ/branchtransfers.pl +++ a/circ/branchtransfers.pl @@ -22,12 +22,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Circulation; -use C4::Output; -use C4::Reserves; +use C4::Circulation qw( transferbook ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Reserves qw( ModReserve ModReserveAffect ); use C4::Biblio; use C4::Items; -use C4::Auth qw/:DEFAULT get_session/; +use C4::Auth qw( get_session get_template_and_user ); use C4::Koha; use C4::Members; use Koha::BiblioFrameworks; --- a/circ/checkout-notes.pl +++ a/circ/checkout-notes.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use Koha::Checkouts; my $query = CGI->new; --- a/circ/circulation-home.pl +++ a/circ/circulation-home.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::BiblioFrameworks; use Koha::Checkouts; --- a/circ/circulation.pl +++ a/circ/circulation.pl @@ -29,14 +29,14 @@ use CGI qw ( -utf8 ); use DateTime; use DateTime::Duration; use Scalar::Util qw( looks_like_number ); -use C4::Output; -use C4::Auth qw/:DEFAULT get_session haspermission/; +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); +use C4::Auth qw( get_session get_template_and_user haspermission ); use C4::Koha; -use C4::Circulation; +use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue ); use C4::Utils::DataTables::Members; use C4::Members; -use C4::Biblio; -use C4::Search; +use C4::Biblio qw( TransformMarcToKoha ); +use C4::Search qw( new_record_from_zebra ); use MARC::Record; use C4::Reserves; use Koha::Holds; --- a/circ/del_message.pl +++ a/circ/del_message.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use Koha::Patron::Messages; --- a/circ/hold-transfer-slip.pl +++ a/circ/hold-transfer-slip.pl @@ -20,10 +20,10 @@ use Modern::Perl; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Auth qw/:DEFAULT get_session/; -use C4::Reserves; +use C4::Auth qw( get_session get_template_and_user ); +use C4::Reserves qw( ReserveSlip ); use vars qw($debug); --- a/circ/offline-mf.pl +++ a/circ/offline-mf.pl @@ -18,7 +18,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); my $query = CGI->new; my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( --- a/circ/offline.pl +++ a/circ/offline.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; my $query = CGI->new; --- a/circ/on-site_checkouts.pl +++ a/circ/on-site_checkouts.pl @@ -18,9 +18,9 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Circulation qw( GetPendingOnSiteCheckouts ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use Koha::BiblioFrameworks; --- a/circ/overdue.pl +++ a/circ/overdue.pl @@ -21,9 +21,9 @@ use Modern::Perl; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw(-oldstyle_urls -utf8); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Text::CSV_XS; use Koha::DateUtils; use DateTime; --- a/circ/pendingreserves.pl +++ a/circ/pendingreserves.pl @@ -25,9 +25,9 @@ use YAML::XS; use Encode; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Items qw( ModItemTransfer ); use C4::Reserves qw( ModReserveCancelAll ); use Koha::Biblios; --- a/circ/renew.pl +++ a/circ/renew.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth qw/:DEFAULT get_session/; -use C4::Output; -use C4::Circulation; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Circulation qw( barcodedecode CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal ); use C4::Koha; use Koha::DateUtils; use Koha::Database; --- a/circ/request-article.pl +++ a/circ/request-article.pl @@ -19,11 +19,11 @@ use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_and_exit output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Utils::DataTables::Members; -use C4::Search; -use C4::Serials; +use C4::Search qw( enabled_staff_search_views ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); use Koha::Biblios; use Koha::Patrons; use Koha::ArticleRequests; --- a/circ/reserveratios.pl +++ a/circ/reserveratios.pl @@ -25,8 +25,8 @@ use Date::Calc qw/Today Add_Delta_YM/; use POSIX qw( ceil ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Acquisition qw/GetOrdersByBiblionumber/; use Koha::DateUtils; use Koha::Acquisition::Baskets; --- a/circ/returns.pl +++ a/circ/returns.pl @@ -34,19 +34,19 @@ use Modern::Perl; use CGI qw ( -utf8 ); use DateTime; -use C4::Auth qw/:DEFAULT get_session/; -use C4::Output; -use C4::Circulation; -use C4::Reserves; +use C4::Auth qw( get_template_and_user get_session haspermission ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Circulation qw( barcodedecode updateWrongTransfer GetBranchItemRule AddReturn LostItem ); +use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves ); use C4::Biblio; -use C4::Circulation; +use C4::Circulation qw( barcodedecode updateWrongTransfer GetBranchItemRule AddReturn LostItem ); use C4::Context; -use C4::Items; +use C4::Items qw( ModItemTransfer sub ); use C4::Koha; # FIXME : is it still useful ? use C4::Members::Messaging; use C4::Members; -use C4::Output; -use C4::Reserves; +use C4::Output qw( output_html_with_http_headers ); +use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves ); use C4::RotatingCollections; use Koha::AuthorisedValues; use Koha::BiblioFrameworks; --- a/circ/set-library.pl +++ a/circ/set-library.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth qw/:DEFAULT get_session/; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user get_session ); use C4::Koha; use Koha::BiblioFrameworks; use Koha::Cash::Registers; --- a/circ/transfer-slip.pl +++ a/circ/transfer-slip.pl @@ -21,10 +21,10 @@ use Modern::Perl; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Auth qw/:DEFAULT get_session/; -use C4::Circulation; +use C4::Auth qw( get_session get_template_and_user ); +use C4::Circulation qw( TransferSlip ); use vars qw($debug); --- a/circ/transfers_to_send.pl +++ a/circ/transfers_to_send.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::DateUtils; --- a/circ/transferstoreceive.pl +++ a/circ/transferstoreceive.pl @@ -21,10 +21,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Circulation; +use C4::Circulation qw( GetTransfers GetTransfersFromTo ); use C4::Members; use Date::Calc qw( Today --- a/circ/view_holdsqueue.pl +++ a/circ/view_holdsqueue.pl @@ -24,11 +24,11 @@ This script displays items in the tmp_holdsqueue table use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; use C4::Items; -use C4::HoldsQueue qw(GetHoldsQueueItems); +use C4::HoldsQueue qw( GetHoldsQueueItems ); use Koha::BiblioFrameworks; use Koha::ItemTypes; --- a/circ/waitingreserves.pl +++ a/circ/waitingreserves.pl @@ -21,18 +21,18 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Circulation; use C4::Members; use C4::Biblio; -use C4::Items; +use C4::Items qw( sub ModItemTransfer ); use Date::Calc qw( Today Add_Delta_Days Date_to_Days ); -use C4::Reserves; +use C4::Reserves qw( ModReserve ModReserveCancelAll ); use C4::Koha; use Koha::DateUtils; use Koha::BiblioFrameworks; --- a/circ/ysearch.pl +++ a/circ/ysearch.pl @@ -27,7 +27,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth qw/check_cookie_auth/; +use C4::Auth qw( check_cookie_auth ); use Koha::Patrons; use Koha::DateUtils qw/format_sqldatetime/; --- a/clubs/club-enrollments.pl +++ a/clubs/club-enrollments.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; my $cgi = CGI->new; --- a/clubs/clubs-add-modify.pl +++ a/clubs/clubs-add-modify.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; use Koha::DateUtils qw(dt_from_string); use Koha::Clubs; --- a/clubs/clubs.pl +++ a/clubs/clubs.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; use Koha::Club::Templates; --- a/clubs/patron-clubs-tab.pl +++ a/clubs/patron-clubs-tab.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; use Koha::Club::Enrollments; --- a/clubs/patron-enroll.pl +++ a/clubs/patron-enroll.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; my $cgi = CGI->new; --- a/clubs/templates-add-modify.pl +++ a/clubs/templates-add-modify.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::DateUtils qw(dt_from_string); use Koha::Club::Templates; --- a/course_reserves/add_items.pl +++ a/course_reserves/add_items.pl @@ -22,13 +22,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Koha; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); use C4::Biblio; use Koha::Items; -use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve); +use C4::CourseReserves qw( GetCourse GetCourseReserve ModCourse ModCourseItem ModCourseReserve ); use Koha::Items; use Koha::ItemTypes; --- a/course_reserves/batch_add_items.pl +++ a/course_reserves/batch_add_items.pl @@ -23,9 +23,9 @@ use Modern::Perl; use CGI qw( -utf8 ); use List::MoreUtils qw( uniq ); -use C4::Auth; -use C4::Output; -use C4::CourseReserves qw(ModCourseItem ModCourseReserve GetCourse); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::CourseReserves qw( GetCourse ModCourse ModCourseItem ModCourseReserve ); use Koha::Items; --- a/course_reserves/batch_rm_items.pl +++ a/course_reserves/batch_rm_items.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw( -utf8 ); use List::MoreUtils qw( uniq ); -use C4::Auth; -use C4::Output; -use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseItem); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::CourseReserves qw( GetCourse GetCourseItem GetItemCourseReservesInfo DelCourse DelCourseReserve ); use Koha::Items; --- a/course_reserves/course-details.pl +++ a/course_reserves/course-details.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves); +use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves ); my $cgi = CGI->new; --- a/course_reserves/course-reserves.pl +++ a/course_reserves/course-reserves.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::CourseReserves qw(GetCourses); +use C4::CourseReserves qw( GetCourse GetCourses ); my $cgi = CGI->new; --- a/course_reserves/course.pl +++ a/course_reserves/course.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Koha; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); -use C4::CourseReserves qw(GetCourse); +use C4::CourseReserves qw( GetCourse ); my $cgi = CGI->new; --- a/course_reserves/mod_course.pl +++ a/course_reserves/mod_course.pl @@ -23,9 +23,9 @@ use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); -use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors); +use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors ); my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/errors/400.pl +++ a/errors/400.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/errors/401.pl +++ a/errors/401.pl @@ -17,8 +17,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/errors/402.pl +++ a/errors/402.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/errors/403.pl +++ a/errors/403.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/errors/404.pl +++ a/errors/404.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/errors/500.pl +++ a/errors/500.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/help.pl +++ a/help.pl @@ -20,7 +20,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use Koha::Manual; --- a/ill/ill-requests.pl +++ a/ill/ill-requests.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Notice::Templates; use Koha::AuthorisedValues; use Koha::Illcomment; --- a/installer/install.pl +++ a/installer/install.pl @@ -20,14 +20,14 @@ use Modern::Perl; use diagnostics; -use C4::InstallAuth; +use C4::InstallAuth qw( get_template_and_user ); use CGI qw ( -utf8 ); use POSIX qw(strftime); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Templates; -use C4::Languages qw(getAllLanguages getTranslatedLanguages); +use C4::Languages qw( getAllLanguages getTranslatedLanguages ); use C4::Installer; use C4::Installer::PerlModules; --- a/installer/onboarding.pl +++ a/installer/onboarding.pl @@ -19,10 +19,10 @@ use Modern::Perl; use C4::Context; -use C4::InstallAuth; +use C4::InstallAuth qw( checkauth get_template_and_user ); use CGI qw ( -utf8 ); -use C4::Output; -use C4::Members qw(checkcardnumber); +use C4::Output qw( output_html_with_http_headers ); +use C4::Members qw( checkcardnumber ); use Koha::Patrons; use Koha::Libraries; use Koha::Database; --- a/labels/label-create-pdf.pl +++ a/labels/label-create-pdf.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Creators; use C4::Labels; --- a/labels/label-edit-batch.pl +++ a/labels/label-edit-batch.pl @@ -23,8 +23,8 @@ use vars qw($debug); use CGI qw ( -utf8 ); -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 ); use C4::Creators; use C4::Labels; --- a/labels/label-edit-layout.pl +++ a/labels/label-edit-layout.pl @@ -23,8 +23,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use POSIX; -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 ); use C4::Creators; use C4::Labels; --- a/labels/label-edit-profile.pl +++ a/labels/label-edit-profile.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -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 ); use C4::Creators; use C4::Labels; --- a/labels/label-edit-range.pl +++ a/labels/label-edit-range.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -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 $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/labels/label-edit-template.pl +++ a/labels/label-edit-template.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -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 ); use C4::Creators; use C4::Labels; --- a/labels/label-home.pl +++ a/labels/label-home.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -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 $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/labels/label-item-search.pl +++ a/labels/label-item-search.pl @@ -23,11 +23,11 @@ use CGI qw ( -utf8 ); use List::Util qw( max min ); use POSIX qw(ceil); -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 ); use C4::Context; -use C4::Search qw(SimpleSearch); -use C4::Biblio qw(TransformMarcToKoha); +use C4::Search qw( new_record_from_zebra ); +use C4::Biblio qw( TransformMarcToKoha ); use C4::Creators::Lib qw(html_table); use Koha::Logger; --- a/labels/label-manage.pl +++ a/labels/label-manage.pl @@ -25,8 +25,8 @@ use vars qw($debug); use CGI qw ( -utf8 ); use Data::Dumper; -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 ); use C4::Creators; use C4::Labels; --- a/labels/label-print.pl +++ a/labels/label-print.pl @@ -23,8 +23,8 @@ use CGI qw ( -utf8 ); use Data::Dumper; use C4::Context; -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 ); use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats); use C4::Labels::Batch; --- a/labels/spinelabel-home.pl +++ a/labels/spinelabel-home.pl @@ -17,8 +17,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; # use Smart::Comments; --- a/labels/spinelabel-print.pl +++ a/labels/spinelabel-print.pl @@ -17,8 +17,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $scheme = C4::Context->preference('SpineLabelFormat'); my $query = CGI->new; --- a/mainpage.pl +++ a/mainpage.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::NewsChannels; # GetNewsToDisplay -use C4::Tags qw/get_count_by_tag_status/; +use C4::Tags qw( get_count_by_tag_status ); use Koha::Patron::Modifications; use Koha::Patron::Discharge; use Koha::Reviews; --- a/members/accountline-details.pl +++ a/members/accountline-details.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Patrons; use Koha::Account::Lines; --- a/members/apikeys.pl +++ a/members/apikeys.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use Koha::ApiKeys; use Koha::Patrons; --- a/members/boraccount.pl +++ a/members/boraccount.pl @@ -25,8 +25,8 @@ use Modern::Perl; use URI::Escape; -use C4::Auth; -use C4::Output; +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 C4::Members; use C4::Accounts; --- a/members/cancel-charge.pl +++ a/members/cancel-charge.pl @@ -19,7 +19,7 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( checkauth ); use Koha::Token; my $cgi = CGI->new; --- a/members/deletemem.pl +++ a/members/deletemem.pl @@ -28,8 +28,8 @@ use CGI qw ( -utf8 ); use Try::Tiny; use C4::Context; -use C4::Output; -use C4::Auth; +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 haspermission ); use C4::Members; use C4::Suggestions qw( SearchSuggestion ); use Koha::Patrons; --- a/members/discharge.pl +++ a/members/discharge.pl @@ -31,8 +31,8 @@ use Modern::Perl; use Carp; use CGI qw( -utf8 ); -use C4::Auth; -use C4::Output; +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::Members; use C4::Reserves; use C4::Letters; --- a/members/discharges.pl +++ a/members/discharges.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +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 Koha::Patron::Discharge; --- a/members/files.pl +++ a/members/files.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +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::Members; use Koha::DateUtils; --- a/members/guarantor_search.pl +++ a/members/guarantor_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/members/holdshistory.pl +++ a/members/holdshistory.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; --- a/members/housebound.pl +++ a/members/housebound.pl @@ -26,9 +26,9 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use DateTime; use Koha::DateUtils; use Koha::Libraries; --- a/members/ill-requests.pl +++ a/members/ill-requests.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +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 Koha::Patrons; my $input = CGI->new; --- a/members/mancredit.pl +++ a/members/mancredit.pl @@ -23,8 +23,8 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +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 C4::Members; --- a/members/maninvoice.pl +++ a/members/maninvoice.pl @@ -25,8 +25,8 @@ use Modern::Perl; use Try::Tiny; -use C4::Auth; -use C4::Output; +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 C4::Members; use C4::Accounts; --- a/members/member-flags.pl +++ a/members/member-flags.pl @@ -7,8 +7,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth qw(:DEFAULT :EditPermissions); +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; use C4::Members; #use C4::Acquisitions; @@ -16,7 +16,7 @@ use C4::Members; use Koha::Patron::Categories; use Koha::Patrons; -use C4::Output; +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use Koha::Token; my $input = CGI->new; --- a/members/member-password.pl +++ a/members/member-password.pl @@ -6,9 +6,9 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Koha::AuthUtils; -use C4::Output; +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use C4::Context; use C4::Members; use C4::Circulation; --- a/members/member.pl +++ a/members/member.pl @@ -24,8 +24,8 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use CGI qw( -utf8 ); use Koha::DateUtils; use Koha::List::Patron; --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -26,15 +26,15 @@ use CGI qw ( -utf8 ); use List::MoreUtils qw/uniq/; # internal modules -use C4::Auth; +use C4::Auth qw( get_template_and_user haspermission ); use C4::Context; -use C4::Output; -use C4::Members; -use C4::Koha; +use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers ); +use C4::Members qw( checkcardnumber get_cardnumber_length ); +use C4::Koha qw( GetAuthorisedValues ); use C4::Log; -use C4::Letters; +use C4::Letters qw( SendAlerts ); use C4::Form::MessagingPreferences; -use Koha::AuthUtils; +use Koha::AuthUtils qw( is_password_valid ); use Koha::AuthorisedValues; use Koha::Patron::Debarments; use Koha::Cities; --- a/members/members-home.pl +++ a/members/members-home.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Members; use Koha::Patron::Modifications; --- a/members/members-update-do.pl +++ a/members/members-update-do.pl @@ -19,7 +19,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use C4::Context; use Koha::Patrons; --- a/members/members-update.pl +++ a/members/members-update.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Members; use Koha::Patron::Attribute::Types; --- a/members/merge-patrons.pl +++ a/members/merge-patrons.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Patrons; --- a/members/mod_debarment.pl +++ a/members/mod_debarment.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use Koha::DateUtils; use Koha::Patron::Debarments; --- a/members/moremember.pl +++ a/members/moremember.pl @@ -30,8 +30,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +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::Form::MessagingPreferences; use List::MoreUtils qw/uniq/; use Koha::Patron::Attribute::Types; --- a/members/notices.pl +++ a/members/notices.pl @@ -20,11 +20,11 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; -use C4::Output; +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 C4::Members; -use C4::Letters; +use C4::Letters qw( GetMessage ResendMessage GetQueuedMessages ); use Koha::Patrons; use Koha::Patron::Categories; --- a/members/pay.pl +++ a/members/pay.pl @@ -30,8 +30,8 @@ use Modern::Perl; use URI::Escape; use C4::Context; -use C4::Auth; -use C4::Output; +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 C4::Members; use C4::Accounts; --- a/members/paycollect.pl +++ a/members/paycollect.pl @@ -22,8 +22,8 @@ use URI::Escape; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +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::Members; use C4::Accounts; use C4::Koha; --- a/members/print_overdues.pl +++ a/members/print_overdues.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI; use C4::Context; -use C4::Auth; -use C4::Output; -use C4::Overdues qw(parse_overdues_letter); +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::Overdues qw( parse_overdues_letter ); use Koha::Patrons; --- a/members/printfeercpt.pl +++ a/members/printfeercpt.pl @@ -20,10 +20,10 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +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 C4::Letters; +use C4::Letters qw( GetPreparedLetter ); use Koha::Account::Lines; my $input = CGI->new; --- a/members/printinvoice.pl +++ a/members/printinvoice.pl @@ -20,10 +20,10 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +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 C4::Letters; +use C4::Letters qw( GetPreparedLetter ); use Koha::Account::Lines; my $input = CGI->new; --- a/members/printslip.pl +++ a/members/printslip.pl @@ -35,9 +35,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth qw/:DEFAULT get_session/; -use C4::Output; -use C4::Members; +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 ); +use C4::Members qw( IssueSlip ); use C4::Koha; use Koha::DateUtils; --- a/members/purchase-suggestions.pl +++ a/members/purchase-suggestions.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use C4::Members; use C4::Suggestions; use Koha::Patrons; --- a/members/readingrec.pl +++ a/members/readingrec.pl @@ -24,9 +24,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Members; +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::Members qw( GetAllIssues ); use List::MoreUtils qw/any uniq/; use Koha::DateUtils; --- a/members/routing-lists.pl +++ a/members/routing-lists.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth qw/:DEFAULT/; +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; use C4::Context; use C4::Serials; --- a/members/setstatus.pl +++ a/members/setstatus.pl @@ -28,7 +28,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Members; -use C4::Auth; +use C4::Auth qw( checkauth ); use Koha::Patrons; --- a/members/statistics.pl +++ a/members/statistics.pl @@ -25,11 +25,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Members; -use C4::Members::Statistics; -use C4::Output; +use C4::Members::Statistics qw( get_fields GetPrecedentStateByBorrower GetTotalIssuesTodayByBorrower GetTotalIssuesReturnedTodayByBorrower ); +use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use Koha::Patrons; use Koha::Patron::Categories; --- a/members/summary-print.pl +++ a/members/summary-print.pl @@ -19,12 +19,12 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +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::Members; use C4::Circulation qw( GetIssuingCharges ); use C4::Reserves; -use C4::Items; +use C4::Items qw( sub ); use Koha::DateUtils; use Koha::Holds; use Koha::ItemTypes; --- a/members/update-child.pl +++ a/members/update-child.pl @@ -29,8 +29,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +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 ); use Koha::Patrons; use Koha::Patron::Categories; use Koha::Patrons; --- a/misc/add_date_fields_to_marc_records.pl +++ a/misc/add_date_fields_to_marc_records.pl @@ -28,7 +28,7 @@ use Getopt::Long; use Pod::Usage; use MARC::Field; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ModBiblio ); use Koha::DateUtils qw( dt_from_string ); my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field ); --- a/misc/batchDeleteUnusedSubfields.pl +++ a/misc/batchDeleteUnusedSubfields.pl @@ -14,7 +14,7 @@ BEGIN { use Koha::Script; use MARC::Record; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcStructure ); use Time::HiRes qw(gettimeofday); use Getopt::Long; --- a/misc/batchImportMARCWithBiblionumbers.pl +++ a/misc/batchImportMARCWithBiblionumbers.pl @@ -14,7 +14,7 @@ BEGIN { use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcFromKohaField ); use MARC::Record; use MARC::File::USMARC; use MARC::File::XML; --- a/misc/batchRebuildBiblioTables.pl +++ a/misc/batchRebuildBiblioTables.pl @@ -15,9 +15,9 @@ BEGIN { # Koha modules used use Koha::Script; use MARC::Record; -use C4::Charset; +use C4::Charset qw( StripNonXmlChars ); use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetXmlBiblio TransformMarcToKoha _koha_modify_biblio _koha_modify_biblioitem_nonmarc ); use Time::HiRes qw(gettimeofday); use Getopt::Long; --- a/misc/batchRebuildItemsTables.pl +++ a/misc/batchRebuildItemsTables.pl @@ -10,8 +10,8 @@ use Time::HiRes qw(gettimeofday); use Koha::Script; use C4::Context; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetMarcFromKohaField GetMarcBiblio ); +use C4::Items qw( sub ModItemFromMarc ); =head1 NAME --- a/misc/batchRepairMissingBiblionumbers.pl +++ a/misc/batchRepairMissingBiblionumbers.pl @@ -14,7 +14,7 @@ BEGIN { # Koha modules used use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio _koha_marc_update_bib_ids ModBiblio ModBiblioMarc ); my $dbh = C4::Context->dbh; --- a/misc/batchdeletebiblios.pl +++ a/misc/batchdeletebiblios.pl @@ -6,7 +6,7 @@ use Pod::Usage; use IO::File; use Koha::Script; -use C4::Biblio; +use C4::Biblio qw( DelBiblio ); my $help; GetOptions( --- a/misc/commit_file.pl +++ a/misc/commit_file.pl @@ -11,7 +11,7 @@ BEGIN { use Koha::Script; use C4::Context; -use C4::ImportBatch; +use C4::ImportBatch qw( GetImportBatch sub BatchCommitRecords BatchRevertRecords ); use Getopt::Long; $| = 1; --- a/misc/cronjobs/advance_notices.pl +++ a/misc/cronjobs/advance_notices.pl @@ -50,7 +50,7 @@ BEGIN { use Koha::Script -cron; use C4::Biblio; use C4::Context; -use C4::Letters; +use C4::Letters qw( get_item_content EnqueueLetter GetPreparedLetter ); use C4::Members; use C4::Members::Messaging; use C4::Overdues; --- a/misc/cronjobs/archive_purchase_suggestions.pl +++ a/misc/cronjobs/archive_purchase_suggestions.pl @@ -9,7 +9,7 @@ use Koha::Script -cron; use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Suggestions; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); my ( $help, $verbose, $confirm, $age, $age_date_field, @statuses ); GetOptions( --- a/misc/cronjobs/automatic_item_modification_by_age.pl +++ a/misc/cronjobs/automatic_item_modification_by_age.pl @@ -8,7 +8,7 @@ use JSON; use Koha::Script -cron; use C4::Context; -use C4::Items; +use C4::Items qw( ToggleNewStatus sub ); use C4::Log; # Getting options --- a/misc/cronjobs/automatic_renewals.pl +++ a/misc/cronjobs/automatic_renewals.pl @@ -79,10 +79,10 @@ use Pod::Usage; use Getopt::Long; use Koha::Script -cron; -use C4::Circulation; +use C4::Circulation qw( CanBookBeRenewed AddRenewal ); use C4::Context; use C4::Log; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use Koha::Checkouts; use Koha::Libraries; use Koha::Patrons; --- a/misc/cronjobs/build_browser_and_cloud.pl +++ a/misc/cronjobs/build_browser_and_cloud.pl @@ -13,7 +13,7 @@ BEGIN { use Koha::Script -cron; use C4::Koha; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ); use Date::Calc; use Time::HiRes qw(gettimeofday); use ZOOM; --- a/misc/cronjobs/cart_to_shelf.pl +++ a/misc/cronjobs/cart_to_shelf.pl @@ -29,7 +29,7 @@ use strict; use warnings; use Koha::Script -cron; -use C4::Items qw/ CartToShelf /; +use C4::Items qw( CartToShelf ); use C4::Log; BEGIN { --- a/misc/cronjobs/check-url-quick.pl +++ a/misc/cronjobs/check-url-quick.pl @@ -23,7 +23,7 @@ use Getopt::Long; use Koha::Script -cron; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ); use AnyEvent; use AnyEvent::HTTP; use Encode; --- a/misc/cronjobs/delete_items.pl +++ a/misc/cronjobs/delete_items.pl @@ -4,7 +4,7 @@ use Getopt::Long; use Koha::Script -cron; use C4::Context; -use C4::Items; +use C4::Items qw( sub ); use C4::Circulation; use Modern::Perl; use Pod::Usage; --- a/misc/cronjobs/delete_patrons.pl +++ a/misc/cronjobs/delete_patrons.pl @@ -6,7 +6,7 @@ use Pod::Usage; use Getopt::Long; use Koha::Script -cron; -use C4::Members; +use C4::Members qw( GetBorrowersToExpunge ); use Koha::DateUtils; use Koha::Patrons; use C4::Log; --- a/misc/cronjobs/delete_records_via_leader.pl +++ a/misc/cronjobs/delete_records_via_leader.pl @@ -34,7 +34,7 @@ BEGIN { use Getopt::Long; use Pod::Usage; use Koha::Script -cron; -use C4::Biblio; +use C4::Biblio qw( DelBiblio ); use C4::Items; use Koha::Database; use Koha::Biblios; --- a/misc/cronjobs/edi_cron.pl +++ a/misc/cronjobs/edi_cron.pl @@ -33,7 +33,7 @@ use Koha::Script -cron; use C4::Context; use Log::Log4perl qw(:easy); use Koha::Database; -use Koha::EDI qw( process_quote process_invoice process_ordrsp); +use Koha::EDI qw( process_quote process_invoice process_ordrsp ); use Koha::Edifact::Transport; use Koha::Plugins::Handler; use Fcntl qw( :DEFAULT :flock :seek ); --- a/misc/cronjobs/fines.pl +++ a/misc/cronjobs/fines.pl @@ -32,7 +32,7 @@ use 5.010; use Koha::Script -cron; use C4::Context; -use C4::Overdues; +use C4::Overdues qw( Getoverdues CalcFine UpdateFine ); use Getopt::Long; use Carp; use File::Spec; --- a/misc/cronjobs/gather_print_notices.pl +++ a/misc/cronjobs/gather_print_notices.pl @@ -12,7 +12,7 @@ BEGIN { use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy use Koha::Script -cron; use C4::Context; -use C4::Letters; +use C4::Letters qw( GetPrintMessages _set_message_status ); use C4::Templates; use File::Spec; use Pod::Usage; --- a/misc/cronjobs/import_webservice_batch.pl +++ a/misc/cronjobs/import_webservice_batch.pl @@ -32,7 +32,7 @@ BEGIN { use Getopt::Long; use Pod::Usage; use Koha::Script -cron; -use C4::ImportBatch; +use C4::ImportBatch qw( BatchCommitRecords ); my ($help, $framework); --- a/misc/cronjobs/longoverdue.pl +++ a/misc/cronjobs/longoverdue.pl @@ -37,9 +37,9 @@ BEGIN { use Getopt::Long; use Pod::Usage; -use C4::Circulation qw/LostItem MarkIssueReturned/; +use C4::Circulation qw( LostItem MarkIssueReturned ); use C4::Context; -use C4::Items; +use C4::Items qw( sub ); use C4::Log; use Koha::ItemTypes; use Koha::Patron::Categories; --- a/misc/cronjobs/membership_expiry.pl +++ a/misc/cronjobs/membership_expiry.pl @@ -128,7 +128,7 @@ BEGIN { use Koha::Script -cron; use C4::Context; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use C4::Log; use Koha::Patrons; --- a/misc/cronjobs/overdue_notices.pl +++ a/misc/cronjobs/overdue_notices.pl @@ -36,8 +36,8 @@ use DateTime::Duration; use Koha::Script -cron; use C4::Context; -use C4::Letters; -use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter); +use C4::Letters qw( getletter get_item_content EnqueueLetter ); +use C4::Overdues qw( GetBranchcodesWithOverdueRules GetOverdueMessageTransportTypes parse_overdues_letter ); use C4::Log; use Koha::Patron::Debarments qw(AddUniqueDebarment); use Koha::DateUtils; --- a/misc/cronjobs/patron_emailer.pl +++ a/misc/cronjobs/patron_emailer.pl @@ -30,7 +30,7 @@ use Getopt::Long; use Pod::Usage; use C4::Log; -use C4::Reports::Guided; +use C4::Reports::Guided qw( EmailReport ); cronlogaction(); --- a/misc/cronjobs/process_message_queue.pl +++ a/misc/cronjobs/process_message_queue.pl @@ -27,7 +27,7 @@ BEGIN { } use Koha::Script -cron; -use C4::Letters; +use C4::Letters qw( SendQueuedMessages ); use C4::Log; use Getopt::Long; use Try::Tiny; --- a/misc/cronjobs/runreport.pl +++ a/misc/cronjobs/runreport.pl @@ -21,7 +21,7 @@ use Modern::Perl; use Koha::Script -cron; -use C4::Reports::Guided; # 0.12 +use C4::Reports::Guided qw( store_results execute_query ); use Koha::Reports; use C4::Context; use C4::Log; --- a/misc/cronjobs/serialsUpdate.pl +++ a/misc/cronjobs/serialsUpdate.pl @@ -30,10 +30,10 @@ BEGIN { use Koha::Script -cron; use C4::Context; -use C4::Serials; +use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus ); use C4::Log; use Koha::DateUtils; -use C4::Serials::Frequency; +use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus ); use Date::Calc qw/Date_to_Days check_date/; use Getopt::Long; --- a/misc/cronjobs/staticfines.pl +++ a/misc/cronjobs/staticfines.pl @@ -40,7 +40,7 @@ use Date::Calc qw/Date_to_Days/; use Koha::Script -cron; use C4::Context; use C4::Circulation; -use C4::Overdues; +use C4::Overdues qw( checkoverdues Getoverdues CalcFine GetFine ); use C4::Calendar qw(); # don't need any exports from Calendar use C4::Biblio; use C4::Log; --- a/misc/cronjobs/stockrotation.pl +++ a/misc/cronjobs/stockrotation.pl @@ -112,7 +112,7 @@ use Getopt::Long qw/HelpMessage :config gnu_getopt/; use Koha::Script -cron; use C4::Context; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use Koha::StockRotationRotas; my $admin_email = ''; --- a/misc/cronjobs/update_totalissues.pl +++ a/misc/cronjobs/update_totalissues.pl @@ -34,7 +34,7 @@ use Pod::Usage; use Koha::Script -cron; use Koha::DateUtils qw/ dt_from_string /; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( UpdateTotalIssues ); use C4::Log; use DateTime; use DateTime::Format::MySQL; --- a/misc/devel/get_prepared_letter.pl +++ a/misc/devel/get_prepared_letter.pl @@ -73,7 +73,7 @@ use Getopt::Long; use JSON; use Pod::Usage; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter ); my $help; my ( $module, $letter_code, $branchcode, $message_transport_type, $lang, --- a/misc/link_bibs_to_authorities.pl +++ a/misc/link_bibs_to_authorities.pl @@ -13,7 +13,7 @@ BEGIN { use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode LinkBibHeadingsToAuthorities ModBiblio ); use Getopt::Long; use Pod::Usage; use Data::Dumper; --- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl +++ a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl @@ -13,7 +13,7 @@ BEGIN { } use Koha::Script; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ModBiblio ); use Getopt::Long; sub _read_marc_code { --- a/misc/maintenance/fix_tags_weight.pl +++ a/misc/maintenance/fix_tags_weight.pl @@ -20,7 +20,7 @@ use Modern::Perl; use C4::Context; -use C4::Tags; +use C4::Tags qw( add_tag_approval add_tag ); use Koha::Script; use Koha::Database; --- a/misc/maintenance/process_record_through_filter.pl +++ a/misc/maintenance/process_record_through_filter.pl @@ -10,7 +10,7 @@ use warnings; use Koha::Script; use Koha::RecordProcessor; use Data::Dumper; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ); my $record = GetMarcBiblio({ biblionumber => $ARGV[0] }); --- a/misc/maintenance/remove_items_from_biblioitems.pl +++ a/misc/maintenance/remove_items_from_biblioitems.pl @@ -24,7 +24,7 @@ $|=1; use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode ); use Getopt::Long; my ($wherestring, $run, $silent, $want_help); --- a/misc/maintenance/sanitize_records.pl +++ a/misc/maintenance/sanitize_records.pl @@ -23,7 +23,7 @@ use Koha::Script; use C4::Charset qw( SanitizeRecord ); use C4::Context; use DBI; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode ModBiblio ); use Getopt::Long; use Pod::Usage; --- a/misc/maintenance/search_for_data_inconsistencies.pl +++ a/misc/maintenance/search_for_data_inconsistencies.pl @@ -25,7 +25,7 @@ use Koha::BiblioFrameworks; use Koha::Biblioitems; use Koha::Items; use Koha::ItemTypes; -use C4::Biblio; +use C4::Biblio qw( GetMarcFromKohaField ); { my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }}); --- a/misc/maintenance/touch_all_biblios.pl +++ a/misc/maintenance/touch_all_biblios.pl @@ -31,7 +31,7 @@ use Getopt::Long; use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ModBiblio ); use Pod::Usage; --- a/misc/maintenance/touch_all_items.pl +++ a/misc/maintenance/touch_all_items.pl @@ -31,7 +31,7 @@ use Getopt::Long; use Koha::Script; use C4::Context; -use C4::Items; +use C4::Items qw( sub ); use Koha::Items; use Pod::Usage; --- a/misc/migration_tools/buildEDITORS.pl +++ a/misc/migration_tools/buildEDITORS.pl @@ -10,7 +10,7 @@ use MARC::Record; use MARC::Batch; use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ); use C4::AuthoritiesMarc; use Time::HiRes qw(gettimeofday); --- a/misc/migration_tools/build_oai_sets.pl +++ a/misc/migration_tools/build_oai_sets.pl @@ -44,8 +44,8 @@ use Getopt::Std; use Koha::Script; use C4::Context; -use C4::Charset qw/StripNonXmlChars/; -use C4::Biblio; +use C4::Charset qw( StripNonXmlChars ); +use C4::Biblio qw( EmbedItemsInMarcBiblio ); use C4::OAI::Sets; my %opts; --- a/misc/migration_tools/bulkmarcimport.pl +++ a/misc/migration_tools/bulkmarcimport.pl @@ -20,10 +20,10 @@ use Encode; use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcFromKohaField ModBiblio AddBiblio _strip_item_fields ModBiblioMarc ); use C4::Koha; -use C4::Charset; -use C4::Items; +use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); +use C4::Items qw( sub AddItemBatchFromMarc ); use C4::MarcModificationTemplates; use YAML::XS; --- a/misc/migration_tools/create_analytical_rel.pl +++ a/misc/migration_tools/create_analytical_rel.pl @@ -11,8 +11,8 @@ BEGIN { use Koha::Script; use C4::Context; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetMarcBiblio ModBiblio ); +use C4::Items qw( sub ); use Koha::Items; use Getopt::Long; --- a/misc/migration_tools/import_lexile.pl +++ a/misc/migration_tools/import_lexile.pl @@ -33,7 +33,7 @@ use Text::CSV; use Koha::Script; use C4::Context; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ModBiblio ); use C4::Koha qw( GetVariationsOfISBN ); use Koha::Biblios; --- a/misc/migration_tools/rebuild_zebra.pl +++ a/misc/migration_tools/rebuild_zebra.pl @@ -23,9 +23,9 @@ use Getopt::Long; use Fcntl qw(:flock); use File::Temp qw/ tempdir /; use File::Path; -use C4::Biblio; +use C4::Biblio qw( GetMarcFromKohaField GetXmlBiblio GetMarcBiblio _koha_marc_update_bib_ids ); use C4::AuthoritiesMarc; -use C4::Items; +use C4::Items qw( sub GetItemsInfo Item2Marc ); use Koha::RecordProcessor; use Koha::Caches; use XML::LibXML; --- a/misc/migration_tools/switch_marc21_series_info.pl +++ a/misc/migration_tools/switch_marc21_series_info.pl @@ -30,7 +30,7 @@ BEGIN { } use Koha::Script; -use C4::Biblio; +use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio ModBiblioMarc ); use C4::Context; use Getopt::Long; --- a/misc/migration_tools/upgradeitems.pl +++ a/misc/migration_tools/upgradeitems.pl @@ -5,8 +5,8 @@ use strict; use Koha::Script; use C4::Context; -use C4::Items; -use C4::Biblio; +use C4::Items qw( sub ModItemFromMarc ); +use C4::Biblio qw( GetMarcBiblio ); my $dbh=C4::Context->dbh; --- a/misc/mod_zebraqueue.pl +++ a/misc/mod_zebraqueue.pl @@ -24,7 +24,7 @@ use Getopt::Long; use Pod::Usage; use Koha::Script; -use C4::Biblio; +use C4::Biblio qw( ModZebra ); my @biblios; my @authorities; --- a/misc/recreateIssueStatistics.pl +++ a/misc/recreateIssueStatistics.pl @@ -25,7 +25,7 @@ use warnings; use Koha::Script; use C4::Context; -use C4::Items; +use C4::Items qw( sub ); use Data::Dumper; use Getopt::Long; use Koha::Items; --- a/misc/sip_cli_emulator.pl +++ a/misc/sip_cli_emulator.pl @@ -23,8 +23,8 @@ use Socket qw(:crlf); use IO::Socket::INET; use Getopt::Long; -use C4::SIP::Sip::Constants qw(:all); -use C4::SIP::Sip; +use C4::SIP::Sip qw( timestamp ); +use C4::SIP::Sip qw( timestamp ); use constant { LANGUAGE => '001' }; --- a/misc/stage_file.pl +++ a/misc/stage_file.pl @@ -29,7 +29,7 @@ BEGIN { use Koha::Script; use C4::Context; -use C4::ImportBatch; +use C4::ImportBatch qw( sub RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates ); use C4::Matcher; use C4::MarcModificationTemplates; use Getopt::Long; --- a/misc/translator/TmplTokenizer.pm +++ a/misc/translator/TmplTokenizer.pm @@ -1,7 +1,7 @@ package TmplTokenizer; use Modern::Perl; -use C4::TmplTokenType; +use C4::TmplTokenType qw( CDATA UNKNOWN DIRECTIVE TEXT TAG TEXT_PARAMETRIZED to_string ); use C4::TmplToken; use C4::TTParser; use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic ); --- a/offline_circ/download.pl +++ a/offline_circ/download.pl @@ -20,7 +20,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON; -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Output; use C4::Context; use C4::Koha; --- a/offline_circ/enqueue_koc.pl +++ a/offline_circ/enqueue_koc.pl @@ -21,14 +21,14 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; use C4::Biblio; use C4::Accounts; -use C4::Circulation; -use C4::Items; +use C4::Circulation qw( AddOfflineOperation ); +use C4::Items qw( sub ); use C4::Members; use C4::Stats; use Koha::Checkouts; --- a/offline_circ/list.pl +++ a/offline_circ/list.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; -use C4::Circulation; +use C4::Circulation qw( GetOfflineOperations GetOfflineOperation ); use C4::Members; use C4::Biblio; use Koha::Patrons; --- a/offline_circ/process.pl +++ a/offline_circ/process.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Circulation; +use C4::Auth qw( get_template_and_user ); +use C4::Circulation qw( GetOfflineOperation ProcessOfflineOperation DeleteOfflineOperation ); my $query = CGI->new; --- a/offline_circ/process_koc.pl +++ a/offline_circ/process_koc.pl @@ -23,14 +23,14 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Carp; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; use C4::Biblio; use C4::Accounts; -use C4::Circulation; -use C4::Items; +use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned ); +use C4::Items qw( sub ModDateLastSeen ); use C4::Members; use C4::Stats; use C4::BackgroundJob; --- a/offline_circ/service.pl +++ a/offline_circ/service.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Circulation; +use C4::Auth qw( check_api_auth check_cookie_auth ); +use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation ); use Koha::DateUtils; use DateTime::TimeZone; --- a/opac/clubs/clubs-tab.pl +++ a/opac/clubs/clubs-tab.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; my $cgi = CGI->new; --- a/opac/clubs/enroll.pl +++ a/opac/clubs/enroll.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; my $cgi = CGI->new; --- a/opac/errors/400.pl +++ a/opac/errors/400.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/errors/401.pl +++ a/opac/errors/401.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/errors/402.pl +++ a/opac/errors/402.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/errors/403.pl +++ a/opac/errors/403.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/errors/404.pl +++ a/opac/errors/404.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/errors/500.pl +++ a/opac/errors/500.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/ilsdi.pl +++ a/opac/ilsdi.pl @@ -20,8 +20,8 @@ use Modern::Perl; use C4::ILSDI::Services; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/maintenance.pl +++ a/opac/maintenance.pl @@ -19,7 +19,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Templates qw/gettemplate/; use Koha; --- a/opac/opac-ISBDdetail.pl +++ a/opac/opac-ISBDdetail.pl @@ -41,16 +41,16 @@ the items attached to the biblio use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( parametrized_url output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( TransformMarcToKoha GetISBDView CountItemsIssued GetMarcControlnumber GetMarcISSN ); +use C4::Items qw( sub ); use C4::Reserves; use C4::Acquisition; -use C4::Serials; # uses getsubscriptionfrom biblionumber -use C4::Koha; +use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); +use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); use Koha::CirculationRules; use Koha::ItemTypes; use Koha::Patrons; --- a/opac/opac-MARCdetail.pl +++ a/opac/opac-MARCdetail.pl @@ -45,17 +45,17 @@ the items attached to the biblio use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( parametrized_url output_html_with_http_headers ); use CGI qw ( -utf8 ); use MARC::Record; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( GetMarcBiblio GetMarcStructure GetMarcFromKohaField CountItemsIssued GetAuthorisedValueDesc TransformMarcToKoha GetMarcControlnumber GetMarcISSN ); +use C4::Items qw( sub ); use C4::Reserves; use C4::Members; use C4::Acquisition; -use C4::Koha; +use C4::Koha qw( display_marc_indicators GetNormalizedISBN ); use List::MoreUtils qw( any uniq ); use Koha::Biblios; use Koha::CirculationRules; --- a/opac/opac-account-pay-return.pl +++ a/opac/opac-account-pay-return.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( checkauth ); use Koha::Plugins::Handler; my $cgi = CGI->new; --- a/opac/opac-account-pay.pl +++ a/opac/opac-account-pay.pl @@ -26,7 +26,7 @@ use HTTP::Request::Common; use LWP::UserAgent; use URI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use C4::Context; use Koha::Acquisition::Currencies; --- a/opac/opac-account.pl +++ a/opac/opac-account.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Members; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Account::Lines; use Koha::Patrons; use Koha::Plugins; --- a/opac/opac-addbybiblionumber.pl +++ a/opac/opac-addbybiblionumber.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Biblio; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use Koha::Biblios; use Koha::Virtualshelves; --- a/opac/opac-alert-subscribe.pl +++ a/opac/opac-alert-subscribe.pl @@ -20,12 +20,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Koha; use C4::Letters; -use C4::Serials; +use C4::Serials qw( GetSubscription ); my $query = CGI->new; --- a/opac/opac-article-request-cancel.pl +++ a/opac/opac-article-request-cancel.pl @@ -22,7 +22,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Koha::ArticleRequests; my $query = CGI->new; --- a/opac/opac-authorities-home.pl +++ a/opac/opac-authorities-home.pl @@ -22,12 +22,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use URI::Escape; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Auth; -use C4::Output; -use C4::AuthoritiesMarc; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( pagination_bar output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Search::History; --- a/opac/opac-authoritiesdetail.pl +++ a/opac/opac-authoritiesdetail.pl @@ -38,14 +38,14 @@ parameters tables. use Modern::Perl; -use C4::AuthoritiesMarc; -use C4::Auth; -use C4::Biblio qw(GetMarcUrls); +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcUrls ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use MARC::Record; -use C4::Koha; +use C4::Koha qw( display_marc_indicators ); use Koha::Authorities; use Koha::Authority::Types; --- a/opac/opac-basket.pl +++ a/opac/opac-basket.pl @@ -20,11 +20,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; -use C4::Biblio; -use C4::Items; -use C4::Circulation; -use C4::Auth; -use C4::Output; +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetFrameworkCode GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls ); +use C4::Items qw( sub GetItemsInfo GetHiddenItemnumbers ); +use C4::Circulation qw( GetTransfers ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::RecordProcessor; use Koha::CsvProfiles; use Koha::AuthorisedValues; --- a/opac/opac-blocked.pl +++ a/opac/opac-blocked.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; my $query = CGI->new; --- a/opac/opac-browse.pl +++ a/opac/opac-browse.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::SearchEngine::Elasticsearch; use Koha::SearchEngine::Elasticsearch::Browse; --- a/opac/opac-browser.pl +++ a/opac/opac-browser.pl @@ -26,9 +26,9 @@ TODO :: Description here use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Biblio; --- a/opac/opac-course-details.pl +++ a/opac/opac-course-details.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::CourseReserves qw(GetCourse GetCourseReserves); +use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves ); my $cgi = CGI->new; --- a/opac/opac-course-reserves.pl +++ a/opac/opac-course-reserves.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::CourseReserves qw(SearchCourses); +use C4::CourseReserves qw( SearchCourses ); my $cgi = CGI->new; --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -24,30 +24,30 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Acquisition qw( SearchOrders ); -use C4::Auth qw(:DEFAULT get_session); -use C4::Koha; -use C4::Serials; #uses getsubscriptionfrom biblionumber -use C4::Output; -use C4::Biblio; -use C4::Items; -use C4::Circulation; -use C4::Tags qw(get_tags); -use C4::XISBN qw(get_xisbns); +use C4::Auth qw( get_template_and_user get_session ); +use C4::Koha qw( GetNormalizedEAN getitemtypeimagelocation GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN ); +use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); +use C4::Output qw( parametrized_url output_html_with_http_headers ); +use C4::Biblio qw( GetMarcBiblio GetBiblioData CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcControlnumber GetMarcISSN ); +use C4::Items qw( GetItemsInfo GetHiddenItemnumbers sub ); +use C4::Circulation qw( GetTransfers ); +use C4::Tags qw( get_tags get_tag ); +use C4::XISBN qw( get_xisbns ); use C4::External::Amazon; use C4::External::BakerTaylor qw( image_url link_url ); use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); use C4::Members; use C4::XSLT; -use C4::ShelfBrowser; -use C4::Reserves; -use C4::Charset; +use C4::ShelfBrowser qw( GetNearbyItems ); +use C4::Reserves qw( GetReserveStatus ); +use C4::Charset qw( SetUTF8Flag ); use C4::Letters; use MARC::Record; use MARC::Field; use List::MoreUtils qw/any none/; use Koha::DateUtils; use C4::HTML5Media; -use C4::CourseReserves qw(GetItemCourseReservesInfo); +use C4::CourseReserves qw( GetItemCourseReservesInfo ); use Koha::Biblios; use Koha::RecordProcessor; --- a/opac/opac-discharge.pl +++ a/opac/opac-discharge.pl @@ -20,10 +20,10 @@ use Modern::Perl; use Carp; -use C4::Auth qw(:DEFAULT get_session); +use C4::Auth qw( get_template_and_user ); use CGI qw( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Log; use Koha::Patrons; use Koha::Patron::Discharge; --- a/opac/opac-downloadcart.pl +++ a/opac/opac-downloadcart.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw(encode); -use C4::Auth; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView ); use C4::Items; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Record; use C4::Ris; use Koha::CsvProfiles; --- a/opac/opac-downloadshelf.pl +++ a/opac/opac-downloadshelf.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw(encode); -use C4::Auth; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView ); use C4::Items; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Record; use C4::Ris; use Koha::CsvProfiles; --- a/opac/opac-export.pl +++ a/opac/opac-export.pl @@ -22,7 +22,7 @@ use Modern::Perl; use C4::Record; use C4::Auth; use C4::Output; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber GetFrameworkCode GetISBDView ); use CGI qw ( -utf8 ); use C4::Auth; use C4::Ris; --- a/opac/opac-holdshistory.pl +++ a/opac/opac-holdshistory.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; use Koha::Holds; --- a/opac/opac-ics.pl +++ a/opac/opac-ics.pl @@ -29,7 +29,7 @@ use DateTime::Format::ICal; use DateTime::Event::ICal; use URI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Circulation; use C4::Members; --- a/opac/opac-idref.pl +++ a/opac/opac-idref.pl @@ -25,10 +25,10 @@ use HTTP::Request::Common; use JSON; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; my ( $template, $borrowernumber, $cookie ) = get_template_and_user( --- a/opac/opac-illrequests.pl +++ a/opac/opac-illrequests.pl @@ -22,9 +22,9 @@ use Modern::Perl; use JSON qw( encode_json ); use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Illrequest::Config; use Koha::Illrequests; --- a/opac/opac-imageviewer.pl +++ a/opac/opac-imageviewer.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Biblios; use Koha::CoverImages; --- a/opac/opac-issue-note.pl +++ a/opac/opac-issue-note.pl @@ -23,10 +23,10 @@ use CGI qw ( -utf8 ); use C4::Koha; use C4::Context; use C4::Scrubber; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use Koha::Checkouts; use Koha::DateUtils; use Koha::Patrons; --- a/opac/opac-library.pl +++ a/opac/opac-library.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Libraries; my $query = CGI->new(); --- a/opac/opac-main.pl +++ a/opac/opac-main.pl @@ -20,13 +20,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # get_template_and_user -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::NewsChannels; # GetNewsToDisplay use C4::Languages qw(getTranslatedLanguages accept_language); use Koha::Quotes; use C4::Members; -use C4::Overdues; +use C4::Overdues qw( checkoverdues ); use Koha::Checkouts; use Koha::Holds; use Koha::News; --- a/opac/opac-memberentry.pl +++ a/opac/opac-memberentry.pl @@ -23,12 +23,12 @@ use JSON; use List::MoreUtils qw( any each_array uniq ); use String::Random qw( random_string ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Members; +use C4::Members qw( get_cardnumber_length checkcardnumber ); use C4::Form::MessagingPreferences; -use Koha::AuthUtils; +use Koha::AuthUtils qw( generate_password is_password_valid ); use Koha::Patrons; use Koha::Patron::Consent; use Koha::Patron::Modification; --- a/opac/opac-messaging.pl +++ a/opac/opac-messaging.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # checkauth, getborrowernumber. +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Koha; use C4::Circulation; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use C4::Members::Messaging; use C4::Form::MessagingPreferences; --- a/opac/opac-modrequest-suspend.pl +++ a/opac/opac-modrequest-suspend.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; -use C4::Reserves; -use C4::Auth; +use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll ); +use C4::Auth qw( get_template_and_user ); my $query = CGI->new; my ( $template, $borrowernumber, $cookie ) = get_template_and_user( { --- a/opac/opac-modrequest.pl +++ a/opac/opac-modrequest.pl @@ -26,8 +26,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; -use C4::Reserves; -use C4::Auth; +use C4::Reserves qw( CanReserveBeCanceledFromOpac ); +use C4::Auth qw( get_template_and_user ); use Koha::Holds; my $query = CGI->new; --- a/opac/opac-mymessages.pl +++ a/opac/opac-mymessages.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Koha; -use C4::Letters; -use C4::Output; +use C4::Letters qw( GetRSSMessages ); +use C4::Output qw( output_html_with_http_headers ); my $query = CGI->new(); --- a/opac/opac-news-rss.pl +++ a/opac/opac-news-rss.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; # get_template_and_user -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::NewsChannels; # GetNewsToDisplay use C4::Languages qw(getTranslatedLanguages accept_language); --- a/opac/opac-overdrive-search.pl +++ a/opac/opac-overdrive-search.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(:DEFAULT get_session); -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; --- a/opac/opac-passwd.pl +++ a/opac/opac-passwd.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # checkauth, getborrowernumber. +use C4::Auth qw( get_template_and_user checkpw checkpw_hash ); use C4::Context; use C4::Circulation; use C4::Members; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; use Try::Tiny; --- a/opac/opac-password-recovery.pl +++ a/opac/opac-password-recovery.pl @@ -3,9 +3,9 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Patron::Password::Recovery qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery); --- a/opac/opac-patron-consent.pl +++ a/opac/opac-patron-consent.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw/-utf8/; -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 ); use Koha::DateUtils qw/dt_from_string/; use Koha::Patron::Consents; use Koha::Patrons; --- a/opac/opac-patron-image.pl +++ a/opac/opac-patron-image.pl @@ -22,7 +22,7 @@ use Modern::Perl; use C4::Members; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request -use C4::Auth qw(:DEFAULT check_cookie_auth); +use C4::Auth qw( check_cookie_auth ); use Koha::Patron::Images; my $query = CGI->new; --- a/opac/opac-privacy.pl +++ a/opac/opac-privacy.pl @@ -19,9 +19,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # checkauth, getborrowernumber. +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; my $query = CGI->new; --- a/opac/opac-ratings-ajax.pl +++ a/opac/opac-ratings-ajax.pl @@ -28,9 +28,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request -use C4::Auth qw(:DEFAULT check_cookie_auth); +use C4::Auth qw( get_template_and_user check_cookie_auth ); use C4::Context; -use C4::Output qw(:html :ajax pagination_bar); +use C4::Output qw( is_ajax output_ajax_with_http_headers ); use Koha::Ratings; --- a/opac/opac-ratings.pl +++ a/opac/opac-ratings.pl @@ -28,7 +28,7 @@ note: there is currently no 'delete rating' functionality in this script use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Context; use Koha::Ratings; --- a/opac/opac-readingrecord.pl +++ a/opac/opac-readingrecord.pl @@ -20,17 +20,17 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Koha; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Koha qw( GetNormalizedISBN getitemtypeimagelocation GetNormalizedUPC ); +use C4::Biblio qw( GetXmlBiblio ); use C4::Circulation; -use C4::Members; +use C4::Members qw( GetAllIssues ); use C4::External::BakerTaylor qw( image_url link_url ); use Koha::DateUtils; use MARC::Record; -use C4::Output; -use C4::Charset qw(StripNonXmlChars); +use C4::Output qw( output_html_with_http_headers ); +use C4::Charset qw( StripNonXmlChars ); use Koha::Patrons; use Koha::ItemTypes; --- a/opac/opac-recordedbooks-search.pl +++ a/opac/opac-recordedbooks-search.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; --- a/opac/opac-registration-verify.pl +++ a/opac/opac-registration-verify.pl @@ -19,11 +19,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use C4::Form::MessagingPreferences; -use Koha::AuthUtils; +use Koha::AuthUtils qw( generate_password ); use Koha::Patrons; use Koha::Patron::Consent; use Koha::Patron::Modifications; --- a/opac/opac-renew.pl +++ a/opac/opac-renew.pl @@ -24,8 +24,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Circulation; -use C4::Auth; +use C4::Circulation qw( CanBookBeRenewed AddRenewal ); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Items; use C4::Members; --- a/opac/opac-reportproblem.pl +++ a/opac/opac-reportproblem.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny; -use C4::Auth; # get_template_and_user -use C4::Output; -use C4::Letters; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use Koha::ProblemReport; use Koha::Libraries; use Koha::Patrons; --- a/opac/opac-request-article.pl +++ a/opac/opac-request-article.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Biblios; use Koha::Patrons; --- a/opac/opac-reserve.pl +++ a/opac/opac-reserve.pl @@ -21,13 +21,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; # checkauth, getborrowernumber. -use C4::Koha; -use C4::Circulation; -use C4::Reserves; -use C4::Biblio; -use C4::Items; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Koha qw( getitemtypeimagesrc getitemtypeimagelocation ); +use C4::Circulation qw( GetBranchItemRule GetTransfers ); +use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch IsAvailableForItemLevelRequest ); +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetFrameworkCode ); +use C4::Items qw( GetItemsInfo GetHostItemsInfo sub ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Members; use C4::Overdues; --- a/opac/opac-restrictedpage.pl +++ a/opac/opac-restrictedpage.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $localNetwork = C4::Context->preference('RestrictedPageLocalIPs'); my $userIP = $ENV{'REMOTE_ADDR'}; --- a/opac/opac-retrieve-file.pl +++ a/opac/opac-retrieve-file.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::UploadedFiles; my $input = CGI::->new; --- a/opac/opac-review.pl +++ a/opac/opac-review.pl @@ -19,9 +19,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; use C4::Scrubber; --- a/opac/opac-routing-lists.pl +++ a/opac/opac-routing-lists.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Members; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; my $query = CGI->new; --- a/opac/opac-search-history.pl +++ a/opac/opac-search-history.pl @@ -19,10 +19,10 @@ use Modern::Perl; -use C4::Auth qw(:DEFAULT get_session); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Log; use C4::Items; use C4::Search::History; --- a/opac/opac-search.pl +++ a/opac/opac-search.pl @@ -43,14 +43,14 @@ my ($builder, $searcher); $builder = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'}); $searcher = Koha::SearchEngine::Search->new({index => 'biblios'}); -use C4::Output; -use C4::Auth qw(:DEFAULT get_session); -use C4::Languages qw(getLanguages); -use C4::Search; -use C4::Search::History; -use C4::Biblio; # Unused here? -use C4::Koha; -use C4::Tags qw(get_tags); +use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http_headers ); +use C4::Auth qw( get_template_and_user get_session ); +use C4::Languages qw( getlanguage getLanguages ); +use C4::Search qw( searchResults ); +use C4::Search qw( searchResults ); +use C4::Biblio qw( GetXmlBiblio CountItemsIssued ); +use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues ); +use C4::Tags qw( get_tags get_tag ); use C4::SocialData; use C4::External::OverDrive; use C4::External::BakerTaylor qw( image_url link_url ); --- a/opac/opac-sendbasket.pl +++ a/opac/opac-sendbasket.pl @@ -24,10 +24,10 @@ use Encode qw(encode); use Carp; use Try::Tiny; -use C4::Biblio; -use C4::Items; -use C4::Auth; -use C4::Output; +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects ); +use C4::Items qw( sub GetItemsInfo ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use C4::Templates (); use Koha::Email; --- a/opac/opac-sendshelf.pl +++ a/opac/opac-sendshelf.pl @@ -24,10 +24,10 @@ use Encode qw( encode ); use Carp; use Try::Tiny; -use C4::Auth; -use C4::Biblio; -use C4::Items; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetBiblioData GetMarcAuthors GetMarcSubjects GetMarcISBN ); +use C4::Items qw( sub GetItemsInfo ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Email; use Koha::Patrons; --- a/opac/opac-serial-issues.pl +++ a/opac/opac-serial-issues.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Serials; +use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber ); use C4::Letters; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; my $query = CGI->new; --- a/opac/opac-shareshelf.pl +++ a/opac/opac-shareshelf.pl @@ -27,11 +27,11 @@ use constant SHELVES_URL => use CGI qw ( -utf8 ); use Email::Valid; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Letters; +use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use C4::Members (); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; use Koha::Virtualshelves; --- a/opac/opac-shelves.pl +++ a/opac/opac-shelves.pl @@ -20,14 +20,14 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetFrameworkCode ); use C4::External::BakerTaylor qw( image_url link_url ); -use C4::Koha; -use C4::Items; +use C4::Koha qw( getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); +use C4::Items qw( GetItemsLocationInfo ); use C4::Members; -use C4::Output; -use C4::Tags qw( get_tags ); +use C4::Output qw( pagination_bar output_with_http_headers ); +use C4::Tags qw( get_tags get_tag ); use C4::XSLT; use Koha::Biblios; --- a/opac/opac-showmarc.pl +++ a/opac/opac-showmarc.pl @@ -25,8 +25,8 @@ use Encode; # Koha modules used use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Biblio; use C4::ImportBatch; use C4::XSLT (); --- a/opac/opac-showreviews.pl +++ a/opac/opac-showreviews.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Koha; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); +use C4::Output qw( output_html_with_http_headers ); use C4::Circulation; -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio ); use Koha::DateUtils; use Koha::Patrons; use Koha::Reviews; --- a/opac/opac-suggestions.pl +++ a/opac/opac-suggestions.pl @@ -20,12 +20,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw( encode ); -use C4::Auth; # get_template_and_user +use C4::Auth qw( get_template_and_user ); use C4::Members; -use C4::Koha; -use C4::Output; +use C4::Koha qw( GetAuthorisedValues ); +use C4::Output qw( output_html_with_http_headers ); use C4::Suggestions; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use C4::Scrubber; use C4::Search qw( FindDuplicate ); --- a/opac/opac-tags.pl +++ a/opac/opac-tags.pl @@ -35,13 +35,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request -use C4::Auth qw(:DEFAULT check_cookie_auth); +use C4::Auth qw( check_cookie_auth get_template_and_user ); use C4::Context; -use C4::Output qw(:html :ajax ); +use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers ); use C4::Scrubber; -use C4::Biblio; -use C4::Items qw(GetItemsInfo GetHiddenItemnumbers); -use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag stratify_tags); +use C4::Biblio qw( GetMarcBiblio ); +use C4::Items qw( sub GetItemsInfo GetHiddenItemnumbers ); +use C4::Tags qw( add_tag remove_tag get_tag_rows get_tag get_approval_rows stratify_tags ); use C4::XSLT; use Data::Dumper; --- a/opac/opac-tags_subject.pl +++ a/opac/opac-tags_subject.pl @@ -26,9 +26,9 @@ TODO :: Description here use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Biblio; --- a/opac/opac-topissues.pl +++ a/opac/opac-topissues.pl @@ -22,13 +22,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Languages; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::Circulation; +use C4::Circulation qw( GetTopIssues ); use Date::Manip; =head1 NAME --- a/opac/opac-user.pl +++ a/opac/opac-user.pl @@ -21,14 +21,14 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Koha; -use C4::Circulation; +use C4::Auth qw( get_template_and_user ); +use C4::Koha qw( getitemtypeimagelocation GetNormalizedISBN GetNormalizedUPC ); +use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges GetSoonestRenewDate ); use C4::External::BakerTaylor qw( image_url link_url ); -use C4::Reserves; +use C4::Reserves qw( GetReserveStatus ); use C4::Members; -use C4::Output; -use C4::Biblio; +use C4::Output qw( output_html_with_http_headers ); +use C4::Biblio qw( GetMarcBiblio ); use C4::Items; use C4::Letters; use Koha::Account::Lines; --- a/opac/sci/sci-main.pl +++ a/opac/sci/sci-main.pl @@ -19,9 +19,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(get_template_and_user checkpw); -use C4::Circulation; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Circulation qw( AddReturn ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Items; use List::MoreUtils qw( uniq ); --- a/opac/sco/help.pl +++ a/opac/sco/help.pl @@ -24,8 +24,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(get_template_and_user in_iprange); -use C4::Output qw(output_html_with_http_headers); +use C4::Auth qw( in_iprange get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $query = CGI->new; unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) { --- a/opac/sco/printslip.pl +++ a/opac/sco/printslip.pl @@ -29,9 +29,9 @@ It is called from sco-main.pl use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth qw/:DEFAULT get_session in_iprange/; -use C4::Output; -use C4::Members; +use C4::Auth qw( in_iprange get_session get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Members qw( IssueSlip ); use C4::Koha; my $input = CGI->new; --- a/opac/sco/sco-main.pl +++ a/opac/sco/sco-main.pl @@ -35,11 +35,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(get_template_and_user checkpw in_iprange); +use C4::Auth qw( in_iprange get_template_and_user checkpw ); use C4::Koha; -use C4::Circulation; +use C4::Circulation qw( AddReturn CanBookBeIssued AddIssue CanBookBeRenewed AddRenewal ); use C4::Reserves; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use C4::Biblio; use C4::Items; --- a/opac/sco/sco-patron-image.pl +++ a/opac/sco/sco-patron-image.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth qw(in_iprange); +use C4::Auth qw( in_iprange ); use C4::Service; use C4::Members; use Koha::Patron::Images; --- a/opac/svc/shelfbrowser.pl +++ a/opac/svc/shelfbrowser.pl @@ -3,10 +3,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::ShelfBrowser; +use C4::Output qw( output_html_with_http_headers ); +use C4::ShelfBrowser qw( GetNearbyItems ); my $cgi = CGI->new; --- a/opac/tracklinks.pl +++ a/opac/tracklinks.pl @@ -20,9 +20,9 @@ use Modern::Perl; use C4::Context; -use C4::Auth qw(checkauth); -use C4::Biblio; -use C4::Output; +use C4::Auth qw( checkauth ); +use C4::Biblio qw( GetMarcBiblio GetMarcUrls ); +use C4::Output qw( output_error ); use Koha::Items; use Koha::Linktracker; use CGI qw ( -utf8 ); --- a/patron_lists/add-modify.pl +++ a/patron_lists/add-modify.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::List::Patron; my $cgi = CGI->new; --- a/patron_lists/delete.pl +++ a/patron_lists/delete.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use Koha::List::Patron; --- a/patron_lists/list.pl +++ a/patron_lists/list.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::List::Patron; use List::MoreUtils qw/uniq/; --- a/patron_lists/lists.pl +++ a/patron_lists/lists.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::List::Patron; my $cgi = CGI->new; --- a/patron_lists/patrons.pl +++ a/patron_lists/patrons.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::List::Patron; my $cgi = CGI->new; --- a/patroncards/add_user_search.pl +++ a/patroncards/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/patroncards/create-pdf.pl +++ a/patroncards/create-pdf.pl @@ -19,7 +19,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Graphics::Magick; use XML::Simple; use POSIX qw(ceil); --- a/patroncards/edit-batch.pl +++ a/patroncards/edit-batch.pl @@ -25,8 +25,8 @@ use vars qw($debug); use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); -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 ); use C4::Creators; use C4::Patroncards; use Koha::Patrons; --- a/patroncards/edit-layout.pl +++ a/patroncards/edit-layout.pl @@ -25,8 +25,8 @@ use Text::CSV_XS; use XML::Simple; use autouse 'Data::Dumper' => qw(Dumper); -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 ); use C4::Creators; use C4::Patroncards; --- a/patroncards/edit-profile.pl +++ a/patroncards/edit-profile.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -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 ); use C4::Creators::Lib qw(get_all_templates get_unit_values); use C4::Patroncards::Profile; --- a/patroncards/edit-template.pl +++ a/patroncards/edit-template.pl @@ -23,8 +23,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); -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 ); use C4::Creators; use C4::Patroncards; --- a/patroncards/home.pl +++ a/patroncards/home.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -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 $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/patroncards/image-manage.pl +++ a/patroncards/image-manage.pl @@ -7,8 +7,8 @@ use Graphics::Magick; use POSIX qw(ceil); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Creators; use C4::Patroncards; --- a/patroncards/manage.pl +++ a/patroncards/manage.pl @@ -24,8 +24,8 @@ use vars qw($debug); use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); -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 ); use C4::Creators; use C4::Patroncards; use C4::Labels; --- a/patroncards/print.pl +++ a/patroncards/print.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); -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 ); use C4::Creators; use C4::Patroncards; --- a/plugins/plugins-enable.pl +++ a/plugins/plugins-enable.pl @@ -20,7 +20,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth qw(check_cookie_auth); +use C4::Auth qw( check_cookie_auth ); use Koha::Plugins::Handler; die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins"); --- a/plugins/plugins-home.pl +++ a/plugins/plugins-home.pl @@ -25,8 +25,8 @@ use JSON qw(from_json); use LWP::Simple qw(get); use Koha::Plugins; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; my $plugins_enabled = C4::Context->config("enable_plugins"); --- a/plugins/plugins-uninstall.pl +++ a/plugins/plugins-uninstall.pl @@ -23,7 +23,7 @@ use File::Copy; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use C4::Members; use Koha::Plugins::Handler; --- a/plugins/plugins-upload.pl +++ a/plugins/plugins-upload.pl @@ -25,8 +25,8 @@ use File::Copy; use File::Temp; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Logger; use Koha::Plugins; --- a/plugins/run.pl +++ a/plugins/run.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Koha::Plugins::Handler; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; my $plugins_enabled = C4::Context->config("enable_plugins"); --- a/pos/pay.pl +++ a/pos/pay.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI; use JSON qw( from_json ); -use C4::Auth qw/:DEFAULT get_session/; -use C4::Output; +use C4::Auth qw( get_session get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Account::DebitTypes; --- a/pos/printreceipt.pl +++ a/pos/printreceipt.pl @@ -19,10 +19,10 @@ use Modern::Perl; -use C4::Auth qw/:DEFAULT get_session/; -use C4::Output; +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 C4::Letters; +use C4::Letters qw( getletter ); use Koha::Account::Lines; use Koha::DateUtils; use Koha::Notice::Templates; --- a/pos/register.pl +++ a/pos/register.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Account::Lines; --- a/pos/registers.pl +++ a/pos/registers.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Cash::Registers; --- a/reports/acquisitions_stats.pl +++ a/reports/acquisitions_stats.pl @@ -19,14 +19,14 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Reports; -use C4::Output; -use C4::Koha; +use C4::Reports qw( GetDelimiterChoices ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); use C4::Circulation; -use C4::Biblio; +use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField ); use Koha::ItemTypes; use Koha::DateUtils; use Koha::Libraries; --- a/reports/bor_issues_top.pl +++ a/reports/bor_issues_top.pl @@ -20,13 +20,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Koha; use C4::Circulation; use C4::Members; -use C4::Reports; +use C4::Reports qw( GetDelimiterChoices ); use Koha::DateUtils; use Koha::ItemTypes; --- a/reports/borrowers_out.pl +++ a/reports/borrowers_out.pl @@ -20,12 +20,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Circulation; -use C4::Reports; +use C4::Reports qw( GetDelimiterChoices ); use C4::Members; use Koha::DateUtils; --- a/reports/borrowers_stats.pl +++ a/reports/borrowers_stats.pl @@ -21,12 +21,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use List::MoreUtils qw/uniq/; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use C4::Acquisition; -use C4::Output; -use C4::Reports; +use C4::Output qw( output_html_with_http_headers ); +use C4::Reports qw( GetDelimiterChoices ); use C4::Circulation; use Koha::AuthorisedValues; --- a/reports/cash_register_stats.pl +++ a/reports/cash_register_stats.pl @@ -16,11 +16,11 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI; use C4::Context; -use C4::Reports; -use C4::Output; +use C4::Reports qw( GetDelimiterChoices ); +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use C4::Circulation; use DateTime; --- a/reports/cat_issues_top.pl +++ a/reports/cat_issues_top.pl @@ -19,13 +19,13 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Koha; +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); use C4::Circulation; -use C4::Reports; +use C4::Reports qw( GetDelimiterChoices ); use C4::Members; use Koha::DateUtils; use Koha::ItemTypes; --- a/reports/catalogue_out.pl +++ a/reports/catalogue_out.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); # use Date::Manip; # TODO: add not borrowed since date X criteria use Data::Dumper; --- a/reports/catalogue_stats.pl +++ a/reports/catalogue_stats.pl @@ -19,14 +19,14 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Koha; -use C4::Reports; +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); +use C4::Reports qw( GetDelimiterChoices ); use C4::Circulation; -use C4::Biblio qw/GetMarcSubfieldStructureFromKohaField/; +use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField ); use Koha::AuthorisedValues; use Koha::DateUtils; --- a/reports/dictionary.pl +++ a/reports/dictionary.pl @@ -18,10 +18,10 @@ # along with Koha; if not, see . use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); -use C4::Output; -use C4::Reports::Guided; +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 ); use Koha::DateUtils; =head1 NAME --- a/reports/guided_reports.pl +++ a/reports/guided_reports.pl @@ -23,10 +23,10 @@ use Text::CSV::Encoded; use Encode qw( decode ); use URI::Escape; use File::Temp; -use C4::Reports::Guided; +use C4::Reports::Guided qw( delete_report get_report_areas convert_sql update_sql get_saved_reports get_results ValidateSQLParameters format_results get_report_types get_columns get_from_dictionary get_criteria build_query save_report execute_query nb_rows get_report_groups ); use Koha::Reports; -use C4::Auth qw/:DEFAULT get_session/; -use C4::Output; +use C4::Auth qw( get_template_and_user get_session ); +use C4::Output qw( pagination_bar output_html_with_http_headers ); use C4::Context; use Koha::Caches; use C4::Log; --- a/reports/issues_avg_stats.pl +++ a/reports/issues_avg_stats.pl @@ -19,13 +19,13 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use C4::Circulation; -use C4::Reports; +use C4::Reports qw( GetDelimiterChoices ); use Koha::DateUtils; use Koha::ItemTypes; use Koha::Patron::Categories; --- a/reports/issues_stats.pl +++ a/reports/issues_stats.pl @@ -22,12 +22,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Date::Manip; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Output; +use C4::Koha qw( GetAuthorisedValues ); +use C4::Output qw( output_html_with_http_headers ); use C4::Circulation; -use C4::Reports; +use C4::Reports qw( GetDelimiterChoices ); use C4::Members; use Koha::AuthorisedValues; --- a/reports/itemslost.pl +++ a/reports/itemslost.pl @@ -29,8 +29,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Text::CSV_XS; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; use C4::Items; --- a/reports/manager.pl +++ a/reports/manager.pl @@ -19,9 +19,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Circulation; --- a/reports/orders_by_fund.pl +++ a/reports/orders_by_fund.pl @@ -28,8 +28,8 @@ This script displays all orders associated to a selected budget. use Modern::Perl; use CGI qw( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Budgets; use C4::Biblio; use C4::Reports; --- a/reports/reports-home.pl +++ a/reports/reports-home.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; --- a/reports/reserves_stats.pl +++ a/reports/reserves_stats.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Output; -use C4::Reports; +use C4::Koha qw( GetAuthorisedValues ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Reports qw( GetDelimiterChoices ); use C4::Members; use Koha::AuthorisedValues; use Koha::DateUtils; --- a/reports/serials_stats.pl +++ a/reports/serials_stats.pl @@ -18,13 +18,13 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::Reports; -use C4::Serials; +use C4::Reports qw( GetDelimiterChoices ); +use C4::Serials qw( GetExpirationDate HasSubscriptionExpired ); =head1 serials_out --- a/reserve/modrequest.pl +++ a/reserve/modrequest.pl @@ -26,8 +26,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use List::MoreUtils qw( uniq ); use C4::Output; -use C4::Reserves; -use C4::Auth; +use C4::Reserves qw( ModReserve ModReserveCancelAll ); +use C4::Auth qw( get_template_and_user ); use Koha::DateUtils qw( dt_from_string ); my $query = CGI->new; --- a/reserve/modrequest_suspendall.pl +++ a/reserve/modrequest_suspendall.pl @@ -25,8 +25,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; -use C4::Reserves; -use C4::Auth; +use C4::Reserves qw( SuspendAll ); +use C4::Auth qw( get_template_and_user ); my $query = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/reserve/placerequest.pl +++ a/reserve/placerequest.pl @@ -27,10 +27,10 @@ use CGI qw ( -utf8 ); use C4::Biblio; use C4::Items; use C4::Output; -use C4::Reserves; +use C4::Reserves qw( CanItemBeReserved AddReserve CanBookBeReserved ); use C4::Circulation; use C4::Members; -use C4::Auth qw/checkauth/; +use C4::Auth qw( checkauth ); use Koha::Items; use Koha::Patrons; --- a/reserve/request.pl +++ a/reserve/request.pl @@ -31,18 +31,18 @@ use Modern::Perl; use CGI qw ( -utf8 ); use List::MoreUtils qw/uniq/; use Date::Calc qw/Date_to_Days/; -use C4::Output; -use C4::Auth; -use C4::Reserves; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Reserves qw( RevertWaitingStatus AlterPriority ToggleLowestPriority ToggleSuspend CanBookBeReserved GetMaxPatronHoldsForRecord ItemsAnyAvailableAndNotRestricted GetReservesControlBranch CanItemBeReserved IsAvailableForItemLevelRequest ); use C4::Biblio; -use C4::Items; -use C4::Koha; -use C4::Serials; -use C4::Circulation; +use C4::Items qw( get_hostitemnumbers_of sub ); +use C4::Koha qw( getitemtypeimagelocation ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); +use C4::Circulation qw( GetTransfers _GetCircControlBranch GetBranchItemRule ); use Koha::DateUtils; use C4::Utils::DataTables::Members; use C4::Members; -use C4::Search; # enabled_staff_search_views +use C4::Search qw( enabled_staff_search_views ); use Koha::Biblios; use Koha::DateUtils; --- a/reviews/reviewswaiting.pl +++ a/reviews/reviewswaiting.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( pagination_bar output_html_with_http_headers ); use C4::Context; use C4::Biblio; use Koha::Biblios; --- a/rotating_collections/addItems.pl +++ a/rotating_collections/addItems.pl @@ -18,8 +18,8 @@ use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::RotatingCollections; use C4::Items; --- a/rotating_collections/editCollections.pl +++ a/rotating_collections/editCollections.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::RotatingCollections; --- a/rotating_collections/rotatingCollections.pl +++ a/rotating_collections/rotatingCollections.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::RotatingCollections; --- a/rotating_collections/transferCollection.pl +++ a/rotating_collections/transferCollection.pl @@ -18,8 +18,8 @@ use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::RotatingCollections; --- a/serials/acqui-search-result.pl +++ a/serials/acqui-search-result.pl @@ -41,9 +41,9 @@ acqui-search-result.pl use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Acquisition qw( SearchOrders ); use Koha::DateUtils; --- a/serials/acqui-search.pl +++ a/serials/acqui-search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $query = CGI->new; --- a/serials/add_user_search.pl +++ a/serials/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/serials/checkexpiration.pl +++ a/serials/checkexpiration.pl @@ -44,9 +44,9 @@ The date to filter on. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Serials; # GetExpirationDate -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Serials qw( SearchSubscriptions GetExpirationDate ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::DateUtils; --- a/serials/claims.pl +++ a/serials/claims.pl @@ -19,12 +19,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Serials; +use C4::Auth qw( get_template_and_user ); +use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription ); use C4::Acquisition; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Letters; +use C4::Letters qw( SendAlerts GetLetters ); use C4::Koha qw( GetAuthorisedValues ); use Koha::AdditionalFields; --- a/serials/create-numberpattern.pl +++ a/serials/create-numberpattern.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Serials::Numberpattern; -use C4::Auth qw/check_cookie_auth/; +use C4::Auth qw( check_cookie_auth ); use URI::Escape; my $input = CGI->new; --- a/serials/lateissues-export.pl +++ a/serials/lateissues-export.pl @@ -18,7 +18,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Serials; +use C4::Serials qw( GetLateOrMissingIssues updateClaim ); use C4::Acquisition; use C4::Output; use C4::Context; --- a/serials/routing-preview.pl +++ a/serials/routing-preview.pl @@ -21,16 +21,16 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Acquisition; -use C4::Reserves; +use C4::Reserves qw( AddReserve ModReserve ); use C4::Circulation; use C4::Context; use C4::Members; use C4::Biblio; -use C4::Items; -use C4::Serials; +use C4::Items qw( sub GetItemsInfo ); +use C4::Serials qw( delroutingmember getroutinglist GetSubscription GetSerials check_routing ); use URI::Escape; use Koha::Biblios; --- a/serials/routing.pl +++ a/serials/routing.pl @@ -28,14 +28,14 @@ printed out use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Acquisition; -use C4::Output; +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Context; use C4::Members; -use C4::Serials; +use C4::Serials qw( GetSubscription delroutingmember addroutingmember getroutinglist GetSerials GetLatestSerials check_routing ); use Koha::Patrons; use URI::Escape; --- a/serials/serials-collection.pl +++ a/serials/serials-collection.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Serials; +use C4::Serials qw( ModSerialStatus GetSubscription GetNextExpected GetNextSeq GetNextDate NewIssue HasSubscriptionExpired abouttoexpire check_routing GetFullSubscription PrepareSerialsData CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber GetFullSubscriptionsFromBiblionumber ); use C4::Letters; -use C4::Output; +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Context; use Koha::Serial::Items; --- a/serials/serials-edit.pl +++ a/serials/serials-edit.pl @@ -64,14 +64,14 @@ op can be : use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw( decode is_utf8 ); -use C4::Auth; -use C4::Biblio; -use C4::Items; +use C4::Auth qw( get_template_and_user haspermission ); +use C4::Biblio qw( TransformHtmlToXml GetMarcFromKohaField ); +use C4::Items qw( sub PrepareItemrecordDisplay AddItemFromMarc ModItemFromMarc ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Serials; -use C4::Search qw/enabled_staff_search_views/; +use C4::Serials qw( GetSerials GetSerials2 GetSerialInformation HasSubscriptionExpired GetSubscription abouttoexpire NewIssue ModSerialStatus GetPreviousSerialid AddItem2Serial ); +use C4::Search qw( enabled_staff_search_views ); use Koha::DateUtils; use Koha::Items; --- a/serials/serials-home.pl +++ a/serials/serials-home.pl @@ -30,9 +30,9 @@ this script is the main page for serials/ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Serials; my $query = CGI->new; --- a/serials/serials-search.pl +++ a/serials/serials-search.pl @@ -30,11 +30,11 @@ this script is the search page for serials use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Koha qw( GetAuthorisedValues ); -use C4::Output; -use C4::Serials; +use C4::Output qw( output_html_with_http_headers ); +use C4::Serials qw( CloseSubscription ReopenSubscription SearchSubscriptions check_routing ); use Koha::AdditionalFields; use Koha::DateUtils; --- a/serials/showpredictionpattern.pl +++ a/serials/showpredictionpattern.pl @@ -32,10 +32,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM); -use C4::Auth; -use C4::Output; -use C4::Serials; -use C4::Serials::Frequency; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq ); +use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq ); use Koha::DateUtils; my $input = CGI->new; --- a/serials/subscription-add.pl +++ a/serials/subscription-add.pl @@ -19,16 +19,16 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM); -use C4::Koha; -use C4::Biblio; -use C4::Auth; +use C4::Koha qw( GetAuthorisedValues ); +use C4::Biblio qw( GetMarcBiblio ); +use C4::Auth qw( get_template_and_user ); use C4::Acquisition; -use C4::Output; +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Context; -use C4::Serials; -use C4::Serials::Frequency; -use C4::Serials::Numberpattern; -use C4::Letters; +use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription ); +use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription ); +use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription ); +use C4::Letters qw( GetLetters ); use Koha::AdditionalFields; use Koha::Biblios; use Koha::DateUtils; --- a/serials/subscription-batchedit.pl +++ a/serials/subscription-batchedit.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Serials; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Serials qw( can_edit_subscription ); use Koha::Subscriptions; use Koha::Acquisition::Booksellers; use Koha::AdditionalFields; --- a/serials/subscription-bib-search.pl +++ a/serials/subscription-bib-search.pl @@ -49,12 +49,12 @@ to multipage gestion. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Koha; -use C4::Auth; +use C4::Koha qw( GetAuthorisedValues ); +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::Search; -use C4::Biblio; +use C4::Output qw( output_html_with_http_headers ); +use C4::Search qw( new_record_from_zebra ); +use C4::Biblio qw( TransformMarcToKoha ); use Koha::ItemTypes; use Koha::SearchEngine; --- a/serials/subscription-detail.pl +++ a/serials/subscription-detail.pl @@ -18,13 +18,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Acquisition; -use C4::Auth; +use C4::Auth qw( get_template_and_user checkauth ); use C4::Budgets; use C4::Koha; -use C4::Serials; -use C4::Output; +use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Context; -use C4::Search qw/enabled_staff_search_views/; +use C4::Search qw( enabled_staff_search_views ); use Koha::AdditionalFields; use Koha::AuthorisedValues; --- a/serials/subscription-frequencies.pl +++ a/serials/subscription-frequencies.pl @@ -31,10 +31,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Serials; -use C4::Serials::Frequency; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Serials qw( GetSubscription ModSubscription DelSubscription ); +use C4::Serials qw( GetSubscription ModSubscription DelSubscription ); my $input = CGI->new; my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { --- a/serials/subscription-frequency.pl +++ a/serials/subscription-frequency.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Serials::Frequency; -use C4::Auth qw/check_cookie_auth/; +use C4::Auth qw( check_cookie_auth ); use JSON qw( to_json ); my $input=CGI->new; --- a/serials/subscription-history.pl +++ a/serials/subscription-history.pl @@ -30,11 +30,11 @@ Modify subscription history use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; -use C4::Serials; +use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription ); use Koha::Biblios; use Koha::DateUtils; --- a/serials/subscription-numberpattern.pl +++ a/serials/subscription-numberpattern.pl @@ -20,7 +20,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Serials::Numberpattern; -use C4::Auth qw/check_cookie_auth/; +use C4::Auth qw( check_cookie_auth ); use JSON qw( to_json ); my $input=CGI->new; --- a/serials/subscription-numberpatterns.pl +++ a/serials/subscription-numberpatterns.pl @@ -30,8 +30,8 @@ Manage numbering patterns use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Serials::Numberpattern; use C4::Serials::Frequency; --- a/serials/subscription-renew.pl +++ a/serials/subscription-renew.pl @@ -48,11 +48,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Carp; use C4::Koha; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Auth; -use C4::Output; -use C4::Serials; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); +use C4::Serials qw( GetSubscription GetSubscriptionLength NewSubscription ReNewSubscription ); use Koha::DateUtils; my $query = CGI->new; --- a/serials/viewalerts.pl +++ a/serials/viewalerts.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Subscriptions; --- a/services/itemrecorddisplay.pl +++ a/services/itemrecorddisplay.pl @@ -30,9 +30,9 @@ It uses PrepareItemrecordDisplay use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Items; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Items qw( PrepareItemrecordDisplay ); my $input = CGI->new; my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { --- a/suggestion/add_user_search.pl +++ a/suggestion/add_user_search.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/suggestion/suggestion.pl +++ a/suggestion/suggestion.pl @@ -20,12 +20,12 @@ use Modern::Perl; require Exporter; use CGI qw ( -utf8 ); -use C4::Auth; # get_template_and_user -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Suggestions; -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use C4::Budgets; -use C4::Search; +use C4::Search qw( FindDuplicate GetDistinctValues ); use C4::Members; use Koha::DateUtils qw( dt_from_string ); use Koha::AuthorisedValues; --- a/svc/cataloguing/automatic_linker.pl +++ a/svc/cataloguing/automatic_linker.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; use JSON; -use C4::Auth qw(check_cookie_auth); -use C4::Biblio; +use C4::Auth qw( check_cookie_auth ); +use C4::Biblio qw( TransformHtmlToMarc BiblioAutoLink ); use C4::Context; my $input = CGI->new; --- a/t/lib/TestBuilder.pm +++ a/t/lib/TestBuilder.pm @@ -3,8 +3,8 @@ package t::lib::TestBuilder; use Modern::Perl; use Koha::Database; -use C4::Biblio; -use C4::Items; +use C4::Biblio qw( AddBiblio ); +use C4::Items qw( sub ); use Koha::Biblios; use Koha::Items; use Koha::DateUtils qw( dt_from_string ); --- a/tags/list.pl +++ a/tags/list.pl @@ -20,13 +20,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(:DEFAULT check_cookie_auth); -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetBiblioData ); use C4::Context; -use C4::Items; +use C4::Items qw( GetItemsInfo ); use C4::Koha; -use C4::Tags qw(get_tags remove_tag get_tag_rows); -use C4::Output; +use C4::Tags qw( remove_tag get_tag_rows get_tag get_tags ); +use C4::Output qw( output_html_with_http_headers ); my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more specific permission is created. --- a/tags/review.pl +++ a/tags/review.pl @@ -25,12 +25,11 @@ use POSIX; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request use URI::Escape; -use C4::Auth qw(:DEFAULT check_cookie_auth); +use C4::Auth qw( check_cookie_auth get_template_and_user ); use C4::Context; use Koha::DateUtils; -# use C4::Koha; -use C4::Output qw(:html :ajax pagination_bar); -use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved); +use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers ); +use C4::Tags qw( is_approved whitelist blacklist approval_counts get_approval_rows ); my $script_name = "/cgi-bin/koha/tags/review.pl"; my $needed_flags = { tools => 'moderate_tags' }; # FIXME: replace when more specific permission is created. --- a/tools/access_files.pl +++ a/tools/access_files.pl @@ -23,10 +23,10 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use File::stat qw(stat); use Digest::MD5 qw(md5_hex); --- a/tools/ajax-inventory.pl +++ a/tools/ajax-inventory.pl @@ -2,7 +2,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( check_api_auth ); use C4::Items qw( ModDateLastSeen ); my $input = CGI->new; --- a/tools/automatic_item_modification_by_age.pl +++ a/tools/automatic_item_modification_by_age.pl @@ -34,10 +34,10 @@ use Modern::Perl; use CGI; use JSON qw( to_json from_json ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Items; -use C4::Output; +use C4::Items qw( sub ); +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use Koha::Items; --- a/tools/background-job-progress.pl +++ a/tools/background-job-progress.pl @@ -24,7 +24,7 @@ use IO::File; use CGI qw ( -utf8 ); use CGI::Session; use C4::Context; -use C4::Auth qw/check_cookie_auth/; +use C4::Auth qw( check_cookie_auth ); use C4::BackgroundJob; use CGI::Cookie; # need to check cookies before # having CGI parse the POST request --- a/tools/batchMod.pl +++ a/tools/batchMod.pl @@ -22,15 +22,15 @@ use CGI qw ( -utf8 ); use Modern::Perl; use Try::Tiny; -use C4::Auth; -use C4::Output; -use C4::Biblio; -use C4::Items; -use C4::Circulation; +use C4::Auth qw( get_template_and_user haspermission ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField TransformHtmlToXml DelBiblio IsMarcStructureInternal GetAuthorisedValueDesc ); +use C4::Items qw( sub Item2Marc ModItemFromMarc GetItemsInfo ); +use C4::Circulation qw( LostItem IsItemIssued ); use C4::Context; use C4::Koha; use C4::BackgroundJob; -use C4::ClassSource; +use C4::ClassSource qw( GetClassSources GetClassSource ); use C4::Members; use MARC::File::XML; use List::MoreUtils qw/uniq/; --- a/tools/batch_delete_records.pl +++ a/tools/batch_delete_records.pl @@ -23,10 +23,10 @@ use Modern::Perl; use CGI; use List::MoreUtils qw( uniq ); -use C4::Auth; -use C4::Output; -use C4::AuthoritiesMarc; -use C4::Biblio; +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::Biblio qw( GetMarcBiblio CountItemsIssued DelBiblio ); use Koha::Virtualshelves; use Koha::Authorities; --- a/tools/batch_record_modification.pl +++ a/tools/batch_record_modification.pl @@ -27,7 +27,7 @@ use Try::Tiny; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::AuthoritiesMarc qw( BuildSummary ModAuthority ); +use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio ModBiblio ); use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModificationTemplates ); --- a/tools/batch_records_ajax.pl +++ a/tools/batch_records_ajax.pl @@ -36,8 +36,8 @@ use JSON qw/ to_json /; use C4::Context; use C4::Charset; -use C4::Auth qw/check_cookie_auth/; -use C4::ImportBatch; +use C4::Auth qw( check_cookie_auth ); +use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches ); my $input = CGI->new; --- a/tools/cleanborrowers.pl +++ a/tools/cleanborrowers.pl @@ -34,9 +34,9 @@ This script allows to do 2 things. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Members; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Members qw( GetBorrowersToExpunge ); use C4::Circulation; # AnonymiseIssueHistory. use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Patron::Categories; --- a/tools/copy-holidays.pl +++ a/tools/copy-holidays.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Output; --- a/tools/csv-profiles.pl +++ a/tools/csv-profiles.pl @@ -37,9 +37,9 @@ This script allow the user to define a new profile for CSV export use Modern::Perl; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Koha; use Koha::CsvProfiles; --- a/tools/exceptionHolidays.pl +++ a/tools/exceptionHolidays.pl @@ -4,7 +4,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Output; use DateTime; --- a/tools/export.pl +++ a/tools/export.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use MARC::File::XML; use List::MoreUtils qw(uniq); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Authority::Types; use Koha::Biblioitems; --- a/tools/holidays.pl +++ a/tools/holidays.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Calendar; use Koha::DateUtils; --- a/tools/import_borrowers.pl +++ a/tools/import_borrowers.pl @@ -36,8 +36,8 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Templates; use Koha::Patrons; use Koha::DateUtils; --- a/tools/inventory.pl +++ a/tools/inventory.pl @@ -26,15 +26,15 @@ my $input = CGI->new; my $uploadbarcodes = $input->param('uploadbarcodes'); my $barcodelist = $input->param('barcodelist'); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; -use C4::Items; -use C4::Koha; -use C4::Circulation; -use C4::Reports::Guided; #_get_column_defs -use C4::Charset; +use C4::Items qw( GetItemsForInventory sub ); +use C4::Koha qw( GetAuthorisedValues ); +use C4::Circulation qw( AddReturn ); +use C4::Reports::Guided qw( _get_column_defs ); +use C4::Charset qw( NormalizeString ); use Koha::Biblios; use Koha::DateUtils; --- a/tools/koha-news.pl +++ a/tools/koha-news.pl @@ -24,12 +24,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::NewsChannels; -use C4::Languages qw(getTranslatedLanguages); +use C4::Languages qw( getTranslatedLanguages ); use Date::Calc qw/Date_to_Days Today/; use Koha::DateUtils; --- a/tools/letter.pl +++ a/tools/letter.pl @@ -42,10 +42,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::Letters; +use C4::Output qw( output_html_with_http_headers ); +use C4::Letters qw( GetLetterTemplates GetMessageTransportTypes GetMessage getletter ); use C4::Log; use Koha::Notice::Templates; --- a/tools/manage-marc-import.pl +++ a/tools/manage-marc-import.pl @@ -27,11 +27,11 @@ use MARC::File::USMARC; # Koha modules used use C4::Context; use C4::Koha; -use C4::Auth; -use C4::AuthoritiesMarc; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; -use C4::ImportBatch; +use C4::ImportBatch qw( CleanBatch DeleteBatch sub GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords ); use C4::Matcher; use C4::BackgroundJob; use C4::Labels::Batch; --- a/tools/marc_modification_templates.pl +++ a/tools/marc_modification_templates.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::MarcModificationTemplates; my $cgi = CGI->new; --- a/tools/modborrowers.pl +++ a/tools/modborrowers.pl @@ -27,10 +27,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Koha; +use C4::Auth qw( get_template_and_user ); +use C4::Koha qw( GetAuthorisedValues ); use C4::Members; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use List::MoreUtils qw /any uniq/; use Koha::DateUtils qw( dt_from_string ); use Koha::List::Patron; --- a/tools/newHolidays.pl +++ a/tools/newHolidays.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( checkauth ); use C4::Output; use C4::Calendar; --- a/tools/overduerules.pl +++ a/tools/overduerules.pl @@ -20,12 +20,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use C4::Koha; -use C4::Letters; +use C4::Letters qw( GetLetters GetLettersAvailableForALibrary GetMessageTransportTypes GetMessage ); use C4::Members; -use C4::Overdues; +use C4::Overdues qw( GetOverdueMessageTransportTypes ); use Koha::Libraries; use Koha::Patron::Categories; --- a/tools/picture-upload.pl +++ a/tools/picture-upload.pl @@ -26,8 +26,8 @@ use File::Copy; use CGI qw ( -utf8 ); use GD; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Members; use Koha::Logger; --- a/tools/problem-reports.pl +++ a/tools/problem-reports.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use Koha::ProblemReports; my $query = CGI->new; --- a/tools/quotes-upload.pl +++ a/tools/quotes-upload.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Koha; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; --- a/tools/quotes.pl +++ a/tools/quotes.pl @@ -20,9 +20,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Quotes; my $input = CGI->new; --- a/tools/scheduler.pl +++ a/tools/scheduler.pl @@ -19,11 +19,11 @@ use Modern::Perl; use C4::Context; -use C4::Scheduler; -use C4::Reports::Guided; -use C4::Auth; +use C4::Scheduler qw( add_at_job remove_at_job get_jobs ); +use C4::Reports::Guided qw( get_saved_reports ); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::DateUtils;; use vars qw($debug); --- a/tools/showdiffmarc.pl +++ a/tools/showdiffmarc.pl @@ -26,11 +26,11 @@ use CGI qw(:standard -utf8); # Koha modules used use C4::Context; -use C4::Output; -use C4::Auth; -use C4::Biblio; -use C4::AuthoritiesMarc; -use C4::ImportBatch; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio ); +use C4::Auth qw( get_template_and_user ); +use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios ); use Koha::Biblios; --- a/tools/stage-marc-import.pl +++ a/tools/stage-marc-import.pl @@ -33,10 +33,10 @@ use MARC::File::USMARC; # Koha modules used use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Biblio; -use C4::ImportBatch; +use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File RecordsFromMarcPlugin BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction sub ); use C4::Matcher; use Koha::UploadedFiles; use C4::BackgroundJob; --- a/tools/stockrotation.pl +++ a/tools/stockrotation.pl @@ -27,16 +27,16 @@ use Modern::Perl; use CGI; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Libraries; use Koha::StockRotationRotas; use Koha::StockRotationItems; use Koha::StockRotationStages; use Koha::Item; -use Koha::Util::StockRotation qw(:ALL); +use Koha::Util::StockRotation qw( get_branches get_stages move_to_next_stage toggle_indemand remove_from_stage add_items_to_rota get_barcodes_status ); my $input = CGI->new; --- a/tools/tools-home.pl +++ a/tools/tools-home.pl @@ -18,9 +18,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Tags qw/get_count_by_tag_status/; +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 ); use Koha::Reviews; my $query = CGI->new; --- a/tools/upload-cover-image.pl +++ a/tools/upload-cover-image.pl @@ -43,8 +43,8 @@ use File::Temp; use CGI qw ( -utf8 ); use GD; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Biblios; use Koha::CoverImages; use Koha::Items; --- a/tools/upload-file.pl +++ a/tools/upload-file.pl @@ -26,7 +26,7 @@ use JSON; use URI::Escape; use C4::Context; -use C4::Auth qw/check_cookie_auth haspermission/; +use C4::Auth qw( check_cookie_auth get_session ); use Koha::Uploader; # upload-file.pl must authenticate the user --- a/tools/upload.pl +++ a/tools/upload.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw/-utf8/; use JSON; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::UploadedFiles; use constant ERR_READING => 'UPLERR_FILE_NOT_READ'; --- a/tools/viewlog.pl +++ a/tools/viewlog.pl @@ -20,15 +20,15 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use Text::CSV::Encoded; use C4::Context; use C4::Koha; -use C4::Output; -use C4::Items; -use C4::Serials; -use C4::Search; # enabled_staff_search_views +use C4::Output qw( output_html_with_http_headers ); +use C4::Items qw( sub ); +use C4::Serials qw( CountSubscriptionFromBiblionumber ); +use C4::Search qw( enabled_staff_search_views ); use Koha::ActionLogs; use Koha::Database; --- a/virtualshelves/addbybiblionumber.pl +++ a/virtualshelves/addbybiblionumber.pl @@ -60,8 +60,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Biblio; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use Koha::Biblios; use Koha::Virtualshelves; --- a/virtualshelves/downloadshelf.pl +++ a/virtualshelves/downloadshelf.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw(encode); -use C4::Auth; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio ); use C4::Items; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Record; use C4::Ris; --- a/virtualshelves/sendshelf.pl +++ a/virtualshelves/sendshelf.pl @@ -24,10 +24,10 @@ use Encode qw( encode ); use Carp; use Try::Tiny; -use C4::Auth; -use C4::Biblio; -use C4::Items; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects GetMarcISBN ); +use C4::Items qw( sub GetItemsInfo ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Email; use Koha::Virtualshelves; --- a/virtualshelves/shelves.pl +++ a/virtualshelves/shelves.pl @@ -19,12 +19,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Biblio; -use C4::Koha; -use C4::Items; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio ); +use C4::Koha qw( getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); +use C4::Items qw( sub GetItemsLocationInfo ); use C4::Members; -use C4::Output; +use C4::Output qw( pagination_bar output_html_with_http_headers ); use C4::XSLT; use Koha::Biblios; --