Bugzilla – Attachment 122361 Details for
Bug 17600
Standardize the EXPORT
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 17600: After export.pl
Bug-17600-After-exportpl.patch (text/plain), 362.71 KB, created by
Jonathan Druart
on 2021-06-24 09:00:16 UTC
(
hide
)
Description:
Bug 17600: After export.pl
Filename:
MIME Type:
Creator:
Jonathan Druart
Created:
2021-06-24 09:00:16 UTC
Size:
362.71 KB
patch
obsolete
>From 9540474c8bd49e3e1e2b859b21998488e13c5b3f Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Fri, 21 May 2021 16:55:41 +0200 >Subject: [PATCH] Bug 17600: After export.pl > >--- > 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(-) > >diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm >index 1d6f350487c..d6a00f9ea74 100644 >--- a/C4/Acquisition.pm >+++ b/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; >diff --git a/C4/Auth.pm b/C4/Auth.pm >index 11bc145a333..f0d91507499 100644 >--- a/C4/Auth.pm >+++ b/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/; > >diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm >index 60ba6da4056..72bbba46f6e 100644 >--- a/C4/Auth_with_cas.pm >+++ b/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; >diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm >index f14cc9445c7..bfa7656a507 100644 >--- a/C4/Auth_with_ldap.pm >+++ b/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; >diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm >index 1981ed2e56a..f6f1bc339b6 100644 >--- a/C4/Auth_with_shibboleth.pm >+++ b/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; >diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm >index 1bb808bb9c4..d2bdfccbf7b 100644 >--- a/C4/AuthoritiesMarc.pm >+++ b/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; >diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm >index 48683f97659..733f72e11b1 100644 >--- a/C4/BackgroundJob.pm >+++ b/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; > > >diff --git a/C4/Biblio.pm b/C4/Biblio.pm >index 5b51dc04c29..e0b4b4e59b1 100644 >--- a/C4/Biblio.pm >+++ b/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; >diff --git a/C4/Breeding.pm b/C4/Breeding.pm >index 0fe39bf99c0..0c3c2b5c676 100644 >--- a/C4/Breeding.pm >+++ b/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; > >diff --git a/C4/Circulation.pm b/C4/Circulation.pm >index 090a6373f14..9979bfd6de3 100644 >--- a/C4/Circulation.pm >+++ b/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; > >diff --git a/C4/ClassSortRoutine/Dewey.pm b/C4/ClassSortRoutine/Dewey.pm >index 111bafb5373..eedf4ed768b 100644 >--- a/C4/ClassSortRoutine/Dewey.pm >+++ b/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); > >diff --git a/C4/ClassSortRoutine/Generic.pm b/C4/ClassSortRoutine/Generic.pm >index 8b7d890394f..665dd53ca63 100644 >--- a/C4/ClassSortRoutine/Generic.pm >+++ b/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); > >diff --git a/C4/ClassSortRoutine/LCC.pm b/C4/ClassSortRoutine/LCC.pm >index 5f9c8f9c6f8..b943fb683e2 100644 >--- a/C4/ClassSortRoutine/LCC.pm >+++ b/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); > >diff --git a/C4/CourseReserves.pm b/C4/CourseReserves.pm >index 5e8c667a0d9..73bc6e254cb 100644 >--- a/C4/CourseReserves.pm >+++ b/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; >diff --git a/C4/HoldsQueue.pm b/C4/HoldsQueue.pm >index 03331a39145..e766372b58e 100644 >--- a/C4/HoldsQueue.pm >+++ b/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; >diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm >index a28c382d683..2c33f22dcca 100644 >--- a/C4/ILSDI/Services.pm >+++ b/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; >diff --git a/C4/ImportBatch.pm b/C4/ImportBatch.pm >index 4e9ff64de8e..9bd20fd7945 100644 >--- a/C4/ImportBatch.pm >+++ b/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; >diff --git a/C4/InstallAuth.pm b/C4/InstallAuth.pm >index fe1eab57cda..06ef6c716fa 100644 >--- a/C4/InstallAuth.pm >+++ b/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; > >diff --git a/C4/Items.pm b/C4/Items.pm >index f537f6c6925..001c2d9ffd4 100644 >--- a/C4/Items.pm >+++ b/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; >diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm >index deb7429bc6f..187af7c52fe 100644 >--- a/C4/Labels/Label.pm >+++ b/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; >diff --git a/C4/MarcModificationTemplates.pm b/C4/MarcModificationTemplates.pm >index 50d26a04ae6..5d6a2251680 100644 >--- a/C4/MarcModificationTemplates.pm >+++ b/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; > >diff --git a/C4/Members.pm b/C4/Members.pm >index c2338259e55..7ab39317993 100644 >--- a/C4/Members.pm >+++ b/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; >diff --git a/C4/Message.pm b/C4/Message.pm >index e10e3c594b4..c4f216f557a 100644 >--- a/C4/Message.pm >+++ b/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; >diff --git a/C4/Output.pm b/C4/Output.pm >index 93646225a04..4e3615136ef 100644 >--- a/C4/Output.pm >+++ b/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; > >diff --git a/C4/Record.pm b/C4/Record.pm >index 0c3c670ef30..695d891aa5e 100644 >--- a/C4/Record.pm >+++ b/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; >diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm >index 3c7d52e19d3..e458429346d 100644 >--- a/C4/Reports/Guided.pm >+++ b/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; >diff --git a/C4/Reserves.pm b/C4/Reserves.pm >index 230a19e4878..75d9ce94d66 100644 >--- a/C4/Reserves.pm >+++ b/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; >diff --git a/C4/Ris.pm b/C4/Ris.pm >index 867030c73c0..fbec4c770d9 100644 >--- a/C4/Ris.pm >+++ b/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); >diff --git a/C4/SIP/ILS.pm b/C4/SIP/ILS.pm >index 112eb201c38..32ec4f996e0 100644 >--- a/C4/SIP/ILS.pm >+++ b/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; >diff --git a/C4/SIP/SIPServer.pm b/C4/SIP/SIPServer.pm >index f1c1ae448b3..41080d554e9 100644 >--- a/C4/SIP/SIPServer.pm >+++ b/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; > >diff --git a/C4/SIP/Sip.pm b/C4/SIP/Sip.pm >index 3d68f9765c7..2842a611b6f 100644 >--- a/C4/SIP/Sip.pm >+++ b/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); > >diff --git a/C4/Search.pm b/C4/Search.pm >index 55ff77f9dcf..ee56f136ae6 100644 >--- a/C4/Search.pm >+++ b/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; >diff --git a/C4/Serials.pm b/C4/Serials.pm >index 427c081b500..2f5afd8cc11 100644 >--- a/C4/Serials.pm >+++ b/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; >diff --git a/C4/Service.pm b/C4/Service.pm >index bdb2ba17ff1..4cb1fd13fe5 100644 >--- a/C4/Service.pm >+++ b/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; >diff --git a/C4/ShelfBrowser.pm b/C4/ShelfBrowser.pm >index 1eba444d96b..85a9f055214 100644 >--- a/C4/ShelfBrowser.pm >+++ b/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; > >diff --git a/C4/SocialData.pm b/C4/SocialData.pm >index 218cf4e9f7e..8217ccb49ea 100644 >--- a/C4/SocialData.pm >+++ b/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 > >diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm >index 37a482e2d38..cfc2d561a8d 100644 >--- a/C4/Suggestions.pm >+++ b/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; >diff --git a/C4/Templates.pm b/C4/Templates.pm >index 644e235b91e..1a45aeea10b 100644 >--- a/C4/Templates.pm >+++ b/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; > >diff --git a/C4/TmplToken.pm b/C4/TmplToken.pm >index 045269b80b7..77932cc1c07 100644 >--- a/C4/TmplToken.pm >+++ b/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 > >diff --git a/C4/XISBN.pm b/C4/XISBN.pm >index 214accdfbb1..d9c3dd9e664 100644 >--- a/C4/XISBN.pm >+++ b/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; >diff --git a/C4/XSLT.pm b/C4/XSLT.pm >index 3cdf451b285..b290948c7b3 100644 >--- a/C4/XSLT.pm >+++ b/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; >diff --git a/Koha/Account.pm b/Koha/Account.pm >index bd4af13a2d7..3bcd630c116 100644 >--- a/Koha/Account.pm >+++ b/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); >diff --git a/Koha/Account/Line.pm b/Koha/Account/Line.pm >index bd233e3b36d..96de9bb885b 100644 >--- a/Koha/Account/Line.pm >+++ b/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; >diff --git a/Koha/Acquisition/Order.pm b/Koha/Acquisition/Order.pm >index 07dea689390..66558a05a4d 100644 >--- a/Koha/Acquisition/Order.pm >+++ b/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; >diff --git a/Koha/BackgroundJob/BatchUpdateBiblio.pm b/Koha/BackgroundJob/BatchUpdateBiblio.pm >index 7cb7969474d..e2dd32b077c 100644 >--- a/Koha/BackgroundJob/BatchUpdateBiblio.pm >+++ b/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'; >diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm >index 02d2aba04dd..81146545526 100644 >--- a/Koha/Biblio.pm >+++ b/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; >diff --git a/Koha/BiblioUtils.pm b/Koha/BiblioUtils.pm >index 9be2e6168ac..ace8c9b07b0 100644 >--- a/Koha/BiblioUtils.pm >+++ b/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; >diff --git a/Koha/BiblioUtils/Iterator.pm b/Koha/BiblioUtils/Iterator.pm >index f8a4e41019d..445bf3fec03 100644 >--- a/Koha/BiblioUtils/Iterator.pm >+++ b/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; >diff --git a/Koha/Checkout.pm b/Koha/Checkout.pm >index 3693beeb90e..5c27a412d99 100644 >--- a/Koha/Checkout.pm >+++ b/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; >diff --git a/Koha/Checkouts.pm b/Koha/Checkouts.pm >index 0f2da95c651..902e3165801 100644 >--- a/Koha/Checkouts.pm >+++ b/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; >diff --git a/Koha/EDI.pm b/Koha/EDI.pm >index 5ea22bc15a4..dff62b15a2b 100644 >--- a/Koha/EDI.pm >+++ b/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); >diff --git a/Koha/Exporter/Record.pm b/Koha/Exporter/Record.pm >index eaebe576393..ab7ad296de1 100644 >--- a/Koha/Exporter/Record.pm >+++ b/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; >diff --git a/Koha/ExternalContent.pm b/Koha/ExternalContent.pm >index 578e035cf5d..148cd380a2e 100644 >--- a/Koha/ExternalContent.pm >+++ b/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)); > >diff --git a/Koha/Hold.pm b/Koha/Hold.pm >index bd5458f4943..930ba6b1bfa 100644 >--- a/Koha/Hold.pm >+++ b/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; >diff --git a/Koha/I18N.pm b/Koha/I18N.pm >index ca0ceae0c9c..bc6c6e4ce78 100644 >--- a/Koha/I18N.pm >+++ b/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; >diff --git a/Koha/Illrequest.pm b/Koha/Illrequest.pm >index 01d421f63df..770c6a364cc 100644 >--- a/Koha/Illrequest.pm >+++ b/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); > >diff --git a/Koha/Illrequest/Logger.pm b/Koha/Illrequest/Logger.pm >index 971b3a8b761..7bc5ef3360f 100644 >--- a/Koha/Illrequest/Logger.pm >+++ b/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 ); >diff --git a/Koha/Item.pm b/Koha/Item.pm >index 47a86eb0bb9..a76bb01c0db 100644 >--- a/Koha/Item.pm >+++ b/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; >diff --git a/Koha/Item/Transfer.pm b/Koha/Item/Transfer.pm >index 06588e01b16..0145ecd0e14 100644 >--- a/Koha/Item/Transfer.pm >+++ b/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; >diff --git a/Koha/ItemType.pm b/Koha/ItemType.pm >index 939c97704e0..6d7c0013529 100644 >--- a/Koha/ItemType.pm >+++ b/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; >diff --git a/Koha/ItemTypes.pm b/Koha/ItemTypes.pm >index 746bbb23ea8..49ffb5f4017 100644 >--- a/Koha/ItemTypes.pm >+++ b/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; >diff --git a/Koha/MetaSearcher.pm b/Koha/MetaSearcher.pm >index 47dffe801ef..80a74c3bf9d 100644 >--- a/Koha/MetaSearcher.pm >+++ b/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; >diff --git a/Koha/MetadataRecord.pm b/Koha/MetadataRecord.pm >index ce792f7ead2..a8eb5875f17 100644 >--- a/Koha/MetadataRecord.pm >+++ b/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); >diff --git a/Koha/MetadataRecord/Authority.pm b/Koha/MetadataRecord/Authority.pm >index 31e5b530394..655cc2edf8d 100644 >--- a/Koha/MetadataRecord/Authority.pm >+++ b/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); >diff --git a/Koha/Patron.pm b/Koha/Patron.pm >index a8379f62281..98897427070 100644 >--- a/Koha/Patron.pm >+++ b/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; >diff --git a/Koha/Patron/Discharge.pm b/Koha/Patron/Discharge.pm >index f35f434109c..96e674327f8 100644 >--- a/Koha/Patron/Discharge.pm >+++ b/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 ); >diff --git a/Koha/Patrons/Import.pm b/Koha/Patrons/Import.pm >index 9347d037816..a771daa0e4a 100644 >--- a/Koha/Patrons/Import.pm >+++ b/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; >diff --git a/Koha/Plugins/Base.pm b/Koha/Plugins/Base.pm >index a5cb15e3c16..cfdf42fb9fc 100644 >--- a/Koha/Plugins/Base.pm >+++ b/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 > >diff --git a/Koha/SearchEngine/Search.pm b/Koha/SearchEngine/Search.pm >index 0b7222741aa..cc1b0de75d4 100644 >--- a/Koha/SearchEngine/Search.pm >+++ b/Koha/SearchEngine/Search.pm >@@ -45,7 +45,7 @@ Creates a new C<Search> 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 { >diff --git a/Koha/UploadedFiles.pm b/Koha/UploadedFiles.pm >index 2f44e974c84..60c10d15c6f 100644 >--- a/Koha/UploadedFiles.pm >+++ b/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; >diff --git a/Koha/Virtualshelf.pm b/Koha/Virtualshelf.pm >index c27c695ada6..d0ccb880817 100644 >--- a/Koha/Virtualshelf.pm >+++ b/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; >diff --git a/Koha/Z3950Responder/Session.pm b/Koha/Z3950Responder/Session.pm >index 006bfaf2acf..6f663b5f95c 100644 >--- a/Koha/Z3950Responder/Session.pm >+++ b/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; >diff --git a/about.pl b/about.pl >index 3320b36b812..d4dcdbdba98 100755 >--- a/about.pl >+++ b/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 '####'; >diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl >index 6e46a86f0f8..c70c82eebf7 100755 >--- a/acqui/acqui-home.pl >+++ b/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; >diff --git a/acqui/add_user_search.pl b/acqui/add_user_search.pl >index ea7b2ae9d7e..9afa7503598 100755 >--- a/acqui/add_user_search.pl >+++ b/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; >diff --git a/acqui/addorder.pl b/acqui/addorder.pl >index 7a77cfbcdf9..06e878f62d5 100755 >--- a/acqui/addorder.pl >+++ b/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; >diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl >index c445fb8064e..40bafedbc51 100755 >--- a/acqui/addorderiso2709.pl >+++ b/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; >diff --git a/acqui/ajax-getauthvaluedropbox.pl b/acqui/ajax-getauthvaluedropbox.pl >index 41c0a8db413..6d7034b8232 100755 >--- a/acqui/ajax-getauthvaluedropbox.pl >+++ b/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(); >diff --git a/acqui/basket.pl b/acqui/basket.pl >index 09545ee3cc4..475d000fe72 100755 >--- a/acqui/basket.pl >+++ b/acqui/basket.pl >@@ -21,25 +21,25 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; > >diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl >index 24a7fc8b510..698fbbc71a3 100755 >--- a/acqui/basketgroup.pl >+++ b/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; >diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl >index 6e76177cdb6..4977470b421 100755 >--- a/acqui/basketheader.pl >+++ b/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/; > >diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl >index 8528a00a34c..d034f051653 100755 >--- a/acqui/booksellers.pl >+++ b/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 /; >diff --git a/acqui/cancelorder.pl b/acqui/cancelorder.pl >index cfa9ec960c9..558b33b2dcc 100755 >--- a/acqui/cancelorder.pl >+++ b/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; > >diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl >index be4e55350c1..3c90240c2f8 100755 >--- a/acqui/check_budget_total.pl >+++ b/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 >diff --git a/acqui/check_uniqueness.pl b/acqui/check_uniqueness.pl >index 37c4a22204e..a564a325e5a 100755 >--- a/acqui/check_uniqueness.pl >+++ b/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[]'); >diff --git a/acqui/duplicate_orders.pl b/acqui/duplicate_orders.pl >index 7bbefea2ead..fdda9c50875 100755 >--- a/acqui/duplicate_orders.pl >+++ b/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; >diff --git a/acqui/edi_ean.pl b/acqui/edi_ean.pl >index 1e056557c9b..065fdc31c0d 100755 >--- a/acqui/edi_ean.pl >+++ b/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(); >diff --git a/acqui/edifactmsgs.pl b/acqui/edifactmsgs.pl >index 8e603bb9fdc..a02597f97c1 100755 >--- a/acqui/edifactmsgs.pl >+++ b/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( >diff --git a/acqui/edimsg.pl b/acqui/edimsg.pl >index 46206ea5f3c..05340d44813 100755 >--- a/acqui/edimsg.pl >+++ b/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( >diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl >index 961e3d566f0..0b37dca95e9 100755 >--- a/acqui/finishreceive.pl >+++ b/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; >diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl >index e652fb92254..8e3967e4f38 100755 >--- a/acqui/histsearch.pl >+++ b/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; >diff --git a/acqui/invoice-files.pl b/acqui/invoice-files.pl >index a470c9f53ac..09278a23904 100755 >--- a/acqui/invoice-files.pl >+++ b/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; > >diff --git a/acqui/invoice.pl b/acqui/invoice.pl >index dfc4ab4d53e..d0bff39b3b7 100755 >--- a/acqui/invoice.pl >+++ b/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; > >diff --git a/acqui/invoices.pl b/acqui/invoices.pl >index 42e6328cca1..5c4ce4515fa 100755 >--- a/acqui/invoices.pl >+++ b/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; >diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl >index 57a080dbd31..64a881e5d7e 100755 >--- a/acqui/lateorders-export.pl >+++ b/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; >diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl >index 67354b2a144..fd2c129e610 100755 >--- a/acqui/lateorders.pl >+++ b/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; >diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl >index f529d4b782e..37a0f722a23 100755 >--- a/acqui/modordernotes.pl >+++ b/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; >diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl >index 0949fe0a343..a13656f4054 100755 >--- a/acqui/neworderempty.pl >+++ b/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; >diff --git a/acqui/newordersubscription.pl b/acqui/newordersubscription.pl >index 7d3e8ba40d7..87d2cb3221a 100755 >--- a/acqui/newordersubscription.pl >+++ b/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; > >diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl >index f43e201c069..8606d22f62e 100755 >--- a/acqui/newordersuggestion.pl >+++ b/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; >diff --git a/acqui/ordered.pl b/acqui/ordered.pl >index 0f4e8c6519e..7ecc7edae3a 100755 >--- a/acqui/ordered.pl >+++ b/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; > >diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl >index 177b17023da..2b86c30588f 100755 >--- a/acqui/orderreceive.pl >+++ b/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; > >diff --git a/acqui/parcel.pl b/acqui/parcel.pl >index 90ccbe00061..fc36368c24f 100755 >--- a/acqui/parcel.pl >+++ b/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; >diff --git a/acqui/parcels.pl b/acqui/parcels.pl >index e5d4330a312..c06c74dfb00 100755 >--- a/acqui/parcels.pl >+++ b/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; >diff --git a/acqui/showorder.pl b/acqui/showorder.pl >index 89255c94e71..da7cce55b16 100755 >--- a/acqui/showorder.pl >+++ b/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; >diff --git a/acqui/spent.pl b/acqui/spent.pl >index b865648c55d..c68adfc1115 100755 >--- a/acqui/spent.pl >+++ b/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; >diff --git a/acqui/supplier.pl b/acqui/supplier.pl >index 63d0b33af9f..b69b7050f90 100755 >--- a/acqui/supplier.pl >+++ b/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; >diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl >index 433821b5874..ca3e5fb8339 100755 >--- a/acqui/transferorder.pl >+++ b/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; >diff --git a/acqui/uncertainprice.pl b/acqui/uncertainprice.pl >index 2ee68afdc50..035e9346746 100755 >--- a/acqui/uncertainprice.pl >+++ b/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/; >diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl >index 60c65e49674..51d55ba6a1b 100755 >--- a/acqui/updatesupplier.pl >+++ b/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; >diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl >index 10399d57551..096bff4ef04 100755 >--- a/acqui/z3950_search.pl >+++ b/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; >diff --git a/admin/add_user_search.pl b/admin/add_user_search.pl >index 027eb15e683..032301a6d7f 100755 >--- a/admin/add_user_search.pl >+++ b/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; >diff --git a/admin/additional-fields.pl b/admin/additional-fields.pl >index 082854a3d45..9e8ef8ad5ff 100755 >--- a/admin/additional-fields.pl >+++ b/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; >diff --git a/admin/admin-home.pl b/admin/admin-home.pl >index 9a076b05123..73f2cc8edf0 100755 >--- a/admin/admin-home.pl >+++ b/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; >diff --git a/admin/adveditorshortcuts.pl b/admin/adveditorshortcuts.pl >index 4b78a8676fb..f7b3442b1ff 100755 >--- a/admin/adveditorshortcuts.pl >+++ b/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; >diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl >index 2d4e7c43a9a..cbc3887c0bd 100755 >--- a/admin/aqbudgetperiods.pl >+++ b/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; >diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl >index 0cf65271109..afd58ef2f0a 100755 >--- a/admin/aqbudgets.pl >+++ b/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; >diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl >index 891608732ec..42fbe6770d9 100755 >--- a/admin/aqcontract.pl >+++ b/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; > >diff --git a/admin/aqplan.pl b/admin/aqplan.pl >index a539b20e720..b324de480c8 100755 >--- a/admin/aqplan.pl >+++ b/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; >diff --git a/admin/audio_alerts.pl b/admin/audio_alerts.pl >index 4f8de64cede..ed3a9a5e09b 100755 >--- a/admin/audio_alerts.pl >+++ b/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; > >diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl >index fcb419eed52..b7a9edf0b49 100755 >--- a/admin/auth_subfields_structure.pl >+++ b/admin/auth_subfields_structure.pl >@@ -18,8 +18,8 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl >index 8a9ab47a2a4..e7a603d5df0 100755 >--- a/admin/auth_tag_structure.pl >+++ b/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; >diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl >index cb5988021d7..173f04cb21c 100755 >--- a/admin/authorised_values.pl >+++ b/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; >diff --git a/admin/authtypes.pl b/admin/authtypes.pl >index 3b2f86453f3..3fea873e0d9 100755 >--- a/admin/authtypes.pl >+++ b/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; >diff --git a/admin/background_jobs.pl b/admin/background_jobs.pl >index 413bb2e225b..1773e6f0a99 100755 >--- a/admin/background_jobs.pl >+++ b/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; >diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl >index 0d8a6a4b0b3..32f2ac11eb8 100755 >--- a/admin/biblio_framework.pl >+++ b/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; >diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl >index 455c04ad273..0cb9f8dfb4c 100755 >--- a/admin/branch_transfer_limits.pl >+++ b/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; > >diff --git a/admin/branches.pl b/admin/branches.pl >index 282c547afe5..4114e47015f 100755 >--- a/admin/branches.pl >+++ b/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; >diff --git a/admin/cash_registers.pl b/admin/cash_registers.pl >index ae39c119864..f76d73bd8bc 100755 >--- a/admin/cash_registers.pl >+++ b/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(); >diff --git a/admin/categories.pl b/admin/categories.pl >index d8d8513b91c..332323d0c14 100755 >--- a/admin/categories.pl >+++ b/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; >diff --git a/admin/check_budget_parent.pl b/admin/check_budget_parent.pl >index 1c98bd2095c..da03f619299 100755 >--- a/admin/check_budget_parent.pl >+++ b/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 >diff --git a/admin/check_parent_total.pl b/admin/check_parent_total.pl >index fbd79b2299f..b5fb288ea12 100755 >--- a/admin/check_parent_total.pl >+++ b/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 >diff --git a/admin/checkmarc.pl b/admin/checkmarc.pl >index 126e90fdfff..6a2eb4bac0c 100755 >--- a/admin/checkmarc.pl >+++ b/admin/checkmarc.pl >@@ -19,8 +19,8 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/admin/cities.pl b/admin/cities.pl >index c7b03b0271e..f16c9d7a50f 100755 >--- a/admin/cities.pl >+++ b/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; > >diff --git a/admin/classsources.pl b/admin/classsources.pl >index cbaf4499268..761324f637e 100755 >--- a/admin/classsources.pl >+++ b/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; >diff --git a/admin/clone-rules.pl b/admin/clone-rules.pl >index d6acf898b2b..a883d37e51d 100755 >--- a/admin/clone-rules.pl >+++ b/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; > >diff --git a/admin/columns_settings.pl b/admin/columns_settings.pl >index 3d9d68e1406..55d312d4f96 100755 >--- a/admin/columns_settings.pl >+++ b/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; > >diff --git a/admin/credit_types.pl b/admin/credit_types.pl >index afbe72a82e3..da1efd963a4 100755 >--- a/admin/credit_types.pl >+++ b/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; >diff --git a/admin/currency.pl b/admin/currency.pl >index d3dfab5e458..28dc2d26735 100755 >--- a/admin/currency.pl >+++ b/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; >diff --git a/admin/debit_types.pl b/admin/debit_types.pl >index 887e1e87282..118b61436ca 100755 >--- a/admin/debit_types.pl >+++ b/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; >diff --git a/admin/desks.pl b/admin/desks.pl >index e4019020842..bc087a3c9de 100755 >--- a/admin/desks.pl >+++ b/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; > >diff --git a/admin/didyoumean.pl b/admin/didyoumean.pl >index 9cafc13f770..1e31df1171f 100755 >--- a/admin/didyoumean.pl >+++ b/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; >diff --git a/admin/edi_accounts.pl b/admin/edi_accounts.pl >index 288fec519c2..293f7ef6662 100755 >--- a/admin/edi_accounts.pl >+++ b/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; > >diff --git a/admin/edi_ean_accounts.pl b/admin/edi_ean_accounts.pl >index a7edcf25f20..87ebe458c71 100755 >--- a/admin/edi_ean_accounts.pl >+++ b/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(); >diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl >index bd5ee8331b0..45ba9e2ba2c 100755 >--- a/admin/import_export_framework.pl >+++ b/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; >diff --git a/admin/item_circulation_alerts.pl b/admin/item_circulation_alerts.pl >index ae6692d058d..ba9dd5b3c91 100755 >--- a/admin/item_circulation_alerts.pl >+++ b/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; >diff --git a/admin/items_search_field.pl b/admin/items_search_field.pl >index ab48babd865..569dce65bbc 100755 >--- a/admin/items_search_field.pl >+++ b/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); > >diff --git a/admin/items_search_fields.pl b/admin/items_search_fields.pl >index ac2548642b2..0e62eb67c66 100755 >--- a/admin/items_search_fields.pl >+++ b/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); > >diff --git a/admin/itemtypes.pl b/admin/itemtypes.pl >index 2370de93e19..0ede2024b6d 100755 >--- a/admin/itemtypes.pl >+++ b/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; >diff --git a/admin/koha2marclinks.pl b/admin/koha2marclinks.pl >index 842364dadba..ab7e541e194 100755 >--- a/admin/koha2marclinks.pl >+++ b/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; >diff --git a/admin/library_groups.pl b/admin/library_groups.pl >index cf561c863bb..5284a881f48 100755 >--- a/admin/library_groups.pl >+++ b/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; >diff --git a/admin/localization.pl b/admin/localization.pl >index 3c296c6fc7c..58205d8df7c 100755 >--- a/admin/localization.pl >+++ b/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; >diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl >index 7ee7e269b2f..636c3add4e2 100755 >--- a/admin/marc_subfields_structure.pl >+++ b/admin/marc_subfields_structure.pl >@@ -18,8 +18,8 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; > >diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl >index 573abbca7c0..dad2c0fab32 100755 >--- a/admin/marctagstructure.pl >+++ b/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; >diff --git a/admin/matching-rules.pl b/admin/matching-rules.pl >index 5241b2bab5d..9ae9033107a 100755 >--- a/admin/matching-rules.pl >+++ b/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/; > >diff --git a/admin/oai_set_mappings.pl b/admin/oai_set_mappings.pl >index e8b8b7eafa3..555cdc0e566 100755 >--- a/admin/oai_set_mappings.pl >+++ b/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; >diff --git a/admin/oai_sets.pl b/admin/oai_sets.pl >index 2d5aa50883b..7c1cad7e133 100755 >--- a/admin/oai_sets.pl >+++ b/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; >diff --git a/admin/overdrive.pl b/admin/overdrive.pl >index ef12d60ed8d..3bff6dae746 100755 >--- a/admin/overdrive.pl >+++ b/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; >diff --git a/admin/patron-attr-types.pl b/admin/patron-attr-types.pl >index f0c1654cc33..a02f991d7e2 100755 >--- a/admin/patron-attr-types.pl >+++ b/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; > >diff --git a/admin/preferences.pl b/admin/preferences.pl >index f3879d7cb93..d2909a2c0ae 100755 >--- a/admin/preferences.pl >+++ b/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; >diff --git a/admin/share_content.pl b/admin/share_content.pl >index b4c7e0bc6df..b69450966a1 100755 >--- a/admin/share_content.pl >+++ b/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; > >diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl >index 5c7cc22b351..4cff616bde8 100755 >--- a/admin/smart-rules.pl >+++ b/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; >diff --git a/admin/sms_providers.pl b/admin/sms_providers.pl >index ea02f152bb9..a259b8627cd 100755 >--- a/admin/sms_providers.pl >+++ b/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; >diff --git a/admin/smtp_servers.pl b/admin/smtp_servers.pl >index 19458a23a42..14992a45ff9 100755 >--- a/admin/smtp_servers.pl >+++ b/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; >diff --git a/admin/sru_modmapping.pl b/admin/sru_modmapping.pl >index 298a4f57897..67023772e39 100755 >--- a/admin/sru_modmapping.pl >+++ b/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 > >diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl >index e2e690c6f02..22ef052e42d 100755 >--- a/admin/systempreferences.pl >+++ b/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) >diff --git a/admin/transfer_limits.pl b/admin/transfer_limits.pl >index 8c67bdaab2e..456cd0534c3 100755 >--- a/admin/transfer_limits.pl >+++ b/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 }; >diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl >index 935be87ea8a..f654efc8aa7 100755 >--- a/admin/transport-cost-matrix.pl >+++ b/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; > >diff --git a/admin/usage_statistics.pl b/admin/usage_statistics.pl >index 635704fab3e..b9314d1fba0 100755 >--- a/admin/usage_statistics.pl >+++ b/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; > >diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl >index 54b85d97152..d7dd4161c5b 100755 >--- a/admin/z3950servers.pl >+++ b/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; > >diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl >index ed6774f5999..7c75bbe0baa 100755 >--- a/authorities/auth_finder.pl >+++ b/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; >diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl >index 691528215d3..dacbeab9f01 100755 >--- a/authorities/authorities-home.pl >+++ b/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; >diff --git a/authorities/authorities.pl b/authorities/authorities.pl >index 4e0ecb555f7..54c16bdf043 100755 >--- a/authorities/authorities.pl >+++ b/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); >diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl >index 478a1bf1fc7..123bf8a3f4c 100755 >--- a/authorities/blinddetail-biblio-search.pl >+++ b/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; >diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl >index 66bf8ce2fee..4ae0b5c9efa 100755 >--- a/authorities/detail-biblio-search.pl >+++ b/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; >diff --git a/authorities/detail.pl b/authorities/detail.pl >index be86a811d49..5b1d3306aba 100755 >--- a/authorities/detail.pl >+++ b/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; >diff --git a/authorities/export.pl b/authorities/export.pl >index b55ee7ddabe..267bc1c5494 100755 >--- a/authorities/export.pl >+++ b/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; >diff --git a/authorities/merge.pl b/authorities/merge.pl >index 3b5f6c0fcee..f759d4ff607 100755 >--- a/authorities/merge.pl >+++ b/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; >diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl >index 6ed427891c2..f764232e0e1 100755 >--- a/authorities/merge_ajax.pl >+++ b/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' }); >diff --git a/authorities/ysearch.pl b/authorities/ysearch.pl >index 92de7b1807b..7d743904269 100755 >--- a/authorities/ysearch.pl >+++ b/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; > >diff --git a/basket/basket.pl b/basket/basket.pl >index 44727d2364d..50bea3082dd 100755 >--- a/basket/basket.pl >+++ b/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; >diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl >index f8478770c2d..506c0ee1069 100755 >--- a/basket/downloadcart.pl >+++ b/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; > >diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl >index 9e273b1f45b..565dd3d0c51 100755 >--- a/basket/sendbasket.pl >+++ b/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; >diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl >index d26780a8e2b..103a6d473e0 100755 >--- a/catalogue/ISBDdetail.pl >+++ b/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; >diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl >index e275077ac2c..948bc9199f0 100755 >--- a/catalogue/MARCdetail.pl >+++ b/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; >diff --git a/catalogue/detail.pl b/catalogue/detail.pl >index 0ba37e7253c..55fddc6193c 100755 >--- a/catalogue/detail.pl >+++ b/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; >diff --git a/catalogue/export.pl b/catalogue/export.pl >index cb6f2d8129c..95f87c85857 100755 >--- a/catalogue/export.pl >+++ b/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; > >diff --git a/catalogue/getitem-ajax.pl b/catalogue/getitem-ajax.pl >index 6180874555f..ee8fe56a7bd 100755 >--- a/catalogue/getitem-ajax.pl >+++ b/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; >diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl >index 9cc96c11d64..5de5ed6b494 100755 >--- a/catalogue/imageviewer.pl >+++ b/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; >diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl >index e81ec56de50..dc05b3ea175 100755 >--- a/catalogue/issuehistory.pl >+++ b/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; > >diff --git a/catalogue/item-export.pl b/catalogue/item-export.pl >index fbc69bf71a7..0867376d302 100755 >--- a/catalogue/item-export.pl >+++ b/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; >diff --git a/catalogue/itemsearch.pl b/catalogue/itemsearch.pl >index 0329f4b1d8e..bc2f595fec3 100755 >--- a/catalogue/itemsearch.pl >+++ b/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; >diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl >index 643d091dd09..9784242202f 100755 >--- a/catalogue/labeledMARCdetail.pl >+++ b/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; >diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl >index 94a7eab12f5..ad548bff864 100755 >--- a/catalogue/moredetail.pl >+++ b/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; >diff --git a/catalogue/search-history.pl b/catalogue/search-history.pl >index 092be2e89f5..42bef7cfd46 100755 >--- a/catalogue/search-history.pl >+++ b/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; > >diff --git a/catalogue/search.pl b/catalogue/search.pl >index 8bd70fc8935..632d9d2e99e 100755 >--- a/catalogue/search.pl >+++ b/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; >diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl >index 7633b5f6bd9..83cb2ddc43f 100755 >--- a/catalogue/showmarc.pl >+++ b/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; >diff --git a/catalogue/stockrotation.pl b/catalogue/stockrotation.pl >index 015b1235dcf..27813c02e83 100755 >--- a/catalogue/stockrotation.pl >+++ b/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; > >diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl >index 9ff9f9b2d52..708a42b4614 100755 >--- a/catalogue/updateitem.pl >+++ b/catalogue/updateitem.pl >@@ -19,12 +19,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > 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; >diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl >index 7eba09f55dd..badaf66d0f2 100755 >--- a/cataloguing/addbiblio.pl >+++ b/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; > >diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl >index 53313bb5f77..b9d77771b7b 100755 >--- a/cataloguing/addbooks.pl >+++ b/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; >diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl >index b1e03573988..4c8f6b39dc8 100755 >--- a/cataloguing/additem.pl >+++ b/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; >diff --git a/cataloguing/editor.pl b/cataloguing/editor.pl >index cfef40490a0..5fb2f0c0f70 100755 >--- a/cataloguing/editor.pl >+++ b/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; >diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl >index aaa4f1d14a2..2e5c14276cb 100755 >--- a/cataloguing/linkitem.pl >+++ b/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; > >diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl >index 7b1f81635cf..57c53f13460 100755 >--- a/cataloguing/merge.pl >+++ b/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; >diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl >index aef7dcbfb90..1d1c8b147c7 100755 >--- a/cataloguing/merge_ajax.pl >+++ b/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( >diff --git a/cataloguing/moveitem.pl b/cataloguing/moveitem.pl >index c0d46413a38..709fdf8ca43 100755 >--- a/cataloguing/moveitem.pl >+++ b/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; >diff --git a/cataloguing/value_builder/EXAMPLE.pl b/cataloguing/value_builder/EXAMPLE.pl >index 2e13d6ad862..691e69f8e2b 100755 >--- a/cataloguing/value_builder/EXAMPLE.pl >+++ b/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 >diff --git a/cataloguing/value_builder/barcode.pl b/cataloguing/value_builder/barcode.pl >index bf5b0739dd2..b03c23f4213 100755 >--- a/cataloguing/value_builder/barcode.pl >+++ b/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; >diff --git a/cataloguing/value_builder/barcode_manual.pl b/cataloguing/value_builder/barcode_manual.pl >index 91c5f186a8b..c047fc58d96 100755 >--- a/cataloguing/value_builder/barcode_manual.pl >+++ b/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; >diff --git a/cataloguing/value_builder/callnumber-KU.pl b/cataloguing/value_builder/callnumber-KU.pl >index 09f733fc6fd..37b7e16d006 100755 >--- a/cataloguing/value_builder/callnumber-KU.pl >+++ b/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 > >diff --git a/cataloguing/value_builder/callnumber.pl b/cataloguing/value_builder/callnumber.pl >index fd3b068e288..629f1c41c71 100755 >--- a/cataloguing/value_builder/callnumber.pl >+++ b/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 > >diff --git a/cataloguing/value_builder/cn_browser.pl b/cataloguing/value_builder/cn_browser.pl >index 2acdcc782a6..ac89109fc1a 100755 >--- a/cataloguing/value_builder/cn_browser.pl >+++ b/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; > >diff --git a/cataloguing/value_builder/macles.pl b/cataloguing/value_builder/macles.pl >index ea769fa8e3d..8579dc04d52 100755 >--- a/cataloguing/value_builder/macles.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/marc21_field_006.pl b/cataloguing/value_builder/marc21_field_006.pl >index 4ff1c9a5380..b4f28521f96 100755 >--- a/cataloguing/value_builder/marc21_field_006.pl >+++ b/cataloguing/value_builder/marc21_field_006.pl >@@ -20,12 +20,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; > >diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl >index ee7a91a699d..093653d1bfb 100755 >--- a/cataloguing/value_builder/marc21_field_007.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/marc21_field_008.pl b/cataloguing/value_builder/marc21_field_008.pl >index 78961f4ceda..9f87ae393b7 100755 >--- a/cataloguing/value_builder/marc21_field_008.pl >+++ b/cataloguing/value_builder/marc21_field_008.pl >@@ -20,12 +20,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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|; >diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl >index 414d9ff688b..e7a7f168d88 100755 >--- a/cataloguing/value_builder/marc21_field_008_authorities.pl >+++ b/cataloguing/value_builder/marc21_field_008_authorities.pl >@@ -20,12 +20,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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'; >diff --git a/cataloguing/value_builder/marc21_field_008_classifications.pl b/cataloguing/value_builder/marc21_field_008_classifications.pl >index 9a195845427..c5979f8f7e4 100755 >--- a/cataloguing/value_builder/marc21_field_008_classifications.pl >+++ b/cataloguing/value_builder/marc21_field_008_classifications.pl >@@ -16,12 +16,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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'; >diff --git a/cataloguing/value_builder/marc21_leader.pl b/cataloguing/value_builder/marc21_leader.pl >index 659bb9aeee4..85f73463296 100755 >--- a/cataloguing/value_builder/marc21_leader.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/marc21_leader_authorities.pl b/cataloguing/value_builder/marc21_leader_authorities.pl >index 5bd0348e4dd..04a55ea28bf 100755 >--- a/cataloguing/value_builder/marc21_leader_authorities.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl >index adc520ee2bd..1250ce7a97a 100755 >--- a/cataloguing/value_builder/marc21_linking_section.pl >+++ b/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; > >diff --git a/cataloguing/value_builder/normarc_field_007.pl b/cataloguing/value_builder/normarc_field_007.pl >index e2e5bc60def..f01b45f9fd1 100755 >--- a/cataloguing/value_builder/normarc_field_007.pl >+++ b/cataloguing/value_builder/normarc_field_007.pl >@@ -18,12 +18,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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) = @_; >diff --git a/cataloguing/value_builder/normarc_field_008.pl b/cataloguing/value_builder/normarc_field_008.pl >index de487bd7432..fc1a9417fa1 100755 >--- a/cataloguing/value_builder/normarc_field_008.pl >+++ b/cataloguing/value_builder/normarc_field_008.pl >@@ -18,12 +18,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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); >diff --git a/cataloguing/value_builder/normarc_leader.pl b/cataloguing/value_builder/normarc_leader.pl >index 8314d637ea8..15ae94a62d2 100755 >--- a/cataloguing/value_builder/normarc_leader.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/stocknumberAV.pl b/cataloguing/value_builder/stocknumberAV.pl >index 850fbe849dc..793cf1066a3 100755 >--- a/cataloguing/value_builder/stocknumberAV.pl >+++ b/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 >diff --git a/cataloguing/value_builder/stocknumberam123.pl b/cataloguing/value_builder/stocknumberam123.pl >index be36fe20729..e1f54ad6603 100755 >--- a/cataloguing/value_builder/stocknumberam123.pl >+++ b/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 > >diff --git a/cataloguing/value_builder/unimarc_field_010.pl b/cataloguing/value_builder/unimarc_field_010.pl >index 73b7ff7fe98..56a5c5c3ceb 100755 >--- a/cataloguing/value_builder/unimarc_field_010.pl >+++ b/cataloguing/value_builder/unimarc_field_010.pl >@@ -19,10 +19,10 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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 { >diff --git a/cataloguing/value_builder/unimarc_field_100.pl b/cataloguing/value_builder/unimarc_field_100.pl >index e5d746a6caf..ea98183c784 100755 >--- a/cataloguing/value_builder/unimarc_field_100.pl >+++ b/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 { >diff --git a/cataloguing/value_builder/unimarc_field_100_authorities.pl b/cataloguing/value_builder/unimarc_field_100_authorities.pl >index 4a0e588e52d..ff7aa576f32 100755 >--- a/cataloguing/value_builder/unimarc_field_100_authorities.pl >+++ b/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 { >diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl >index 9e80cd06d52..e239de664e8 100755 >--- a/cataloguing/value_builder/unimarc_field_105.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl >index de4fb67b44c..488b6ba8891 100755 >--- a/cataloguing/value_builder/unimarc_field_106.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl >index 4e7287c2504..79b173aca75 100755 >--- a/cataloguing/value_builder/unimarc_field_110.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl >index e052a1b8208..c741a8fa44c 100755 >--- a/cataloguing/value_builder/unimarc_field_115a.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl >index de5e68449a9..55adaf2ca19 100755 >--- a/cataloguing/value_builder/unimarc_field_115b.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl >index ef6e5034ee3..858ab48d8a5 100755 >--- a/cataloguing/value_builder/unimarc_field_116.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl >index 3e5c01f10e2..4d4223c5c2f 100755 >--- a/cataloguing/value_builder/unimarc_field_117.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl >index 0c8157adbfb..1450a5e35be 100755 >--- a/cataloguing/value_builder/unimarc_field_120.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl >index 39a6b846113..0da0894d429 100755 >--- a/cataloguing/value_builder/unimarc_field_121a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl >index 7c3b6845ba6..bc5bf1ec951 100755 >--- a/cataloguing/value_builder/unimarc_field_121b.pl >+++ b/cataloguing/value_builder/unimarc_field_121b.pl >@@ -19,12 +19,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl >index d98b48824ac..0b326c443c6 100755 >--- a/cataloguing/value_builder/unimarc_field_122.pl >+++ b/cataloguing/value_builder/unimarc_field_122.pl >@@ -19,12 +19,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl >index f55b44e8b91..cf74e41029d 100755 >--- a/cataloguing/value_builder/unimarc_field_123a.pl >+++ b/cataloguing/value_builder/unimarc_field_123a.pl >@@ -19,12 +19,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl >index c73698f1a69..9fb25ffb2ea 100755 >--- a/cataloguing/value_builder/unimarc_field_123d.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl >index c73698f1a69..9fb25ffb2ea 100755 >--- a/cataloguing/value_builder/unimarc_field_123e.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl >index 5e95c6be91d..660d601df6f 100755 >--- a/cataloguing/value_builder/unimarc_field_123f.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl >index c73698f1a69..9fb25ffb2ea 100755 >--- a/cataloguing/value_builder/unimarc_field_123g.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl >index 3ad3e93fd53..51d6477673c 100755 >--- a/cataloguing/value_builder/unimarc_field_123i.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl >index e8379e81a86..7ca7f07d3ab 100755 >--- a/cataloguing/value_builder/unimarc_field_123j.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl >index 7ec1b474bf1..cfcb8d7c7fe 100755 >--- a/cataloguing/value_builder/unimarc_field_124.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl >index 1b4ac5abd6c..9d14d7a9fd2 100755 >--- a/cataloguing/value_builder/unimarc_field_124a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl >index 51424f111ce..e004bddfd89 100755 >--- a/cataloguing/value_builder/unimarc_field_124b.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl >index b9df679e925..19f8a130ab5 100755 >--- a/cataloguing/value_builder/unimarc_field_124c.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl >index 35cbcbef802..a100375532b 100755 >--- a/cataloguing/value_builder/unimarc_field_124d.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl >index 76e0e8314b8..73226113aea 100755 >--- a/cataloguing/value_builder/unimarc_field_124e.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl >index 732b825bda8..8a0836a7a55 100755 >--- a/cataloguing/value_builder/unimarc_field_124f.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl >index 1262cdf0331..3f40b1e9e9e 100755 >--- a/cataloguing/value_builder/unimarc_field_124g.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl >index 958c6600a6b..4eb86d9cbf3 100755 >--- a/cataloguing/value_builder/unimarc_field_125.pl >+++ b/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 > >diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl >index 9c6473534aa..947050f38d8 100755 >--- a/cataloguing/value_builder/unimarc_field_125a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl >index 8c19929bcce..d5569498355 100755 >--- a/cataloguing/value_builder/unimarc_field_125b.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl >index 7ec1b474bf1..cfcb8d7c7fe 100755 >--- a/cataloguing/value_builder/unimarc_field_126.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl >index 38c8827e67f..f5ed0f7f03b 100755 >--- a/cataloguing/value_builder/unimarc_field_126a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl >index b9c8709a5ad..1c261bcc807 100755 >--- a/cataloguing/value_builder/unimarc_field_126b.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl >index 329db611d02..9845a547edc 100755 >--- a/cataloguing/value_builder/unimarc_field_127.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl >index f1d30988cb5..4b6ad8e90ad 100755 >--- a/cataloguing/value_builder/unimarc_field_128a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl >index c237733060b..1c860bf3b91 100755 >--- a/cataloguing/value_builder/unimarc_field_128b.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl >index 5a876ce7ae5..56ce4a1d688 100755 >--- a/cataloguing/value_builder/unimarc_field_128c.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl >index a0cb7ec9305..19db6d63217 100755 >--- a/cataloguing/value_builder/unimarc_field_130.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl >index 3a95a5f3676..050f8ec8209 100755 >--- a/cataloguing/value_builder/unimarc_field_135a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl >index 492ce14a1c7..467ecb412a1 100755 >--- a/cataloguing/value_builder/unimarc_field_140.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl >index 45643926be3..907f3e39af4 100755 >--- a/cataloguing/value_builder/unimarc_field_141.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl >index 7bda1f3e2cd..2ea56aff899 100755 >--- a/cataloguing/value_builder/unimarc_field_210c.pl >+++ b/cataloguing/value_builder/unimarc_field_210c.pl >@@ -19,14 +19,14 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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 > >diff --git a/cataloguing/value_builder/unimarc_field_210c_bis.pl b/cataloguing/value_builder/unimarc_field_210c_bis.pl >index dcfefc4cf3e..5204ddd6623 100755 >--- a/cataloguing/value_builder/unimarc_field_210c_bis.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl >index 8a3a989709c..c2a779db0a5 100755 >--- a/cataloguing/value_builder/unimarc_field_225a.pl >+++ b/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 > >diff --git a/cataloguing/value_builder/unimarc_field_225a_bis.pl b/cataloguing/value_builder/unimarc_field_225a_bis.pl >index 15990d031c0..5bfedad414c 100755 >--- a/cataloguing/value_builder/unimarc_field_225a_bis.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl >index 9c2f0246003..59f704ba930 100755 >--- a/cataloguing/value_builder/unimarc_field_4XX.pl >+++ b/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; > >diff --git a/cataloguing/value_builder/unimarc_field_686a.pl b/cataloguing/value_builder/unimarc_field_686a.pl >index 778d0a91d7e..38a1e48513e 100755 >--- a/cataloguing/value_builder/unimarc_field_686a.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl >index c6388ec9b5b..895db7a1d28 100755 >--- a/cataloguing/value_builder/unimarc_field_700-4.pl >+++ b/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) = @_; >diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl >index cae62d01f49..44d8c9319c2 100755 >--- a/cataloguing/value_builder/unimarc_leader.pl >+++ b/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 ) = @_; >diff --git a/cataloguing/ysearch.pl b/cataloguing/ysearch.pl >index 1683da4835a..3a2f2f32572 100755 >--- a/cataloguing/ysearch.pl >+++ b/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; >diff --git a/cataloguing/z3950_auth_search.pl b/cataloguing/z3950_auth_search.pl >index e97c47d91fb..8295170caed 100755 >--- a/cataloguing/z3950_auth_search.pl >+++ b/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; >diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl >index f5f04246d6d..fe3b596146e 100755 >--- a/cataloguing/z3950_search.pl >+++ b/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; >diff --git a/circ/add_message.pl b/circ/add_message.pl >index 1c9630a1dbe..ee90af35227 100755 >--- a/circ/add_message.pl >+++ b/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; > >diff --git a/circ/article-request-slip.pl b/circ/article-request-slip.pl >index 2175561edba..e46161ab92b 100755 >--- a/circ/article-request-slip.pl >+++ b/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; > >diff --git a/circ/article-requests.pl b/circ/article-requests.pl >index 3e856bcafa1..3e918dd4c6e 100755 >--- a/circ/article-requests.pl >+++ b/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; >diff --git a/circ/bookcount.pl b/circ/bookcount.pl >index 9a6af8110e8..28e03b7b9ca 100755 >--- a/circ/bookcount.pl >+++ b/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; >diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl >index 422b32cda60..c89f73cab67 100755 >--- a/circ/branchoverdues.pl >+++ b/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; >diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl >index 9a652750de9..5d86ea58dd5 100755 >--- a/circ/branchtransfers.pl >+++ b/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; >diff --git a/circ/checkout-notes.pl b/circ/checkout-notes.pl >index 61ce7cc3531..e94bea06c9f 100755 >--- a/circ/checkout-notes.pl >+++ b/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; >diff --git a/circ/circulation-home.pl b/circ/circulation-home.pl >index f68535d1f19..239051d8503 100755 >--- a/circ/circulation-home.pl >+++ b/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; >diff --git a/circ/circulation.pl b/circ/circulation.pl >index f6dd318f971..8212aeecfed 100755 >--- a/circ/circulation.pl >+++ b/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; >diff --git a/circ/del_message.pl b/circ/del_message.pl >index 2ce34642cd9..778c4582268 100755 >--- a/circ/del_message.pl >+++ b/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; > >diff --git a/circ/hold-transfer-slip.pl b/circ/hold-transfer-slip.pl >index c0a3b6ea4cc..1c4ae4b6e8c 100755 >--- a/circ/hold-transfer-slip.pl >+++ b/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); > >diff --git a/circ/offline-mf.pl b/circ/offline-mf.pl >index 01b1d7c1866..19eb644f9e9 100755 >--- a/circ/offline-mf.pl >+++ b/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( >diff --git a/circ/offline.pl b/circ/offline.pl >index d1500d62009..3843cb7243c 100755 >--- a/circ/offline.pl >+++ b/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; >diff --git a/circ/on-site_checkouts.pl b/circ/on-site_checkouts.pl >index c581e8ef9a7..493e99a449f 100755 >--- a/circ/on-site_checkouts.pl >+++ b/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; > >diff --git a/circ/overdue.pl b/circ/overdue.pl >index c402588d19b..98255d7d17d 100755 >--- a/circ/overdue.pl >+++ b/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; >diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl >index 9310f26bbfe..76547accc0f 100755 >--- a/circ/pendingreserves.pl >+++ b/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; >diff --git a/circ/renew.pl b/circ/renew.pl >index acce7770af6..98fd20d3a53 100755 >--- a/circ/renew.pl >+++ b/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; >diff --git a/circ/request-article.pl b/circ/request-article.pl >index 48b1d02e560..16b3c5d5456 100755 >--- a/circ/request-article.pl >+++ b/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; >diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl >index 812f9e4e344..fe3b4a95fb3 100755 >--- a/circ/reserveratios.pl >+++ b/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; >diff --git a/circ/returns.pl b/circ/returns.pl >index e456e531f2c..54a5a688aa4 100755 >--- a/circ/returns.pl >+++ b/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; >diff --git a/circ/set-library.pl b/circ/set-library.pl >index b10ccc0a0e6..a4a1a5483c6 100755 >--- a/circ/set-library.pl >+++ b/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; >diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl >index 1cbc98e0922..d25d6dc17c9 100755 >--- a/circ/transfer-slip.pl >+++ b/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); > >diff --git a/circ/transfers_to_send.pl b/circ/transfers_to_send.pl >index 07679ddce90..4aff90d3792 100755 >--- a/circ/transfers_to_send.pl >+++ b/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; > >diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl >index ffa89b2de9b..bab2f074008 100755 >--- a/circ/transferstoreceive.pl >+++ b/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 >diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl >index be638753536..2beed2c0f22 100755 >--- a/circ/view_holdsqueue.pl >+++ b/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; > >diff --git a/circ/waitingreserves.pl b/circ/waitingreserves.pl >index 4f654a12ede..93cadb0a0e0 100755 >--- a/circ/waitingreserves.pl >+++ b/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; >diff --git a/circ/ysearch.pl b/circ/ysearch.pl >index a52568640ec..939188d7298 100755 >--- a/circ/ysearch.pl >+++ b/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/; > >diff --git a/clubs/club-enrollments.pl b/clubs/club-enrollments.pl >index 6163c70894a..3eac228bb7a 100755 >--- a/clubs/club-enrollments.pl >+++ b/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; >diff --git a/clubs/clubs-add-modify.pl b/clubs/clubs-add-modify.pl >index 058d8222ba5..264440166eb 100755 >--- a/clubs/clubs-add-modify.pl >+++ b/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; >diff --git a/clubs/clubs.pl b/clubs/clubs.pl >index d2d5a963727..bb4dee6dccd 100755 >--- a/clubs/clubs.pl >+++ b/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; >diff --git a/clubs/patron-clubs-tab.pl b/clubs/patron-clubs-tab.pl >index 1fc47b4dcbd..1a12083e655 100755 >--- a/clubs/patron-clubs-tab.pl >+++ b/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; >diff --git a/clubs/patron-enroll.pl b/clubs/patron-enroll.pl >index 3642996b5cb..367b3c0f4b7 100755 >--- a/clubs/patron-enroll.pl >+++ b/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; >diff --git a/clubs/templates-add-modify.pl b/clubs/templates-add-modify.pl >index 7e22af14ce2..5c966584ec2 100755 >--- a/clubs/templates-add-modify.pl >+++ b/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; >diff --git a/course_reserves/add_items.pl b/course_reserves/add_items.pl >index 7c16a143f59..a8de2068fd1 100755 >--- a/course_reserves/add_items.pl >+++ b/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; >diff --git a/course_reserves/batch_add_items.pl b/course_reserves/batch_add_items.pl >index 829709930d6..720f5914711 100755 >--- a/course_reserves/batch_add_items.pl >+++ b/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; > >diff --git a/course_reserves/batch_rm_items.pl b/course_reserves/batch_rm_items.pl >index bd78bc41c91..de0a49d3b05 100755 >--- a/course_reserves/batch_rm_items.pl >+++ b/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; > >diff --git a/course_reserves/course-details.pl b/course_reserves/course-details.pl >index 35b2bc76959..ac1036daa21 100755 >--- a/course_reserves/course-details.pl >+++ b/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; > >diff --git a/course_reserves/course-reserves.pl b/course_reserves/course-reserves.pl >index 1ecda7ad9e1..6dafac9e99c 100755 >--- a/course_reserves/course-reserves.pl >+++ b/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; > >diff --git a/course_reserves/course.pl b/course_reserves/course.pl >index c5fb37baa34..8d66bdcbd5d 100755 >--- a/course_reserves/course.pl >+++ b/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; > >diff --git a/course_reserves/mod_course.pl b/course_reserves/mod_course.pl >index 060b2a129fc..3abcb9731fa 100755 >--- a/course_reserves/mod_course.pl >+++ b/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( >diff --git a/errors/400.pl b/errors/400.pl >index f2bf9d5ee0b..89c9ac511ba 100755 >--- a/errors/400.pl >+++ b/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); > >diff --git a/errors/401.pl b/errors/401.pl >index e16ca381596..cfaaefa4e15 100755 >--- a/errors/401.pl >+++ b/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); > >diff --git a/errors/402.pl b/errors/402.pl >index a6d40ff05cc..f6a07c74162 100755 >--- a/errors/402.pl >+++ b/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); > >diff --git a/errors/403.pl b/errors/403.pl >index d3187a6f3a9..e6b0a0a8aa1 100755 >--- a/errors/403.pl >+++ b/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); > >diff --git a/errors/404.pl b/errors/404.pl >index e2f0079f187..e4a1b8e476e 100755 >--- a/errors/404.pl >+++ b/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); > >diff --git a/errors/500.pl b/errors/500.pl >index 4f80a5089c2..7be515dbadf 100755 >--- a/errors/500.pl >+++ b/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); > >diff --git a/help.pl b/help.pl >index 4dd3ac3c122..92162539554 100755 >--- a/help.pl >+++ b/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; > >diff --git a/ill/ill-requests.pl b/ill/ill-requests.pl >index dfc27efcba2..9d35a471f94 100755 >--- a/ill/ill-requests.pl >+++ b/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; >diff --git a/installer/install.pl b/installer/install.pl >index e5fc2e52b44..c5287738bcd 100755 >--- a/installer/install.pl >+++ b/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; > >diff --git a/installer/onboarding.pl b/installer/onboarding.pl >index 9ec1a412663..4af3ab3735c 100755 >--- a/installer/onboarding.pl >+++ b/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; >diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl >index a8d89e8bd4a..1dfbc91ae97 100755 >--- a/labels/label-create-pdf.pl >+++ b/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; > >diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl >index 687402d99f0..a02ed383c83 100755 >--- a/labels/label-edit-batch.pl >+++ b/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; > >diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl >index 8c4e57130f1..0fb81264840 100755 >--- a/labels/label-edit-layout.pl >+++ b/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; > >diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl >index 9e3fbe09e56..ff9fed05258 100755 >--- a/labels/label-edit-profile.pl >+++ b/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; > >diff --git a/labels/label-edit-range.pl b/labels/label-edit-range.pl >index 509250f175e..09adba3ffec 100755 >--- a/labels/label-edit-range.pl >+++ b/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( >diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl >index 17186c74bf6..4f227384604 100755 >--- a/labels/label-edit-template.pl >+++ b/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; > >diff --git a/labels/label-home.pl b/labels/label-home.pl >index 4b3381c33c2..3690c506fb4 100755 >--- a/labels/label-home.pl >+++ b/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( >diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl >index 0dc0ea55ffe..98590733333 100755 >--- a/labels/label-item-search.pl >+++ b/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; >diff --git a/labels/label-manage.pl b/labels/label-manage.pl >index 2dbbbb3815a..585c9435053 100755 >--- a/labels/label-manage.pl >+++ b/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; > >diff --git a/labels/label-print.pl b/labels/label-print.pl >index 6a4ac13a1c1..2be9eae31bd 100755 >--- a/labels/label-print.pl >+++ b/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; > >diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl >index 3648670af20..b149f318995 100755 >--- a/labels/spinelabel-home.pl >+++ b/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; >diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl >index ee9a8205194..76a6fc5e36b 100755 >--- a/labels/spinelabel-print.pl >+++ b/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; >diff --git a/mainpage.pl b/mainpage.pl >index 183b5e0fcd2..03ab38965b9 100755 >--- a/mainpage.pl >+++ b/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; >diff --git a/members/accountline-details.pl b/members/accountline-details.pl >index a5c37079aa2..699993db761 100755 >--- a/members/accountline-details.pl >+++ b/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; >diff --git a/members/apikeys.pl b/members/apikeys.pl >index fb9051d1c49..f6fde368e4e 100755 >--- a/members/apikeys.pl >+++ b/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; >diff --git a/members/boraccount.pl b/members/boraccount.pl >index 0cafc5f1ec5..9ba17ff829f 100755 >--- a/members/boraccount.pl >+++ b/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; >diff --git a/members/cancel-charge.pl b/members/cancel-charge.pl >index 4c655fa1747..2f5ff42514c 100755 >--- a/members/cancel-charge.pl >+++ b/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; >diff --git a/members/deletemem.pl b/members/deletemem.pl >index 78fd7f1dca8..24fbacf9d22 100755 >--- a/members/deletemem.pl >+++ b/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; >diff --git a/members/discharge.pl b/members/discharge.pl >index 7e055c6fd81..699c4bd87b1 100755 >--- a/members/discharge.pl >+++ b/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; >diff --git a/members/discharges.pl b/members/discharges.pl >index de19751ee08..574f3d9d5e6 100755 >--- a/members/discharges.pl >+++ b/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; > >diff --git a/members/files.pl b/members/files.pl >index 1cb9d61d293..ef53e2b1045 100755 >--- a/members/files.pl >+++ b/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; >diff --git a/members/guarantor_search.pl b/members/guarantor_search.pl >index b5d31ed0698..40142eb9131 100755 >--- a/members/guarantor_search.pl >+++ b/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; >diff --git a/members/holdshistory.pl b/members/holdshistory.pl >index c05bf43dd32..8564c09a699 100755 >--- a/members/holdshistory.pl >+++ b/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; > >diff --git a/members/housebound.pl b/members/housebound.pl >index e3c06225b21..c8af38342e9 100755 >--- a/members/housebound.pl >+++ b/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; >diff --git a/members/ill-requests.pl b/members/ill-requests.pl >index 771d1e7c70d..f2b23844c07 100755 >--- a/members/ill-requests.pl >+++ b/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; >diff --git a/members/mancredit.pl b/members/mancredit.pl >index c691bc05a36..2317b6b6f89 100755 >--- a/members/mancredit.pl >+++ b/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; >diff --git a/members/maninvoice.pl b/members/maninvoice.pl >index a178a2be380..e6b98a47769 100755 >--- a/members/maninvoice.pl >+++ b/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; >diff --git a/members/member-flags.pl b/members/member-flags.pl >index e34384044c2..9d81cc83663 100755 >--- a/members/member-flags.pl >+++ b/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; >diff --git a/members/member-password.pl b/members/member-password.pl >index 879909a4918..8faf7043642 100755 >--- a/members/member-password.pl >+++ b/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; >diff --git a/members/member.pl b/members/member.pl >index 970015b22e7..9dee72b4b71 100755 >--- a/members/member.pl >+++ b/members/member.pl >@@ -24,8 +24,8 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/members/memberentry.pl b/members/memberentry.pl >index da8a324c784..e7aafd257db 100755 >--- a/members/memberentry.pl >+++ b/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; >diff --git a/members/members-home.pl b/members/members-home.pl >index 470f0b5d4e1..d187bad14c2 100755 >--- a/members/members-home.pl >+++ b/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; >diff --git a/members/members-update-do.pl b/members/members-update-do.pl >index f89f0e2d44d..88d021a3943 100755 >--- a/members/members-update-do.pl >+++ b/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; >diff --git a/members/members-update.pl b/members/members-update.pl >index 6be1924945d..9965d495f1d 100755 >--- a/members/members-update.pl >+++ b/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; >diff --git a/members/merge-patrons.pl b/members/merge-patrons.pl >index ca03168b001..bc26d96c83f 100755 >--- a/members/merge-patrons.pl >+++ b/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; > >diff --git a/members/mod_debarment.pl b/members/mod_debarment.pl >index 1b7d4a4e914..622c5c83ad8 100755 >--- a/members/mod_debarment.pl >+++ b/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; > >diff --git a/members/moremember.pl b/members/moremember.pl >index cbe3652f94f..acfe2adb9b4 100755 >--- a/members/moremember.pl >+++ b/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; >diff --git a/members/notices.pl b/members/notices.pl >index a43a39e80d4..6b69e08a7ec 100755 >--- a/members/notices.pl >+++ b/members/notices.pl >@@ -20,11 +20,11 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; > >diff --git a/members/pay.pl b/members/pay.pl >index fa7c74a319a..aa9a3664226 100755 >--- a/members/pay.pl >+++ b/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; >diff --git a/members/paycollect.pl b/members/paycollect.pl >index c30d8969a25..8d1580f02ec 100755 >--- a/members/paycollect.pl >+++ b/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; >diff --git a/members/print_overdues.pl b/members/print_overdues.pl >index dda9017eec3..ead651b630f 100755 >--- a/members/print_overdues.pl >+++ b/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; > >diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl >index 2e3dff7b51e..1060318291f 100755 >--- a/members/printfeercpt.pl >+++ b/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; >diff --git a/members/printinvoice.pl b/members/printinvoice.pl >index 97b7f58f171..94844133c22 100755 >--- a/members/printinvoice.pl >+++ b/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; >diff --git a/members/printslip.pl b/members/printslip.pl >index 58a41adeb74..88b80e00246 100755 >--- a/members/printslip.pl >+++ b/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; > >diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl >index ea42f3c4720..7df9ea02b22 100755 >--- a/members/purchase-suggestions.pl >+++ b/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; >diff --git a/members/readingrec.pl b/members/readingrec.pl >index e87a6a05e01..c271485fbcb 100755 >--- a/members/readingrec.pl >+++ b/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; > >diff --git a/members/routing-lists.pl b/members/routing-lists.pl >index dee5845a0dd..81ad7980ab0 100755 >--- a/members/routing-lists.pl >+++ b/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; >diff --git a/members/setstatus.pl b/members/setstatus.pl >index 66ae8b586c6..be36e600269 100755 >--- a/members/setstatus.pl >+++ b/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; > > >diff --git a/members/statistics.pl b/members/statistics.pl >index ee3f7874a24..317a8bbe4a2 100755 >--- a/members/statistics.pl >+++ b/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; > >diff --git a/members/summary-print.pl b/members/summary-print.pl >index ab052ca2b32..20ca47596f4 100755 >--- a/members/summary-print.pl >+++ b/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; >diff --git a/members/update-child.pl b/members/update-child.pl >index d2f9c49e3ad..f6f3e0ce741 100755 >--- a/members/update-child.pl >+++ b/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; >diff --git a/misc/add_date_fields_to_marc_records.pl b/misc/add_date_fields_to_marc_records.pl >index b7ab77c2cb6..024a40c0e68 100755 >--- a/misc/add_date_fields_to_marc_records.pl >+++ b/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 ); >diff --git a/misc/batchDeleteUnusedSubfields.pl b/misc/batchDeleteUnusedSubfields.pl >index a80d4fdd6f4..e43d914e710 100755 >--- a/misc/batchDeleteUnusedSubfields.pl >+++ b/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; >diff --git a/misc/batchImportMARCWithBiblionumbers.pl b/misc/batchImportMARCWithBiblionumbers.pl >index f8a12b5c5cf..6a7329a66d6 100755 >--- a/misc/batchImportMARCWithBiblionumbers.pl >+++ b/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; >diff --git a/misc/batchRebuildBiblioTables.pl b/misc/batchRebuildBiblioTables.pl >index edc7c16d336..50a6cfc89ad 100755 >--- a/misc/batchRebuildBiblioTables.pl >+++ b/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; >diff --git a/misc/batchRebuildItemsTables.pl b/misc/batchRebuildItemsTables.pl >index 5bb40e5d353..a0d59ddd3f2 100755 >--- a/misc/batchRebuildItemsTables.pl >+++ b/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 > >diff --git a/misc/batchRepairMissingBiblionumbers.pl b/misc/batchRepairMissingBiblionumbers.pl >index 69e15a6c15f..781a80571f4 100755 >--- a/misc/batchRepairMissingBiblionumbers.pl >+++ b/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; >diff --git a/misc/batchdeletebiblios.pl b/misc/batchdeletebiblios.pl >index 3ae5cd96830..289fb855359 100755 >--- a/misc/batchdeletebiblios.pl >+++ b/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( >diff --git a/misc/commit_file.pl b/misc/commit_file.pl >index 639f7dfb42f..5b4b53186fb 100755 >--- a/misc/commit_file.pl >+++ b/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; >diff --git a/misc/cronjobs/advance_notices.pl b/misc/cronjobs/advance_notices.pl >index f1df975c263..3fc18ac99bf 100755 >--- a/misc/cronjobs/advance_notices.pl >+++ b/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; >diff --git a/misc/cronjobs/archive_purchase_suggestions.pl b/misc/cronjobs/archive_purchase_suggestions.pl >index bd16600d03c..02e68808e06 100755 >--- a/misc/cronjobs/archive_purchase_suggestions.pl >+++ b/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( >diff --git a/misc/cronjobs/automatic_item_modification_by_age.pl b/misc/cronjobs/automatic_item_modification_by_age.pl >index e944ac8c11f..af9f54ceb5c 100755 >--- a/misc/cronjobs/automatic_item_modification_by_age.pl >+++ b/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 >diff --git a/misc/cronjobs/automatic_renewals.pl b/misc/cronjobs/automatic_renewals.pl >index 7b4158b969e..18e046f8fac 100755 >--- a/misc/cronjobs/automatic_renewals.pl >+++ b/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; >diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl >index d6df1be6b7c..46551ca041a 100755 >--- a/misc/cronjobs/build_browser_and_cloud.pl >+++ b/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; >diff --git a/misc/cronjobs/cart_to_shelf.pl b/misc/cronjobs/cart_to_shelf.pl >index 414f6e37208..0d761a5ef68 100755 >--- a/misc/cronjobs/cart_to_shelf.pl >+++ b/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 { >diff --git a/misc/cronjobs/check-url-quick.pl b/misc/cronjobs/check-url-quick.pl >index 93fcd97a10b..0a794d59d52 100755 >--- a/misc/cronjobs/check-url-quick.pl >+++ b/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; >diff --git a/misc/cronjobs/delete_items.pl b/misc/cronjobs/delete_items.pl >index df5d23aa661..7422b5c34f1 100755 >--- a/misc/cronjobs/delete_items.pl >+++ b/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; >diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl >index d0847c8b621..8d0769b36ca 100755 >--- a/misc/cronjobs/delete_patrons.pl >+++ b/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; >diff --git a/misc/cronjobs/delete_records_via_leader.pl b/misc/cronjobs/delete_records_via_leader.pl >index 0287e43f577..22b10d0ed98 100755 >--- a/misc/cronjobs/delete_records_via_leader.pl >+++ b/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; >diff --git a/misc/cronjobs/edi_cron.pl b/misc/cronjobs/edi_cron.pl >index ff6ef95bcc9..50220e6b97d 100755 >--- a/misc/cronjobs/edi_cron.pl >+++ b/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 ); >diff --git a/misc/cronjobs/fines.pl b/misc/cronjobs/fines.pl >index afc6b4d5566..ef90ac3f222 100755 >--- a/misc/cronjobs/fines.pl >+++ b/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; >diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl >index 8c369e8c316..fe19d1e0894 100755 >--- a/misc/cronjobs/gather_print_notices.pl >+++ b/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; >diff --git a/misc/cronjobs/import_webservice_batch.pl b/misc/cronjobs/import_webservice_batch.pl >index aa18edce517..8c9a17cadac 100755 >--- a/misc/cronjobs/import_webservice_batch.pl >+++ b/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); > >diff --git a/misc/cronjobs/longoverdue.pl b/misc/cronjobs/longoverdue.pl >index c12a95d6f2d..5ce1cfa1b1e 100755 >--- a/misc/cronjobs/longoverdue.pl >+++ b/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; >diff --git a/misc/cronjobs/membership_expiry.pl b/misc/cronjobs/membership_expiry.pl >index c140820ea5f..d868b29da65 100755 >--- a/misc/cronjobs/membership_expiry.pl >+++ b/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; >diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl >index c18997db356..3793ba887e2 100755 >--- a/misc/cronjobs/overdue_notices.pl >+++ b/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; >diff --git a/misc/cronjobs/patron_emailer.pl b/misc/cronjobs/patron_emailer.pl >index 67a33dedfb0..6ee1ff98e5c 100755 >--- a/misc/cronjobs/patron_emailer.pl >+++ b/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(); > >diff --git a/misc/cronjobs/process_message_queue.pl b/misc/cronjobs/process_message_queue.pl >index a903f1e06d3..cc9a85ae1f8 100755 >--- a/misc/cronjobs/process_message_queue.pl >+++ b/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; >diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl >index 3e81e08a979..c43616f7fb0 100755 >--- a/misc/cronjobs/runreport.pl >+++ b/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; >diff --git a/misc/cronjobs/serialsUpdate.pl b/misc/cronjobs/serialsUpdate.pl >index 03843b9d2f3..8988ef9b6d4 100755 >--- a/misc/cronjobs/serialsUpdate.pl >+++ b/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; >diff --git a/misc/cronjobs/staticfines.pl b/misc/cronjobs/staticfines.pl >index e31537925a6..ded47867d62 100755 >--- a/misc/cronjobs/staticfines.pl >+++ b/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; >diff --git a/misc/cronjobs/stockrotation.pl b/misc/cronjobs/stockrotation.pl >index 3a30d582265..6da0e457275 100755 >--- a/misc/cronjobs/stockrotation.pl >+++ b/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 = ''; >diff --git a/misc/cronjobs/update_totalissues.pl b/misc/cronjobs/update_totalissues.pl >index f1b621b3443..fcd8f871d43 100755 >--- a/misc/cronjobs/update_totalissues.pl >+++ b/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; >diff --git a/misc/devel/get_prepared_letter.pl b/misc/devel/get_prepared_letter.pl >index 45f5544d824..58dbef2db6b 100755 >--- a/misc/devel/get_prepared_letter.pl >+++ b/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, >diff --git a/misc/link_bibs_to_authorities.pl b/misc/link_bibs_to_authorities.pl >index e7df4d57f67..dfe83320734 100755 >--- a/misc/link_bibs_to_authorities.pl >+++ b/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; >diff --git a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl b/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >index 5e0cd37fcc4..5c3a975de2d 100755 >--- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >+++ b/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 { >diff --git a/misc/maintenance/fix_tags_weight.pl b/misc/maintenance/fix_tags_weight.pl >index a1f8085edd3..446fca85890 100755 >--- a/misc/maintenance/fix_tags_weight.pl >+++ b/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; >diff --git a/misc/maintenance/process_record_through_filter.pl b/misc/maintenance/process_record_through_filter.pl >index a9d92d33adb..6acfc8eb515 100755 >--- a/misc/maintenance/process_record_through_filter.pl >+++ b/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] }); > >diff --git a/misc/maintenance/remove_items_from_biblioitems.pl b/misc/maintenance/remove_items_from_biblioitems.pl >index d78ad696ad9..6524807eedb 100755 >--- a/misc/maintenance/remove_items_from_biblioitems.pl >+++ b/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); >diff --git a/misc/maintenance/sanitize_records.pl b/misc/maintenance/sanitize_records.pl >index f9084e8e3b3..bd9202eca7e 100755 >--- a/misc/maintenance/sanitize_records.pl >+++ b/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; > >diff --git a/misc/maintenance/search_for_data_inconsistencies.pl b/misc/maintenance/search_for_data_inconsistencies.pl >index 433f668040b..a23e7abdc70 100755 >--- a/misc/maintenance/search_for_data_inconsistencies.pl >+++ b/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 }}); >diff --git a/misc/maintenance/touch_all_biblios.pl b/misc/maintenance/touch_all_biblios.pl >index 8d65f21eedb..a211630eec7 100755 >--- a/misc/maintenance/touch_all_biblios.pl >+++ b/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; > > >diff --git a/misc/maintenance/touch_all_items.pl b/misc/maintenance/touch_all_items.pl >index dbf16092217..ba4a497c93d 100755 >--- a/misc/maintenance/touch_all_items.pl >+++ b/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; > >diff --git a/misc/migration_tools/buildEDITORS.pl b/misc/migration_tools/buildEDITORS.pl >index bb11d458815..8a25459e2a0 100755 >--- a/misc/migration_tools/buildEDITORS.pl >+++ b/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); > >diff --git a/misc/migration_tools/build_oai_sets.pl b/misc/migration_tools/build_oai_sets.pl >index c7b73a2d7d1..cdc577c86e6 100755 >--- a/misc/migration_tools/build_oai_sets.pl >+++ b/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; >diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl >index 48e2e9d9970..8bc9d1a8ec0 100755 >--- a/misc/migration_tools/bulkmarcimport.pl >+++ b/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; >diff --git a/misc/migration_tools/create_analytical_rel.pl b/misc/migration_tools/create_analytical_rel.pl >index 2de9c23d457..65ebd2fc553 100755 >--- a/misc/migration_tools/create_analytical_rel.pl >+++ b/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; > >diff --git a/misc/migration_tools/import_lexile.pl b/misc/migration_tools/import_lexile.pl >index 72347870a10..eb8340e4b43 100755 >--- a/misc/migration_tools/import_lexile.pl >+++ b/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; >diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl >index 18da8026ada..2bf6360110f 100755 >--- a/misc/migration_tools/rebuild_zebra.pl >+++ b/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; >diff --git a/misc/migration_tools/switch_marc21_series_info.pl b/misc/migration_tools/switch_marc21_series_info.pl >index 9d43d47cbde..b145eaa35f1 100755 >--- a/misc/migration_tools/switch_marc21_series_info.pl >+++ b/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; > >diff --git a/misc/migration_tools/upgradeitems.pl b/misc/migration_tools/upgradeitems.pl >index cc63cd499fc..da612febff8 100755 >--- a/misc/migration_tools/upgradeitems.pl >+++ b/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; > >diff --git a/misc/mod_zebraqueue.pl b/misc/mod_zebraqueue.pl >index 240aad44fa5..cf128ef3556 100755 >--- a/misc/mod_zebraqueue.pl >+++ b/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; >diff --git a/misc/recreateIssueStatistics.pl b/misc/recreateIssueStatistics.pl >index 8ff314e225d..a710c353c76 100755 >--- a/misc/recreateIssueStatistics.pl >+++ b/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; >diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl >index 8336ced436a..00a54a643fb 100755 >--- a/misc/sip_cli_emulator.pl >+++ b/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' }; > >diff --git a/misc/stage_file.pl b/misc/stage_file.pl >index 16a74d0576f..1970ce8e571 100755 >--- a/misc/stage_file.pl >+++ b/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; >diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm >index 05cc54ea6b6..e594cf93581 100644 >--- a/misc/translator/TmplTokenizer.pm >+++ b/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 ); >diff --git a/offline_circ/download.pl b/offline_circ/download.pl >index 838e63ee08d..c80a2260137 100755 >--- a/offline_circ/download.pl >+++ b/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; >diff --git a/offline_circ/enqueue_koc.pl b/offline_circ/enqueue_koc.pl >index 7ca5699f2ec..721798483a6 100755 >--- a/offline_circ/enqueue_koc.pl >+++ b/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; >diff --git a/offline_circ/list.pl b/offline_circ/list.pl >index f5146444c4a..f25d4e6c96b 100755 >--- a/offline_circ/list.pl >+++ b/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; >diff --git a/offline_circ/process.pl b/offline_circ/process.pl >index 39963e67eeb..09520a1caee 100755 >--- a/offline_circ/process.pl >+++ b/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; > >diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl >index ce2c6c5524d..577e13fa4b5 100755 >--- a/offline_circ/process_koc.pl >+++ b/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; >diff --git a/offline_circ/service.pl b/offline_circ/service.pl >index bbae44bb74e..3ed1c26457b 100755 >--- a/offline_circ/service.pl >+++ b/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; > >diff --git a/opac/clubs/clubs-tab.pl b/opac/clubs/clubs-tab.pl >index 312f9b10f40..a3243d4d52a 100755 >--- a/opac/clubs/clubs-tab.pl >+++ b/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; >diff --git a/opac/clubs/enroll.pl b/opac/clubs/enroll.pl >index f486c7dfd28..a71990196fd 100755 >--- a/opac/clubs/enroll.pl >+++ b/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; >diff --git a/opac/errors/400.pl b/opac/errors/400.pl >index 83954c70529..a3075db7d79 100755 >--- a/opac/errors/400.pl >+++ b/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); > >diff --git a/opac/errors/401.pl b/opac/errors/401.pl >index 4d3b5f81bbc..398f92d36c9 100755 >--- a/opac/errors/401.pl >+++ b/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); > >diff --git a/opac/errors/402.pl b/opac/errors/402.pl >index 50989b42535..379005f9cfa 100755 >--- a/opac/errors/402.pl >+++ b/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); > >diff --git a/opac/errors/403.pl b/opac/errors/403.pl >index 735c1c9d08e..72733d26993 100755 >--- a/opac/errors/403.pl >+++ b/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); > >diff --git a/opac/errors/404.pl b/opac/errors/404.pl >index ca5524d6e24..028531548b8 100755 >--- a/opac/errors/404.pl >+++ b/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); > >diff --git a/opac/errors/500.pl b/opac/errors/500.pl >index 2d6c30d76f6..c2c153b939f 100755 >--- a/opac/errors/500.pl >+++ b/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); > >diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl >index 86cd92f4320..1fada4559dd 100755 >--- a/opac/ilsdi.pl >+++ b/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); >diff --git a/opac/maintenance.pl b/opac/maintenance.pl >index 7ec3ec80932..c7924921c3d 100755 >--- a/opac/maintenance.pl >+++ b/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; >diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl >index 9f3bb869e24..72489242403 100755 >--- a/opac/opac-ISBDdetail.pl >+++ b/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; >diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl >index 0dac97d4b48..0300ebca7ac 100755 >--- a/opac/opac-MARCdetail.pl >+++ b/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; >diff --git a/opac/opac-account-pay-return.pl b/opac/opac-account-pay-return.pl >index 841f84fbde9..bdfbcfcb1a6 100755 >--- a/opac/opac-account-pay-return.pl >+++ b/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; >diff --git a/opac/opac-account-pay.pl b/opac/opac-account-pay.pl >index c12eae0220e..09a0130536d 100755 >--- a/opac/opac-account-pay.pl >+++ b/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; >diff --git a/opac/opac-account.pl b/opac/opac-account.pl >index c675c2fc920..1de5617fd61 100755 >--- a/opac/opac-account.pl >+++ b/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; >diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl >index 3563dfc300d..16f5eebfd42 100755 >--- a/opac/opac-addbybiblionumber.pl >+++ b/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; >diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl >index e9fb79697eb..b111d0a1963 100755 >--- a/opac/opac-alert-subscribe.pl >+++ b/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; >diff --git a/opac/opac-article-request-cancel.pl b/opac/opac-article-request-cancel.pl >index 1372b4e8188..e926a5f5066 100755 >--- a/opac/opac-article-request-cancel.pl >+++ b/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; >diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl >index 030820772a2..47e5034abf1 100755 >--- a/opac/opac-authorities-home.pl >+++ b/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; > >diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl >index 432e2982d49..46fa3c657c6 100755 >--- a/opac/opac-authoritiesdetail.pl >+++ b/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; >diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl >index 2de55f4be64..6997a6bfda3 100755 >--- a/opac/opac-basket.pl >+++ b/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; >diff --git a/opac/opac-blocked.pl b/opac/opac-blocked.pl >index 2876823c46e..6fc1a04aa11 100755 >--- a/opac/opac-blocked.pl >+++ b/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; >diff --git a/opac/opac-browse.pl b/opac/opac-browse.pl >index 84df8c83ed7..2ec62186b66 100755 >--- a/opac/opac-browse.pl >+++ b/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; >diff --git a/opac/opac-browser.pl b/opac/opac-browser.pl >index 3524d039f98..4cf81d14520 100755 >--- a/opac/opac-browser.pl >+++ b/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; > >diff --git a/opac/opac-course-details.pl b/opac/opac-course-details.pl >index 40c9d43bcd0..1cc9ba6ae47 100755 >--- a/opac/opac-course-details.pl >+++ b/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; > >diff --git a/opac/opac-course-reserves.pl b/opac/opac-course-reserves.pl >index 7e8e759134d..e5d474b5ee1 100755 >--- a/opac/opac-course-reserves.pl >+++ b/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; > >diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl >index 1b7f98f64db..43f6481ea37 100755 >--- a/opac/opac-detail.pl >+++ b/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; >diff --git a/opac/opac-discharge.pl b/opac/opac-discharge.pl >index 95a4ac3e9fe..ecaa7dcfb3c 100755 >--- a/opac/opac-discharge.pl >+++ b/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; >diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl >index 0fb7a02f3c2..1641627bb37 100755 >--- a/opac/opac-downloadcart.pl >+++ b/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; >diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl >index 99d14a73dae..9cf72399368 100755 >--- a/opac/opac-downloadshelf.pl >+++ b/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; >diff --git a/opac/opac-export.pl b/opac/opac-export.pl >index 82954d660f5..da71d5080a4 100755 >--- a/opac/opac-export.pl >+++ b/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; >diff --git a/opac/opac-holdshistory.pl b/opac/opac-holdshistory.pl >index 67ecae864ed..e869128a378 100755 >--- a/opac/opac-holdshistory.pl >+++ b/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; >diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl >index c8116b4efc6..b61e0f56309 100755 >--- a/opac/opac-ics.pl >+++ b/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; >diff --git a/opac/opac-idref.pl b/opac/opac-idref.pl >index 8b95311f7ee..47f3867e9ef 100755 >--- a/opac/opac-idref.pl >+++ b/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( >diff --git a/opac/opac-illrequests.pl b/opac/opac-illrequests.pl >index 5881dedcc5c..e619707451e 100755 >--- a/opac/opac-illrequests.pl >+++ b/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; >diff --git a/opac/opac-imageviewer.pl b/opac/opac-imageviewer.pl >index 6daa63d8e0f..e133c93cc59 100755 >--- a/opac/opac-imageviewer.pl >+++ b/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; >diff --git a/opac/opac-issue-note.pl b/opac/opac-issue-note.pl >index 5153b15358c..81fbe42a71d 100755 >--- a/opac/opac-issue-note.pl >+++ b/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; >diff --git a/opac/opac-library.pl b/opac/opac-library.pl >index 52168615f35..951d0b43ab9 100755 >--- a/opac/opac-library.pl >+++ b/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(); >diff --git a/opac/opac-main.pl b/opac/opac-main.pl >index af0377f4834..159f30fc006 100755 >--- a/opac/opac-main.pl >+++ b/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; >diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl >index c9a4790efd3..ccc3b3c2395 100755 >--- a/opac/opac-memberentry.pl >+++ b/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; >diff --git a/opac/opac-messaging.pl b/opac/opac-messaging.pl >index 1748c313613..5ffad5c4233 100755 >--- a/opac/opac-messaging.pl >+++ b/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; >diff --git a/opac/opac-modrequest-suspend.pl b/opac/opac-modrequest-suspend.pl >index ec9b9a8291e..4022bb92df6 100755 >--- a/opac/opac-modrequest-suspend.pl >+++ b/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( > { >diff --git a/opac/opac-modrequest.pl b/opac/opac-modrequest.pl >index 64b064c92bd..05b01a836ae 100755 >--- a/opac/opac-modrequest.pl >+++ b/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; > >diff --git a/opac/opac-mymessages.pl b/opac/opac-mymessages.pl >index 5de888a4f06..864e39142a2 100755 >--- a/opac/opac-mymessages.pl >+++ b/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(); > >diff --git a/opac/opac-news-rss.pl b/opac/opac-news-rss.pl >index f8c2b0e485e..7ba7501ba2c 100755 >--- a/opac/opac-news-rss.pl >+++ b/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); > >diff --git a/opac/opac-overdrive-search.pl b/opac/opac-overdrive-search.pl >index 9b7618942cf..575596d8a05 100755 >--- a/opac/opac-overdrive-search.pl >+++ b/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; > >diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl >index 6b9081a965e..e1677aaba85 100755 >--- a/opac/opac-passwd.pl >+++ b/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; >diff --git a/opac/opac-password-recovery.pl b/opac/opac-password-recovery.pl >index b6c5592e7ef..75bf86a9b1b 100755 >--- a/opac/opac-password-recovery.pl >+++ b/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); >diff --git a/opac/opac-patron-consent.pl b/opac/opac-patron-consent.pl >index 2de16abbe5b..362c4b7aab7 100755 >--- a/opac/opac-patron-consent.pl >+++ b/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; >diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl >index b40788db7ed..3f1efb8a47b 100755 >--- a/opac/opac-patron-image.pl >+++ b/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; >diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl >index fa3083c2af5..8ea6b120668 100755 >--- a/opac/opac-privacy.pl >+++ b/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; >diff --git a/opac/opac-ratings-ajax.pl b/opac/opac-ratings-ajax.pl >index 43293576e52..2f43762c05a 100755 >--- a/opac/opac-ratings-ajax.pl >+++ b/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; > >diff --git a/opac/opac-ratings.pl b/opac/opac-ratings.pl >index 53a9b4d67e1..7e1bca61cb3 100755 >--- a/opac/opac-ratings.pl >+++ b/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; >diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl >index 9c6200f9f03..a62818192d4 100755 >--- a/opac/opac-readingrecord.pl >+++ b/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; >diff --git a/opac/opac-recordedbooks-search.pl b/opac/opac-recordedbooks-search.pl >index c23ef028c00..1d2f4964eee 100755 >--- a/opac/opac-recordedbooks-search.pl >+++ b/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; > >diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl >index 71ea3292518..7574f7fa79d 100755 >--- a/opac/opac-registration-verify.pl >+++ b/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; >diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl >index 8a946d0f179..99d51ec3b0c 100755 >--- a/opac/opac-renew.pl >+++ b/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; >diff --git a/opac/opac-reportproblem.pl b/opac/opac-reportproblem.pl >index 293f2826c08..9b03c135fee 100755 >--- a/opac/opac-reportproblem.pl >+++ b/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; >diff --git a/opac/opac-request-article.pl b/opac/opac-request-article.pl >index 6dc9189ef8f..16019f7407b 100755 >--- a/opac/opac-request-article.pl >+++ b/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; >diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl >index b70cff854ab..81498dfdf13 100755 >--- a/opac/opac-reserve.pl >+++ b/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; >diff --git a/opac/opac-restrictedpage.pl b/opac/opac-restrictedpage.pl >index ca90b41ebc9..b438b7f010f 100755 >--- a/opac/opac-restrictedpage.pl >+++ b/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'}; >diff --git a/opac/opac-retrieve-file.pl b/opac/opac-retrieve-file.pl >index d19f9dd7380..3f6e6c8d3be 100755 >--- a/opac/opac-retrieve-file.pl >+++ b/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; >diff --git a/opac/opac-review.pl b/opac/opac-review.pl >index f00b79f2749..2038b7b858f 100755 >--- a/opac/opac-review.pl >+++ b/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; > >diff --git a/opac/opac-routing-lists.pl b/opac/opac-routing-lists.pl >index 2be52197e04..299bb29e780 100755 >--- a/opac/opac-routing-lists.pl >+++ b/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; >diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl >index 64c696dde77..85be3cec338 100755 >--- a/opac/opac-search-history.pl >+++ b/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; >diff --git a/opac/opac-search.pl b/opac/opac-search.pl >index b03b6d0fbe6..a1bea883f34 100755 >--- a/opac/opac-search.pl >+++ b/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 ); >diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl >index eee5e2c29be..8fdfa96f610 100755 >--- a/opac/opac-sendbasket.pl >+++ b/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; >diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl >index c97aa450dc9..58b68420fac 100755 >--- a/opac/opac-sendshelf.pl >+++ b/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; >diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl >index c842880345d..7a3f7976cad 100755 >--- a/opac/opac-serial-issues.pl >+++ b/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; >diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl >index 7eecf6c45f3..bff02910efc 100755 >--- a/opac/opac-shareshelf.pl >+++ b/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; >diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl >index 483876188e9..665bf9ff455 100755 >--- a/opac/opac-shelves.pl >+++ b/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; >diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl >index 5ba6a234043..5ebfd037185 100755 >--- a/opac/opac-showmarc.pl >+++ b/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 (); >diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl >index cfb359c6b78..cc25c27247b 100755 >--- a/opac/opac-showreviews.pl >+++ b/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; >diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl >index b1f1701ddc5..ada516cf252 100755 >--- a/opac/opac-suggestions.pl >+++ b/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 ); > >diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl >index 200e8dfc474..5c1a1c39bcf 100755 >--- a/opac/opac-tags.pl >+++ b/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; >diff --git a/opac/opac-tags_subject.pl b/opac/opac-tags_subject.pl >index 25afac4b861..2f6e5ea8e7e 100755 >--- a/opac/opac-tags_subject.pl >+++ b/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; > >diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl >index d2d76da8f6d..acd6770ec54 100755 >--- a/opac/opac-topissues.pl >+++ b/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 >diff --git a/opac/opac-user.pl b/opac/opac-user.pl >index 0d9bdd708c6..9a36ecfe46b 100755 >--- a/opac/opac-user.pl >+++ b/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; >diff --git a/opac/sci/sci-main.pl b/opac/sci/sci-main.pl >index 88a3cf8ce1d..aeafc7ff236 100755 >--- a/opac/sci/sci-main.pl >+++ b/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 ); >diff --git a/opac/sco/help.pl b/opac/sco/help.pl >index 25e43562838..57d02ec9835 100755 >--- a/opac/sco/help.pl >+++ b/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')) ) { >diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl >index 3b7074194e6..e130202a8bf 100755 >--- a/opac/sco/printslip.pl >+++ b/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; >diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl >index d4f91638cee..3446a2d0a76 100755 >--- a/opac/sco/sco-main.pl >+++ b/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; >diff --git a/opac/sco/sco-patron-image.pl b/opac/sco/sco-patron-image.pl >index e997ab984bf..36e86b7d137 100755 >--- a/opac/sco/sco-patron-image.pl >+++ b/opac/sco/sco-patron-image.pl >@@ -18,7 +18,7 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/opac/svc/shelfbrowser.pl b/opac/svc/shelfbrowser.pl >index 82e583ca81e..d9797c2e4ee 100755 >--- a/opac/svc/shelfbrowser.pl >+++ b/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; > >diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl >index e357f0a1dfc..f854ca87bb1 100755 >--- a/opac/tracklinks.pl >+++ b/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 ); >diff --git a/patron_lists/add-modify.pl b/patron_lists/add-modify.pl >index c10c2084478..3d5f92bce9c 100755 >--- a/patron_lists/add-modify.pl >+++ b/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; >diff --git a/patron_lists/delete.pl b/patron_lists/delete.pl >index 87c199b4268..948f92aed8c 100755 >--- a/patron_lists/delete.pl >+++ b/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; > >diff --git a/patron_lists/list.pl b/patron_lists/list.pl >index 75f30e29890..3796355dba1 100755 >--- a/patron_lists/list.pl >+++ b/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/; > >diff --git a/patron_lists/lists.pl b/patron_lists/lists.pl >index df84727426b..aa8b878a6fd 100755 >--- a/patron_lists/lists.pl >+++ b/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; >diff --git a/patron_lists/patrons.pl b/patron_lists/patrons.pl >index 98ac9593c28..145c24e3def 100755 >--- a/patron_lists/patrons.pl >+++ b/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; >diff --git a/patroncards/add_user_search.pl b/patroncards/add_user_search.pl >index 8eb2a731e9b..04bc0eb5b39 100755 >--- a/patroncards/add_user_search.pl >+++ b/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; >diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl >index 6ea391fe3e8..3b153ae35c9 100755 >--- a/patroncards/create-pdf.pl >+++ b/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); >diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl >index a3dcd2df2d3..6c0687856da 100755 >--- a/patroncards/edit-batch.pl >+++ b/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; >diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl >index 6ecbde47bb8..e17603e8545 100755 >--- a/patroncards/edit-layout.pl >+++ b/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; > >diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl >index c192702459a..137b060f62b 100755 >--- a/patroncards/edit-profile.pl >+++ b/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; > >diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl >index fab470a13ef..87d76078b23 100755 >--- a/patroncards/edit-template.pl >+++ b/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; > >diff --git a/patroncards/home.pl b/patroncards/home.pl >index 6e69187add5..93df48f3d36 100755 >--- a/patroncards/home.pl >+++ b/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( >diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl >index 587d4ee8a2e..20315db7db9 100755 >--- a/patroncards/image-manage.pl >+++ b/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; > >diff --git a/patroncards/manage.pl b/patroncards/manage.pl >index 456713c34c8..4b1851e1d5f 100755 >--- a/patroncards/manage.pl >+++ b/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; >diff --git a/patroncards/print.pl b/patroncards/print.pl >index ec7024aa573..c5bf6f67b52 100755 >--- a/patroncards/print.pl >+++ b/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; > >diff --git a/plugins/plugins-enable.pl b/plugins/plugins-enable.pl >index 181550781aa..6966be9d23c 100755 >--- a/plugins/plugins-enable.pl >+++ b/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"); >diff --git a/plugins/plugins-home.pl b/plugins/plugins-home.pl >index efdd503eacb..95f517c23f5 100755 >--- a/plugins/plugins-home.pl >+++ b/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"); >diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl >index 7d350fe82d7..8c89e7fd66b 100755 >--- a/plugins/plugins-uninstall.pl >+++ b/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; >diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl >index a681aabfd18..e14a70ef24f 100755 >--- a/plugins/plugins-upload.pl >+++ b/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; >diff --git a/plugins/run.pl b/plugins/run.pl >index a0bd16ae4b9..4570844291a 100755 >--- a/plugins/run.pl >+++ b/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"); >diff --git a/pos/pay.pl b/pos/pay.pl >index c83405321e2..b401f124958 100755 >--- a/pos/pay.pl >+++ b/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; >diff --git a/pos/printreceipt.pl b/pos/printreceipt.pl >index a387b8ea4c6..6e9b97a9f2f 100755 >--- a/pos/printreceipt.pl >+++ b/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; >diff --git a/pos/register.pl b/pos/register.pl >index e398bda396f..a4275caa889 100755 >--- a/pos/register.pl >+++ b/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; >diff --git a/pos/registers.pl b/pos/registers.pl >index 44c81363fb9..7a9c3a16996 100755 >--- a/pos/registers.pl >+++ b/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; >diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl >index 8fe531358e1..498e91550c3 100755 >--- a/reports/acquisitions_stats.pl >+++ b/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; >diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl >index 53d7966b986..f349b2e9a80 100755 >--- a/reports/bor_issues_top.pl >+++ b/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; >diff --git a/reports/borrowers_out.pl b/reports/borrowers_out.pl >index 22f71c99243..442ad280772 100755 >--- a/reports/borrowers_out.pl >+++ b/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; >diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl >index dc8b7b4b71c..5a191e723b8 100755 >--- a/reports/borrowers_stats.pl >+++ b/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; >diff --git a/reports/cash_register_stats.pl b/reports/cash_register_stats.pl >index 3b790ff8ca4..56e3f6bcfeb 100755 >--- a/reports/cash_register_stats.pl >+++ b/reports/cash_register_stats.pl >@@ -16,11 +16,11 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl >index 93210811f65..58b63f12c64 100755 >--- a/reports/cat_issues_top.pl >+++ b/reports/cat_issues_top.pl >@@ -19,13 +19,13 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl >index 3835f134844..d9ed7071132 100755 >--- a/reports/catalogue_out.pl >+++ b/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; > >diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl >index b7b01e23d88..bb32a3d30df 100755 >--- a/reports/catalogue_stats.pl >+++ b/reports/catalogue_stats.pl >@@ -19,14 +19,14 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/reports/dictionary.pl b/reports/dictionary.pl >index 26976c02155..ba8caedb9bc 100755 >--- a/reports/dictionary.pl >+++ b/reports/dictionary.pl >@@ -18,10 +18,10 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > 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 >diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl >index 854098ead1b..a706b86cb3f 100755 >--- a/reports/guided_reports.pl >+++ b/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; >diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl >index d5bbf2da744..d11e191e9c9 100755 >--- a/reports/issues_avg_stats.pl >+++ b/reports/issues_avg_stats.pl >@@ -19,13 +19,13 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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; >diff --git a/reports/issues_stats.pl b/reports/issues_stats.pl >index cb5cda0d0b3..d89a136db5f 100755 >--- a/reports/issues_stats.pl >+++ b/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; >diff --git a/reports/itemslost.pl b/reports/itemslost.pl >index 9c77e6e1724..0b304ebb091 100755 >--- a/reports/itemslost.pl >+++ b/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; > >diff --git a/reports/manager.pl b/reports/manager.pl >index 0d6e1bca88c..5fa6f96c3a5 100755 >--- a/reports/manager.pl >+++ b/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; > > >diff --git a/reports/orders_by_fund.pl b/reports/orders_by_fund.pl >index 92bbb5f1873..e4a60684b3b 100755 >--- a/reports/orders_by_fund.pl >+++ b/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; >diff --git a/reports/reports-home.pl b/reports/reports-home.pl >index bffe6b6a19e..71aaa87e835 100755 >--- a/reports/reports-home.pl >+++ b/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; > > >diff --git a/reports/reserves_stats.pl b/reports/reserves_stats.pl >index 3c91778ca8e..463a88e0961 100755 >--- a/reports/reserves_stats.pl >+++ b/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; >diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl >index 277b7671f4b..fbfc6ea09fd 100755 >--- a/reports/serials_stats.pl >+++ b/reports/serials_stats.pl >@@ -18,13 +18,13 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > 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 > >diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl >index f1ab945f2e9..3a7c3deb6b3 100755 >--- a/reserve/modrequest.pl >+++ b/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; >diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl >index e0098e08dbe..3217dbffb47 100755 >--- a/reserve/modrequest_suspendall.pl >+++ b/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( >diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl >index 63555944a59..f4981c157ca 100755 >--- a/reserve/placerequest.pl >+++ b/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; >diff --git a/reserve/request.pl b/reserve/request.pl >index bf13c3dfb2b..6f294cf09c8 100755 >--- a/reserve/request.pl >+++ b/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; >diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl >index 99a0d3f5876..bedce5884c2 100755 >--- a/reviews/reviewswaiting.pl >+++ b/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; >diff --git a/rotating_collections/addItems.pl b/rotating_collections/addItems.pl >index f77c4ed81f5..86c834777b2 100755 >--- a/rotating_collections/addItems.pl >+++ b/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; >diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl >index 6955291b61c..28a23e58675 100755 >--- a/rotating_collections/editCollections.pl >+++ b/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; >diff --git a/rotating_collections/rotatingCollections.pl b/rotating_collections/rotatingCollections.pl >index 5a22bf43e0d..b350861d1e3 100755 >--- a/rotating_collections/rotatingCollections.pl >+++ b/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; > >diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl >index 4380c1e8ab7..1d5dcf8d581 100755 >--- a/rotating_collections/transferCollection.pl >+++ b/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; > >diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl >index 95a838c2e48..fdb66b0e4ac 100755 >--- a/serials/acqui-search-result.pl >+++ b/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; >diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl >index 2b1041cad59..682b5bbe7d7 100755 >--- a/serials/acqui-search.pl >+++ b/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; > >diff --git a/serials/add_user_search.pl b/serials/add_user_search.pl >index b42b5faf389..1240670dde6 100755 >--- a/serials/add_user_search.pl >+++ b/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; >diff --git a/serials/checkexpiration.pl b/serials/checkexpiration.pl >index 97dbec19460..b13ccbb9038 100755 >--- a/serials/checkexpiration.pl >+++ b/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; > >diff --git a/serials/claims.pl b/serials/claims.pl >index 4a8a6b70b2a..8d590f7087e 100755 >--- a/serials/claims.pl >+++ b/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; >diff --git a/serials/create-numberpattern.pl b/serials/create-numberpattern.pl >index 506a539d39c..110daf5f004 100755 >--- a/serials/create-numberpattern.pl >+++ b/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; >diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl >index 7af3395d1b2..f6e0ab56e77 100755 >--- a/serials/lateissues-export.pl >+++ b/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; >diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl >index 093bfb22302..752c702e105 100755 >--- a/serials/routing-preview.pl >+++ b/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; >diff --git a/serials/routing.pl b/serials/routing.pl >index 6a237f6f6ea..0e888150cea 100755 >--- a/serials/routing.pl >+++ b/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; >diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl >index f725d7f4261..7dd02e55c1f 100755 >--- a/serials/serials-collection.pl >+++ b/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; > >diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl >index ea9bee8fa52..75b78eef5e0 100755 >--- a/serials/serials-edit.pl >+++ b/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; >diff --git a/serials/serials-home.pl b/serials/serials-home.pl >index 6f2c40c0825..a0e4bc0185f 100755 >--- a/serials/serials-home.pl >+++ b/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; >diff --git a/serials/serials-search.pl b/serials/serials-search.pl >index 5b6608a5cd2..857a44d7f92 100755 >--- a/serials/serials-search.pl >+++ b/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; >diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl >index d6bcfc79187..3ea342a0c32 100755 >--- a/serials/showpredictionpattern.pl >+++ b/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; >diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl >index 96891487bc1..4f0dbef797d 100755 >--- a/serials/subscription-add.pl >+++ b/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; >diff --git a/serials/subscription-batchedit.pl b/serials/subscription-batchedit.pl >index b06f68d6c35..e8134f80370 100755 >--- a/serials/subscription-batchedit.pl >+++ b/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; >diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl >index 88788590bc8..d38147d8c13 100755 >--- a/serials/subscription-bib-search.pl >+++ b/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; >diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl >index 118b3a13544..617ea037a26 100755 >--- a/serials/subscription-detail.pl >+++ b/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; >diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl >index 30af9f5ee20..597c2d23eb5 100755 >--- a/serials/subscription-frequencies.pl >+++ b/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( { >diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl >index 2532f8f186b..2915f323b67 100755 >--- a/serials/subscription-frequency.pl >+++ b/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; >diff --git a/serials/subscription-history.pl b/serials/subscription-history.pl >index 75474ed9632..ee31afc7b38 100755 >--- a/serials/subscription-history.pl >+++ b/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; > >diff --git a/serials/subscription-numberpattern.pl b/serials/subscription-numberpattern.pl >index db178607213..47a7273db62 100755 >--- a/serials/subscription-numberpattern.pl >+++ b/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; >diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl >index a84c304ac88..6dba137b07e 100755 >--- a/serials/subscription-numberpatterns.pl >+++ b/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; > >diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl >index a30b24940bb..a3f961d50e9 100755 >--- a/serials/subscription-renew.pl >+++ b/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; >diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl >index 106b8679dae..bb356c6331c 100755 >--- a/serials/viewalerts.pl >+++ b/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; > >diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl >index 79ee88eb04e..f22faca8465 100755 >--- a/services/itemrecorddisplay.pl >+++ b/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( { >diff --git a/suggestion/add_user_search.pl b/suggestion/add_user_search.pl >index f6758aa2cf0..d4b5ff02434 100755 >--- a/suggestion/add_user_search.pl >+++ b/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; >diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl >index 370bac1e0c1..791bc22c38b 100755 >--- a/suggestion/suggestion.pl >+++ b/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; >diff --git a/svc/cataloguing/automatic_linker.pl b/svc/cataloguing/automatic_linker.pl >index a04ccfb8c97..05f3821a27c 100755 >--- a/svc/cataloguing/automatic_linker.pl >+++ b/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; >diff --git a/t/lib/TestBuilder.pm b/t/lib/TestBuilder.pm >index ee375425afc..10ec95a7464 100644 >--- a/t/lib/TestBuilder.pm >+++ b/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 ); >diff --git a/tags/list.pl b/tags/list.pl >index 76d65c8dd15..ab73c31ab25 100755 >--- a/tags/list.pl >+++ b/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. >diff --git a/tags/review.pl b/tags/review.pl >index 866d94c3d97..56c8954d093 100755 >--- a/tags/review.pl >+++ b/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. >diff --git a/tools/access_files.pl b/tools/access_files.pl >index 5ead5814aa0..7961517a45b 100755 >--- a/tools/access_files.pl >+++ b/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); >diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl >index 72175cfb7a5..a8c8c9d06d3 100755 >--- a/tools/ajax-inventory.pl >+++ b/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; >diff --git a/tools/automatic_item_modification_by_age.pl b/tools/automatic_item_modification_by_age.pl >index ae9bcec192b..c8a0d5a3713 100755 >--- a/tools/automatic_item_modification_by_age.pl >+++ b/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; >diff --git a/tools/background-job-progress.pl b/tools/background-job-progress.pl >index 625389f9029..9e45292ebd9 100755 >--- a/tools/background-job-progress.pl >+++ b/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 >diff --git a/tools/batchMod.pl b/tools/batchMod.pl >index 6354d3bea2e..b6f2fa7dfbf 100755 >--- a/tools/batchMod.pl >+++ b/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/; >diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl >index ea87d8b6c85..268a08f46b2 100755 >--- a/tools/batch_delete_records.pl >+++ b/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; >diff --git a/tools/batch_record_modification.pl b/tools/batch_record_modification.pl >index d118120768d..d101be38dba 100755 >--- a/tools/batch_record_modification.pl >+++ b/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 ); > >diff --git a/tools/batch_records_ajax.pl b/tools/batch_records_ajax.pl >index 4ddb0f53691..9f47835c536 100755 >--- a/tools/batch_records_ajax.pl >+++ b/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; > >diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl >index 1afc3f95406..f52ef54c753 100755 >--- a/tools/cleanborrowers.pl >+++ b/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; >diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl >index e11353a09da..381f9e70a54 100755 >--- a/tools/copy-holidays.pl >+++ b/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; > > >diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl >index cf4012fc478..469ed9607ae 100755 >--- a/tools/csv-profiles.pl >+++ b/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; >diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl >index 68940744594..6bd650c5a9e 100755 >--- a/tools/exceptionHolidays.pl >+++ b/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; > >diff --git a/tools/export.pl b/tools/export.pl >index 588f1b9c937..af361915297 100755 >--- a/tools/export.pl >+++ b/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; >diff --git a/tools/holidays.pl b/tools/holidays.pl >index 3b7e93d7cd9..17a4ed49a87 100755 >--- a/tools/holidays.pl >+++ b/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; >diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl >index efb205ee229..f54ca478793 100755 >--- a/tools/import_borrowers.pl >+++ b/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; >diff --git a/tools/inventory.pl b/tools/inventory.pl >index 2ad5452015a..12e0bf4bbd7 100755 >--- a/tools/inventory.pl >+++ b/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; >diff --git a/tools/koha-news.pl b/tools/koha-news.pl >index 388eed03ca1..f75413587b4 100755 >--- a/tools/koha-news.pl >+++ b/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; > >diff --git a/tools/letter.pl b/tools/letter.pl >index 3ed44c3848f..893150ba0c7 100755 >--- a/tools/letter.pl >+++ b/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; >diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl >index 8fcea16c03a..2cd550020d4 100755 >--- a/tools/manage-marc-import.pl >+++ b/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; >diff --git a/tools/marc_modification_templates.pl b/tools/marc_modification_templates.pl >index ffe5784a955..f9e2fa13290 100755 >--- a/tools/marc_modification_templates.pl >+++ b/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; >diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl >index ee896848d1b..c11c5663e5c 100755 >--- a/tools/modborrowers.pl >+++ b/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; >diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl >index c402dfdf7f2..d82c9acda94 100755 >--- a/tools/newHolidays.pl >+++ b/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; >diff --git a/tools/overduerules.pl b/tools/overduerules.pl >index b7860d87262..d95f0b75c69 100755 >--- a/tools/overduerules.pl >+++ b/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; >diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl >index 868149e4a72..203418f9731 100755 >--- a/tools/picture-upload.pl >+++ b/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; >diff --git a/tools/problem-reports.pl b/tools/problem-reports.pl >index 0b07511cf3f..31a3671b688 100755 >--- a/tools/problem-reports.pl >+++ b/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; >diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl >index 28ef9cef80a..f5905ad46f1 100755 >--- a/tools/quotes-upload.pl >+++ b/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; > >diff --git a/tools/quotes.pl b/tools/quotes.pl >index f87991a88b5..c236ef630d2 100755 >--- a/tools/quotes.pl >+++ b/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; >diff --git a/tools/scheduler.pl b/tools/scheduler.pl >index 4e1d5d3febc..75b52fa9543 100755 >--- a/tools/scheduler.pl >+++ b/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); >diff --git a/tools/showdiffmarc.pl b/tools/showdiffmarc.pl >index 57da80e719e..c8794335782 100755 >--- a/tools/showdiffmarc.pl >+++ b/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; > >diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl >index e9afdc1461c..eb4642351b3 100755 >--- a/tools/stage-marc-import.pl >+++ b/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; >diff --git a/tools/stockrotation.pl b/tools/stockrotation.pl >index 18891fa3db6..b1d25484561 100755 >--- a/tools/stockrotation.pl >+++ b/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; > >diff --git a/tools/tools-home.pl b/tools/tools-home.pl >index 4a4ed2ceef3..842ae688740 100755 >--- a/tools/tools-home.pl >+++ b/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; >diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl >index 74fd67a3e75..59abf274ac9 100755 >--- a/tools/upload-cover-image.pl >+++ b/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; >diff --git a/tools/upload-file.pl b/tools/upload-file.pl >index 86ef2c5dc2d..bef77ab260a 100755 >--- a/tools/upload-file.pl >+++ b/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 >diff --git a/tools/upload.pl b/tools/upload.pl >index cf9a2c60536..1bbe2f97519 100755 >--- a/tools/upload.pl >+++ b/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'; >diff --git a/tools/viewlog.pl b/tools/viewlog.pl >index e0b19e91b9c..5cf23158fea 100755 >--- a/tools/viewlog.pl >+++ b/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; >diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl >index 68e7da5035a..3c55e3c50e7 100755 >--- a/virtualshelves/addbybiblionumber.pl >+++ b/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; >diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl >index c6cb31f4968..b0091193abc 100755 >--- a/virtualshelves/downloadshelf.pl >+++ b/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; > >diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl >index f15e2c9f64d..a9518670516 100755 >--- a/virtualshelves/sendshelf.pl >+++ b/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; > >diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl >index d233eb1355b..ac29aa1ae89 100755 >--- a/virtualshelves/shelves.pl >+++ b/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; >-- >2.20.1
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 17600
:
57394
|
57950
|
57951
|
57952
|
57953
|
57954
|
61994
|
61995
|
61996
|
61997
|
61998
|
62209
|
62210
|
62211
|
62212
|
62213
|
62940
|
62941
|
62942
|
62943
|
62958
|
62959
|
64387
|
64388
|
64389
|
64390
|
64391
|
64392
|
64466
|
64467
|
64468
|
64469
|
64470
|
64471
|
64472
|
64473
|
64474
|
64475
|
64476
|
121309
|
121310
|
121311
|
121312
|
121313
|
121314
|
122360
|
122361
|
122362
|
122363
|
122364
|
122365
|
122869
|
122884
|
122945
|
123194
|
123195
|
123196
|
123200
|
123210
|
123281
|
123283
|
123284
|
123325
|
123417
|
123418
|
123419
|
123420
|
123565
|
124866
|
125059
|
125063
|
125064
|
125066
|
126640
|
127056
|
127918