Bugzilla – Attachment 64474 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: Explicitly export the subroutines used - scripts
Bug-17600-Explicitly-export-the-subroutines-used--.patch (text/plain), 352.12 KB, created by
Jonathan Druart
on 2017-06-20 19:32:35 UTC
(
hide
)
Description:
Bug 17600: Explicitly export the subroutines used - scripts
Filename:
MIME Type:
Creator:
Jonathan Druart
Created:
2017-06-20 19:32:35 UTC
Size:
352.12 KB
patch
obsolete
>From fc64833f3e3aa74d8455a88913c8efbf58c91042 Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Tue, 20 Jun 2017 15:12:33 -0300 >Subject: [PATCH] Bug 17600: Explicitly export the subroutines used - scripts > >--- > C4/SIP/interactive_patron_check_password.pl | 2 +- > about.pl | 6 ++-- > acqui/acqui-home.pl | 8 ++--- > acqui/add_user_search.pl | 4 +-- > acqui/addorder.pl | 12 +++---- > acqui/addorderiso2709.pl | 20 +++++------ > acqui/ajax-getauthvaluedropbox.pl | 4 +-- > acqui/basket.pl | 20 +++++------ > acqui/basketgroup.pl | 10 +++--- > acqui/basketheader.pl | 8 ++--- > acqui/booksellers.pl | 10 +++--- > acqui/cancelorder.pl | 6 ++-- > acqui/check_budget_total.pl | 6 ++-- > acqui/check_duplicate_barcode_ajax.pl | 4 +-- > acqui/check_uniqueness.pl | 4 +-- > acqui/edi_ean.pl | 4 +-- > acqui/edifactmsgs.pl | 4 +-- > acqui/edimsg.pl | 4 +-- > acqui/finishreceive.pl | 8 ++--- > acqui/histsearch.pl | 8 ++--- > acqui/invoice-files.pl | 6 ++-- > acqui/invoice.pl | 10 +++--- > acqui/invoices.pl | 10 +++--- > acqui/lateorders-export.pl | 4 +-- > acqui/lateorders.pl | 10 +++--- > acqui/modordernotes.pl | 6 ++-- > acqui/neworderbiblio.pl | 14 ++++---- > acqui/neworderempty.pl | 18 +++++----- > acqui/newordersubscription.pl | 8 ++--- > acqui/newordersuggestion.pl | 4 +-- > acqui/ordered.pl | 4 +-- > acqui/orderreceive.pl | 16 ++++----- > acqui/parcel.pl | 14 ++++---- > acqui/parcels.pl | 8 ++--- > acqui/spent.pl | 4 +-- > acqui/supplier.pl | 6 ++-- > acqui/transferorder.pl | 8 ++--- > acqui/uncertainprice.pl | 6 ++-- > acqui/updatesupplier.pl | 2 +- > acqui/z3950_search.pl | 6 ++-- > admin/add_user_search.pl | 4 +-- > admin/admin-home.pl | 4 +-- > admin/aqbudgetperiods.pl | 10 +++--- > admin/aqbudgets.pl | 10 +++--- > admin/aqcontract.pl | 8 ++--- > admin/aqplan.pl | 6 ++-- > 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/biblio_framework.pl | 4 +-- > admin/branch_transfer_limits.pl | 6 ++-- > admin/branches.pl | 4 +-- > admin/categories.pl | 6 ++-- > admin/check_budget_parent.pl | 6 ++-- > admin/check_parent_total.pl | 6 ++-- > admin/checkmarc.pl | 4 +-- > admin/cities.pl | 4 +-- > admin/classsources.pl | 8 ++--- > admin/clone-rules.pl | 4 +-- > admin/columns_settings.pl | 4 +-- > admin/currency.pl | 4 +-- > admin/didyoumean.pl | 4 +-- > admin/edi_accounts.pl | 4 +-- > admin/edi_ean_accounts.pl | 4 +-- > admin/fieldmapping.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/localization.pl | 4 +-- > admin/marc_subfields_structure.pl | 4 +-- > admin/marctagstructure.pl | 4 +-- > admin/matching-rules.pl | 4 +-- > admin/oai_set_mappings.pl | 6 ++-- > admin/oai_sets.pl | 6 ++-- > admin/patron-attr-types.pl | 6 ++-- > admin/preferences.pl | 10 +++--- > admin/printers.pl | 4 +-- > admin/smart-rules.pl | 6 ++-- > admin/sms_providers.pl | 4 +-- > admin/sru_modmapping.pl | 4 +-- > admin/systempreferences.pl | 10 +++--- > admin/transport-cost-matrix.pl | 6 ++-- > admin/usage_statistics.pl | 6 ++-- > admin/z3950servers.pl | 4 +-- > authorities/auth_finder.pl | 6 ++-- > authorities/authorities-home.pl | 8 ++--- > authorities/authorities-list.pl | 2 +- > authorities/authorities.pl | 10 +++--- > authorities/blinddetail-biblio-search.pl | 6 ++-- > authorities/detail-biblio-search.pl | 6 ++-- > authorities/detail.pl | 8 ++--- > authorities/export.pl | 6 ++-- > authorities/merge.pl | 8 ++--- > authorities/merge_ajax.pl | 4 +-- > authorities/ysearch.pl | 8 ++--- > basket/basket.pl | 8 ++--- > basket/downloadcart.pl | 10 +++--- > basket/sendbasket.pl | 8 ++--- > catalogue/ISBDdetail.pl | 14 ++++---- > catalogue/MARCdetail.pl | 16 ++++----- > catalogue/detail.pl | 38 ++++++++++---------- > catalogue/export.pl | 8 ++--- > catalogue/getitem-ajax.pl | 10 +++--- > catalogue/image.pl | 2 +- > catalogue/imageviewer.pl | 14 ++++---- > catalogue/issuehistory.pl | 10 +++--- > catalogue/itemsearch.pl | 10 +++--- > catalogue/labeledMARCdetail.pl | 12 +++---- > catalogue/moredetail.pl | 18 +++++----- > catalogue/search-history.pl | 4 +-- > catalogue/search.pl | 14 ++++---- > catalogue/showmarc.pl | 10 +++--- > catalogue/updateitem.pl | 6 ++-- > cataloguing/addbiblio.pl | 18 +++++----- > cataloguing/addbooks.pl | 10 +++--- > cataloguing/additem.pl | 20 +++++------ > cataloguing/editor.pl | 4 +-- > cataloguing/linkitem.pl | 8 ++--- > cataloguing/merge.pl | 14 ++++---- > cataloguing/merge_ajax.pl | 4 +-- > cataloguing/moveitem.pl | 8 ++--- > 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/dateaccessioned.pl | 4 +-- > 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 +-- > .../value_builder/marc21_field_008_authorities.pl | 4 +-- > .../marc21_field_008_classifications.pl | 4 +-- > cataloguing/value_builder/marc21_leader.pl | 4 +-- > .../value_builder/marc21_leader_authorities.pl | 6 ++-- > .../value_builder/marc21_linking_section.pl | 10 +++--- > cataloguing/value_builder/normarc_field_007.pl | 4 +-- > cataloguing/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 +-- > cataloguing/value_builder/unimarc_field_010.pl | 4 +-- > cataloguing/value_builder/unimarc_field_100.pl | 4 +-- > .../value_builder/unimarc_field_100_authorities.pl | 4 +-- > cataloguing/value_builder/unimarc_field_105.pl | 4 +-- > cataloguing/value_builder/unimarc_field_106.pl | 4 +-- > cataloguing/value_builder/unimarc_field_110.pl | 4 +-- > cataloguing/value_builder/unimarc_field_115a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_115b.pl | 4 +-- > cataloguing/value_builder/unimarc_field_116.pl | 4 +-- > cataloguing/value_builder/unimarc_field_117.pl | 4 +-- > cataloguing/value_builder/unimarc_field_120.pl | 4 +-- > cataloguing/value_builder/unimarc_field_121a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_121b.pl | 4 +-- > cataloguing/value_builder/unimarc_field_122.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123d.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123e.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123f.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123g.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123i.pl | 4 +-- > cataloguing/value_builder/unimarc_field_123j.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124b.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124c.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124d.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124e.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124f.pl | 4 +-- > cataloguing/value_builder/unimarc_field_124g.pl | 4 +-- > cataloguing/value_builder/unimarc_field_125.pl | 4 +-- > cataloguing/value_builder/unimarc_field_125a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_125b.pl | 4 +-- > cataloguing/value_builder/unimarc_field_126.pl | 4 +-- > cataloguing/value_builder/unimarc_field_126a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_126b.pl | 4 +-- > cataloguing/value_builder/unimarc_field_127.pl | 4 +-- > cataloguing/value_builder/unimarc_field_128a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_128b.pl | 4 +-- > cataloguing/value_builder/unimarc_field_128c.pl | 4 +-- > cataloguing/value_builder/unimarc_field_130.pl | 4 +-- > cataloguing/value_builder/unimarc_field_135a.pl | 4 +-- > cataloguing/value_builder/unimarc_field_140.pl | 4 +-- > cataloguing/value_builder/unimarc_field_141.pl | 4 +-- > cataloguing/value_builder/unimarc_field_210c.pl | 8 ++--- > .../value_builder/unimarc_field_210c_bis.pl | 6 ++-- > cataloguing/value_builder/unimarc_field_225a.pl | 6 ++-- > .../value_builder/unimarc_field_225a_bis.pl | 4 +-- > cataloguing/value_builder/unimarc_field_4XX.pl | 10 +++--- > cataloguing/value_builder/unimarc_field_686a.pl | 4 +-- > cataloguing/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 | 4 +-- > circ/article-requests.pl | 4 +-- > circ/bookcount.pl | 6 ++-- > circ/branchoverdues.pl | 12 +++---- > circ/branchtransfers.pl | 14 ++++---- > circ/circulation-home.pl | 4 +-- > circ/circulation.pl | 20 +++++------ > 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 | 6 ++-- > circ/pendingreserves.pl | 6 ++-- > circ/renew.pl | 8 ++--- > circ/request-article.pl | 4 +-- > circ/reserveratios.pl | 10 +++--- > circ/returns.pl | 22 ++++++------ > circ/selectbranchprinter.pl | 6 ++-- > circ/transfer-slip.pl | 6 ++-- > circ/transferstoreceive.pl | 14 ++++---- > circ/view_holdsqueue.pl | 6 ++-- > circ/waitingreserves.pl | 16 ++++----- > circ/ypattrodue-attr-search-authvalue.pl | 4 +-- > circ/ysearch.pl | 4 +-- > clubs/club-enrollments.pl | 4 +-- > clubs/clubs-add-modify.pl | 6 ++-- > clubs/clubs.pl | 4 +-- > clubs/patron-clubs-tab.pl | 4 +-- > clubs/patron-enroll.pl | 4 +-- > clubs/templates-add-modify.pl | 6 ++-- > course_reserves/add_items.pl | 8 ++--- > course_reserves/course-details.pl | 6 ++-- > course_reserves/course-reserves.pl | 6 ++-- > course_reserves/course.pl | 8 ++--- > course_reserves/mod_course.pl | 4 +-- > edithelp.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 +- > installer/install.pl | 6 ++-- > installer/onboarding.pl | 8 ++--- > labels/label-create-pdf.pl | 2 +- > labels/label-edit-batch.pl | 6 ++-- > labels/label-edit-layout.pl | 4 +-- > labels/label-edit-profile.pl | 4 +-- > labels/label-edit-template.pl | 4 +-- > labels/label-home.pl | 4 +-- > labels/label-item-search.pl | 12 +++---- > labels/label-manage.pl | 4 +-- > labels/label-print.pl | 6 ++-- > labels/spinelabel-home.pl | 4 +-- > labels/spinelabel-print.pl | 4 +-- > mainpage.pl | 8 ++--- > members/boraccount.pl | 10 +++--- > members/deletemem.pl | 6 ++-- > members/discharge.pl | 8 ++--- > members/discharges.pl | 4 +-- > members/files.pl | 8 ++--- > members/guarantor_search.pl | 4 +-- > members/housebound.pl | 8 ++--- > members/mancredit.pl | 12 +++---- > members/maninvoice.pl | 12 +++---- > members/member-flags.pl | 10 +++--- > members/member-password.pl | 10 +++--- > members/member.pl | 6 ++-- > members/memberentry.pl | 18 +++++----- > members/members-home.pl | 6 ++-- > members/members-update-do.pl | 2 +- > members/members-update.pl | 4 +-- > members/mod_debarment.pl | 6 ++-- > members/moremember.pl | 18 +++++----- > members/nl-search.pl | 8 ++--- > members/notices.pl | 10 +++--- > members/pay.pl | 10 +++--- > members/paycollect.pl | 8 ++--- > members/print_overdues.pl | 8 ++--- > members/printfeercpt.pl | 8 ++--- > members/printinvoice.pl | 8 ++--- > members/printslip.pl | 6 ++-- > members/purchase-suggestions.pl | 8 ++--- > members/readingrec.pl | 10 +++--- > members/routing-lists.pl | 10 +++--- > members/setstatus.pl | 2 +- > members/statistics.pl | 10 +++--- > members/summary-print.pl | 6 ++-- > members/update-child.pl | 6 ++-- > misc/batchDeleteUnusedSubfields.pl | 2 +- > misc/batchImportMARCWithBiblionumbers.pl | 2 +- > misc/batchRebuildBiblioTables.pl | 2 +- > misc/batchRebuildItemsTables.pl | 4 +-- > misc/batchRepairMissingBiblionumbers.pl | 2 +- > misc/batchdeletebiblios.pl | 2 +- > misc/commit_file.pl | 2 +- > misc/cronjobs/advance_notices.pl | 12 +++---- > .../cronjobs/automatic_item_modification_by_age.pl | 2 +- > misc/cronjobs/automatic_renewals.pl | 6 ++-- > misc/cronjobs/batch_anonymise.pl | 2 +- > misc/cronjobs/build_browser_and_cloud.pl | 4 +-- > misc/cronjobs/cart_to_shelf.pl | 4 +-- > misc/cronjobs/check-url-quick.pl | 2 +- > misc/cronjobs/check-url.pl | 2 +- > misc/cronjobs/cleanup_database.pl | 4 +-- > misc/cronjobs/cloud-kw.pl | 2 +- > misc/cronjobs/delete_items.pl | 2 +- > misc/cronjobs/delete_patrons.pl | 6 ++-- > misc/cronjobs/delete_records_via_leader.pl | 4 +-- > misc/cronjobs/edi_cron.pl | 2 +- > misc/cronjobs/fines.pl | 6 ++-- > misc/cronjobs/gather_print_notices.pl | 6 ++-- > misc/cronjobs/import_webservice_batch.pl | 2 +- > misc/cronjobs/j2a.pl | 2 +- > misc/cronjobs/longoverdue.pl | 6 ++-- > misc/cronjobs/membership_expiry.pl | 4 +-- > misc/cronjobs/merge_authorities.pl | 2 +- > misc/cronjobs/nl-sync-to-koha.pl | 4 +-- > misc/cronjobs/notice_unprocessed_suggestions.pl | 2 +- > misc/cronjobs/overdue_notices.pl | 10 +++--- > misc/cronjobs/process_message_queue.pl | 4 +-- > misc/cronjobs/purge_suggestions.pl | 2 +- > misc/cronjobs/runreport.pl | 6 ++-- > misc/cronjobs/serialsUpdate.pl | 6 ++-- > misc/cronjobs/share_usage_with_koha_community.pl | 2 +- > misc/cronjobs/staticfines.pl | 6 ++-- > misc/cronjobs/update_totalissues.pl | 4 +-- > misc/devel/create_superlibrarian.pl | 2 +- > misc/export_borrowers.pl | 2 +- > misc/link_bibs_to_authorities.pl | 2 +- > misc/load_testing/benchmark_staff.pl | 2 +- > .../UNIMARC_sync_date_created_with_marc_biblio.pl | 2 +- > misc/maintenance/fix_accountlines_date.pl | 2 +- > misc/maintenance/process_record_through_filter.pl | 2 +- > misc/maintenance/remove_items_from_biblioitems.pl | 2 +- > misc/maintenance/sanitize_records.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 | 6 ++-- > misc/migration_tools/bulkmarcimport.pl | 6 ++-- > misc/migration_tools/create_analytical_rel.pl | 4 +-- > misc/migration_tools/fix_onloan.pl | 2 +- > misc/migration_tools/import_lexile.pl | 2 +- > misc/migration_tools/rebuild_zebra.pl | 6 ++-- > misc/migration_tools/remove_unused_authorities.pl | 2 +- > misc/migration_tools/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 +- > offline_circ/download.pl | 2 +- > offline_circ/enqueue_koc.pl | 10 +++--- > offline_circ/list.pl | 10 +++--- > offline_circ/process.pl | 4 +-- > offline_circ/process_koc.pl | 12 +++---- > offline_circ/service.pl | 6 ++-- > 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 | 16 ++++----- > opac/opac-MARCdetail.pl | 14 ++++---- > opac/opac-account-pay-paypal-return.pl | 4 +-- > opac/opac-account-pay.pl | 4 +-- > opac/opac-account.pl | 6 ++-- > opac/opac-addbybiblionumber.pl | 6 ++-- > opac/opac-alert-subscribe.pl | 8 ++--- > opac/opac-article-request-cancel.pl | 2 +- > opac/opac-authorities-home.pl | 8 ++--- > opac/opac-authoritiesdetail.pl | 8 ++--- > opac/opac-basket.pl | 10 +++--- > opac/opac-blocked.pl | 4 +-- > opac/opac-browser.pl | 4 +-- > opac/opac-course-details.pl | 6 ++-- > opac/opac-course-reserves.pl | 6 ++-- > opac/opac-detail.pl | 40 +++++++++++----------- > opac/opac-discharge.pl | 6 ++-- > opac/opac-downloadcart.pl | 10 +++--- > opac/opac-downloadshelf.pl | 10 +++--- > opac/opac-export.pl | 6 ++-- > opac/opac-ics.pl | 6 ++-- > opac/opac-idref.pl | 4 +-- > opac/opac-image.pl | 2 +- > opac/opac-imageviewer.pl | 8 ++--- > opac/opac-issue-note.pl | 12 +++---- > opac/opac-main.pl | 6 ++-- > opac/opac-memberentry.pl | 10 +++--- > opac/opac-messaging.pl | 8 ++--- > opac/opac-modrequest-suspend.pl | 4 +-- > opac/opac-modrequest.pl | 4 +-- > opac/opac-mymessages.pl | 6 ++-- > opac/opac-news-rss.pl | 6 ++-- > opac/opac-overdrive-search.pl | 4 +-- > opac/opac-passwd.pl | 8 ++--- > opac/opac-password-recovery.pl | 6 ++-- > opac/opac-patron-image.pl | 2 +- > opac/opac-privacy.pl | 6 ++-- > opac/opac-ratings-ajax.pl | 4 +-- > opac/opac-ratings.pl | 2 +- > opac/opac-readingrecord.pl | 12 +++---- > opac/opac-registration-verify.pl | 6 ++-- > opac/opac-renew.pl | 8 ++--- > opac/opac-request-article.pl | 4 +-- > opac/opac-reserve.pl | 20 +++++------ > opac/opac-restrictedpage.pl | 4 +-- > opac/opac-retrieve-file.pl | 4 +-- > opac/opac-review.pl | 8 ++--- > opac/opac-search-history.pl | 4 +-- > opac/opac-search.pl | 18 +++++----- > opac/opac-sendbasket.pl | 10 +++--- > opac/opac-sendshelf.pl | 10 +++--- > opac/opac-serial-issues.pl | 8 ++--- > opac/opac-shareshelf.pl | 8 ++--- > opac/opac-shelves.pl | 16 ++++----- > opac/opac-showmarc.pl | 10 +++--- > opac/opac-showreviews.pl | 12 +++---- > opac/opac-suggestions.pl | 10 +++--- > opac/opac-tags.pl | 10 +++--- > opac/opac-tags_subject.pl | 4 +-- > opac/opac-topissues.pl | 6 ++-- > opac/opac-user.pl | 22 ++++++------ > opac/sco/help.pl | 4 +-- > opac/sco/printslip.pl | 6 ++-- > opac/sco/sco-main.pl | 10 +++--- > opac/svc/shelfbrowser.pl | 6 ++-- > opac/tracklinks.pl | 2 +- > patron_lists/add-modify.pl | 6 ++-- > patron_lists/delete.pl | 4 +-- > patron_lists/list.pl | 6 ++-- > patron_lists/lists.pl | 6 ++-- > patron_lists/patrons.pl | 6 ++-- > patroncards/add_user_search.pl | 4 +-- > patroncards/create-pdf.pl | 4 +-- > patroncards/edit-batch.pl | 6 ++-- > patroncards/edit-layout.pl | 4 +-- > patroncards/edit-profile.pl | 6 ++-- > patroncards/edit-template.pl | 4 +-- > patroncards/home.pl | 4 +-- > patroncards/image-manage.pl | 4 +-- > patroncards/manage.pl | 6 ++-- > patroncards/print.pl | 4 +-- > plugins/plugins-home.pl | 4 +-- > plugins/plugins-uninstall.pl | 2 +- > plugins/plugins-upload.pl | 4 +-- > plugins/run.pl | 4 +-- > reports/acquisitions_stats.pl | 12 +++---- > reports/bor_issues_top.pl | 8 ++--- > reports/borrowers_out.pl | 8 ++--- > reports/borrowers_stats.pl | 10 +++--- > reports/cash_register_stats.pl | 8 ++--- > reports/cat_issues_top.pl | 10 +++--- > reports/catalogue_out.pl | 4 +-- > reports/catalogue_stats.pl | 12 +++---- > reports/dictionary.pl | 8 ++--- > reports/guided_reports.pl | 10 +++--- > reports/issues_avg_stats.pl | 8 ++--- > reports/issues_stats.pl | 10 +++--- > reports/itemslost.pl | 4 +-- > reports/manager.pl | 4 +-- > reports/orders_by_fund.pl | 12 +++---- > reports/reports-home.pl | 4 +-- > reports/reserves_stats.pl | 10 +++--- > reports/serials_stats.pl | 8 ++--- > reports/stats.print.pl | 2 +- > reserve/modrequest.pl | 4 +-- > reserve/modrequest_suspendall.pl | 4 +-- > reserve/placerequest.pl | 8 ++--- > reserve/request.pl | 22 ++++++------ > reviews/reviewswaiting.pl | 8 ++--- > rotating_collections/addItems.pl | 8 ++--- > rotating_collections/editCollections.pl | 6 ++-- > rotating_collections/rotatingCollections.pl | 6 ++-- > rotating_collections/transferCollection.pl | 6 ++-- > serials/acqui-search-result.pl | 6 ++-- > serials/acqui-search.pl | 4 +-- > serials/add_fields.pl | 4 +-- > serials/add_user_search.pl | 4 +-- > serials/checkexpiration.pl | 8 ++--- > serials/claims.pl | 8 ++--- > serials/create-numberpattern.pl | 4 +-- > serials/lateissues-export.pl | 2 +- > serials/routing-preview.pl | 14 ++++---- > serials/routing.pl | 10 +++--- > serials/serial-issues.pl | 6 ++-- > serials/serials-collection.pl | 6 ++-- > serials/serials-edit.pl | 14 ++++---- > serials/serials-home.pl | 4 +-- > serials/serials-search.pl | 8 ++--- > serials/showpredictionpattern.pl | 10 +++--- > serials/subscription-add.pl | 18 +++++----- > serials/subscription-bib-search.pl | 10 +++--- > serials/subscription-detail.pl | 16 ++++----- > serials/subscription-frequencies.pl | 8 ++--- > serials/subscription-frequency.pl | 4 +-- > serials/subscription-history.pl | 10 +++--- > serials/subscription-numberpattern.pl | 4 +-- > serials/subscription-numberpatterns.pl | 8 ++--- > serials/subscription-renew.pl | 10 +++--- > serials/viewalerts.pl | 8 ++--- > services/itemrecorddisplay.pl | 6 ++-- > sms/sms.pl | 4 +-- > sms/sms_listen.pl | 2 +- > suggestion/suggestion.pl | 12 +++---- > tags/list.pl | 10 +++--- > tags/review.pl | 8 ++--- > test/search.pl | 2 +- > tools/ajax-inventory.pl | 2 +- > tools/automatic_item_modification_by_age.pl | 4 +-- > tools/background-job-progress.pl | 2 +- > tools/batchMod.pl | 16 ++++----- > tools/batch_delete_records.pl | 8 ++--- > tools/batch_record_modification.pl | 6 ++-- > tools/batch_records_ajax.pl | 4 +-- > tools/cleanborrowers.pl | 8 ++--- > tools/csv-profiles.pl | 4 +-- > tools/exceptionHolidays.pl | 2 +- > tools/export.pl | 6 ++-- > tools/holidays.pl | 6 ++-- > tools/import_borrowers.pl | 16 ++++----- > tools/inventory.pl | 18 +++++----- > tools/koha-news.pl | 10 +++--- > tools/letter.pl | 8 ++--- > tools/manage-marc-import.pl | 8 ++--- > tools/marc_modification_templates.pl | 6 ++-- > tools/modborrowers.pl | 14 ++++---- > tools/newHolidays.pl | 2 +- > tools/overduerules.pl | 8 ++--- > tools/picture-upload.pl | 4 +-- > tools/quotes-upload.pl | 4 +-- > tools/quotes.pl | 4 +-- > tools/quotes/quotes-upload_ajax.pl | 2 +- > tools/quotes/quotes_ajax.pl | 2 +- > tools/scheduler.pl | 10 +++--- > tools/showdiffmarc.pl | 8 ++--- > tools/stage-marc-import.pl | 8 ++--- > tools/tools-home.pl | 6 ++-- > tools/upload-cover-image.pl | 8 ++--- > tools/upload-file.pl | 2 +- > tools/upload.pl | 4 +-- > tools/viewlog.pl | 10 +++--- > virtualshelves/addbybiblionumber.pl | 6 ++-- > virtualshelves/downloadshelf.pl | 10 +++--- > virtualshelves/sendshelf.pl | 8 ++--- > virtualshelves/shelves.pl | 14 ++++---- > 556 files changed, 1775 insertions(+), 1775 deletions(-) > >diff --git a/C4/SIP/interactive_patron_check_password.pl b/C4/SIP/interactive_patron_check_password.pl >index 88e5426a7a..8b20b79b40 100755 >--- a/C4/SIP/interactive_patron_check_password.pl >+++ b/C4/SIP/interactive_patron_check_password.pl >@@ -5,7 +5,7 @@ use warnings; > use strict; > > use C4::SIP::ILS::Patron; >-use C4::SIP::Sip qw(sipbool); >+use C4::SIP::Sip qw( sipbool ); > use Data::Dumper; > > while (1) { >diff --git a/about.pl b/about.pl >index ef91b249bf..3b4eb17732 100755 >--- a/about.pl >+++ b/about.pl >@@ -28,8 +28,8 @@ use LWP::Simple; > use XML::Simple; > use Config; > >-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; > >@@ -38,7 +38,7 @@ use Koha::Acquisition::Currencies; > use Koha::Patrons; > use Koha::Caches; > use Koha::Config::SysPrefs; >-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 fe53174e3f..06a6dd83cf 100755 >--- a/acqui/acqui-home.pl >+++ b/acqui/acqui-home.pl >@@ -30,11 +30,11 @@ use strict; > use warnings; > > 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; >+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget GetBudgetOrdered GetBudgetSpent ); >+use C4::Members qw( GetMember ); > use C4::Debug; > use C4::Suggestions; > use Koha::Acquisition::Currencies; >diff --git a/acqui/add_user_search.pl b/acqui/add_user_search.pl >index d2481c6237..9bb2904653 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 81064ff599..7d2f215106 100755 >--- a/acqui/addorder.pl >+++ b/acqui/addorder.pl >@@ -122,13 +122,13 @@ if it is an order from an existing suggestion : the id of this suggestion. > use strict; > use warnings; > use CGI qw ( -utf8 ); >-use C4::Auth; # get_template_and_user >-use C4::Acquisition; # ModOrder >+use C4::Auth qw( get_template_and_user ); >+use C4::Acquisition qw( GetBasket FillWithDefaultValues populate_order_with_prices ModOrder ModOrderUsers ); > use C4::Suggestions; # ModStatus >-use C4::Biblio; # AddBiblio TransformKohaToMarc >-use C4::Budgets; >-use C4::Items; >-use C4::Output; >+use C4::Biblio qw( TransformKohaToMarc AddBiblio TransformHtmlToXml GetMarcFromKohaField ); >+use C4::Budgets qw( GetBudget GetBudgetSpent GetBudgetOrdered ); >+use C4::Items qw( AddItemFromMarc AddItem ); >+use C4::Output qw( output_html_with_http_headers ); > use Koha::Acquisition::Currencies; > use C4::Barcodes; > >diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl >index 5d3ee540af..1777a17d4c 100755 >--- a/acqui/addorderiso2709.pl >+++ b/acqui/addorderiso2709.pl >@@ -28,19 +28,19 @@ use YAML qw/Load/; > use List::MoreUtils qw/uniq/; > > 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 SetImportRecordStatus GetImportBatch GetImportBatchRangeDesc SetImportBatchStatus GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction ); > use C4::Matcher; >-use C4::Search qw/FindDuplicate/; >-use C4::Acquisition; >-use C4::Biblio; >-use C4::Items; >+use C4::Search qw( FindDuplicate ); >+use C4::Acquisition qw( GetBasket populate_order_with_prices ); >+use C4::Biblio qw( GetMarcQuantity GetMarcFromKohaField AddBiblio BiblioAutoLink GetMarcPrice TransformHtmlToXml ); >+use C4::Items qw( PrepareItemrecordDisplay AddItem AddItemFromMarc ); > use C4::Koha; >-use C4::Budgets; >-use C4::Acquisition; >+use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode ); >+use C4::Acquisition qw( GetBasket populate_order_with_prices ); > use C4::Suggestions; # GetSuggestion >-use C4::Members; >+use C4::Members qw( GetMember ); > > use Koha::Number::Price; > use Koha::Libraries; >diff --git a/acqui/ajax-getauthvaluedropbox.pl b/acqui/ajax-getauthvaluedropbox.pl >index f5852d4bd7..a153f812c2 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 244e471a9b..9fc0c71191 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 ); > use CGI qw ( -utf8 ); >-use C4::Acquisition; >-use C4::Budgets; >-use C4::Contract; >+use C4::Acquisition qw( GetBasket CanUserManageBasket GetOrders GetOrder DelOrder DelBasket GetBasketAsCSV CloseBasket NewBasket NewBasketgroup ModBasket ReopenBasket ModBasketUsers GetBasketgroup GetBasketgroups GetBasketUsers GetItemnumbersFromOrder ); >+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget ); >+use C4::Contract qw( GetContract ); > use C4::Debug; >-use C4::Biblio; >-use C4::Members qw/GetMember/; #needed for permissions checking for changing basketgroup of a basket >-use C4::Items; >+use C4::Biblio qw( CountBiblioInOrders GetSubscriptionsId DelBiblio ); >+use C4::Members qw( GetMember ); >+use C4::Items qw( GetItem ); > use C4::Suggestions; > use Koha::Biblios; > use Koha::Acquisition::Booksellers; > 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; > > =head1 NAME >diff --git a/acqui/basketgroup.pl b/acqui/basketgroup.pl >index 9e50484de7..de442e246d 100755 >--- a/acqui/basketgroup.pl >+++ b/acqui/basketgroup.pl >@@ -47,13 +47,13 @@ use strict; > use warnings; > 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 C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/; >-use C4::Members qw/GetMember/; >-use Koha::EDI qw/create_edi_order get_edifact_ean/; >+use C4::Acquisition qw( GetOrders GetOrder GetBasket GetBasketgroup GetBasketsByBasketgroup GetBasketgroups GetBasketsByBookseller ModBasket CloseBasket CloseBasketgroup GetBasketGroupAsCSV DelBasket DelBasketgroup ReOpenBasketgroup ModBasketgroup NewBasket NewBasketgroup ); >+use C4::Members qw( GetMember ); >+use Koha::EDI qw( get_edifact_ean create_edi_order ); > > use Koha::Acquisition::Booksellers; > use Koha::ItemTypes; >diff --git a/acqui/basketheader.pl b/acqui/basketheader.pl >index 8cfde89cab..177349fdcb 100755 >--- a/acqui/basketheader.pl >+++ b/acqui/basketheader.pl >@@ -49,10 +49,10 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Auth; >-use C4::Output; >-use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/; >-use C4::Contract qw/GetContracts/; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( GetBasket ModBasket ModBasketHeader NewBasket ); >+use C4::Contract qw( GetContracts GetContract ); > > use Koha::Acquisition::Booksellers; > >diff --git a/acqui/booksellers.pl b/acqui/booksellers.pl >index 6081269056..4f64cf0fba 100755 >--- a/acqui/booksellers.pl >+++ b/acqui/booksellers.pl >@@ -53,14 +53,14 @@ The id of the supplier whose baskets we will display > > use strict; > use warnings; >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Biblio; >-use C4::Budgets; >-use C4::Output; >+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget ); >+use C4::Output qw( output_html_with_http_headers ); > use CGI qw ( -utf8 ); > >-use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /; >-use C4::Members qw/GetMember/; >+use C4::Acquisition qw( GetBasket GetBasketsInfosByBookseller CanUserManageBasket GetBasketgroup ); >+use C4::Members qw( GetMember ); > use C4::Context; > > use Koha::Acquisition::Booksellers; >diff --git a/acqui/cancelorder.pl b/acqui/cancelorder.pl >index a0b7597d44..e7de2d567e 100755 >--- a/acqui/cancelorder.pl >+++ b/acqui/cancelorder.pl >@@ -32,9 +32,9 @@ and add possibility to indicate a reason for cancellation > use Modern::Perl; > > use CGI; >-use C4::Auth; >-use C4::Output; >-use C4::Acquisition; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( DelOrder ); > > my $input = new CGI; > my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { >diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl >index f8447f26cf..7c0ebec89c 100755 >--- a/acqui/check_budget_total.pl >+++ b/acqui/check_budget_total.pl >@@ -21,9 +21,9 @@ use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Budgets; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Budgets qw( GetBudget ); > > =head1 DESCRIPTION > >diff --git a/acqui/check_duplicate_barcode_ajax.pl b/acqui/check_duplicate_barcode_ajax.pl >index 1655ac4be1..425ee489f4 100755 >--- a/acqui/check_duplicate_barcode_ajax.pl >+++ b/acqui/check_duplicate_barcode_ajax.pl >@@ -22,8 +22,8 @@ use strict; > use CGI qw ( -utf8 ); > use CGI::Cookie; > use JSON; >-use C4::Auth; >-use C4::Items; >+use C4::Auth qw( check_cookie_auth ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); > use C4::Context; > > my $input = new CGI; >diff --git a/acqui/check_uniqueness.pl b/acqui/check_uniqueness.pl >index 70d95ddd7b..2ed3035c13 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( SearchItemsByField SearchItems ); > > my $input = new CGI; > my @field = $input->multi_param('field[]'); >diff --git a/acqui/edi_ean.pl b/acqui/edi_ean.pl >index 4ceda877ba..b151008f6f 100755 >--- a/acqui/edi_ean.pl >+++ b/acqui/edi_ean.pl >@@ -24,9 +24,9 @@ > use strict; > use warnings; > >-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 608eaff0a9..b716f3f6fc 100755 >--- a/acqui/edifactmsgs.pl >+++ b/acqui/edifactmsgs.pl >@@ -22,8 +22,8 @@ use warnings; > 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/edimsg.pl b/acqui/edimsg.pl >index c3547f025b..f54dca6cc7 100755 >--- a/acqui/edimsg.pl >+++ b/acqui/edimsg.pl >@@ -22,8 +22,8 @@ use warnings; > 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 71a07f68bd..b54682a32e 100755 >--- a/acqui/finishreceive.pl >+++ b/acqui/finishreceive.pl >@@ -23,12 +23,12 @@ > use strict; > use warnings; > 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::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder GetItemnumbersFromOrder ); >+use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml ); >+use C4::Items qw( GetMarcItem ModItemFromMarc ModItem AddItemFromMarc AddItem GetItem ); > use C4::Search; > > use Koha::Number::Price; >diff --git a/acqui/histsearch.pl b/acqui/histsearch.pl >index 9261379493..13b82d0349 100755 >--- a/acqui/histsearch.pl >+++ b/acqui/histsearch.pl >@@ -52,12 +52,12 @@ to filter on ended date. > use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); >-use C4::Auth; # get_template_and_user >-use C4::Output; >-use C4::Acquisition; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( GetHistory ); > use C4::Debug; > use C4::Koha; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $input = new CGI; > my $title = $input->param( 'title'); >diff --git a/acqui/invoice-files.pl b/acqui/invoice-files.pl >index ce674e437b..381ca9b050 100755 >--- a/acqui/invoice-files.pl >+++ b/acqui/invoice-files.pl >@@ -30,9 +30,9 @@ Manage files associated with invoice > use Modern::Perl; > > use CGI; >-use C4::Auth; >-use C4::Output; >-use C4::Acquisition; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( GetInvoice GetInvoiceDetails ); > use Koha::Misc::Files; > > my $input = new CGI; >diff --git a/acqui/invoice.pl b/acqui/invoice.pl >index 3ab2d9f7c2..9b4b86b2aa 100755 >--- a/acqui/invoice.pl >+++ b/acqui/invoice.pl >@@ -30,14 +30,14 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Output; >-use C4::Acquisition; >-use C4::Budgets; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( CloseInvoice ReopenInvoice ModInvoice MergeInvoices DelInvoice GetInvoice GetInvoiceDetails ); >+use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget ); > > use Koha::Acquisition::Booksellers; > use Koha::Acquisition::Currencies; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref ); > use Koha::Misc::Files; > > my $input = new CGI; >diff --git a/acqui/invoices.pl b/acqui/invoices.pl >index 2d117464c9..90e09bef6a 100755 >--- a/acqui/invoices.pl >+++ b/acqui/invoices.pl >@@ -30,12 +30,12 @@ use strict; > use warnings; > > 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; >-use Koha::DateUtils; >+use C4::Acquisition qw( GetInvoices GetInvoice ); >+use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Acquisition::Booksellers; > > my $input = CGI->new; >diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl >index c8d86e6be4..84e26dc189 100755 >--- a/acqui/lateorders-export.pl >+++ b/acqui/lateorders-export.pl >@@ -18,8 +18,8 @@ > use Modern::Perl; > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Acquisition; >+use C4::Auth qw( get_template_and_user ); >+use C4::Acquisition qw( GetOrder ); > use C4::Output; > use C4::Context; > >diff --git a/acqui/lateorders.pl b/acqui/lateorders.pl >index 9febcf65c9..da8459428c 100755 >--- a/acqui/lateorders.pl >+++ b/acqui/lateorders.pl >@@ -46,13 +46,13 @@ To know on which branch this script have to display late order. > use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Bookseller qw( GetBooksellersWithLateOrders ); >-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 Koha::DateUtils; >+use C4::Acquisition qw( AddClaim GetLateOrders ); >+use C4::Letters qw( SendAlerts GetLetters ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $input = new CGI; > my ($template, $loggedinuser, $cookie) = get_template_and_user( >diff --git a/acqui/modordernotes.pl b/acqui/modordernotes.pl >index d0bd672e44..1159848083 100755 >--- a/acqui/modordernotes.pl >+++ b/acqui/modordernotes.pl >@@ -29,9 +29,9 @@ Modify just notes when basket is closed. > use Modern::Perl; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Output; >-use C4::Acquisition; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( GetOrder GetBasket ModOrder ); > > use Koha::Acquisition::Booksellers; > >diff --git a/acqui/neworderbiblio.pl b/acqui/neworderbiblio.pl >index 8c492b74e9..e8bf5ee639 100755 >--- a/acqui/neworderbiblio.pl >+++ b/acqui/neworderbiblio.pl >@@ -58,14 +58,14 @@ the basket number to know on which basket this script have to add a new order. > use strict; > #use warnings; FIXME - Bug 2505 > >-use C4::Search; >+use C4::Search qw( new_record_from_zebra ); > use CGI qw ( -utf8 ); >-use C4::Biblio; >-use C4::Auth; >-use C4::Output; >-use C4::Koha; >-use C4::Members qw/ GetMember /; >-use C4::Budgets qw/ GetBudgetHierarchy /; >+use C4::Biblio qw( TransformMarcToKoha ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers pagination_bar ); >+use C4::Koha qw( getnbpages ); >+use C4::Members qw( GetMember ); >+use C4::Budgets qw( GetBudgetHierarchy GetBudget ); > > use Koha::Acquisition::Booksellers; > use Koha::SearchEngine; >diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl >index c2a5e6fe49..27f8f446b3 100755 >--- a/acqui/neworderempty.pl >+++ b/acqui/neworderempty.pl >@@ -71,21 +71,21 @@ use strict; > use CGI qw ( -utf8 ); > use C4::Context; > >-use C4::Auth; >-use C4::Budgets; >+use C4::Auth qw( get_template_and_user ); >+use C4::Budgets qw( GetBudget GetBudgetHierarchy CanUserUseBudget ); > >-use C4::Acquisition; >-use C4::Contract; >+use C4::Acquisition qw( GetOrder GetBasket GetOrderUsers GetLastOrderReceivedFromSubscriptionid ); >+use C4::Contract qw( GetContract ); > use C4::Suggestions; # GetSuggestion >-use C4::Biblio; # GetBiblioData GetMarcPrice >+use C4::Biblio qw( BiblioAutoLink AddBiblio GetMarcPrice GetBiblioData GetBiblio GetMarcStructure GetMarcFromKohaField ); > use C4::Items; #PrepareItemRecord >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Koha; >-use C4::Members; >-use C4::Search qw/FindDuplicate/; >+use C4::Members qw( GetMember ); >+use C4::Search qw( FindDuplicate ); > > #needed for z3950 import: >-use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus/; >+use C4::ImportBatch qw( SetImportRecordStatus GetImportRecordMarc ); > > use Koha::Acquisition::Booksellers; > use Koha::Acquisition::Currencies; >diff --git a/acqui/newordersubscription.pl b/acqui/newordersubscription.pl >index 51151af7f2..b84394e687 100755 >--- a/acqui/newordersubscription.pl >+++ b/acqui/newordersubscription.pl >@@ -19,11 +19,11 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Acquisition; >-use C4::Auth; >+use C4::Acquisition qw( GetBasket ); >+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 c182ed343a..d4556f3547 100755 >--- a/acqui/newordersuggestion.pl >+++ b/acqui/newordersuggestion.pl >@@ -92,8 +92,8 @@ use strict; > #use warnings; FIXME - Bug 2505 > > 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; > >diff --git a/acqui/ordered.pl b/acqui/ordered.pl >index 5c2cc6dd7e..1540e194fb 100755 >--- a/acqui/ordered.pl >+++ b/acqui/ordered.pl >@@ -31,8 +31,8 @@ use C4::Context; > use strict; > use warnings; > 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 $dbh = C4::Context->dbh; > my $input = new CGI; >diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl >index 837a117b52..b5807e5f76 100755 >--- a/acqui/orderreceive.pl >+++ b/acqui/orderreceive.pl >@@ -63,15 +63,15 @@ use warnings; > > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Acquisition; >-use C4::Auth; >-use C4::Output; >-use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /; >-use C4::Members; >-use C4::Items; >-use C4::Biblio; >+use C4::Acquisition qw( GetInvoice SearchOrders GetItemnumbersFromOrder ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Budgets qw( GetBudget GetBudgetPeriods GetBudgetPeriod GetBudgetHierarchy CanUserUseBudget ); >+use C4::Members qw( GetMember ); >+use C4::Items qw( GetItem ); >+use C4::Biblio qw( GetMarcStructure ); > use C4::Suggestions; >-use C4::Koha; >+use C4::Koha qw( getitemtypeinfo ); > > use Koha::Acquisition::Booksellers; > use Koha::DateUtils qw( dt_from_string ); >diff --git a/acqui/parcel.pl b/acqui/parcel.pl >index 4ba5b5fe30..941e12bccd 100755 >--- a/acqui/parcel.pl >+++ b/acqui/parcel.pl >@@ -57,18 +57,18 @@ To filter the results list on this given date. > use strict; > use warnings; > >-use C4::Auth; >-use C4::Acquisition; >-use C4::Budgets; >-use C4::Biblio; >-use C4::Items; >+use C4::Auth qw( get_template_and_user ); >+use C4::Acquisition qw( CancelReceipt GetInvoice GetInvoiceDetails GetItemnumbersFromOrder SearchOrders ); >+use C4::Budgets qw( GetBudget GetBudgetByOrderNumber GetBudgetName ); >+use C4::Biblio qw( CountBiblioInOrders GetSubscriptionsId ); >+use C4::Items qw( GetItem ); > use CGI qw ( -utf8 ); >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Suggestions; > > use Koha::Acquisition::Bookseller; > use Koha::Biblios; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Biblios; > > use JSON; >diff --git a/acqui/parcels.pl b/acqui/parcels.pl >index d0e6e2b099..4f4383acbd 100755 >--- a/acqui/parcels.pl >+++ b/acqui/parcels.pl >@@ -69,11 +69,11 @@ To know how many results have to be display / page. > use strict; > use warnings; > 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::Acquisition qw( GetInvoices GetInvoice AddInvoice ); >+use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget ); > > use Koha::Acquisition::Booksellers; > use Koha::DateUtils qw( output_pref dt_from_string ); >diff --git a/acqui/spent.pl b/acqui/spent.pl >index f31b283060..593c0891fd 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 strict; > use warnings; > use CGI qw ( -utf8 ); >diff --git a/acqui/supplier.pl b/acqui/supplier.pl >index e0addbca2d..0296903928 100755 >--- a/acqui/supplier.pl >+++ b/acqui/supplier.pl >@@ -42,10 +42,10 @@ To know the bookseller this script has to display details. > > use strict; > use warnings; >-use C4::Auth; >-use C4::Contract; >+use C4::Auth qw( get_template_and_user ); >+use C4::Contract qw( GetContracts GetContract ); > 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 716c721913..c5459b6ad7 100755 >--- a/acqui/transferorder.pl >+++ b/acqui/transferorder.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::Context; >-use C4::Acquisition; >-use C4::Members; >+use C4::Acquisition qw( GetOrder GetBasket TransferOrder GetBasketsByBookseller SearchOrders ); >+use C4::Members qw( GetMember ); > use Koha::Acquisition::Booksellers; > > my $input = new CGI; >diff --git a/acqui/uncertainprice.pl b/acqui/uncertainprice.pl >index 54668c4f0e..d5c7c8dece 100755 >--- a/acqui/uncertainprice.pl >+++ b/acqui/uncertainprice.pl >@@ -46,11 +46,11 @@ The bookseller who we want to display the orders of. > use strict; > use warnings; > >-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/; >+use C4::Acquisition qw( SearchOrders GetOrder ModOrder ); > use C4::Biblio qw/GetBiblioData/; > > use Koha::Acquisition::Booksellers; >diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl >index 18912ddee2..fc0e288d4a 100755 >--- a/acqui/updatesupplier.pl >+++ b/acqui/updatesupplier.pl >@@ -50,7 +50,7 @@ use strict; > use warnings; > 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 d7bd2ee99e..5622b87537 100755 >--- a/acqui/z3950_search.pl >+++ b/acqui/z3950_search.pl >@@ -23,10 +23,10 @@ use warnings; > use strict; > 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 ba3989aa51..1301e2193c 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/admin-home.pl b/admin/admin-home.pl >index 08c6ed196a..adb8b47d54 100755 >--- a/admin/admin-home.pl >+++ b/admin/admin-home.pl >@@ -19,8 +19,8 @@ use strict; > use warnings; > > 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 = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl >index ca2171f145..e525666f85 100755 >--- a/admin/aqbudgetperiods.pl >+++ b/admin/aqbudgetperiods.pl >@@ -48,14 +48,14 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > use List::Util qw/min/; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Database; > use C4::Koha; > use C4::Context; >-use C4::Auth; >-use C4::Output; >-use C4::Acquisition; >-use C4::Budgets; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Acquisition qw( SearchOrders ); >+use C4::Budgets qw( GetBudgetPeriod GetBudget ModBudgetPeriod ModBudget AddBudgetPeriod AddBudget DelBudgetPeriod DelBudget _round CloneBudgetPeriod GetBudgetPeriods GetBudgetHierarchy MoveOrders ); > use C4::Debug; > use Koha::Acquisition::Currencies; > >diff --git a/admin/aqbudgets.pl b/admin/aqbudgets.pl >index 97664df13b..b367013592 100755 >--- a/admin/aqbudgets.pl >+++ b/admin/aqbudgets.pl >@@ -25,13 +25,13 @@ 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::Members; >+use C4::Budgets qw( GetBudgetPeriod GetBudget GetBudgetAuthCats CanUserModifyBudget BudgetHasChildren GetBudgetHierarchy GetBudgetUsers DelBudget ModBudget ModBudgetUsers AddBudget SetOwnerToFundHierarchy GetBudgetPeriods ); >+use C4::Members qw( GetMember ); > use C4::Context; >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Koha; > use C4::Debug; > use Koha::Acquisition::Currencies; >diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl >index e35b057073..4284d12c25 100755 >--- a/admin/aqcontract.pl >+++ b/admin/aqcontract.pl >@@ -24,10 +24,10 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Auth; >-use C4::Output; >-use C4::Contract; >-use Koha::DateUtils; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Contract qw( GetContract ModContract AddContract DelContract GetContracts ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > use Koha::Acquisition::Booksellers; > >diff --git a/admin/aqplan.pl b/admin/aqplan.pl >index a27fb0a4ca..fd74d3840a 100755 >--- a/admin/aqplan.pl >+++ b/admin/aqplan.pl >@@ -29,11 +29,11 @@ use Date::Manip qw/ ParseDate UnixDate DateCalc/; > use Text::CSV_XS; > > use C4::Acquisition; >-use C4::Budgets; >+use C4::Budgets qw( GetBudgetPeriod GetBudget GetPeriodsCount GetBudgetAuthCats GetBudgetHierarchy ModBudgetPlan ModBudget HideCols GetCols CanUserUseBudget GetBudgetsPlanCell GetBudgets ); > 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 C4::Debug; > use Koha::Acquisition::Currencies; > >diff --git a/admin/audio_alerts.pl b/admin/audio_alerts.pl >index bf0c0ae83c..3a44aacc5c 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 0ba7677a98..370a338176 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 4a3a67a1bf..7140980550 100755 >--- a/admin/auth_tag_structure.pl >+++ b/admin/auth_tag_structure.pl >@@ -21,10 +21,10 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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 272ed0012b..5d678bec2c 100755 >--- a/admin/authorised_values.pl >+++ b/admin/authorised_values.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::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 7be61e012d..0f8362de28 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/biblio_framework.pl b/admin/biblio_framework.pl >index dd4af97597..7a9e9a53e7 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 84d7210961..13d8dbb880 100755 >--- a/admin/branch_transfer_limits.pl >+++ b/admin/branch_transfer_limits.pl >@@ -22,11 +22,11 @@ use strict; > use warnings; > > 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 = new CGI; > >diff --git a/admin/branches.pl b/admin/branches.pl >index abe3e5a749..8e9feebd9d 100755 >--- a/admin/branches.pl >+++ b/admin/branches.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 Koha::Patrons; > use Koha::Items; >diff --git a/admin/categories.pl b/admin/categories.pl >index 358ef7d8c8..915d1dc5f0 100755 >--- a/admin/categories.pl >+++ b/admin/categories.pl >@@ -22,12 +22,12 @@ 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; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref dt_from_string ); > use Koha::Patron::Categories; > use Koha::Libraries; > >diff --git a/admin/check_budget_parent.pl b/admin/check_budget_parent.pl >index ab9941351e..7358d3fa3a 100755 >--- a/admin/check_budget_parent.pl >+++ b/admin/check_budget_parent.pl >@@ -21,9 +21,9 @@ use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Budgets; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Budgets qw( GetBudget CheckBudgetParent ); > > =head1 DESCRIPTION > >diff --git a/admin/check_parent_total.pl b/admin/check_parent_total.pl >index 10f1036639..dbdcd48f0c 100755 >--- a/admin/check_parent_total.pl >+++ b/admin/check_parent_total.pl >@@ -21,9 +21,9 @@ use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Budgets; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Budgets qw( GetBudgetPeriod GetBudget ); > > =head1 DESCRIPTION > >diff --git a/admin/checkmarc.pl b/admin/checkmarc.pl >index 456f22bea9..81f8e9c0cd 100755 >--- a/admin/checkmarc.pl >+++ b/admin/checkmarc.pl >@@ -20,8 +20,8 @@ > > use strict; > #use warnings; FIXME - Bug 2505 >-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 4a6247ce8f..8d6290d711 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 539095f457..88e219252a 100755 >--- a/admin/classsources.pl >+++ b/admin/classsources.pl >@@ -21,12 +21,12 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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::ClassSource; >-use C4::ClassSortRoutine; >+use C4::ClassSource qw( AddClassSource GetClassSource ModClassSource DelClassSource GetClassSortRules GetClassSortRule GetClassSort AddClassSortRule GetSourcesForSortRule DelClassSortRule ModClassSortRule GetClassSources ); >+use C4::ClassSortRoutine qw( GetSortRoutineNames ); > > my $script_name = "/cgi-bin/koha/admin/classsources.pl"; > >diff --git a/admin/clone-rules.pl b/admin/clone-rules.pl >index 9fd330fa71..a194368294 100755 >--- a/admin/clone-rules.pl >+++ b/admin/clone-rules.pl >@@ -29,8 +29,8 @@ use strict; > #use warnings; FIXME - Bug 2505 > 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::Debug; > >diff --git a/admin/columns_settings.pl b/admin/columns_settings.pl >index 4c8714270e..99587a344e 100755 >--- a/admin/columns_settings.pl >+++ b/admin/columns_settings.pl >@@ -3,9 +3,9 @@ > use Modern::Perl; > use CGI; > use YAML qw( LoadFile ); >-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::ColumnsSettings qw( get_modules ); > my $input = new CGI; > >diff --git a/admin/currency.pl b/admin/currency.pl >index 1c5ec3e586..97f5392b81 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::Currency; >diff --git a/admin/didyoumean.pl b/admin/didyoumean.pl >index 52ebeaa487..d652e26266 100755 >--- a/admin/didyoumean.pl >+++ b/admin/didyoumean.pl >@@ -4,8 +4,8 @@ use strict; > use warnings; > 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 9225b7ced8..22b9e36261 100755 >--- a/admin/edi_accounts.pl >+++ b/admin/edi_accounts.pl >@@ -20,8 +20,8 @@ > use strict; > use warnings; > 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 d6e8d953c2..e36a36c218 100755 >--- a/admin/edi_ean_accounts.pl >+++ b/admin/edi_ean_accounts.pl >@@ -20,8 +20,8 @@ > use strict; > use warnings; > 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/fieldmapping.pl b/admin/fieldmapping.pl >index 631e7d4380..47b86799c0 100755 >--- a/admin/fieldmapping.pl >+++ b/admin/fieldmapping.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::Biblio; >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > > use Koha::BiblioFrameworks; > use Koha::FieldMappings; >diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl >index de1f195894..1cad642ad9 100755 >--- a/admin/import_export_framework.pl >+++ b/admin/import_export_framework.pl >@@ -23,8 +23,8 @@ use warnings; > 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 5e9c463e3f..40872375db 100755 >--- a/admin/item_circulation_alerts.pl >+++ b/admin/item_circulation_alerts.pl >@@ -24,10 +24,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 c1f6c0c3e7..373facfe1e 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 f93f0bbf70..5187e67755 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 09e564e40d..63cb9ab083 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 d8fd569987..e1dad8ab90 100755 >--- a/admin/koha2marclinks.pl >+++ b/admin/koha2marclinks.pl >@@ -19,8 +19,8 @@ > > use strict; > use warnings; >-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/localization.pl b/admin/localization.pl >index 061b9792c8..3982b9b253 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 24c8005800..81ec7ff925 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 4800b3461b..f022fd30d2 100755 >--- a/admin/marctagstructure.pl >+++ b/admin/marctagstructure.pl >@@ -21,10 +21,10 @@ > use strict; > use warnings; > 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 20d9f82942..39274b4237 100755 >--- a/admin/matching-rules.pl >+++ b/admin/matching-rules.pl >@@ -22,9 +22,9 @@ use strict; > use warnings; > > 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 8c6b0d4255..ff7010462b 100755 >--- a/admin/oai_set_mappings.pl >+++ b/admin/oai_set_mappings.pl >@@ -33,9 +33,9 @@ the OR operator will be applied. > use Modern::Perl; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Output; >-use C4::OAI::Sets; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::OAI::Sets qw( ModOAISet ModOAISetMappings GetOAISet GetOAISetMappings ); > > use Data::Dumper; > >diff --git a/admin/oai_sets.pl b/admin/oai_sets.pl >index 1413022879..29189a27ca 100755 >--- a/admin/oai_sets.pl >+++ b/admin/oai_sets.pl >@@ -29,9 +29,9 @@ Admin page to describe OAI SETs > use Modern::Perl; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Output; >-use C4::OAI::Sets; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::OAI::Sets qw( AddOAISet GetOAISet ModOAISet DelOAISet GetOAISets ); > > use Data::Dumper; > >diff --git a/admin/patron-attr-types.pl b/admin/patron-attr-types.pl >index ca4e19060f..2e0821c4c3 100755 >--- a/admin/patron-attr-types.pl >+++ b/admin/patron-attr-types.pl >@@ -24,10 +24,10 @@ 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::Koha; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Koha qw( GetAuthorisedValues ); > use C4::Members::AttributeTypes; > > use Koha::AuthorisedValues; >diff --git a/admin/preferences.pl b/admin/preferences.pl >index 032789fb82..3d74acd5f8 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/printers.pl b/admin/printers.pl >index 9e0163bc77..056d52507b 100755 >--- a/admin/printers.pl >+++ b/admin/printers.pl >@@ -41,8 +41,8 @@ use strict; > #use warnings; FIXME - Bug 2505 > 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 ); > > sub StringSearch { > my ($searchstring,$type)=@_; # why bother with $type if we don't use it?! >diff --git a/admin/smart-rules.pl b/admin/smart-rules.pl >index 6a55b7bde4..1d68debff5 100755 >--- a/admin/smart-rules.pl >+++ b/admin/smart-rules.pl >@@ -21,11 +21,11 @@ use strict; > use warnings; > 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::Debug; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Database; > use Koha::IssuingRule; > use Koha::IssuingRules; >diff --git a/admin/sms_providers.pl b/admin/sms_providers.pl >index 4592acf8f8..ca74cf6a1b 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/sru_modmapping.pl b/admin/sru_modmapping.pl >index d5ef1160b3..5d5ddc085a 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 67e063895b..1b04315998 100755 >--- a/admin/systempreferences.pl >+++ b/admin/systempreferences.pl >@@ -45,12 +45,12 @@ use warnings; > > 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::Syck qw( Dump LoadFile ); > > my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml) >diff --git a/admin/transport-cost-matrix.pl b/admin/transport-cost-matrix.pl >index 0aab030729..8404ce2e3d 100755 >--- a/admin/transport-cost-matrix.pl >+++ b/admin/transport-cost-matrix.pl >@@ -21,11 +21,11 @@ use strict; > use warnings; > 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::Debug; >-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 01e002eda0..0aa5a1ebcf 100755 >--- a/admin/usage_statistics.pl >+++ b/admin/usage_statistics.pl >@@ -18,9 +18,9 @@ > use Modern::Perl; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Output; >-use Koha::DateUtils qw( dt_from_string output_pref ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::DateUtils qw( output_pref ); > use Koha::Libraries; > > my $query = new CGI; >diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl >index d1fe85b2f0..0f08dd2aab 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; > > # Initialize CGI, template, database >diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl >index b484f03db3..74d8211291 100755 >--- a/authorities/auth_finder.pl >+++ b/authorities/auth_finder.pl >@@ -22,10 +22,10 @@ use strict; > use warnings; > > 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::AuthoritiesMarc; >+use C4::Auth qw( get_template_and_user ); > use C4::Acquisition; > use C4::Koha; > >diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl >index d9c5ac83bb..35d898292d 100755 >--- a/authorities/authorities-home.pl >+++ b/authorities/authorities-home.pl >@@ -22,12 +22,12 @@ use warnings; > > 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::Acquisition; > use C4::Koha; > use C4::Biblio; >diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl >index 0afa5e7fba..13186b91a4 100755 >--- a/authorities/authorities-list.pl >+++ b/authorities/authorities-list.pl >@@ -2,7 +2,7 @@ > use strict; > use warnings; > use C4::Context; >-use C4::AuthoritiesMarc; >+use C4::AuthoritiesMarc qw( GetAuthority ); > use utf8; > use open qw[ :std :encoding(utf8) ]; > use Koha::SearchEngine; >diff --git a/authorities/authorities.pl b/authorities/authorities.pl >index e45f5dd902..78a04425e1 100755 >--- a/authorities/authorities.pl >+++ b/authorities/authorities.pl >@@ -21,16 +21,16 @@ > use strict; > use warnings; > 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( 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 33b7ef0666..b01fa3b045 100755 >--- a/authorities/blinddetail-biblio-search.pl >+++ b/authorities/blinddetail-biblio-search.pl >@@ -39,10 +39,10 @@ parameters tables. > use strict; > use warnings; > >-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 717061b2ef..962880c02f 100755 >--- a/authorities/detail-biblio-search.pl >+++ b/authorities/detail-biblio-search.pl >@@ -40,10 +40,10 @@ parameters tables. > use strict; > use warnings; > >-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 38af541a9b..0835676f52 100755 >--- a/authorities/detail.pl >+++ b/authorities/detail.pl >@@ -40,13 +40,13 @@ parameters tables. > use strict; > use warnings; > >-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 6b79ffb656..601edd9e13 100755 >--- a/authorities/export.pl >+++ b/authorities/export.pl >@@ -2,10 +2,10 @@ > use strict; > use warnings; > >-use C4::Record; >-use C4::Auth; >+use C4::Record qw( marc2marc marc2marcxml marc2madsxml changeEncoding ); >+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 = new CGI; >diff --git a/authorities/merge.pl b/authorities/merge.pl >index 0230dbf73b..98d7f42e39 100755 >--- a/authorities/merge.pl >+++ b/authorities/merge.pl >@@ -20,12 +20,12 @@ > use strict; > use warnings; > 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 Koha::MetadataRecord::Authority; > use C4::Koha; >-use C4::Biblio; >+use C4::Biblio qw( TransformHtmlToMarc ); > > my $input = new CGI; > my @authid = $input->multi_param('authid'); >diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl >index 39796b0be9..762adf5335 100755 >--- a/authorities/merge_ajax.pl >+++ b/authorities/merge_ajax.pl >@@ -8,8 +8,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 4a5ae796a7..837b9f9ca2 100755 >--- a/authorities/ysearch.pl >+++ b/authorities/ysearch.pl >@@ -32,10 +32,10 @@ use Modern::Perl; > use JSON; > > use C4::Context; >-use C4::Charset; >-use C4::AuthoritiesMarc; >-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::Auth qw( check_cookie_auth ); >+use C4::Output qw( output_with_http_headers ); > > my $query = new CGI; > >diff --git a/basket/basket.pl b/basket/basket.pl >index 14f661fd5f..f020458cca 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 GetBiblio GetMarcBiblio GetMarcNotes GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls ); >+use C4::Items qw( GetItem GetItemsInfo ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); > > use Koha::AuthorisedValues; > use Koha::CsvProfiles; >diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl >index 278b2c7168..0a6a966bd5 100755 >--- a/basket/downloadcart.pl >+++ b/basket/downloadcart.pl >@@ -22,12 +22,12 @@ 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::Record; >-use C4::Ris; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Record qw( marc2csv marc2bibtex ); >+use C4::Ris qw( marc2ris ); > > use Koha::CsvProfiles; > >diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl >index 47bd1c9592..be7849ad00 100755 >--- a/basket/sendbasket.pl >+++ b/basket/sendbasket.pl >@@ -24,10 +24,10 @@ use Mail::Sendmail; > use MIME::QuotedPrint; > use MIME::Base64; > >-use C4::Biblio; >-use C4::Items; >-use C4::Auth; >-use C4::Output; >+use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects ); >+use C4::Items qw( GetItem GetItemsInfo ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( 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 60b6053dc4..f641c0d669 100755 >--- a/catalogue/ISBDdetail.pl >+++ b/catalogue/ISBDdetail.pl >@@ -36,17 +36,17 @@ 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::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData GetBiblio GetCOinSBiblio ); > use C4::Items; >-use C4::Members; # to use GetMember >-use C4::Serials; # CountSubscriptionFromBiblionumber >-use C4::Search; # enabled_staff_search_views >-use C4::Acquisition qw(GetOrdersByBiblionumber); >+use C4::Members qw( GetMember ); >+use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber ); >+use C4::Search qw( z3950_search_args enabled_staff_search_views ); >+use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ); > > use Koha::Biblios; > use Koha::RecordProcessor; >diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl >index 6a6bdb4278..8d3e2edabe 100755 >--- a/catalogue/MARCdetail.pl >+++ b/catalogue/MARCdetail.pl >@@ -48,17 +48,17 @@ use strict; > 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::Biblio qw( GetFrameworkCode GetMarcBiblio GetCOinSBiblio GetMarcStructure GetBiblioData GetBiblio GetAuthorisedValueDesc GetMarcFromKohaField ); > use C4::Items; >-use C4::Acquisition; >-use C4::Members; # to use GetMember >-use C4::Serials; #uses getsubscriptionsfrombiblionumber GetSubscriptionsFromBiblionumber >-use C4::Search; # enabled_staff_search_views >+use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ); >+use C4::Members qw( GetMember ); >+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 3a632b6049..f100242f74 100755 >--- a/catalogue/detail.pl >+++ b/catalogue/detail.pl >@@ -20,27 +20,27 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > use HTML::Entities; >-use C4::Acquisition qw( GetHistory ); >-use C4::Auth; >-use C4::Koha; >-use C4::Serials; #uses getsubscriptionfrom biblionumber >-use C4::Output; >-use C4::Biblio; >-use C4::Items; >-use C4::Circulation; >+use C4::Acquisition qw( GetHistory GetOrders GetOrdersByBiblionumber GetOrder ); >+use C4::Auth qw( get_template_and_user ); >+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 GetCOinSBiblio GetMarcNotes GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcHosts GetRecordValue GetBiblioData GetBiblio ); >+use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo GetAnalyticsCount ); >+use C4::Circulation qw( GetTransfers ); > use C4::Reserves; >-use C4::Members; # to use GetMember >-use C4::Serials; >-use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn); >-use C4::External::Amazon; >-use C4::Search; # enabled_staff_search_views >-use C4::Tags qw(get_tags); >-use C4::XSLT; >-use C4::Images; >-use Koha::DateUtils; >+use C4::Members qw( GetMember ); >+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); >+use C4::XISBN qw( get_xisbns ); >+use C4::External::Amazon qw( get_amazon_tld ); >+use C4::Search qw( z3950_search_args enabled_staff_search_views ); >+use C4::Tags qw( get_tags get_tag ); >+use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display ); >+use C4::Images qw( ListImagesForBiblio ); >+use Koha::DateUtils qw( format_sqldatetime ); > use C4::HTML5Media; >-use C4::CourseReserves qw(GetItemCourseReservesInfo); >-use C4::Acquisition qw(GetOrdersByBiblionumber); >+use C4::CourseReserves qw( GetItemCourseReservesInfo ); >+use C4::Acquisition qw( GetHistory GetOrders GetOrdersByBiblionumber GetOrder ); > use Koha::AuthorisedValues; > use Koha::Biblios; > use Koha::Items; >diff --git a/catalogue/export.pl b/catalogue/export.pl >index f82250db89..484723a8a6 100755 >--- a/catalogue/export.pl >+++ b/catalogue/export.pl >@@ -2,12 +2,12 @@ > use strict; > #use warnings; FIXME - Bug 2505 > >-use C4::Record; >-use C4::Auth; >+use C4::Record qw( marc2endnote marc2marc marc2marcxml marc2modsxml marc2bibtex marc2dcxml changeEncoding ); >+use C4::Auth qw( get_template_and_user ); > use C4::Output; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio ); > use CGI qw ( -utf8 ); >-use C4::Ris; >+use C4::Ris qw( marc2ris ); > > > >diff --git a/catalogue/getitem-ajax.pl b/catalogue/getitem-ajax.pl >index 99814dc1a7..d4a25706b0 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::Items; >-use C4::Koha; >-use C4::Output; >+use C4::Auth qw( check_api_auth ); >+use C4::Biblio qw( GetMarcStructure ); >+use C4::Items qw( GetItem ); >+use C4::Koha qw( getitemtypeinfo ); >+use C4::Output qw( output_with_http_headers ); > use Koha::Libraries; > > use Koha::AuthorisedValues; >diff --git a/catalogue/image.pl b/catalogue/image.pl >index 3d95b0584c..9cd7c70586 100755 >--- a/catalogue/image.pl >+++ b/catalogue/image.pl >@@ -28,7 +28,7 @@ use warnings; > > use CGI qw ( -utf8 ); #qw(:standard escapeHTML); > use C4::Context; >-use C4::Images; >+use C4::Images qw( NoImage ListImagesForBiblio RetrieveImage ); > > $| = 1; > >diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl >index 3317db1909..3d543a141b 100755 >--- a/catalogue/imageviewer.pl >+++ b/catalogue/imageviewer.pl >@@ -21,13 +21,13 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Biblio; >-use C4::Items; >-use C4::Output; >-use C4::Images; >-use C4::Search; >-use C4::Acquisition qw(GetOrdersByBiblionumber); >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblio ); >+use C4::Items qw( GetItem GetItemsInfo ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Images qw( ListImagesForBiblio ); >+use C4::Search qw( enabled_staff_search_views ); >+use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ); > > use Koha::Biblios; > >diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl >index a3e349d260..72f56fa6ec 100755 >--- a/catalogue/issuehistory.pl >+++ b/catalogue/issuehistory.pl >@@ -20,12 +20,12 @@ use strict; > #use warnings; FIXME - Bug 2505 > > 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::Circulation; # GetBiblioIssues >-use C4::Biblio; # GetBiblio GetBiblioFromItemNumber >-use C4::Search; # enabled_staff_search_views >+use C4::Circulation qw( GetBiblioIssues ); >+use C4::Biblio qw( GetBiblio ); >+use C4::Search qw( enabled_staff_search_views ); > > my $query = new CGI; > my ( $template, $borrowernumber, $cookie ) = get_template_and_user( >diff --git a/catalogue/itemsearch.pl b/catalogue/itemsearch.pl >index 5f20dd3813..4eb43c025f 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::Biblio; >-use C4::Koha; >+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 GetItem ); >+use C4::Biblio qw( GetBiblio GetBiblioItemByBiblioNumber ); >+use C4::Koha qw( GetAuthorisedValues ); > > use Koha::AuthorisedValues; > use Koha::Item::Search::Field qw(GetItemSearchFields); >diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl >index cd07f73135..20ec759965 100755 >--- a/catalogue/labeledMARCdetail.pl >+++ b/catalogue/labeledMARCdetail.pl >@@ -22,14 +22,14 @@ use warnings; > 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::Output qw( output_html_with_http_headers ); >+use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData GetBiblio ); > use C4::Items; >-use C4::Members; # to use GetMember >-use C4::Search; # enabled_staff_search_views >-use C4::Acquisition qw(GetOrdersByBiblionumber); >+use C4::Members qw( GetMember ); >+use C4::Search qw( z3950_search_args enabled_staff_search_views ); >+use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ); > > use Koha::Biblios; > use Koha::BiblioFrameworks; >diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl >index 04a0e9d43f..e58c6ec6b6 100755 >--- a/catalogue/moredetail.pl >+++ b/catalogue/moredetail.pl >@@ -21,17 +21,17 @@ > > use strict; > #use warnings; FIXME - Bug 2505 >-use C4::Koha; >+use C4::Koha qw( GetAuthorisedValues ); > use CGI qw ( -utf8 ); > use HTML::Entities; >-use C4::Biblio; >-use C4::Items; >-use C4::Acquisition; >-use C4::Output; >-use C4::Auth; >-use C4::Serials; >-use C4::Members; # to use GetMember >-use C4::Search; # enabled_staff_search_views >+use C4::Biblio qw( GetBiblioData GetBiblio GetFrameworkCode GetMarcBiblio GetRecordValue ); >+use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo ); >+use C4::Acquisition qw( GetOrderFromItemnumber GetOrder GetBasket GetInvoice GetOrders GetOrdersByBiblionumber ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Serials qw( CountSubscriptionFromBiblionumber ); >+use C4::Members qw( GetMember ); >+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 f6714e11c6..1a05328143 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 = new CGI; > >diff --git a/catalogue/search.pl b/catalogue/search.pl >index 8488f832a0..bc40305581 100755 >--- a/catalogue/search.pl >+++ b/catalogue/search.pl >@@ -141,15 +141,15 @@ use strict; # always use > > ## 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::Members qw(GetMember); >+use C4::Output qw( output_html_with_http_headers ); >+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 C4::Members qw( GetMember ); > 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::LibraryCategories; >diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl >index a48a85260b..3cbbcf8eb3 100755 >--- a/catalogue/showmarc.pl >+++ b/catalogue/showmarc.pl >@@ -30,11 +30,11 @@ use Encode; > > # Koha modules used > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Biblio; >-use C4::ImportBatch; >-use C4::XSLT (); >+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 qw( engine ); > > my $input= new CGI; > my $biblionumber= $input->param('id'); >diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl >index 90c6de604a..038b1db831 100755 >--- a/catalogue/updateitem.pl >+++ b/catalogue/updateitem.pl >@@ -20,12 +20,12 @@ > use strict; > use warnings; > use CGI qw ( -utf8 ); >-use C4::Auth; >+use C4::Auth qw( checkauth ); > use C4::Context; > use C4::Biblio; >-use C4::Items; >+use C4::Items qw( GetItem ModItem ); > use C4::Output; >-use C4::Circulation; >+use C4::Circulation qw( LostItem ); > use C4::Reserves; > > my $cgi= new CGI; >diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl >index 013c312bb2..eb63ea65b8 100755 >--- a/cataloguing/addbiblio.pl >+++ b/cataloguing/addbiblio.pl >@@ -22,20 +22,20 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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 ); >+use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetUsedMarcStructure GetMarcBiblio PrepHostMarcField prepare_host_field TransformHtmlToMarc BiblioAutoLink ModBiblio AddBiblio DelBiblio ); >+use C4::Search qw( FindDuplicate enabled_staff_search_views ); >+use C4::Auth qw( get_template_and_user ); > 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( GetImportRecordMarc ); >+use C4::Charset qw( SetMarcUnicodeFlag ); > use Koha::BiblioFrameworks; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > > use Koha::ItemTypes; > use Koha::Libraries; >diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl >index 1d52bb8007..c9df34232c 100755 >--- a/cataloguing/addbooks.pl >+++ b/cataloguing/addbooks.pl >@@ -27,12 +27,12 @@ > use strict; > use warnings; > use CGI qw ( -utf8 ); >-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::Search; >+use C4::Breeding qw( BreedingSearch ); >+use C4::Output qw( output_html_with_http_headers pagination_bar ); >+use C4::Koha qw( getnbpages ); >+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 c986b19fe5..6ae6431e9c 100755 >--- a/cataloguing/additem.pl >+++ b/cataloguing/additem.pl >@@ -22,22 +22,22 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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_html_with_http_headers ); >+use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetMarcBiblio TransformMarcToKoha TransformHtmlToXml ModBiblio EmbedItemsInMarcBiblio GetAuthorisedValueDesc GetBiblionumberFromItemnumber GetBiblio IsMarcStructureInternal ); >+use C4::Items qw( GetItem ModItem AddItemFromMarc AddItem GetMarcItem DelItem DelItemCheck GetItemnumbersForBiblio ModItemFromMarc GetBarcodeFromItemnumber ); > use C4::Context; >-use C4::Circulation; >-use C4::Koha; >-use C4::ClassSource; >-use Koha::DateUtils; >+use C4::Circulation qw( LostItem ); >+use C4::Koha qw( GetAuthorisedValues ); >+use C4::ClassSource qw( GetClassSources GetClassSource ); >+use Koha::DateUtils qw( dt_from_string ); > use Koha::ItemTypes; > use Koha::Libraries; > 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; >+use C4::Members qw( GetMember ); > > use MARC::File::XML; > use URI::Escape; >diff --git a/cataloguing/editor.pl b/cataloguing/editor.pl >index fe31c0ba9a..03ee1f4beb 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; > >diff --git a/cataloguing/linkitem.pl b/cataloguing/linkitem.pl >index 082c7b0e1f..623f518cdb 100755 >--- a/cataloguing/linkitem.pl >+++ b/cataloguing/linkitem.pl >@@ -21,10 +21,10 @@ > > use strict; > 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 GetBiblionumberFromItemnumber GetBiblio PrepHostMarcField ModBiblio ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); > use C4::Context; > use C4::Koha; > >diff --git a/cataloguing/merge.pl b/cataloguing/merge.pl >index 11bb4e2cb4..3d57bb4ecc 100755 >--- a/cataloguing/merge.pl >+++ b/cataloguing/merge.pl >@@ -21,14 +21,14 @@ > 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( MoveItemFromBiblio ); >+use C4::Biblio qw( TransformHtmlToMarc GetMarcBiblio ModBiblio GetBiblioItemByBiblioNumber GetBiblio DelBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData ); >+use C4::Serials qw( CountSubscriptionFromBiblionumber ); > use C4::Koha; >-use C4::Reserves qw/MergeHolds/; >-use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/; >+use C4::Reserves qw( MergeHolds ); >+use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ModOrder ); > > use Koha::BiblioFrameworks; > use Koha::Items; >diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl >index aef7dcbfb9..1d1c8b147c 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 79736a6034..433384cae7 100755 >--- a/cataloguing/moveitem.pl >+++ b/cataloguing/moveitem.pl >@@ -22,10 +22,10 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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( GetBiblioData GetBiblio GetBiblioFromItemNumber ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode 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 61204e9fd8..c613ff7e99 100644 >--- 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 3bd49f2280..8875aef051 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 Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > use Algorithm::CheckDigits; > >diff --git a/cataloguing/value_builder/barcode_manual.pl b/cataloguing/value_builder/barcode_manual.pl >index a0357697b6..32a9e8f469 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 Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $DEBUG = 0; > >diff --git a/cataloguing/value_builder/callnumber-KU.pl b/cataloguing/value_builder/callnumber-KU.pl >index 5cbdd25905..758243b92c 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 aeca228a20..64eaec50fa 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 51767a92f3..9344f354d8 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 ); > > my $builder = sub { > my ( $params ) = @_; >diff --git a/cataloguing/value_builder/dateaccessioned.pl b/cataloguing/value_builder/dateaccessioned.pl >index 5fc1c452e6..319bbff7c2 100755 >--- a/cataloguing/value_builder/dateaccessioned.pl >+++ b/cataloguing/value_builder/dateaccessioned.pl >@@ -20,8 +20,8 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > use Modern::Perl; >-use C4::Biblio qw/GetMarcFromKohaField/; >-use Koha::DateUtils; >+use C4::Biblio qw( GetMarcFromKohaField ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $builder = sub { > my ( $params ) = @_; >diff --git a/cataloguing/value_builder/macles.pl b/cataloguing/value_builder/macles.pl >index bed0c88f66..56dcdcf3c3 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 aeb5df1949..f265826bab 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 a64f407e59..2460ea91a0 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 e47a20de48..6e4810e6b9 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 fe109a2498..917f4ac25d 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 f066c7ec21..5f8b07a1db 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 755300a827..0757b6be11 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 1b7aa7e1cd..2be8fd9070 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 ) = @_; >@@ -92,4 +92,4 @@ my $launcher = sub { > output_html_with_http_headers $input, $cookie, $template->output; > }; > >-return { builder => $builder, launcher => $launcher }; >\ No newline at end of file >+return { builder => $builder, launcher => $launcher }; >diff --git a/cataloguing/value_builder/marc21_linking_section.pl b/cataloguing/value_builder/marc21_linking_section.pl >index 7efa49eee3..2ec288ee7d 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 8bf3ba7e13..7e68105564 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 strict; >-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 b626d370b2..3dc3f2d577 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 strict; >-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 d0842d788a..3185b9e580 100755 >--- a/cataloguing/value_builder/normarc_leader.pl >+++ b/cataloguing/value_builder/normarc_leader.pl >@@ -19,12 +19,12 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > use strict; >-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 789a05527e..1ca94ed96e 100755 >--- a/cataloguing/value_builder/stocknumberAV.pl >+++ b/cataloguing/value_builder/stocknumberAV.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/stocknumberam123.pl b/cataloguing/value_builder/stocknumberam123.pl >index 17d64ac790..0702a7686f 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 1df7e80ce4..0caf3b97e3 100755 >--- a/cataloguing/value_builder/unimarc_field_010.pl >+++ b/cataloguing/value_builder/unimarc_field_010.pl >@@ -20,10 +20,10 @@ > > use strict; > use warnings; >-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 3f936a4dbd..0111a37d07 100755 >--- a/cataloguing/value_builder/unimarc_field_100.pl >+++ b/cataloguing/value_builder/unimarc_field_100.pl >@@ -22,10 +22,10 @@ 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::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 ac5d506112..c8db3d808e 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 0afc26f2cc..2c7559799e 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 031edab1cf..b70f5f819c 100755 >--- a/cataloguing/value_builder/unimarc_field_106.pl >+++ b/cataloguing/value_builder/unimarc_field_106.pl >@@ -20,12 +20,12 @@ > > 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::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 547b4087bd..ead5552b7c 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 68bbdcb9db..7f6954c68c 100755 >--- a/cataloguing/value_builder/unimarc_field_115a.pl >+++ b/cataloguing/value_builder/unimarc_field_115a.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_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl >index 5aa81d4c55..23c6e566ea 100755 >--- a/cataloguing/value_builder/unimarc_field_115b.pl >+++ b/cataloguing/value_builder/unimarc_field_115b.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_116.pl b/cataloguing/value_builder/unimarc_field_116.pl >index da5ab99d28..4e44d9ce8c 100755 >--- a/cataloguing/value_builder/unimarc_field_116.pl >+++ b/cataloguing/value_builder/unimarc_field_116.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_117.pl b/cataloguing/value_builder/unimarc_field_117.pl >index 995e53b9f5..b4429c5cf8 100755 >--- a/cataloguing/value_builder/unimarc_field_117.pl >+++ b/cataloguing/value_builder/unimarc_field_117.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_120.pl b/cataloguing/value_builder/unimarc_field_120.pl >index 50abed84fe..ce3679b75f 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 6f8092c118..cae41a5f79 100755 >--- a/cataloguing/value_builder/unimarc_field_121a.pl >+++ b/cataloguing/value_builder/unimarc_field_121a.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_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl >index 209121026a..e2a2b7faf7 100755 >--- a/cataloguing/value_builder/unimarc_field_121b.pl >+++ b/cataloguing/value_builder/unimarc_field_121b.pl >@@ -20,12 +20,12 @@ > > 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::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 36a5459643..c9a99b04e1 100755 >--- a/cataloguing/value_builder/unimarc_field_122.pl >+++ b/cataloguing/value_builder/unimarc_field_122.pl >@@ -20,12 +20,12 @@ > > 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::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 3d3b2d3c85..0c9ac22277 100755 >--- a/cataloguing/value_builder/unimarc_field_123a.pl >+++ b/cataloguing/value_builder/unimarc_field_123a.pl >@@ -20,12 +20,12 @@ > > 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::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 3f0db3efa0..3e4bf24228 100755 >--- a/cataloguing/value_builder/unimarc_field_123d.pl >+++ b/cataloguing/value_builder/unimarc_field_123d.pl >@@ -20,12 +20,12 @@ > > 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::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 3f0db3efa0..3e4bf24228 100755 >--- a/cataloguing/value_builder/unimarc_field_123e.pl >+++ b/cataloguing/value_builder/unimarc_field_123e.pl >@@ -20,12 +20,12 @@ > > 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::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 84c9294994..504485eef6 100755 >--- a/cataloguing/value_builder/unimarc_field_123f.pl >+++ b/cataloguing/value_builder/unimarc_field_123f.pl >@@ -20,12 +20,12 @@ > > 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::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 3f0db3efa0..3e4bf24228 100755 >--- a/cataloguing/value_builder/unimarc_field_123g.pl >+++ b/cataloguing/value_builder/unimarc_field_123g.pl >@@ -20,12 +20,12 @@ > > 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::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 137b9d0ae9..12b91dcaa3 100755 >--- a/cataloguing/value_builder/unimarc_field_123i.pl >+++ b/cataloguing/value_builder/unimarc_field_123i.pl >@@ -20,12 +20,12 @@ > > 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::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 52cb4bf6fa..602d0c3e51 100755 >--- a/cataloguing/value_builder/unimarc_field_123j.pl >+++ b/cataloguing/value_builder/unimarc_field_123j.pl >@@ -20,12 +20,12 @@ > > 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::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 78f0dc338c..41348a6a37 100755 >--- a/cataloguing/value_builder/unimarc_field_124.pl >+++ b/cataloguing/value_builder/unimarc_field_124.pl >@@ -20,12 +20,12 @@ > > 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::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 c7782bc4e8..07fbb6ad56 100755 >--- a/cataloguing/value_builder/unimarc_field_124a.pl >+++ b/cataloguing/value_builder/unimarc_field_124a.pl >@@ -20,12 +20,12 @@ > > 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::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 6f9c8934ca..a62a580b1a 100755 >--- a/cataloguing/value_builder/unimarc_field_124b.pl >+++ b/cataloguing/value_builder/unimarc_field_124b.pl >@@ -20,12 +20,12 @@ > > 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::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 f14456dc20..be4b0c5365 100755 >--- a/cataloguing/value_builder/unimarc_field_124c.pl >+++ b/cataloguing/value_builder/unimarc_field_124c.pl >@@ -20,12 +20,12 @@ > > 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::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 5d36466687..dcb938fe0a 100755 >--- a/cataloguing/value_builder/unimarc_field_124d.pl >+++ b/cataloguing/value_builder/unimarc_field_124d.pl >@@ -20,12 +20,12 @@ > > 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::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 cd0e7d0b65..9ac5902e3b 100755 >--- a/cataloguing/value_builder/unimarc_field_124e.pl >+++ b/cataloguing/value_builder/unimarc_field_124e.pl >@@ -20,12 +20,12 @@ > > 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::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 5a823c99ed..4fbce6ff6a 100755 >--- a/cataloguing/value_builder/unimarc_field_124f.pl >+++ b/cataloguing/value_builder/unimarc_field_124f.pl >@@ -20,12 +20,12 @@ > > 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::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 25d97b95ee..49535a7e76 100755 >--- a/cataloguing/value_builder/unimarc_field_124g.pl >+++ b/cataloguing/value_builder/unimarc_field_124g.pl >@@ -20,12 +20,12 @@ > > 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::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 2b56b0ba1d..6ccf9c0d1f 100755 >--- a/cataloguing/value_builder/unimarc_field_125.pl >+++ b/cataloguing/value_builder/unimarc_field_125.pl >@@ -20,12 +20,12 @@ > > 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::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 2d862afa55..6dbb727ba1 100755 >--- a/cataloguing/value_builder/unimarc_field_125a.pl >+++ b/cataloguing/value_builder/unimarc_field_125a.pl >@@ -20,12 +20,12 @@ > > 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::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 09142efe1f..47a0709afd 100755 >--- a/cataloguing/value_builder/unimarc_field_125b.pl >+++ b/cataloguing/value_builder/unimarc_field_125b.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_126.pl b/cataloguing/value_builder/unimarc_field_126.pl >index 78f0dc338c..41348a6a37 100755 >--- a/cataloguing/value_builder/unimarc_field_126.pl >+++ b/cataloguing/value_builder/unimarc_field_126.pl >@@ -20,12 +20,12 @@ > > 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::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 e9b141d445..43ba94cb45 100755 >--- a/cataloguing/value_builder/unimarc_field_126a.pl >+++ b/cataloguing/value_builder/unimarc_field_126a.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_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl >index 592c96a861..32b10dccfc 100755 >--- a/cataloguing/value_builder/unimarc_field_126b.pl >+++ b/cataloguing/value_builder/unimarc_field_126b.pl >@@ -20,12 +20,12 @@ > > 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::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 3670f9d131..6a8b32dc84 100755 >--- a/cataloguing/value_builder/unimarc_field_127.pl >+++ b/cataloguing/value_builder/unimarc_field_127.pl >@@ -20,12 +20,12 @@ > > 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::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 dafa0d1137..4700074b19 100755 >--- a/cataloguing/value_builder/unimarc_field_128a.pl >+++ b/cataloguing/value_builder/unimarc_field_128a.pl >@@ -20,12 +20,12 @@ > > 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::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 2a4290d789..b6e9ba86d0 100755 >--- a/cataloguing/value_builder/unimarc_field_128b.pl >+++ b/cataloguing/value_builder/unimarc_field_128b.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_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl >index eb32a49658..ab26be707d 100755 >--- a/cataloguing/value_builder/unimarc_field_128c.pl >+++ b/cataloguing/value_builder/unimarc_field_128c.pl >@@ -20,12 +20,12 @@ > > 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::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 ab23ad8e83..95556c4acf 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 329c454034..e18abadb65 100755 >--- a/cataloguing/value_builder/unimarc_field_135a.pl >+++ b/cataloguing/value_builder/unimarc_field_135a.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_140.pl b/cataloguing/value_builder/unimarc_field_140.pl >index bcdb24481e..56e849b417 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 6104c91297..d4b13ad107 100755 >--- a/cataloguing/value_builder/unimarc_field_141.pl >+++ b/cataloguing/value_builder/unimarc_field_141.pl >@@ -20,12 +20,12 @@ > > 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::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 fe9f19a8e4..9c2f5e8794 100755 >--- a/cataloguing/value_builder/unimarc_field_210c.pl >+++ b/cataloguing/value_builder/unimarc_field_210c.pl >@@ -21,14 +21,14 @@ > use strict; > use warnings; > >-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 eb73cfda92..c70204aecb 100755 >--- a/cataloguing/value_builder/unimarc_field_210c_bis.pl >+++ b/cataloguing/value_builder/unimarc_field_210c_bis.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 ); > > 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 0e0dca7dcd..8c57cc90e7 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 8bfa488d1b..8e43550f59 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 75c9dec0bc..468f7f4753 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 2a7ca7067f..dedd9005a8 100755 >--- a/cataloguing/value_builder/unimarc_field_686a.pl >+++ b/cataloguing/value_builder/unimarc_field_686a.pl >@@ -19,12 +19,12 @@ > > 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::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 4adba962a0..7fc3396f82 100755 >--- a/cataloguing/value_builder/unimarc_field_700-4.pl >+++ b/cataloguing/value_builder/unimarc_field_700-4.pl >@@ -21,12 +21,12 @@ > > 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::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 b333061854..b708a31357 100755 >--- a/cataloguing/value_builder/unimarc_leader.pl >+++ b/cataloguing/value_builder/unimarc_leader.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/ysearch.pl b/cataloguing/ysearch.pl >index 3aa209c2d4..1c69a87c5c 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 = new CGI; >diff --git a/cataloguing/z3950_auth_search.pl b/cataloguing/z3950_auth_search.pl >index c808b7b7b1..213b24a195 100755 >--- a/cataloguing/z3950_auth_search.pl >+++ b/cataloguing/z3950_auth_search.pl >@@ -20,10 +20,10 @@ use strict; > use warnings; > 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 = new CGI; >diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl >index 6ab1baa8cd..4dae142f9d 100755 >--- a/cataloguing/z3950_search.pl >+++ b/cataloguing/z3950_search.pl >@@ -22,10 +22,10 @@ use strict; > use warnings; > 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 = new CGI; >diff --git a/circ/add_message.pl b/circ/add_message.pl >index 4233e9077e..dd8d44f8ae 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 7c8ec50823..085411f4e3 100755 >--- a/circ/article-request-slip.pl >+++ b/circ/article-request-slip.pl >@@ -22,8 +22,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::ArticleRequests; > use Koha::Patrons; > >diff --git a/circ/article-requests.pl b/circ/article-requests.pl >index d0c2805250..302ef479de 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 = new CGI; >diff --git a/circ/bookcount.pl b/circ/bookcount.pl >index 2976a05b66..6e6272193b 100755 >--- a/circ/bookcount.pl >+++ b/circ/bookcount.pl >@@ -26,10 +26,10 @@ use CGI qw ( -utf8 ); > use C4::Debug; > use C4::Context; > use C4::Circulation; >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Koha; >-use C4::Auth; >-use C4::Biblio; # GetBiblioItemData >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblioItemData GetBiblio ); > use Koha::DateUtils; > use Koha::Libraries; > >diff --git a/circ/branchoverdues.pl b/circ/branchoverdues.pl >index f334dd1a02..e64a84d802 100755 >--- a/circ/branchoverdues.pl >+++ b/circ/branchoverdues.pl >@@ -20,13 +20,13 @@ use strict; > #use warnings; FIXME - Bug 2505 > use C4::Context; > use CGI qw ( -utf8 ); >-use C4::Output; >-use C4::Auth; >-use C4::Overdues; # AddNotifyLine >-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 AddNotifyLine RemoveNotifyLine ); >+use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure GetMarcBiblio GetRecordValue ); >+use C4::Koha qw( GetAuthorisedValues ); > use C4::Debug; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::BiblioFrameworks; > use Data::Dumper; > >diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl >index 0022e27e53..10b79ac843 100755 >--- a/circ/branchtransfers.pl >+++ b/circ/branchtransfers.pl >@@ -23,14 +23,14 @@ > use strict; > use warnings; > use CGI qw ( -utf8 ); >-use C4::Circulation; >-use C4::Output; >-use C4::Reserves; >-use C4::Biblio; >-use C4::Items; >-use C4::Auth qw/:DEFAULT get_session/; >+use C4::Circulation qw( transferbook ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Reserves qw( CancelReserve ModReserve ModReserveAffect ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); >+use C4::Auth qw( get_session get_template_and_user ); > use C4::Koha; >-use C4::Members; >+use C4::Members qw( GetMember ); > use Koha::BiblioFrameworks; > use Koha::AuthorisedValues; > >diff --git a/circ/circulation-home.pl b/circ/circulation-home.pl >index 7d24d79663..617caec56d 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; > >diff --git a/circ/circulation.pl b/circ/circulation.pl >index ebb8d8bab1..b55aed7bb9 100755 >--- a/circ/circulation.pl >+++ b/circ/circulation.pl >@@ -27,26 +27,26 @@ use warnings; > use CGI qw ( -utf8 ); > use DateTime; > use DateTime::Duration; >-use C4::Output; >-use C4::Print; >-use C4::Auth qw/:DEFAULT get_session haspermission/; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Print qw( NetworkPrint ); >+use C4::Auth qw( get_session get_template_and_user haspermission ); > use C4::Koha; # GetPrinter >-use C4::Circulation; >+use C4::Circulation qw( barcodedecode decode CanBookBeIssued AddIssue ); > use C4::Utils::DataTables::Members; >-use C4::Members; >-use C4::Biblio; >-use C4::Search; >+use C4::Members qw( GetMember IssueSlip patronflags GetMemberAccountRecords ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio TransformMarcToKoha GetRecordValue GetMarcBiblio GetFrameworkCode ); >+use C4::Search qw( new_record_from_zebra ); > use MARC::Record; > use C4::Reserves; > use Koha::Holds; > use C4::Context; > use CGI::Session; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember IssueSlip patronflags GetMemberAccountRecords ); > use Koha::AuthorisedValues; > use Koha::CsvProfiles; > use Koha::Patron; >-use Koha::Patron::Debarments qw(GetDebarments); >-use Koha::DateUtils; >+use Koha::Patron::Debarments qw( GetDebarments ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Database; > use Koha::BiblioFrameworks; > use Koha::Patron::Messages; >diff --git a/circ/del_message.pl b/circ/del_message.pl >index ccce6613b3..f53872d351 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 bd09e21586..b1a22af76b 100755 >--- a/circ/hold-transfer-slip.pl >+++ b/circ/hold-transfer-slip.pl >@@ -21,10 +21,10 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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 8cf93b17aa..47e752f6e4 100755 >--- a/circ/offline-mf.pl >+++ b/circ/offline-mf.pl >@@ -19,7 +19,7 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > > my $query = new CGI; > my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user( >diff --git a/circ/offline.pl b/circ/offline.pl >index b7757e214e..8f029a83e6 100755 >--- a/circ/offline.pl >+++ b/circ/offline.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; > > my $query = new CGI; >diff --git a/circ/on-site_checkouts.pl b/circ/on-site_checkouts.pl >index aac5e79064..4fb3d2f51e 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 68abc84527..4e6a11548f 100755 >--- a/circ/overdue.pl >+++ b/circ/overdue.pl >@@ -21,12 +21,12 @@ > > 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 C4::Debug; > use Text::CSV_XS; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use DateTime; > use DateTime::Format::MySQL; > >diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl >index 15873201b1..fea89d26e5 100755 >--- a/circ/pendingreserves.pl >+++ b/circ/pendingreserves.pl >@@ -22,12 +22,12 @@ use Modern::Perl; > use constant PULL_INTERVAL => 2; > > 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 Koha::Biblios; > use C4::Debug; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use DateTime::Duration; > > my $input = new CGI; >diff --git a/circ/renew.pl b/circ/renew.pl >index 246c26629f..23daba4388 100755 >--- a/circ/renew.pl >+++ b/circ/renew.pl >@@ -21,11 +21,11 @@ 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( CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal ); > use C4::Koha; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Database; > use Koha::BiblioFrameworks; > >diff --git a/circ/request-article.pl b/circ/request-article.pl >index ea33b3ee5a..0edd74b0d6 100755 >--- a/circ/request-article.pl >+++ b/circ/request-article.pl >@@ -19,8 +19,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::Utils::DataTables::Members; > use Koha::Biblios; > use Koha::Patrons; >diff --git a/circ/reserveratios.pl b/circ/reserveratios.pl >index 56c84d8f9b..168acee636 100755 >--- a/circ/reserveratios.pl >+++ b/circ/reserveratios.pl >@@ -25,12 +25,12 @@ use CGI qw ( -utf8 ); > use Date::Calc qw/Today Add_Delta_YM/; > > 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::Debug; >-use C4::Biblio qw/GetMarcBiblio GetRecordValue GetFrameworkCode/; >-use C4::Acquisition qw/GetOrdersByBiblionumber/; >-use Koha::DateUtils; >+use C4::Biblio qw( GetMarcBiblio GetRecordValue GetFrameworkCode ); >+use C4::Acquisition qw( GetOrders GetOrdersByBiblionumber GetOrder ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $input = new CGI; > my $startdate = $input->param('from'); >diff --git a/circ/returns.pl b/circ/returns.pl >index d1b95e8d82..90c9c2d9bd 100755 >--- a/circ/returns.pl >+++ b/circ/returns.pl >@@ -36,19 +36,19 @@ $SIG{ __DIE__ } = sub { Carp::confess( @_ ) }; > use CGI qw ( -utf8 ); > use DateTime; > use C4::Context; >-use C4::Auth qw/:DEFAULT get_session/; >-use C4::Output; >-use C4::Circulation; >+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 decode updateWrongTransfer DeleteTransfer GetBranchItemRule AddReturn LostItem ); > use C4::Print; >-use C4::Reserves; >-use C4::Biblio; >-use C4::Items; >-use C4::Members; >-use C4::Members::Messaging; >-use C4::Koha; # FIXME : is it still useful ? >-use C4::RotatingCollections; >+use C4::Reserves qw( CancelReserve ModReserve ModReserveAffect GetOtherReserves GetReserve GetReservesFromBorrowernumber ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio ); >+use C4::Items qw( ModItem ModItemTransfer GetItem GetItemnumberFromBarcode ); >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); >+use C4::Koha qw( GetPrinters GetPrinter ); >+use C4::RotatingCollections qw( GetCollection GetCollectionItemBranches ); > use Koha::AuthorisedValues; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Calendar; > use Koha::Checkouts; > use Koha::BiblioFrameworks; >diff --git a/circ/selectbranchprinter.pl b/circ/selectbranchprinter.pl >index 8099a38466..8a335c3688 100755 >--- a/circ/selectbranchprinter.pl >+++ b/circ/selectbranchprinter.pl >@@ -22,10 +22,10 @@ use warnings; > 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::Print; # GetPrinters >-use C4::Koha; >+use C4::Koha qw( GetPrinters GetPrinter ); > use Koha::BiblioFrameworks; > use Koha::Libraries; > >diff --git a/circ/transfer-slip.pl b/circ/transfer-slip.pl >index 52116729ea..90d6a3a7f4 100755 >--- a/circ/transfer-slip.pl >+++ b/circ/transfer-slip.pl >@@ -22,10 +22,10 @@ use strict; > use warnings; > > 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/transferstoreceive.pl b/circ/transferstoreceive.pl >index bf1a756e29..9b227f4a3c 100755 >--- a/circ/transferstoreceive.pl >+++ b/circ/transferstoreceive.pl >@@ -22,22 +22,22 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Biblio; >-use C4::Circulation; >-use C4::Members; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetMarcBiblio GetRecordValue GetFrameworkCode ); >+use C4::Circulation qw( GetTransfers GetTransfersFromTo ); >+use C4::Members qw( GetMember ); > use Date::Calc qw( > Today > Add_Delta_Days > Date_to_Days > ); > >-use C4::Koha; >+use C4::Koha qw( getitemtypeinfo ); > use C4::Reserves; > use Koha::Items; > use Koha::Libraries; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::BiblioFrameworks; > > my $input = new CGI; >diff --git a/circ/view_holdsqueue.pl b/circ/view_holdsqueue.pl >index 75b02d5944..4490384b52 100755 >--- a/circ/view_holdsqueue.pl >+++ b/circ/view_holdsqueue.pl >@@ -25,11 +25,11 @@ This script displays items in the tmp_holdsqueue table > use strict; > use warnings; > 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 af41394739..49aec24d35 100755 >--- a/circ/waitingreserves.pl >+++ b/circ/waitingreserves.pl >@@ -22,20 +22,20 @@ use strict; > use warnings; > 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::Members qw( GetMember GetFirstValidEmailAddress ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetRecordValue GetMarcBiblio GetFrameworkCode ); >+use C4::Items qw( ModItem ModItemTransfer ); > use Date::Calc qw( > Today > Add_Delta_Days > Date_to_Days > ); >-use C4::Reserves; >-use C4::Koha; >-use Koha::DateUtils; >+use C4::Reserves qw( GetReserve GetReservesForBranch ModReserve ModReserveCancelAll ); >+use C4::Koha qw( getitemtypeinfo ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::BiblioFrameworks; > > my $input = new CGI; >diff --git a/circ/ypattrodue-attr-search-authvalue.pl b/circ/ypattrodue-attr-search-authvalue.pl >index 7834b3bc24..7a89ce1fce 100755 >--- a/circ/ypattrodue-attr-search-authvalue.pl >+++ b/circ/ypattrodue-attr-search-authvalue.pl >@@ -22,7 +22,7 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Auth qw/check_cookie_auth/; >+use C4::Auth qw( check_cookie_auth ); > use C4::Debug; > > my $input = new CGI; >@@ -56,4 +56,4 @@ while ( my $rec = $sth->fetchrow_hashref ) { > "}"; > $i++; > } >-print "]"; >\ No newline at end of file >+print "]"; >diff --git a/circ/ysearch.pl b/circ/ysearch.pl >index 37eaed4259..42a173f96f 100755 >--- a/circ/ysearch.pl >+++ b/circ/ysearch.pl >@@ -27,9 +27,9 @@ > 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/; >+use Koha::DateUtils qw( format_sqldatetime ); > > use JSON qw( to_json ); > >diff --git a/clubs/club-enrollments.pl b/clubs/club-enrollments.pl >index 01ef24d19f..51d1523854 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 = new CGI; >diff --git a/clubs/clubs-add-modify.pl b/clubs/clubs-add-modify.pl >index dabac245fa..7b8481a5ea 100755 >--- a/clubs/clubs-add-modify.pl >+++ b/clubs/clubs-add-modify.pl >@@ -21,10 +21,10 @@ 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::DateUtils qw( dt_from_string ); > use Koha::Clubs; > use Koha::Club::Fields; > >diff --git a/clubs/clubs.pl b/clubs/clubs.pl >index 4429e236a8..dbf0a228ea 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 f50da65a5a..7cb63d1a32 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 bc836277af..0ecac5d6cb 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 = new CGI; >diff --git a/clubs/templates-add-modify.pl b/clubs/templates-add-modify.pl >index 254a99e219..e1b53180d7 100755 >--- a/clubs/templates-add-modify.pl >+++ b/clubs/templates-add-modify.pl >@@ -21,10 +21,10 @@ 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::DateUtils qw( dt_from_string ); > use Koha::Club::Templates; > use Koha::Club::Template::Fields; > use Koha::Club::Template::EnrollmentFields; >diff --git a/course_reserves/add_items.pl b/course_reserves/add_items.pl >index 89cbb47eb7..8975730a68 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 GetCourseItem GetCourseReserve ModCourse ModCourseItem ModCourseReserve ); > > use Koha::ItemTypes; > >diff --git a/course_reserves/course-details.pl b/course_reserves/course-details.pl >index af1eb62337..d410518bf7 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 = new CGI; > >diff --git a/course_reserves/course-reserves.pl b/course_reserves/course-reserves.pl >index ca666969d4..c3bba0c1a4 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 = new CGI; > >diff --git a/course_reserves/course.pl b/course_reserves/course.pl >index 5a87cdae94..86320de67b 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 = new CGI; > >diff --git a/course_reserves/mod_course.pl b/course_reserves/mod_course.pl >index 844d157dd1..f029724b42 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 = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/edithelp.pl b/edithelp.pl >index dca61b108a..60d88e79b3 100755 >--- a/edithelp.pl >+++ b/edithelp.pl >@@ -18,9 +18,9 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > > use Modern::Perl; >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Templates; >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use CGI qw ( -utf8 ); > > use vars qw($debug); >diff --git a/errors/400.pl b/errors/400.pl >index 7c947dbf29..66fb66abb9 100755 >--- a/errors/400.pl >+++ b/errors/400.pl >@@ -19,8 +19,8 @@ > use strict; > use warnings; > 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/errors/401.pl b/errors/401.pl >index fcd2d88b16..4676b5528e 100755 >--- a/errors/401.pl >+++ b/errors/401.pl >@@ -18,8 +18,8 @@ > use strict; > use warnings; > 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/errors/402.pl b/errors/402.pl >index 1a9f3a6876..b91078a196 100755 >--- a/errors/402.pl >+++ b/errors/402.pl >@@ -19,8 +19,8 @@ > use strict; > use warnings; > 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/errors/403.pl b/errors/403.pl >index 3a46f68a2f..9216d37d9b 100755 >--- a/errors/403.pl >+++ b/errors/403.pl >@@ -19,8 +19,8 @@ > use strict; > use warnings; > 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/errors/404.pl b/errors/404.pl >index 57191f1600..a469f7af86 100755 >--- a/errors/404.pl >+++ b/errors/404.pl >@@ -19,8 +19,8 @@ > use strict; > use warnings; > 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/errors/500.pl b/errors/500.pl >index 0008faf5c5..91542378c9 100755 >--- a/errors/500.pl >+++ b/errors/500.pl >@@ -19,8 +19,8 @@ > use strict; > use warnings; > 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/help.pl b/help.pl >index ad86a2da29..6aa8663321 100755 >--- a/help.pl >+++ b/help.pl >@@ -20,7 +20,7 @@ > use strict; > use warnings; > use C4::Templates; >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > # use C4::Auth; > use C4::Context; > use CGI qw ( -utf8 ); >diff --git a/installer/install.pl b/installer/install.pl >index ac432148ed..95ab9ab04d 100755 >--- a/installer/install.pl >+++ b/installer/install.pl >@@ -21,14 +21,14 @@ use strict; > use warnings; > 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 Koha; >diff --git a/installer/onboarding.pl b/installer/onboarding.pl >index 8b032c999b..504f74192b 100755 >--- a/installer/onboarding.pl >+++ b/installer/onboarding.pl >@@ -19,14 +19,14 @@ > > 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; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( checkcardnumber AddMember ); > use Koha::Patrons; > use Koha::Libraries; > use Koha::Database; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref dt_from_string ); > use Koha::Patron::Categories; > use Koha::Patron::Category; > use Koha::ItemTypes; >diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl >index c15c7e7405..f77dcc8e7e 100755 >--- a/labels/label-create-pdf.pl >+++ b/labels/label-create-pdf.pl >@@ -22,7 +22,7 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Debug; > use C4::Creators; > use C4::Labels; >diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl >index 5252213a5f..b98f4421c0 100755 >--- a/labels/label-edit-batch.pl >+++ b/labels/label-edit-batch.pl >@@ -24,9 +24,9 @@ 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::Items qw(GetItem GetItemnumberFromBarcode); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); > use C4::Creators; > use C4::Labels; > >diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl >index c1aafd4c46..7285027ad7 100755 >--- a/labels/label-edit-layout.pl >+++ b/labels/label-edit-layout.pl >@@ -24,8 +24,8 @@ use warnings; > 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 e5ed353e74..90164b5d3d 100755 >--- a/labels/label-edit-profile.pl >+++ b/labels/label-edit-profile.pl >@@ -23,8 +23,8 @@ use warnings; > > 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-template.pl b/labels/label-edit-template.pl >index bcee714b04..47745855b3 100755 >--- a/labels/label-edit-template.pl >+++ b/labels/label-edit-template.pl >@@ -23,8 +23,8 @@ use warnings; > > 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 ca581acab7..f662d561e7 100755 >--- a/labels/label-home.pl >+++ b/labels/label-home.pl >@@ -23,8 +23,8 @@ use warnings; > > 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 = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl >index ddc0bf88dd..80c99315e4 100755 >--- a/labels/label-item-search.pl >+++ b/labels/label-item-search.pl >@@ -25,15 +25,15 @@ 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::Creators::Lib qw(html_table); >+use C4::Search qw( new_record_from_zebra ); >+use C4::Biblio qw( TransformMarcToKoha ); >+use C4::Creators::Lib qw( html_table ); > use C4::Debug; > >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Items; > use Koha::ItemTypes; > use Koha::SearchEngine::Search; >diff --git a/labels/label-manage.pl b/labels/label-manage.pl >index 1d8a34e9f3..4ac6b38952 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 ced9e82c28..091681810e 100755 >--- a/labels/label-print.pl >+++ b/labels/label-print.pl >@@ -23,9 +23,9 @@ use warnings; > 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::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats); >+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; > > my $cgi = new CGI; >diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl >index 11b3a7888a..d4c9701a02 100755 >--- a/labels/spinelabel-home.pl >+++ b/labels/spinelabel-home.pl >@@ -18,8 +18,8 @@ > use warnings; > use strict; > 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 08970d12a0..1fce1886d3 100755 >--- a/labels/spinelabel-print.pl >+++ b/labels/spinelabel-print.pl >@@ -18,8 +18,8 @@ > use warnings; > use strict; > 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 = new CGI; >diff --git a/mainpage.pl b/mainpage.pl >index c1df82b442..8647ff7a0b 100755 >--- a/mainpage.pl >+++ b/mainpage.pl >@@ -21,12 +21,12 @@ > > 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::NewsChannels qw( GetNewsToDisplay ); > use C4::Suggestions qw/CountSuggestion/; >-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/boraccount.pl b/members/boraccount.pl >index 4f8ddf04b0..ff6d935d67 100755 >--- a/members/boraccount.pl >+++ b/members/boraccount.pl >@@ -25,12 +25,12 @@ > use strict; > use warnings; > >-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::Members; >-use C4::Accounts; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Accounts qw( ReversePayment ); >+use C4::Members qw( GetMember GetMemberAccountRecords ); > use Koha::Patron::Images; > > use Koha::Patron::Categories; >diff --git a/members/deletemem.pl b/members/deletemem.pl >index 00d21f02e2..e2a802ff90 100755 >--- a/members/deletemem.pl >+++ b/members/deletemem.pl >@@ -26,9 +26,9 @@ use strict; > > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Members; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user haspermission ); >+use C4::Members qw( GetPendingIssues GetMember patronflags ); > use Module::Load; > use Koha::Patrons; > use Koha::Patron::Images; >diff --git a/members/discharge.pl b/members/discharge.pl >index ededd2329a..1648d014ca 100755 >--- a/members/discharge.pl >+++ b/members/discharge.pl >@@ -31,10 +31,10 @@ use Modern::Perl; > use Carp; > > use CGI qw( -utf8 ); >-use C4::Auth; >-use C4::Output; >-use C4::Members; >-use C4::Reserves; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember ); >+use C4::Reserves qw( GetReserve GetReservesFromBorrowernumber ); > use C4::Letters; > use Koha::Patron::Discharge; > use Koha::Patron::Images; >diff --git a/members/discharges.pl b/members/discharges.pl >index 4029c745e5..a3bbe044f8 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_html_with_http_headers ); > use C4::Context; > use Koha::Patron::Discharge; > >diff --git a/members/files.pl b/members/files.pl >index 5002c3ea80..133235a3e9 100755 >--- a/members/files.pl >+++ b/members/files.pl >@@ -22,10 +22,10 @@ use warnings; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Output; >-use C4::Members; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); > use C4::Debug; > > use Koha::DateUtils; >diff --git a/members/guarantor_search.pl b/members/guarantor_search.pl >index 352f124a62..b644832e34 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/housebound.pl b/members/housebound.pl >index 0ffe685548..74dea02e79 100755 >--- a/members/housebound.pl >+++ b/members/housebound.pl >@@ -26,12 +26,12 @@ > > use Modern::Perl; > use CGI; >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Context; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >-use C4::Output; >+use C4::Members::Attributes qw( GetBorrowerAttributes ); >+use C4::Output qw( output_html_with_http_headers ); > use DateTime; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Libraries; > use Koha::Patrons; > use Koha::Patron::Categories; >diff --git a/members/mancredit.pl b/members/mancredit.pl >index f8a3681f61..f2ba99f7c1 100755 >--- a/members/mancredit.pl >+++ b/members/mancredit.pl >@@ -25,14 +25,14 @@ > use strict; > use warnings; > >-use C4::Auth; >-use C4::Output; >+use C4::Auth qw( checkauth get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); > use CGI qw ( -utf8 ); > >-use C4::Members; >-use C4::Accounts; >-use C4::Items; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember ); >+use C4::Accounts qw( manualinvoice ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); >+use C4::Members qw( GetMember ); > use Koha::Patron::Images; > > use Koha::Patron::Categories; >diff --git a/members/maninvoice.pl b/members/maninvoice.pl >index e69a1ca348..139971eb82 100755 >--- a/members/maninvoice.pl >+++ b/members/maninvoice.pl >@@ -25,13 +25,13 @@ > use strict; > use warnings; > >-use C4::Auth; >-use C4::Output; >+use C4::Auth qw( checkauth get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); > use CGI qw ( -utf8 ); >-use C4::Members; >-use C4::Accounts; >-use C4::Items; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember ); >+use C4::Accounts qw( manualinvoice ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); >+use C4::Members qw( GetMember ); > use Koha::Patron::Images; > > use Koha::Patron::Categories; >diff --git a/members/member-flags.pl b/members/member-flags.pl >index 95f533017d..9bdca63ed4 100755 >--- a/members/member-flags.pl >+++ b/members/member-flags.pl >@@ -8,16 +8,16 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Output; >-use C4::Auth qw(:DEFAULT :EditPermissions); >+use C4::Output qw( 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::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember patronflags ); >+use C4::Members qw( GetMember patronflags ); > #use C4::Acquisitions; > > use Koha::Patron::Categories; > >-use C4::Output; >+use C4::Output qw( output_html_with_http_headers ); > use Koha::Patron::Images; > use Koha::Token; > >diff --git a/members/member-password.pl b/members/member-password.pl >index 4fdf699427..5122bf5c0d 100755 >--- a/members/member-password.pl >+++ b/members/member-password.pl >@@ -7,14 +7,14 @@ > use strict; > use warnings; > >-use C4::Auth; >-use Koha::AuthUtils; >-use C4::Output; >+use C4::Auth qw( get_template_and_user ); >+use Koha::AuthUtils qw( hash_password ); >+use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >-use C4::Members; >+use C4::Members qw( GetMember ); > use C4::Circulation; > use CGI qw ( -utf8 ); >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember ); > use Koha::Patron::Images; > use Koha::Token; > >diff --git a/members/member.pl b/members/member.pl >index cf00f915ba..55e62d3d8d 100755 >--- a/members/member.pl >+++ b/members/member.pl >@@ -24,12 +24,12 @@ > # 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 C4::Members qw( GetMember ); > use Koha::DateUtils; >-use Koha::List::Patron; >+use Koha::List::Patron qw( GetPatronLists ); > > my $input = new CGI; > >diff --git a/members/memberentry.pl b/members/memberentry.pl >index b188777469..75f82d66aa 100755 >--- a/members/memberentry.pl >+++ b/members/memberentry.pl >@@ -27,20 +27,20 @@ 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::Members::Attributes; >-use C4::Members::AttributeTypes; >-use C4::Koha; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember Generate_Userid checkcardnumber Check_Userid AddMember ModMember get_cardnumber_length ); >+use C4::Members qw( GetMember Generate_Userid checkcardnumber Check_Userid AddMember ModMember get_cardnumber_length ); >+use C4::Members qw( GetMember Generate_Userid checkcardnumber Check_Userid AddMember ModMember 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::AuthorisedValues; >-use Koha::Patron::Debarments; >+use Koha::Patron::Debarments qw( GetDebarments DelDebarment AddDebarment ); > use Koha::Cities; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref dt_from_string ); > use Koha::Libraries; > use Koha::Patron::Categories; > use Koha::Patron::HouseboundRole; >diff --git a/members/members-home.pl b/members/members-home.pl >index 5e474bb9e9..30b30c7e2f 100755 >--- a/members/members-home.pl >+++ b/members/members-home.pl >@@ -20,13 +20,13 @@ use strict; > use warnings; > > 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; > use Koha::Libraries; >-use Koha::List::Patron; >+use Koha::List::Patron qw( GetPatronLists ); > use Koha::Patron::Categories; > > my $query = new CGI; >diff --git a/members/members-update-do.pl b/members/members-update-do.pl >index 6a6e8268d6..159f1a8e4e 100755 >--- a/members/members-update-do.pl >+++ b/members/members-update-do.pl >@@ -20,7 +20,7 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Output; > use C4::Context; > use C4::Members; >diff --git a/members/members-update.pl b/members/members-update.pl >index 23d14c7c01..e183356876 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/mod_debarment.pl b/members/mod_debarment.pl >index 5724b2be49..0501d9e31a 100755 >--- a/members/mod_debarment.pl >+++ b/members/mod_debarment.pl >@@ -21,9 +21,9 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use Koha::DateUtils; >-use Koha::Patron::Debarments; >+use C4::Auth qw( checkauth ); >+use Koha::DateUtils qw( dt_from_string ); >+use Koha::Patron::Debarments qw( DelDebarment AddDebarment ); > > my $cgi = new CGI; > >diff --git a/members/moremember.pl b/members/moremember.pl >index 0649dcfd76..78ba0a1529 100755 >--- a/members/moremember.pl >+++ b/members/moremember.pl >@@ -37,22 +37,22 @@ use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Auth; >-use C4::Output; >-use C4::Members; >-use C4::Members::Attributes; >-use C4::Members::AttributeTypes; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Members qw( GetMember GetMemberAccountRecords ); > use C4::Reserves; > use C4::Circulation; > use C4::Koha; >-use C4::Letters; >+use C4::Letters qw( getalert findrelatedto ); > use C4::Biblio; > use C4::Form::MessagingPreferences; > use List::MoreUtils qw/uniq/; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember GetMemberAccountRecords ); > use Koha::AuthorisedValues; > use Koha::CsvProfiles; >-use Koha::Patron::Debarments qw(GetDebarments); >+use Koha::Patron::Debarments qw( GetDebarments ); > use Koha::Patron::Images; > use Module::Load; > if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preference('NorwegianPatronDBEnable') == 1 ) { >@@ -61,7 +61,7 @@ if ( C4::Context->preference('NorwegianPatronDBEnable') && C4::Context->preferen > #use Smart::Comments; > #use Data::Dumper; > use DateTime; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Database; > use Koha::Patrons; > use Koha::Patron::Categories; >diff --git a/members/nl-search.pl b/members/nl-search.pl >index 29ec13e6cf..35bcd10def 100755 >--- a/members/nl-search.pl >+++ b/members/nl-search.pl >@@ -36,11 +36,11 @@ See http://www.lanekortet.no/ for more information (in Norwegian). > > use Modern::Perl; > use CGI; >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Context; >-use C4::Output; >-use C4::Members; >-use C4::Members::Attributes qw( SetBorrowerAttributes ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( AddMember ); >+use C4::Members qw( AddMember ); > use C4::Utils::DataTables::Members; > use Koha::NorwegianPatronDB qw( NLCheckSysprefs NLSearch NLDecodePin NLGetFirstname NLGetSurname NLSync ); > use Koha::Database; >diff --git a/members/notices.pl b/members/notices.pl >index 58d4f6ead3..e761cd4a7b 100755 >--- a/members/notices.pl >+++ b/members/notices.pl >@@ -21,12 +21,12 @@ > > use strict; > #use warnings; FIXME - Bug 2505 >-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::Members; >-use C4::Letters; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember ); >+use C4::Letters qw( GetMessage ResendMessage GetQueuedMessages ); >+use C4::Members qw( GetMember ); > use Koha::Patron::Images; > > my $input=new CGI; >diff --git a/members/pay.pl b/members/pay.pl >index 3400ee0667..efce7d306d 100755 >--- a/members/pay.pl >+++ b/members/pay.pl >@@ -31,15 +31,15 @@ use warnings; > > 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_html_with_http_headers ); > use CGI qw ( -utf8 ); >-use C4::Members; >+use C4::Members qw( GetMember GetMemberAccountRecords GetBorNotifyAcctRecord ); > use C4::Accounts; > use C4::Stats; > use C4::Koha; >-use C4::Overdues; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Overdues qw( NumberNotifyId AmountNotify ); >+use C4::Members qw( GetMember GetMemberAccountRecords GetBorNotifyAcctRecord ); > use Koha::Patron::Images; > > use Koha::Patron::Categories; >diff --git a/members/paycollect.pl b/members/paycollect.pl >index 9784e88d35..27b9881461 100755 >--- a/members/paycollect.pl >+++ b/members/paycollect.pl >@@ -21,11 +21,11 @@ use strict; > use warnings; > 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_html_with_http_headers ); > use CGI qw ( -utf8 ); >-use C4::Members; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Members qw( GetMember GetMemberAccountRecords ); > use C4::Accounts; > use C4::Koha; > use Koha::Patron::Images; >diff --git a/members/print_overdues.pl b/members/print_overdues.pl >index b63dec94be..d953d1ba84 100755 >--- a/members/print_overdues.pl >+++ b/members/print_overdues.pl >@@ -22,10 +22,10 @@ use Modern::Perl; > use CGI; > > use C4::Context; >-use C4::Auth; >-use C4::Output; >-use C4::Members qw(GetOverduesForPatron); >-use C4::Overdues qw(parse_overdues_letter); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetOverduesForPatron ); >+use C4::Overdues qw( parse_overdues_letter ); > > my $input = new CGI; > >diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl >index 4351aae1af..612f04abe8 100755 >--- a/members/printfeercpt.pl >+++ b/members/printfeercpt.pl >@@ -25,12 +25,12 @@ > use strict; > use warnings; > >-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::Members; >+use C4::Members qw( GetMember GetMemberAccountRecords ); > use C4::Accounts; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Patron::Images; > use Koha::Patron::Categories; > >diff --git a/members/printinvoice.pl b/members/printinvoice.pl >index 77f315630d..545fc1ca0a 100755 >--- a/members/printinvoice.pl >+++ b/members/printinvoice.pl >@@ -23,11 +23,11 @@ > use strict; > use warnings; > >-use C4::Auth; >-use C4::Output; >-use Koha::DateUtils; >+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 CGI qw ( -utf8 ); >-use C4::Members; >+use C4::Members qw( GetMember GetMemberAccountRecords ); > use C4::Accounts; > use Koha::Patron::Images; > >diff --git a/members/printslip.pl b/members/printslip.pl >index dfe93d75cd..964712b51a 100755 >--- a/members/printslip.pl >+++ b/members/printslip.pl >@@ -36,9 +36,9 @@ use strict; > #use warnings; FIXME - Bug 2505 > 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_html_with_http_headers ); >+use C4::Members qw( IssueSlip ); > use C4::Koha; > > #use Smart::Comments; >diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl >index f967b10a1a..400e685dfe 100755 >--- a/members/purchase-suggestions.pl >+++ b/members/purchase-suggestions.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::Context; >-use C4::Output; >-use C4::Members; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); > use C4::Suggestions; > use Koha::Patron::Images; > >diff --git a/members/readingrec.pl b/members/readingrec.pl >index 9daf48c314..59e7acc026 100755 >--- a/members/readingrec.pl >+++ b/members/readingrec.pl >@@ -25,12 +25,12 @@ use warnings; > > 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( GetMember GetAllIssues ); > use List::MoreUtils qw/any uniq/; >-use Koha::DateUtils; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use Koha::DateUtils qw( dt_from_string output_pref ); >+use C4::Members qw( GetMember GetAllIssues ); > use Koha::Patron::Images; > > use Koha::Patron::Categories; >diff --git a/members/routing-lists.pl b/members/routing-lists.pl >index c3e6c8d965..b1d1dee544 100755 >--- a/members/routing-lists.pl >+++ b/members/routing-lists.pl >@@ -20,12 +20,12 @@ > use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); >-use C4::Output; >-use C4::Auth qw/:DEFAULT/; >-use C4::Members; >-use C4::Members::Attributes qw(GetBorrowerAttributes); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); > use C4::Context; >-use C4::Serials; >+use C4::Serials qw( GetSubscription GetSubscriptionsFromBorrower ); > use Koha::Patron::Images; > use CGI::Session; > >diff --git a/members/setstatus.pl b/members/setstatus.pl >index f00bcbaf4d..c05dde9f42 100755 >--- a/members/setstatus.pl >+++ b/members/setstatus.pl >@@ -29,7 +29,7 @@ use warnings; > 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 a63d3285b3..772785735e 100755 >--- a/members/statistics.pl >+++ b/members/statistics.pl >@@ -25,12 +25,12 @@ > 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::Members::Attributes qw(GetBorrowerAttributes); >-use C4::Output; >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); >+use C4::Output qw( output_html_with_http_headers ); > use Koha::Patron::Images; > > my $input = new CGI; >diff --git a/members/summary-print.pl b/members/summary-print.pl >index 14df30f9f8..c0c6eeff75 100755 >--- a/members/summary-print.pl >+++ b/members/summary-print.pl >@@ -19,9 +19,9 @@ use Modern::Perl; > > use CGI; > >-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( GetMember GetMemberAccountRecords GetPendingIssues ); > use C4::Koha qw( getitemtypeinfo ); > use C4::Circulation qw( GetIssuingCharges ); > use C4::Reserves; >diff --git a/members/update-child.pl b/members/update-child.pl >index 5d50d931b4..7854a33abf 100755 >--- a/members/update-child.pl >+++ b/members/update-child.pl >@@ -30,9 +30,9 @@ use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::Context; >-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( ModMember GetMember ); > use Koha::Patron::Categories; > > # use Smart::Comments; >diff --git a/misc/batchDeleteUnusedSubfields.pl b/misc/batchDeleteUnusedSubfields.pl >index a0ecb5cece..0402365d02 100755 >--- a/misc/batchDeleteUnusedSubfields.pl >+++ b/misc/batchDeleteUnusedSubfields.pl >@@ -13,7 +13,7 @@ BEGIN { > # Koha modules used > 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 24692fda56..8615c56c0d 100755 >--- a/misc/batchImportMARCWithBiblionumbers.pl >+++ b/misc/batchImportMARCWithBiblionumbers.pl >@@ -13,7 +13,7 @@ BEGIN { > # Koha modules used > > 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 dc4175c61f..4f9938dad8 100755 >--- a/misc/batchRebuildBiblioTables.pl >+++ b/misc/batchRebuildBiblioTables.pl >@@ -15,7 +15,7 @@ BEGIN { > # Koha modules used > use MARC::Record; > use C4::Context; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcFromKohaField GetMarcBiblio GetFrameworkCode 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 5545607a89..9933aa8991 100755 >--- a/misc/batchRebuildItemsTables.pl >+++ b/misc/batchRebuildItemsTables.pl >@@ -9,8 +9,8 @@ use Pod::Usage; > use Time::HiRes qw(gettimeofday); > > use C4::Context; >-use C4::Biblio; >-use C4::Items; >+use C4::Biblio qw( GetMarcFromKohaField GetMarcBiblio ); >+use C4::Items qw( ModItemFromMarc ModItem ); > > =head1 NAME > >diff --git a/misc/batchRepairMissingBiblionumbers.pl b/misc/batchRepairMissingBiblionumbers.pl >index 3b3c345d42..c54ce84f43 100755 >--- a/misc/batchRepairMissingBiblionumbers.pl >+++ b/misc/batchRepairMissingBiblionumbers.pl >@@ -14,7 +14,7 @@ BEGIN { > # Koha modules used > > 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 9bc999a489..ce1c6b453a 100755 >--- a/misc/batchdeletebiblios.pl >+++ b/misc/batchdeletebiblios.pl >@@ -5,7 +5,7 @@ use Getopt::Long; > use Pod::Usage; > use IO::File; > >-use C4::Biblio; >+use C4::Biblio qw( DelBiblio ); > > my ($help, $files); > GetOptions( >diff --git a/misc/commit_file.pl b/misc/commit_file.pl >index bd29df3b85..42ac615ab2 100755 >--- a/misc/commit_file.pl >+++ b/misc/commit_file.pl >@@ -10,7 +10,7 @@ BEGIN { > } > > use C4::Context; >-use C4::ImportBatch; >+use C4::ImportBatch qw( GetImportBatch GetAllImportBatches BatchCommitRecords BatchRevertRecords ); > use Getopt::Long; > > $| = 1; >diff --git a/misc/cronjobs/advance_notices.pl b/misc/cronjobs/advance_notices.pl >index 2274737aaf..0a6704c29f 100755 >--- a/misc/cronjobs/advance_notices.pl >+++ b/misc/cronjobs/advance_notices.pl >@@ -49,14 +49,14 @@ BEGIN { > use FindBin; > eval { require "$FindBin::Bin/../kohalib.pl" }; > } >-use C4::Biblio; >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio ); > use C4::Context; >-use C4::Letters; >-use C4::Members; >-use C4::Members::Messaging; >+use C4::Letters qw( EnqueueLetter GetPreparedLetter ); >+use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember ); > use C4::Overdues; >-use Koha::DateUtils; >-use C4::Log; >+use Koha::DateUtils qw( dt_from_string output_pref ); >+use C4::Log qw( logaction cronlogaction ); > use Koha::Libraries; > use Koha::Patrons; > >diff --git a/misc/cronjobs/automatic_item_modification_by_age.pl b/misc/cronjobs/automatic_item_modification_by_age.pl >index 51effd32b1..2eae732fb6 100755 >--- a/misc/cronjobs/automatic_item_modification_by_age.pl >+++ b/misc/cronjobs/automatic_item_modification_by_age.pl >@@ -7,7 +7,7 @@ use Pod::Usage; > use JSON; > > use C4::Context; >-use C4::Items; >+use C4::Items qw( ToggleNewStatus ); > > # Getting options > my ( $verbose, $help, $confirm ); >diff --git a/misc/cronjobs/automatic_renewals.pl b/misc/cronjobs/automatic_renewals.pl >index 190630149f..675bcdfcc5 100755 >--- a/misc/cronjobs/automatic_renewals.pl >+++ b/misc/cronjobs/automatic_renewals.pl >@@ -52,10 +52,10 @@ use Modern::Perl; > use Pod::Usage; > use Getopt::Long; > >-use C4::Circulation; >+use C4::Circulation qw( CanBookBeRenewed AddRenewal ); > use C4::Context; >-use C4::Log; >-use C4::Letters; >+use C4::Log qw( logaction cronlogaction ); >+use C4::Letters qw( GetPreparedLetter EnqueueLetter ); > use Koha::Checkouts; > use Koha::Libraries; > use Koha::Patrons; >diff --git a/misc/cronjobs/batch_anonymise.pl b/misc/cronjobs/batch_anonymise.pl >index 013f7d1179..fe13a6267b 100755 >--- a/misc/cronjobs/batch_anonymise.pl >+++ b/misc/cronjobs/batch_anonymise.pl >@@ -36,7 +36,7 @@ use Date::Calc qw( > Add_Delta_Days > ); > use Getopt::Long; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > sub usage { > print STDERR <<USAGE; >diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl >index 1c74744a44..c732b16105 100755 >--- a/misc/cronjobs/build_browser_and_cloud.pl >+++ b/misc/cronjobs/build_browser_and_cloud.pl >@@ -12,13 +12,13 @@ BEGIN { > > use C4::Koha; > use C4::Context; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio ); > use Date::Calc; > use Time::HiRes qw(gettimeofday); > use ZOOM; > use MARC::File::USMARC; > use Getopt::Long; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > my ( $input_marc_file, $number) = ('',0); > my ($version, $confirm,$test_parameter,$field,$batch,$max_digits,$cloud_tag); >diff --git a/misc/cronjobs/cart_to_shelf.pl b/misc/cronjobs/cart_to_shelf.pl >index 965f7dd0d4..2fcb9817a2 100755 >--- a/misc/cronjobs/cart_to_shelf.pl >+++ b/misc/cronjobs/cart_to_shelf.pl >@@ -28,8 +28,8 @@ cart_to_shelf.pl cron script to set items with location of CART to original she > use strict; > use warnings; > >-use C4::Items qw/ CartToShelf /; >-use C4::Log; >+use C4::Items qw( CartToShelf ); >+use C4::Log qw( logaction cronlogaction ); > > BEGIN { > >diff --git a/misc/cronjobs/check-url-quick.pl b/misc/cronjobs/check-url-quick.pl >index e599808efa..a3db0dbe2d 100755 >--- a/misc/cronjobs/check-url-quick.pl >+++ b/misc/cronjobs/check-url-quick.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > use Pod::Usage; > use Getopt::Long; > use C4::Context; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio ); > use AnyEvent; > use AnyEvent::HTTP; > >diff --git a/misc/cronjobs/check-url.pl b/misc/cronjobs/check-url.pl >index 71885ab234..e712402543 100755 >--- a/misc/cronjobs/check-url.pl >+++ b/misc/cronjobs/check-url.pl >@@ -78,7 +78,7 @@ use strict; > use warnings; > use LWP::UserAgent; > use HTTP::Request; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio ); > > > >diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl >index 03c382d470..f6f846f50e 100755 >--- a/misc/cronjobs/cleanup_database.pl >+++ b/misc/cronjobs/cleanup_database.pl >@@ -38,8 +38,8 @@ use C4::Context; > use C4::Search; > use C4::Search::History; > use Getopt::Long; >-use C4::Log; >-use C4::Accounts; >+use C4::Log qw( logaction cronlogaction ); >+use C4::Accounts qw( purge_zero_balance_fees ); > use Koha::UploadedFiles; > > sub usage { >diff --git a/misc/cronjobs/cloud-kw.pl b/misc/cronjobs/cloud-kw.pl >index 96864156ef..eb6c3ec7ad 100755 >--- a/misc/cronjobs/cloud-kw.pl >+++ b/misc/cronjobs/cloud-kw.pl >@@ -26,7 +26,7 @@ use YAML::Syck; > use Pod::Usage; > use Getopt::Long; > use C4::Context; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > my $verbose = 0; > my $help = 0; >diff --git a/misc/cronjobs/delete_items.pl b/misc/cronjobs/delete_items.pl >index 78a9b35b8d..7072cef7e5 100755 >--- a/misc/cronjobs/delete_items.pl >+++ b/misc/cronjobs/delete_items.pl >@@ -2,7 +2,7 @@ > > use Getopt::Long; > use C4::Context; >-use C4::Items; >+use C4::Items qw( ItemSafeToDelete DelItem DelItemCheck ); > use C4::Circulation; > use Modern::Perl; > use Pod::Usage; >diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl >index ee015a6856..7377250549 100755 >--- a/misc/cronjobs/delete_patrons.pl >+++ b/misc/cronjobs/delete_patrons.pl >@@ -5,10 +5,10 @@ use Modern::Perl; > use Pod::Usage; > use Getopt::Long; > >-use C4::Members; >-use Koha::DateUtils; >+use C4::Members qw( GetBorrowersToExpunge patronflags ); >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Patrons; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > my ( $help, $verbose, $not_borrowed_since, $expired_before, $last_seen, > $category_code, $branchcode, $confirm ); >diff --git a/misc/cronjobs/delete_records_via_leader.pl b/misc/cronjobs/delete_records_via_leader.pl >index b4d87810be..07d7f055d9 100755 >--- a/misc/cronjobs/delete_records_via_leader.pl >+++ b/misc/cronjobs/delete_records_via_leader.pl >@@ -33,8 +33,8 @@ BEGIN { > > use Getopt::Long; > >-use C4::Biblio; >-use C4::Items; >+use C4::Biblio qw( DelBiblio ); >+use C4::Items qw( DelItem DelItemCheck ); > use Koha::Database; > use Koha::Biblios; > use Koha::Biblio::Metadatas; >diff --git a/misc/cronjobs/edi_cron.pl b/misc/cronjobs/edi_cron.pl >index c23341ad26..f2936f88ae 100755 >--- a/misc/cronjobs/edi_cron.pl >+++ b/misc/cronjobs/edi_cron.pl >@@ -32,7 +32,7 @@ use utf8; > 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 Fcntl qw( :DEFAULT :flock :seek ); > >diff --git a/misc/cronjobs/fines.pl b/misc/cronjobs/fines.pl >index 6c3f830e30..1dc10916de 100755 >--- a/misc/cronjobs/fines.pl >+++ b/misc/cronjobs/fines.pl >@@ -31,14 +31,14 @@ use warnings; > use 5.010; > > use C4::Context; >-use C4::Overdues; >+use C4::Overdues qw( Getoverdues BorType CalcFine UpdateFine ); > use Getopt::Long; > use Carp; > use File::Spec; > > use Koha::Calendar; >-use Koha::DateUtils; >-use C4::Log; >+use Koha::DateUtils qw( dt_from_string output_pref ); >+use C4::Log qw( logaction cronlogaction ); > > my $help; > my $verbose; >diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl >index cb1aecf94d..ee36e9e7b2 100755 >--- a/misc/cronjobs/gather_print_notices.pl >+++ b/misc/cronjobs/gather_print_notices.pl >@@ -12,15 +12,15 @@ BEGIN { > use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy > use C4::Context; > use C4::Debug; >-use C4::Letters; >+use C4::Letters qw( GetPrintMessages _set_message_status ); > use C4::Templates; > use File::Spec; > use Pod::Usage; > use Getopt::Long; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > use File::Basename qw( dirname ); >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use MIME::Lite; > > my ( >diff --git a/misc/cronjobs/import_webservice_batch.pl b/misc/cronjobs/import_webservice_batch.pl >index 0e1384f827..dbbe138e6f 100755 >--- a/misc/cronjobs/import_webservice_batch.pl >+++ b/misc/cronjobs/import_webservice_batch.pl >@@ -31,7 +31,7 @@ BEGIN { > > use Getopt::Long; > use Pod::Usage; >-use C4::ImportBatch; >+use C4::ImportBatch qw( GetStagedWebserviceBatches BatchCommitRecords ); > > my ($help, $framework); > >diff --git a/misc/cronjobs/j2a.pl b/misc/cronjobs/j2a.pl >index ba90ad0ccd..0384906510 100755 >--- a/misc/cronjobs/j2a.pl >+++ b/misc/cronjobs/j2a.pl >@@ -30,7 +30,7 @@ use C4::Context; > use C4::Members; > use Getopt::Long; > use Pod::Usage; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > =head1 NAME > >diff --git a/misc/cronjobs/longoverdue.pl b/misc/cronjobs/longoverdue.pl >index a0907a2f2b..4f795644d5 100755 >--- a/misc/cronjobs/longoverdue.pl >+++ b/misc/cronjobs/longoverdue.pl >@@ -34,10 +34,10 @@ BEGIN { > eval { require "$FindBin::Bin/../kohalib.pl" }; > } > use C4::Context; >-use C4::Items; >-use C4::Circulation qw/LostItem/; >+use C4::Items qw( ModItem ); >+use C4::Circulation qw( LostItem ); > use Getopt::Long; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > use Pod::Usage; > use Koha::Patrons; > >diff --git a/misc/cronjobs/membership_expiry.pl b/misc/cronjobs/membership_expiry.pl >index 1b6ea81d43..995f610778 100755 >--- a/misc/cronjobs/membership_expiry.pl >+++ b/misc/cronjobs/membership_expiry.pl >@@ -127,8 +127,8 @@ BEGIN { > } > > use C4::Context; >-use C4::Letters; >-use C4::Log; >+use C4::Letters qw( GetPreparedLetter EnqueueLetter ); >+use C4::Log qw( logaction cronlogaction ); > > use Koha::Patrons; > >diff --git a/misc/cronjobs/merge_authorities.pl b/misc/cronjobs/merge_authorities.pl >index 4682694433..93ed4e9a4a 100755 >--- a/misc/cronjobs/merge_authorities.pl >+++ b/misc/cronjobs/merge_authorities.pl >@@ -5,7 +5,7 @@ use Getopt::Long; > use Pod::Usage; > use Time::HiRes qw(gettimeofday); > >-use C4::AuthoritiesMarc; >+use C4::AuthoritiesMarc qw( GetAuthority merge ); > use Koha::Authority::MergeRequests; > > use constant RESET_HOURS => 24; >diff --git a/misc/cronjobs/nl-sync-to-koha.pl b/misc/cronjobs/nl-sync-to-koha.pl >index 84e23788b5..c3dd668e82 100755 >--- a/misc/cronjobs/nl-sync-to-koha.pl >+++ b/misc/cronjobs/nl-sync-to-koha.pl >@@ -12,8 +12,8 @@ nl-sync-to-koha.pl - Sync patrons from the Norwegian national patron database (N > > =cut > >-use C4::Members; >-use C4::Members::Attributes qw( UpdateBorrowerAttribute ); >+use C4::Members qw( ModMember ); >+use C4::Members qw( ModMember ); > use Koha::NorwegianPatronDB qw( NLCheckSysprefs NLGetChanged ); > use Koha::Database; > use Getopt::Long; >diff --git a/misc/cronjobs/notice_unprocessed_suggestions.pl b/misc/cronjobs/notice_unprocessed_suggestions.pl >index a0c42ed662..6767f97fd6 100755 >--- a/misc/cronjobs/notice_unprocessed_suggestions.pl >+++ b/misc/cronjobs/notice_unprocessed_suggestions.pl >@@ -6,7 +6,7 @@ use Pod::Usage; > use Getopt::Long; > > use C4::Budgets qw( GetBudget ); >-use C4::Members qw( GetMember ); >+use C4::Members qw( GetMember GetNoticeEmailAddress ); > use C4::Suggestions qw( GetUnprocessedSuggestions ); > use Koha::Libraries; > >diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl >index cb95ee52e4..0f81f1e463 100755 >--- a/misc/cronjobs/overdue_notices.pl >+++ b/misc/cronjobs/overdue_notices.pl >@@ -35,11 +35,11 @@ use DateTime; > use DateTime::Duration; > > use C4::Context; >-use C4::Letters; >-use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter); >-use C4::Log; >-use Koha::Patron::Debarments qw(AddUniqueDebarment); >-use Koha::DateUtils; >+use C4::Letters qw( getletter EnqueueLetter ); >+use C4::Overdues qw( GetBranchcodesWithOverdueRules GetOverdueMessageTransportTypes parse_overdues_letter ); >+use C4::Log qw( logaction cronlogaction ); >+use Koha::Patron::Debarments qw( AddUniqueDebarment ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Calendar; > use Koha::Libraries; > use Koha::Acquisition::Currencies; >diff --git a/misc/cronjobs/process_message_queue.pl b/misc/cronjobs/process_message_queue.pl >index 3325c8a2f3..97efc99a9d 100755 >--- a/misc/cronjobs/process_message_queue.pl >+++ b/misc/cronjobs/process_message_queue.pl >@@ -25,8 +25,8 @@ BEGIN { > use FindBin; > eval { require "$FindBin::Bin/../kohalib.pl" }; > } >-use C4::Letters; >-use C4::Log; >+use C4::Letters qw( SendQueuedMessages ); >+use C4::Log qw( logaction cronlogaction ); > use Getopt::Long; > > my $username = undef; >diff --git a/misc/cronjobs/purge_suggestions.pl b/misc/cronjobs/purge_suggestions.pl >index ee3da2ee63..d43a55b9ff 100755 >--- a/misc/cronjobs/purge_suggestions.pl >+++ b/misc/cronjobs/purge_suggestions.pl >@@ -32,7 +32,7 @@ BEGIN { > use Getopt::Long; > use Pod::Usage; > use C4::Suggestions; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > > my ($help, $days); > >diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl >index 1648f4d72a..818a376b34 100755 >--- a/misc/cronjobs/runreport.pl >+++ b/misc/cronjobs/runreport.pl >@@ -20,11 +20,11 @@ > > use Modern::Perl; > >-use C4::Reports::Guided; # 0.12 >+use C4::Reports::Guided qw( store_results get_saved_report execute_query ); > use C4::Context; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > use Koha::Email; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > > use Getopt::Long qw(:config auto_help auto_version); > use Pod::Usage; >diff --git a/misc/cronjobs/serialsUpdate.pl b/misc/cronjobs/serialsUpdate.pl >index aae1e5656a..7110ff7d87 100755 >--- a/misc/cronjobs/serialsUpdate.pl >+++ b/misc/cronjobs/serialsUpdate.pl >@@ -30,9 +30,9 @@ BEGIN { > > use C4::Context; > use C4::Debug; >-use C4::Serials; >-use C4::Log; >-use Koha::DateUtils; >+use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus ); >+use C4::Log qw( logaction cronlogaction ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > use Date::Calc qw/Date_to_Days check_date/; > use Getopt::Long; >diff --git a/misc/cronjobs/share_usage_with_koha_community.pl b/misc/cronjobs/share_usage_with_koha_community.pl >index 9039558302..d04c4c344e 100755 >--- a/misc/cronjobs/share_usage_with_koha_community.pl >+++ b/misc/cronjobs/share_usage_with_koha_community.pl >@@ -7,7 +7,7 @@ use Getopt::Long; > > use C4::Context; > use C4::UsageStats; >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > use POSIX qw(strftime); > > my ( $help, $verbose, $force, $quiet ); >diff --git a/misc/cronjobs/staticfines.pl b/misc/cronjobs/staticfines.pl >index c57e99eb1b..f80a12bdbd 100755 >--- a/misc/cronjobs/staticfines.pl >+++ b/misc/cronjobs/staticfines.pl >@@ -39,14 +39,14 @@ use Date::Calc qw/Date_to_Days/; > > use C4::Context; > use C4::Circulation; >-use C4::Overdues; >+use C4::Overdues qw( checkoverdues Getoverdues BorType CalcFine GetFine ); > use C4::Calendar qw(); # don't need any exports from Calendar > use C4::Biblio; > use C4::Debug; # supplying $debug and $cgi_debug >-use C4::Log; >+use C4::Log qw( logaction cronlogaction ); > use Getopt::Long; > use List::MoreUtils qw/none/; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $help = 0; > my $verbose = 0; >diff --git a/misc/cronjobs/update_totalissues.pl b/misc/cronjobs/update_totalissues.pl >index affa2a7e34..e5d1960d3b 100755 >--- a/misc/cronjobs/update_totalissues.pl >+++ b/misc/cronjobs/update_totalissues.pl >@@ -31,8 +31,8 @@ BEGIN { > use Getopt::Long; > use Pod::Usage; > use C4::Context; >-use C4::Biblio; >-use C4::Log; >+use C4::Biblio qw( UpdateTotalIssues ); >+use C4::Log qw( logaction cronlogaction ); > use DateTime; > use DateTime::Format::MySQL; > use Time::HiRes qw/time/; >diff --git a/misc/devel/create_superlibrarian.pl b/misc/devel/create_superlibrarian.pl >index 623a01ade5..7bdc3d3df4 100755 >--- a/misc/devel/create_superlibrarian.pl >+++ b/misc/devel/create_superlibrarian.pl >@@ -23,7 +23,7 @@ use Pod::Usage; > > use C4::Installer; > use C4::Context; >-use C4::Members; >+use C4::Members qw( AddMember ); > > use Koha::DateUtils; > use Koha::Libraries; >diff --git a/misc/export_borrowers.pl b/misc/export_borrowers.pl >index 5a2b92023f..27accbc3e9 100755 >--- a/misc/export_borrowers.pl >+++ b/misc/export_borrowers.pl >@@ -24,7 +24,7 @@ use Text::CSV; > use Getopt::Long qw(:config no_ignore_case); > > use C4::Context; >-use C4::Members; >+use C4::Members qw( GetMember ); > > binmode STDOUT, ":encoding(UTF-8)"; > >diff --git a/misc/link_bibs_to_authorities.pl b/misc/link_bibs_to_authorities.pl >index 37596c5024..eac2541e4a 100755 >--- a/misc/link_bibs_to_authorities.pl >+++ b/misc/link_bibs_to_authorities.pl >@@ -12,7 +12,7 @@ BEGIN { > } > > use C4::Context; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio LinkBibHeadingsToAuthorities GetFrameworkCode ModBiblio ); > use Getopt::Long; > use Pod::Usage; > use Data::Dumper; >diff --git a/misc/load_testing/benchmark_staff.pl b/misc/load_testing/benchmark_staff.pl >index 56085c82b7..f1284130e2 100644 >--- a/misc/load_testing/benchmark_staff.pl >+++ b/misc/load_testing/benchmark_staff.pl >@@ -18,7 +18,7 @@ use Data::Dumper; > use HTTP::Cookies; > use C4::Context; > use C4::Debug; >-use C4::Members qw ( GetMember ); >+use C4::Members qw( GetMember ); > use URI::Escape; > > my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print); >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 9c3fd01b5d..56efbee49b 100755 >--- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >+++ b/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl >@@ -12,7 +12,7 @@ BEGIN { > eval { require "$FindBin::Bin/../kohalib.pl" }; > } > >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio ModBiblio ); > use Getopt::Long; > > sub _read_marc_code { >diff --git a/misc/maintenance/fix_accountlines_date.pl b/misc/maintenance/fix_accountlines_date.pl >index 470b84b1ae..860acdd908 100755 >--- a/misc/maintenance/fix_accountlines_date.pl >+++ b/misc/maintenance/fix_accountlines_date.pl >@@ -29,7 +29,7 @@ BEGIN { > use C4::Context; > use Getopt::Long; > use Pod::Usage; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > =head1 NAME > >diff --git a/misc/maintenance/process_record_through_filter.pl b/misc/maintenance/process_record_through_filter.pl >index 3b3e537208..6bd8675ceb 100755 >--- a/misc/maintenance/process_record_through_filter.pl >+++ b/misc/maintenance/process_record_through_filter.pl >@@ -8,7 +8,7 @@ use strict; > use warnings; > use Koha::RecordProcessor; > use Data::Dumper; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio ); > > my $record = GetMarcBiblio($ARGV[0]); > >diff --git a/misc/maintenance/remove_items_from_biblioitems.pl b/misc/maintenance/remove_items_from_biblioitems.pl >index 9af69c99aa..a19cf99e34 100755 >--- a/misc/maintenance/remove_items_from_biblioitems.pl >+++ b/misc/maintenance/remove_items_from_biblioitems.pl >@@ -23,7 +23,7 @@ use warnings; > $|=1; > > 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 42123d1a18..3dbd421efc 100755 >--- a/misc/maintenance/sanitize_records.pl >+++ b/misc/maintenance/sanitize_records.pl >@@ -21,7 +21,7 @@ use Modern::Perl; > 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/touch_all_biblios.pl b/misc/maintenance/touch_all_biblios.pl >index ec480917b5..d96e29585a 100755 >--- a/misc/maintenance/touch_all_biblios.pl >+++ b/misc/maintenance/touch_all_biblios.pl >@@ -29,7 +29,7 @@ BEGIN { > # possible modules to use > use Getopt::Long; > 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 fdbce5c936..03584fba0b 100755 >--- a/misc/maintenance/touch_all_items.pl >+++ b/misc/maintenance/touch_all_items.pl >@@ -29,7 +29,7 @@ BEGIN { > # possible modules to use > use Getopt::Long; > use C4::Context; >-use C4::Items; >+use C4::Items qw( ModItem ); > use Pod::Usage; > > >diff --git a/misc/migration_tools/buildEDITORS.pl b/misc/migration_tools/buildEDITORS.pl >index 0126ae614a..6b81eb3be1 100755 >--- a/misc/migration_tools/buildEDITORS.pl >+++ b/misc/migration_tools/buildEDITORS.pl >@@ -9,7 +9,7 @@ use MARC::File::USMARC; > use MARC::Record; > use MARC::Batch; > 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 926b1dbec2..26ea4edb87 100755 >--- a/misc/migration_tools/build_oai_sets.pl >+++ b/misc/migration_tools/build_oai_sets.pl >@@ -43,9 +43,9 @@ use List::MoreUtils qw/uniq/; > use Getopt::Std; > > use C4::Context; >-use C4::Charset qw/StripNonXmlChars/; >-use C4::Biblio; >-use C4::OAI::Sets; >+use C4::Charset qw( StripNonXmlChars ); >+use C4::Biblio qw( EmbedItemsInMarcBiblio ); >+use C4::OAI::Sets qw( GetOAISets GetOAISet GetOAISetsMappings GetOAISetBySpec CalcOAISetsBiblio ModOAISet ModOAISetsBiblios AddOAISet AddOAISetsBiblios ); > > my %opts; > $Getopt::Std::STANDARD_HELP_VERSION = 1; >diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl >index dc2cae4182..0bd2838e6c 100755 >--- a/misc/migration_tools/bulkmarcimport.pl >+++ b/misc/migration_tools/bulkmarcimport.pl >@@ -19,11 +19,11 @@ use MARC::Batch; > use MARC::Charset; > > use C4::Context; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcFromKohaField GetBiblioData GetBiblio ModBiblio GetFrameworkCode AddBiblio _strip_item_fields ModBiblioMarc ); > use C4::Koha; > use C4::Debug; >-use C4::Charset; >-use C4::Items; >+use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); >+use C4::Items qw( AddItem AddItemBatchFromMarc ); > use YAML; > use Unicode::Normalize; > use Time::HiRes qw(gettimeofday); >diff --git a/misc/migration_tools/create_analytical_rel.pl b/misc/migration_tools/create_analytical_rel.pl >index 7c970b5d28..63dfdb4a81 100755 >--- a/misc/migration_tools/create_analytical_rel.pl >+++ b/misc/migration_tools/create_analytical_rel.pl >@@ -10,8 +10,8 @@ BEGIN { > } > > use C4::Context; >-use C4::Biblio; >-use C4::Items; >+use C4::Biblio qw( GetMarcBiblio GetBiblionumberFromItemnumber GetBiblio ModBiblio ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode ); > use Getopt::Long; > > $| = 1; >diff --git a/misc/migration_tools/fix_onloan.pl b/misc/migration_tools/fix_onloan.pl >index d6e63af79a..175b2e6f04 100755 >--- a/misc/migration_tools/fix_onloan.pl >+++ b/misc/migration_tools/fix_onloan.pl >@@ -3,7 +3,7 @@ > use strict; > #use warnings; FIXME - Bug 2505 > use C4::Context; >-use C4::Items; >+use C4::Items qw( ModItem ); > use C4::Biblio; > > # >diff --git a/misc/migration_tools/import_lexile.pl b/misc/migration_tools/import_lexile.pl >index e9fad46503..a0ca3b7a57 100755 >--- a/misc/migration_tools/import_lexile.pl >+++ b/misc/migration_tools/import_lexile.pl >@@ -32,7 +32,7 @@ use Getopt::Long; > use Text::CSV; > > use C4::Context; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio GetBiblioData GetBiblio ModBiblio ); > use C4::Koha qw( GetVariationsOfISBN ); > use Koha::Database; > >diff --git a/misc/migration_tools/rebuild_zebra.pl b/misc/migration_tools/rebuild_zebra.pl >index 28ce27ccdf..86319ef113 100755 >--- a/misc/migration_tools/rebuild_zebra.pl >+++ b/misc/migration_tools/rebuild_zebra.pl >@@ -22,9 +22,9 @@ use Getopt::Long; > use Fcntl qw(:flock); > use File::Temp qw/ tempdir /; > use File::Path; >-use C4::Biblio; >-use C4::AuthoritiesMarc; >-use C4::Items; >+use C4::Biblio qw( GetMarcFromKohaField GetXmlBiblio GetMarcBiblio _koha_marc_update_bib_ids ); >+use C4::AuthoritiesMarc qw( GetAuthorityXML GetAuthority ); >+use C4::Items qw( GetItem GetItemsInfo Item2Marc ); > use Koha::RecordProcessor; > use Koha::Caches; > use XML::LibXML; >diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl >index f4e0ecbf2d..4cd2099e02 100755 >--- a/misc/migration_tools/remove_unused_authorities.pl >+++ b/misc/migration_tools/remove_unused_authorities.pl >@@ -24,7 +24,7 @@ use strict; > use warnings; > > use C4::Context; >-use C4::AuthoritiesMarc; >+use C4::AuthoritiesMarc qw( DelAuthority ); > use Getopt::Long; > > use Koha::SearchEngine::Search; >diff --git a/misc/migration_tools/switch_marc21_series_info.pl b/misc/migration_tools/switch_marc21_series_info.pl >index a51f8306c1..6d79ac79a4 100755 >--- a/misc/migration_tools/switch_marc21_series_info.pl >+++ b/misc/migration_tools/switch_marc21_series_info.pl >@@ -29,7 +29,7 @@ BEGIN { > eval { require "$FindBin::Bin/../kohalib.pl" }; > } > >-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 c5469eeb44..d84638364f 100755 >--- a/misc/migration_tools/upgradeitems.pl >+++ b/misc/migration_tools/upgradeitems.pl >@@ -3,8 +3,8 @@ > use strict; > #use warnings; FIXME - Bug 2505 > use C4::Context; >-use C4::Items; >-use C4::Biblio; >+use C4::Items qw( ModItemFromMarc ModItem ); >+use C4::Biblio qw( GetMarcBiblio ); > > my $dbh=C4::Context->dbh; > >diff --git a/misc/mod_zebraqueue.pl b/misc/mod_zebraqueue.pl >index 32fcc31d91..475f6444de 100755 >--- a/misc/mod_zebraqueue.pl >+++ b/misc/mod_zebraqueue.pl >@@ -23,7 +23,7 @@ use Modern::Perl; > use Getopt::Long; > use Pod::Usage; > >-use C4::Biblio; >+use C4::Biblio qw( ModZebra ); > > my @biblios; > my @authorities; >diff --git a/misc/recreateIssueStatistics.pl b/misc/recreateIssueStatistics.pl >index a4382f191b..6efc2c98cf 100755 >--- a/misc/recreateIssueStatistics.pl >+++ b/misc/recreateIssueStatistics.pl >@@ -23,7 +23,7 @@ > use strict; > use warnings; > use C4::Context; >-use C4::Items; >+use C4::Items qw( GetItem ); > use Data::Dumper; > use Getopt::Long; > >diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl >index 49114bbbbe..1aa67de7d3 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 ad0b7267ab..8e53deefdb 100755 >--- a/misc/stage_file.pl >+++ b/misc/stage_file.pl >@@ -29,7 +29,7 @@ BEGIN { > } > > use C4::Context; >-use C4::ImportBatch; >+use C4::ImportBatch qw( RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates ); > use C4::Matcher; > use Getopt::Long; > >diff --git a/offline_circ/download.pl b/offline_circ/download.pl >index 713057c805..9f3e628ad6 100755 >--- a/offline_circ/download.pl >+++ b/offline_circ/download.pl >@@ -21,7 +21,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 73a505387e..81980886c4 100755 >--- a/offline_circ/enqueue_koc.pl >+++ b/offline_circ/enqueue_koc.pl >@@ -22,14 +22,14 @@ use strict; > use warnings; > > 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::Biblio qw( GetBiblioFromItemNumber GetBiblio ); > use C4::Accounts; >-use C4::Circulation; >-use C4::Items; >+use C4::Circulation qw( AddOfflineOperation GetItemIssue ); >+use C4::Items qw( GetItem ); > use C4::Members; > use C4::Stats; > use Koha::UploadedFiles; >diff --git a/offline_circ/list.pl b/offline_circ/list.pl >index 4a130ed302..8f38ea1f28 100755 >--- a/offline_circ/list.pl >+++ b/offline_circ/list.pl >@@ -22,13 +22,13 @@ use strict; > use warnings; > > 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::Members; >-use C4::Biblio; >+use C4::Circulation qw( GetOfflineOperations GetOfflineOperation ); >+use C4::Members qw( GetMember ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio ); > > my $query = CGI->new; > >diff --git a/offline_circ/process.pl b/offline_circ/process.pl >index caf24be625..cb4097e955 100755 >--- a/offline_circ/process.pl >+++ b/offline_circ/process.pl >@@ -22,8 +22,8 @@ use strict; > use warnings; > > 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 dbe8c402b8..c379aa5d1a 100755 >--- a/offline_circ/process_koc.pl >+++ b/offline_circ/process_koc.pl >@@ -24,15 +24,15 @@ use warnings; > 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::Biblio qw( GetBiblioFromItemNumber GetBiblio ); > use C4::Accounts; >-use C4::Circulation; >-use C4::Items; >-use C4::Members; >+use C4::Circulation qw( barcodedecode decode GetItemIssue GetOpenIssue AddRenewal AddIssue MarkIssueReturned ); >+use C4::Items qw( GetItem ModItem ModDateLastSeen ); >+use C4::Members qw( GetMember ); > use C4::Stats; > use C4::BackgroundJob; > use Koha::UploadedFiles; >diff --git a/offline_circ/service.pl b/offline_circ/service.pl >index a23e2b8199..a39cc6d852 100755 >--- a/offline_circ/service.pl >+++ b/offline_circ/service.pl >@@ -22,9 +22,9 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Circulation; >-use Koha::DateUtils; >+use C4::Auth qw( check_api_auth check_cookie_auth ); >+use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation ); >+use Koha::DateUtils qw( dt_from_string ); > use DateTime::TimeZone; > > my $cgi = CGI->new; >diff --git a/opac/clubs/clubs-tab.pl b/opac/clubs/clubs-tab.pl >index 82a4be0f54..e34f18b867 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 = new CGI; >diff --git a/opac/clubs/enroll.pl b/opac/clubs/enroll.pl >index e6d6adc9d7..3a8e0a090f 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 = new CGI; >diff --git a/opac/errors/400.pl b/opac/errors/400.pl >index d2009c5b08..9b8a632f1d 100755 >--- a/opac/errors/400.pl >+++ b/opac/errors/400.pl >@@ -20,8 +20,8 @@ use strict; > use warnings; > > 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 = new CGI; >diff --git a/opac/errors/401.pl b/opac/errors/401.pl >index 2c1d60e06e..a22e700db4 100755 >--- a/opac/errors/401.pl >+++ b/opac/errors/401.pl >@@ -20,8 +20,8 @@ use strict; > use warnings; > > 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 = new CGI; >diff --git a/opac/errors/402.pl b/opac/errors/402.pl >index 492495ea40..d970df9458 100755 >--- a/opac/errors/402.pl >+++ b/opac/errors/402.pl >@@ -20,8 +20,8 @@ use strict; > use warnings; > > 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 = new CGI; >diff --git a/opac/errors/403.pl b/opac/errors/403.pl >index 8e502bbd33..9318278d68 100755 >--- a/opac/errors/403.pl >+++ b/opac/errors/403.pl >@@ -20,8 +20,8 @@ use strict; > use warnings; > > 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 = new CGI; >diff --git a/opac/errors/404.pl b/opac/errors/404.pl >index 3a4e0443a5..a22da63a05 100755 >--- a/opac/errors/404.pl >+++ b/opac/errors/404.pl >@@ -20,8 +20,8 @@ use strict; > use warnings; > > 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 = new CGI; >diff --git a/opac/errors/500.pl b/opac/errors/500.pl >index 50fa33e1da..2f30ab8a4b 100755 >--- a/opac/errors/500.pl >+++ b/opac/errors/500.pl >@@ -20,8 +20,8 @@ use strict; > use warnings; > > 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 = new CGI; >diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl >index 8320495d5d..45b075c9c2 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 1839e2e848..f4f00e8f3a 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 6cb502c614..73b38a4aab 100755 >--- a/opac/opac-ISBDdetail.pl >+++ b/opac/opac-ISBDdetail.pl >@@ -41,18 +41,18 @@ 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::Reserves; >+use C4::Biblio qw( CountItemsIssued GetMarcBiblio GetFrameworkCode TransformMarcToKoha GetISBDView GetMarcControlnumber GetMarcISSN ); >+use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers ); >+use C4::Reserves qw( OnShelfHoldsAllowed ); > use C4::Acquisition; >-use C4::Serials; # uses getsubscriptionfrom biblionumber >-use C4::Koha; >-use C4::Members; # GetMember >+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); >+use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); >+use C4::Members qw( GetMember ); > use Koha::ItemTypes; > use Koha::RecordProcessor; > >diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl >index 3c9c2c23c8..637c7fe80b 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::Reserves; >-use C4::Members; >+use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData GetBiblio CountItemsIssued GetAuthorisedValueDesc TransformMarcToKoha GetMarcControlnumber GetMarcISSN ); >+use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers ); >+use C4::Reserves qw( OnShelfHoldsAllowed ); >+use C4::Members qw( GetMember ); > use C4::Acquisition; >-use C4::Koha; >+use C4::Koha qw( display_marc_indicators GetNormalizedISBN ); > use List::MoreUtils qw( any uniq ); > use Koha::RecordProcessor; > >diff --git a/opac/opac-account-pay-paypal-return.pl b/opac/opac-account-pay-paypal-return.pl >index eb870cc226..815a56d427 100755 >--- a/opac/opac-account-pay-paypal-return.pl >+++ b/opac/opac-account-pay-paypal-return.pl >@@ -26,10 +26,10 @@ 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::Accounts; >-use C4::Members; >+use C4::Members qw( GetMember ); > use Koha::Acquisition::Currencies; > use Koha::Database; > >diff --git a/opac/opac-account-pay.pl b/opac/opac-account-pay.pl >index 43261e8e9a..10c2b3909d 100755 >--- a/opac/opac-account-pay.pl >+++ b/opac/opac-account-pay.pl >@@ -26,8 +26,8 @@ use HTTP::Request::Common; > use LWP::UserAgent; > use URI; > >-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::Acquisition::Currencies; > use Koha::Database; >diff --git a/opac/opac-account.pl b/opac/opac-account.pl >index e02e5f398e..9489025643 100755 >--- a/opac/opac-account.pl >+++ b/opac/opac-account.pl >@@ -21,9 +21,9 @@ > > use strict; > use CGI qw ( -utf8 ); >-use C4::Members; >-use C4::Auth; >-use C4::Output; >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); > use warnings; > > my $query = new CGI; >diff --git a/opac/opac-addbybiblionumber.pl b/opac/opac-addbybiblionumber.pl >index 9227fa01dc..8590b18c2d 100755 >--- a/opac/opac-addbybiblionumber.pl >+++ b/opac/opac-addbybiblionumber.pl >@@ -21,9 +21,9 @@ > use Modern::Perl; > > use CGI qw ( -utf8 ); >-use C4::Biblio; >-use C4::Output; >-use C4::Auth; >+use C4::Biblio qw( GetBiblioData GetBiblio ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); > > use Koha::Virtualshelves; > >diff --git a/opac/opac-alert-subscribe.pl b/opac/opac-alert-subscribe.pl >index 6ed153d9bd..94e183cdc5 100755 >--- a/opac/opac-alert-subscribe.pl >+++ b/opac/opac-alert-subscribe.pl >@@ -22,12 +22,12 @@ use strict; > use warnings; > > 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::Letters qw( addalert getalert delalert ); >+use C4::Serials qw( GetSubscription ); > > > my $query = new CGI; >diff --git a/opac/opac-article-request-cancel.pl b/opac/opac-article-request-cancel.pl >index baaa0ae7c9..aeb8aa0ccb 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 = new CGI; >diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl >index 4dcb33c2e7..553572c19e 100755 >--- a/opac/opac-authorities-home.pl >+++ b/opac/opac-authorities-home.pl >@@ -23,12 +23,12 @@ use warnings; > > 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 f46c5111f4..8826ff32e8 100755 >--- a/opac/opac-authoritiesdetail.pl >+++ b/opac/opac-authoritiesdetail.pl >@@ -39,13 +39,13 @@ parameters tables. > use strict; > use warnings; > >-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/opac/opac-basket.pl b/opac/opac-basket.pl >index bfa9688ce2..3565ea8832 100755 >--- a/opac/opac-basket.pl >+++ b/opac/opac-basket.pl >@@ -19,11 +19,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 GetBiblio GetMarcBiblio GetFrameworkCode GetMarcNotes GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetRecordValue ); >+use C4::Items qw( GetItem GetItemsInfo ); >+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::AuthorisedValues; >diff --git a/opac/opac-blocked.pl b/opac/opac-blocked.pl >index 3d2f2333b7..b1a605ecf8 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 = new CGI; >diff --git a/opac/opac-browser.pl b/opac/opac-browser.pl >index 64abf2189e..03ce1b1949 100755 >--- a/opac/opac-browser.pl >+++ b/opac/opac-browser.pl >@@ -27,9 +27,9 @@ TODO :: Description here > use strict; > use warnings; > >-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; > use C4::Koha; # use getitemtypeinfo >diff --git a/opac/opac-course-details.pl b/opac/opac-course-details.pl >index 3afa8a921a..e405a2c4af 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 = new CGI; > >diff --git a/opac/opac-course-reserves.pl b/opac/opac-course-reserves.pl >index de1498b77f..f59166a762 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 = new CGI; > >diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl >index f2c2f6fe6a..757446e83f 100755 >--- a/opac/opac-detail.pl >+++ b/opac/opac-detail.pl >@@ -23,31 +23,31 @@ > 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 get_biblionumber_from_isbn); >-use C4::External::Amazon; >-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::Letters; >+use C4::Acquisition qw( SearchOrders GetItemnumbersFromOrder ); >+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 GetFrameworkCode GetBiblioData GetBiblio CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcHosts GetMarcNotes GetRecordValue GetCOinSBiblio GetMarcControlnumber GetMarcISSN ); >+use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers ); >+use C4::Circulation qw( decode GetTransfers ); >+use C4::Tags qw( get_tags get_tag ); >+use C4::XISBN qw( get_xisbns ); >+use C4::External::Amazon qw( get_amazon_tld ); >+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 qw( GetMember ); >+use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display ); >+use C4::ShelfBrowser qw( GetNearbyItems ); >+use C4::Reserves qw( OnShelfHoldsAllowed GetReserve GetReserveStatus ); >+use C4::Charset qw( SetUTF8Flag ); >+use C4::Letters qw( getalert ); > use MARC::Record; > use MARC::Field; > use List::MoreUtils qw/any none/; >-use C4::Images; >+use C4::Images qw( ListImagesForBiblio ); > use Koha::DateUtils; > use C4::HTML5Media; >-use C4::CourseReserves qw(GetItemCourseReservesInfo); >+use C4::CourseReserves qw( GetItemCourseReservesInfo ); > use Koha::RecordProcessor; > use Koha::AuthorisedValues; > use Koha::Biblios; >diff --git a/opac/opac-discharge.pl b/opac/opac-discharge.pl >index e5fc49b27e..84133733c0 100755 >--- a/opac/opac-discharge.pl >+++ b/opac/opac-discharge.pl >@@ -20,13 +20,13 @@ > 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 C4::Debug; >-use C4::Members; >+use C4::Members qw( GetMember ); > use Koha::Patron::Discharge; > use Koha::DateUtils; > >diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl >index d20000ed1e..2b4c7753a1 100755 >--- a/opac/opac-downloadcart.pl >+++ b/opac/opac-downloadcart.pl >@@ -22,12 +22,12 @@ 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::Record; >-use C4::Ris; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Record qw( marc2csv marc2bibtex ); >+use C4::Ris qw( marc2ris ); > use Koha::CsvProfiles; > use Koha::RecordProcessor; > >diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl >index b91f3a359e..88fec25833 100755 >--- a/opac/opac-downloadshelf.pl >+++ b/opac/opac-downloadshelf.pl >@@ -22,12 +22,12 @@ 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::Record; >-use C4::Ris; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Record qw( marc2csv marc2bibtex ); >+use C4::Ris qw( marc2ris ); > use Koha::CsvProfiles; > use Koha::RecordProcessor; > use Koha::Virtualshelves; >diff --git a/opac/opac-export.pl b/opac/opac-export.pl >index c0f18bf2b6..52f0ffb4ee 100755 >--- a/opac/opac-export.pl >+++ b/opac/opac-export.pl >@@ -19,13 +19,13 @@ > > use Modern::Perl; > >-use C4::Record; >+use C4::Record qw( marc2endnote marc2marc marc2marcxml marc2modsxml marc2bibtex marc2dcxml changeEncoding ); > use C4::Auth; > use C4::Output; >-use C4::Biblio; >+use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView ); > use CGI qw ( -utf8 ); > use C4::Auth; >-use C4::Ris; >+use C4::Ris qw( marc2ris ); > use Koha::RecordProcessor; > > my $query = CGI->new; >diff --git a/opac/opac-ics.pl b/opac/opac-ics.pl >index c4da67e829..c24292646f 100755 >--- a/opac/opac-ics.pl >+++ b/opac/opac-ics.pl >@@ -30,11 +30,11 @@ 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; >-use Koha::DateUtils; >+use C4::Members qw( GetPendingIssues ); >+use Koha::DateUtils qw( dt_from_string ); > > my $query = new CGI; > my ( $template, $borrowernumber, $cookie ) = get_template_and_user( >diff --git a/opac/opac-idref.pl b/opac/opac-idref.pl >index 43692dda80..458597dd79 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 = new CGI; > my ( $template, $borrowernumber, $cookie ) = get_template_and_user( >diff --git a/opac/opac-image.pl b/opac/opac-image.pl >index 0318aa09f7..d8a417995e 100755 >--- a/opac/opac-image.pl >+++ b/opac/opac-image.pl >@@ -28,7 +28,7 @@ use warnings; > > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Images; >+use C4::Images qw( NoImage ListImagesForBiblio RetrieveImage ); > > $| = 1; > >diff --git a/opac/opac-imageviewer.pl b/opac/opac-imageviewer.pl >index 3cb4779402..14615d9fed 100755 >--- a/opac/opac-imageviewer.pl >+++ b/opac/opac-imageviewer.pl >@@ -21,10 +21,10 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Biblio; >-use C4::Output; >-use C4::Images; >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblio ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Images qw( ListImagesForBiblio ); > > my $query = new CGI; > my ( $template, $borrowernumber, $cookie ) = get_template_and_user( >diff --git a/opac/opac-issue-note.pl b/opac/opac-issue-note.pl >index becd7083f7..c4c92003f9 100755 >--- a/opac/opac-issue-note.pl >+++ b/opac/opac-issue-note.pl >@@ -23,13 +23,13 @@ use CGI qw ( -utf8 ); > use C4::Koha; > use C4::Context; > use C4::Scrubber; >-use C4::Members; >-use C4::Output; >-use C4::Auth; >-use C4::Biblio; >-use C4::Letters; >+use C4::Members qw( GetMember ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio ); >+use C4::Letters qw( GetPreparedLetter ); > use Koha::Checkouts; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > > my $query = new CGI; > >diff --git a/opac/opac-main.pl b/opac/opac-main.pl >index 2f1f18c7b5..b3e70d2100 100755 >--- a/opac/opac-main.pl >+++ b/opac/opac-main.pl >@@ -20,9 +20,9 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Auth; # get_template_and_user >-use C4::Output; >-use C4::NewsChannels; # GetNewsToDisplay >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::NewsChannels qw( GetNewsToDisplay ); > use C4::Languages qw(getTranslatedLanguages accept_language); > use C4::Koha qw( GetDailyQuote ); > >diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl >index 1e4034c6c9..960dd0e7c5 100755 >--- a/opac/opac-memberentry.pl >+++ b/opac/opac-memberentry.pl >@@ -23,14 +23,14 @@ use JSON; > use List::MoreUtils qw( any each_array uniq ); > use String::Random qw( random_string ); > >-use C4::Auth; >-use C4::Output; >-use C4::Members; >-use C4::Members::Attributes qw( GetBorrowerAttributes ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( get_cardnumber_length checkcardnumber AddMember AddMember_Opac GetMember ); >+use C4::Members qw( get_cardnumber_length checkcardnumber AddMember AddMember_Opac GetMember ); > use C4::Form::MessagingPreferences; > use C4::Scrubber; > use Email::Valid; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Libraries; > use Koha::Patron::Attribute::Types; > use Koha::Patron::Attributes; >diff --git a/opac/opac-messaging.pl b/opac/opac-messaging.pl >index 47b09e53f9..2c318cde49 100755 >--- a/opac/opac-messaging.pl >+++ b/opac/opac-messaging.pl >@@ -22,13 +22,13 @@ use warnings; > > 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::Members; >-use C4::Members::Messaging; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember ModMember ); >+use C4::Members qw( GetMember ModMember ); > use C4::Form::MessagingPreferences; > use Koha::SMS::Providers; > >diff --git a/opac/opac-modrequest-suspend.pl b/opac/opac-modrequest-suspend.pl >index 8058394b9a..e6c3237b75 100755 >--- a/opac/opac-modrequest-suspend.pl >+++ b/opac/opac-modrequest-suspend.pl >@@ -20,8 +20,8 @@ use warnings; > > 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 = new CGI; > my ( $template, $borrowernumber, $cookie ) = get_template_and_user( > { >diff --git a/opac/opac-modrequest.pl b/opac/opac-modrequest.pl >index 8a2e041176..d255a7bfea 100755 >--- a/opac/opac-modrequest.pl >+++ b/opac/opac-modrequest.pl >@@ -27,8 +27,8 @@ use warnings; > > use CGI qw ( -utf8 ); > use C4::Output; >-use C4::Reserves; >-use C4::Auth; >+use C4::Reserves qw( CanReserveBeCanceledFromOpac CancelReserve ); >+use C4::Auth qw( get_template_and_user ); > my $query = new CGI; > > my ( $template, $borrowernumber, $cookie ) = get_template_and_user( >diff --git a/opac/opac-mymessages.pl b/opac/opac-mymessages.pl >index fa28a697bc..1a9058fca5 100755 >--- a/opac/opac-mymessages.pl >+++ b/opac/opac-mymessages.pl >@@ -22,11 +22,11 @@ use warnings; > > 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 95cbd6da73..a2aa6425f4 100755 >--- a/opac/opac-news-rss.pl >+++ b/opac/opac-news-rss.pl >@@ -20,9 +20,9 @@ > > use Modern::Perl; > use CGI; >-use C4::Auth; # get_template_and_user >-use C4::Output; >-use C4::NewsChannels; # GetNewsToDisplay >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::NewsChannels qw( GetNewsToDisplay ); > use C4::Languages qw(getTranslatedLanguages accept_language); > > my $input = new CGI; >diff --git a/opac/opac-overdrive-search.pl b/opac/opac-overdrive-search.pl >index 3c10fde4fa..6d0fc2731a 100755 >--- a/opac/opac-overdrive-search.pl >+++ b/opac/opac-overdrive-search.pl >@@ -22,8 +22,8 @@ use warnings; > > 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 = new CGI; > >diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl >index 4b33413f3e..c903be42b6 100755 >--- a/opac/opac-passwd.pl >+++ b/opac/opac-passwd.pl >@@ -23,13 +23,13 @@ use warnings; > > use CGI qw ( -utf8 ); > >-use C4::Auth; # checkauth, getborrowernumber. >+use C4::Auth qw( get_template_and_user ); > use C4::Context; > use Digest::MD5 qw(md5_base64); > use C4::Circulation; >-use C4::Members; >-use C4::Output; >-use Koha::AuthUtils qw(hash_password); >+use C4::Members qw( GetMember ); >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::AuthUtils qw( hash_password ); > > my $query = new CGI; > my $dbh = C4::Context->dbh; >diff --git a/opac/opac-password-recovery.pl b/opac/opac-password-recovery.pl >index 8c76015700..a06073c684 100755 >--- a/opac/opac-password-recovery.pl >+++ b/opac/opac-password-recovery.pl >@@ -3,14 +3,14 @@ > 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); > use Koha::Patrons; >-use Koha::AuthUtils qw(hash_password); >+use Koha::AuthUtils qw( hash_password ); > use Koha::Patrons; > my $query = new CGI; > use HTML::Entities; >diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl >index 328506dd82..6299787516 100755 >--- a/opac/opac-patron-image.pl >+++ b/opac/opac-patron-image.pl >@@ -23,7 +23,7 @@ use warnings; > 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 = new CGI; >diff --git a/opac/opac-privacy.pl b/opac/opac-privacy.pl >index ff0d3282d7..50146f2c03 100755 >--- a/opac/opac-privacy.pl >+++ b/opac/opac-privacy.pl >@@ -19,10 +19,10 @@ > use strict; > use CGI qw ( -utf8 ); > >-use C4::Auth; # checkauth, getborrowernumber. >+use C4::Auth qw( get_template_and_user ); > use C4::Context; >-use C4::Members; >-use C4::Output; >+use C4::Members qw( ModMember ); >+use C4::Output qw( output_html_with_http_headers ); > use Koha::Patrons; > > my $query = new CGI; >diff --git a/opac/opac-ratings-ajax.pl b/opac/opac-ratings-ajax.pl >index 25675add0d..2de5333a82 100755 >--- a/opac/opac-ratings-ajax.pl >+++ b/opac/opac-ratings-ajax.pl >@@ -29,10 +29,10 @@ use warnings; > 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::Debug; >-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 1951a2daee..878a6ff760 100755 >--- a/opac/opac-ratings.pl >+++ b/opac/opac-ratings.pl >@@ -29,7 +29,7 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > >-use C4::Auth; >+use C4::Auth qw( checkauth ); > use C4::Context; > use C4::Debug; > >diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl >index 940bd91c3a..93c2afe167 100755 >--- a/opac/opac-readingrecord.pl >+++ b/opac/opac-readingrecord.pl >@@ -21,16 +21,16 @@ use warnings; > > 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 GetRecordValue ); > use C4::Circulation; >-use C4::Members; >+use C4::Members qw( GetMember GetAllIssues ); > 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::ItemTypes; > >diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl >index 1098af079f..1ff60388f8 100755 >--- a/opac/opac-registration-verify.pl >+++ b/opac/opac-registration-verify.pl >@@ -19,9 +19,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_html_with_http_headers ); >+use C4::Members qw( AddMember AddMember_Opac GetMember ); > use C4::Form::MessagingPreferences; > use Koha::Patron::Modifications; > >diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl >index 03c4a714a4..4fae66b658 100755 >--- a/opac/opac-renew.pl >+++ b/opac/opac-renew.pl >@@ -25,11 +25,11 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Circulation; >-use C4::Auth; >+use C4::Circulation qw( CanBookBeRenewed GetOpenIssue AddRenewal ); >+use C4::Auth qw( get_template_and_user ); > use C4::Context; >-use C4::Items; >-use C4::Members; >+use C4::Items qw( GetItem ); >+use C4::Members qw( GetMember ); > use Koha::Patrons; > use Date::Calc qw( Today Date_to_Days ); > my $query = new CGI; >diff --git a/opac/opac-request-article.pl b/opac/opac-request-article.pl >index b7621dcf3d..2984f5c4ce 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 7de7b978b9..77ecbabcd3 100755 >--- a/opac/opac-reserve.pl >+++ b/opac/opac-reserve.pl >@@ -21,19 +21,19 @@ > 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( GetItemIssue GetTransfers CheckIfIssuedToPatron ); >+use C4::Reserves qw( GetReserve GetReservesFromBorrowernumber CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch IsAvailableForItemLevelRequest OPACItemHoldsAllowed ); >+use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetBiblionumberFromItemnumber GetFrameworkCode GetRecordValue ); >+use C4::Items qw( GetItem GetItemsInfo GetHostItemsInfo ); >+use C4::Output qw( output_html_with_http_headers ); > use C4::Context; >-use C4::Members; >-use C4::Overdues; >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Overdues qw( GetItems ); > use C4::Debug; > use Koha::AuthorisedValues; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Items; > use Koha::ItemTypes; > use Koha::Libraries; >diff --git a/opac/opac-restrictedpage.pl b/opac/opac-restrictedpage.pl >index 2fc31b65cb..c39567c601 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 d19f9dd738..3f6e6c8d3b 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 f8e86bac13..905269183a 100755 >--- a/opac/opac-review.pl >+++ b/opac/opac-review.pl >@@ -19,13 +19,13 @@ > > 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::Biblio; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Biblio qw( GetBiblioData GetBiblio ); > use C4::Scrubber; > use C4::Debug; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Review; > use Koha::Reviews; > >diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl >index da1196b305..ed7983940b 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::Debug; >diff --git a/opac/opac-search.pl b/opac/opac-search.pl >index 7b10ac3bef..c8f83d00db 100755 >--- a/opac/opac-search.pl >+++ b/opac/opac-search.pl >@@ -41,16 +41,16 @@ 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; # GetBiblioData >-use C4::Koha; >-use C4::Tags qw(get_tags); >+use C4::Output qw( output_html_with_http_headers output_with_http_headers ); >+use C4::Auth qw( get_template_and_user get_session ); >+use C4::Languages qw( getlanguage getLanguages ); >+use C4::Search qw( pazGetRecords searchResults ); >+use C4::Search qw( pazGetRecords searchResults ); >+use C4::Biblio qw( GetXmlBiblio GetMarcBiblio GetCOinSBiblio CountItemsIssued ); >+use C4::Koha qw( GetItemTypesCategorized getitemtypeinfo getitemtypeimagelocation GetAuthorisedValues ); >+use C4::Tags qw( get_tags get_tag ); > use C4::SocialData; >-use C4::External::OverDrive; >+use C4::External::OverDrive qw( IsOverDriveEnabled ); > > use Koha::LibraryCategories; > use Koha::Ratings; >diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl >index 063dd8bf06..de6e90a026 100755 >--- a/opac/opac-sendbasket.pl >+++ b/opac/opac-sendbasket.pl >@@ -26,11 +26,11 @@ use Mail::Sendmail; > use MIME::QuotedPrint; > use MIME::Base64; > >-use C4::Biblio; >-use C4::Items; >-use C4::Auth; >-use C4::Output; >-use C4::Members; >+use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects ); >+use C4::Items qw( GetItem GetItemsInfo ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember GetFirstValidEmailAddress ); > use C4::Templates (); > use Koha::Email; > use Koha::Token; >diff --git a/opac/opac-sendshelf.pl b/opac/opac-sendshelf.pl >index 242caca7d0..0db6fc9fdf 100755 >--- a/opac/opac-sendshelf.pl >+++ b/opac/opac-sendshelf.pl >@@ -27,11 +27,11 @@ use Carp; > use Mail::Sendmail; > use MIME::QuotedPrint; > use MIME::Base64; >-use C4::Auth; >-use C4::Biblio; >-use C4::Items; >-use C4::Output; >-use C4::Members; >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetFrameworkCode GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects GetRecordValue GetMarcISBN ); >+use C4::Items qw( GetItem GetItemsInfo ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember ); > use Koha::Email; > use Koha::Virtualshelves; > >diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl >index f6d7aa8a1d..3e61f07b22 100755 >--- a/opac/opac-serial-issues.pl >+++ b/opac/opac-serial-issues.pl >@@ -22,11 +22,11 @@ use strict; > use warnings; > > use CGI qw ( -utf8 ); >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Koha; >-use C4::Serials; >-use C4::Letters; >-use C4::Output; >+use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber ); >+use C4::Letters qw( getalert ); >+use C4::Output qw( output_html_with_http_headers ); > use C4::Context; > > my $query = new CGI; >diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl >index 89d7dc9d5d..b8adedaded 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::Members (); >-use C4::Output; >+use C4::Letters qw( GetPreparedLetter EnqueueLetter ); >+use C4::Members qw( GetNoticeEmailAddress ); >+use C4::Output qw( output_html_with_http_headers ); > > use Koha::Virtualshelves; > use Koha::Virtualshelfshares; >diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl >index ecbbc6c367..07b6880091 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::Koha; >-use C4::Items; >-use C4::Members; >-use C4::Output; >-use C4::Tags qw( get_tags ); >-use C4::XSLT; >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetBiblioData GetMarcBiblio GetFrameworkCode GetCOinSBiblio GetRecordValue ); >+use C4::Koha qw( getitemtypeinfo GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); >+use C4::Items qw( GetItem GetItemsLocationInfo ); >+use C4::Members qw( GetMember ); >+use C4::Output qw( pagination_bar output_html_with_http_headers ); >+use C4::Tags qw( get_tags get_tag ); >+use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display ); > > use Koha::Biblioitems; > use Koha::Virtualshelves; >diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl >index 250c519511..61f90dcc40 100755 >--- a/opac/opac-showmarc.pl >+++ b/opac/opac-showmarc.pl >@@ -25,11 +25,11 @@ use Encode; > > # Koha modules used > use C4::Context; >-use C4::Output; >-use C4::Auth; >-use C4::Biblio; >-use C4::ImportBatch; >-use C4::XSLT (); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetMarcBiblio GetFrameworkCode ); >+use C4::ImportBatch qw( GetImportRecordMarc ); >+use C4::XSLT qw( engine ); > use C4::Templates; > use Koha::RecordProcessor; > >diff --git a/opac/opac-showreviews.pl b/opac/opac-showreviews.pl >index f85a833c56..4fbe932e6c 100755 >--- a/opac/opac-showreviews.pl >+++ b/opac/opac-showreviews.pl >@@ -22,13 +22,13 @@ use strict; > use warnings; > > 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::Members qw/GetMember/; >-use Koha::DateUtils; >+use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetFrameworkCode GetRecordValue ); >+use C4::Members qw( GetMember ); >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Reviews; > use POSIX qw(ceil floor strftime); > >diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl >index d300769b2c..a0126b7722 100755 >--- a/opac/opac-suggestions.pl >+++ b/opac/opac-suggestions.pl >@@ -20,12 +20,12 @@ use warnings; > > use CGI qw ( -utf8 ); > use Encode qw( encode ); >-use C4::Auth; # get_template_and_user >-use C4::Members; >-use C4::Koha; >-use C4::Output; >+use C4::Auth qw( get_template_and_user ); >+use C4::Members qw( GetMember ); >+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 Koha::AuthorisedValues; >diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl >index 665d6b6702..545a0a25d3 100755 >--- a/opac/opac-tags.pl >+++ b/opac/opac-tags.pl >@@ -35,14 +35,14 @@ 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::Debug; >-use C4::Output qw(:html :ajax pagination_bar); >+use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers ); > use C4::Scrubber; >-use C4::Biblio; >-use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag stratify_tags); >-use C4::XSLT; >+use C4::Biblio qw( GetBiblioData GetBiblio GetMarcBiblio GetRecordValue GetFrameworkCode ); >+use C4::Tags qw( add_tag remove_tag get_tag_rows get_tag get_approval_rows stratify_tags ); >+use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display ); > > use Data::Dumper; > >diff --git a/opac/opac-tags_subject.pl b/opac/opac-tags_subject.pl >index 590e7a55af..3aa59571fc 100755 >--- a/opac/opac-tags_subject.pl >+++ b/opac/opac-tags_subject.pl >@@ -27,9 +27,9 @@ TODO :: Description here > use strict; > use warnings; > >-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; > use C4::Koha; # use getitemtypeinfo >diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl >index c3a7530df8..f856d458fc 100755 >--- a/opac/opac-topissues.pl >+++ b/opac/opac-topissues.pl >@@ -23,13 +23,13 @@ use strict; > use warnings; > > 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 395b148bac..f209251549 100755 >--- a/opac/opac-user.pl >+++ b/opac/opac-user.pl >@@ -22,19 +22,19 @@ use strict; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Koha; >-use C4::Circulation; >-use C4::Reserves; >-use C4::Members; >-use C4::Members::AttributeTypes; >-use C4::Members::Attributes qw/GetBorrowerAttributeValue/; >-use C4::Output; >-use C4::Biblio; >+use C4::Auth qw( get_template_and_user ); >+use C4::Koha qw( getitemtypeimagelocation GetNormalizedISBN GetNormalizedUPC ); >+use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetSoonestRenewDate ); >+use C4::Reserves qw( GetReserve GetReserveStatus ); >+use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues ); >+use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues ); >+use C4::Members qw( GetMember GetMemberAccountRecords GetPendingIssues ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Biblio qw( GetMarcBiblio GetRecordValue GetFrameworkCode ); > use C4::Items; >-use C4::Letters; >+use C4::Letters qw( getalert findrelatedto ); > use Koha::Libraries; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref ); > use Koha::Holds; > use Koha::Database; > use Koha::ItemTypes; >diff --git a/opac/sco/help.pl b/opac/sco/help.pl >index 412dc401b9..cb3abe8700 100755 >--- a/opac/sco/help.pl >+++ b/opac/sco/help.pl >@@ -25,8 +25,8 @@ use strict; > use warnings; > 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 $query = new CGI; > my ($template, $borrowernumber, $cookie) = get_template_and_user({ >diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl >index b85b8f5c05..1d1da343d7 100755 >--- a/opac/sco/printslip.pl >+++ b/opac/sco/printslip.pl >@@ -30,9 +30,9 @@ use strict; > use warnings; > 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_html_with_http_headers ); >+use C4::Members qw( IssueSlip ); > use C4::Koha; > > my $input = new CGI; >diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl >index 4153277fdb..faa08dc061 100755 >--- a/opac/sco/sco-main.pl >+++ b/opac/sco/sco-main.pl >@@ -35,14 +35,14 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth qw(get_template_and_user checkpw); >+use C4::Auth qw( get_template_and_user checkpw ); > use C4::Koha; >-use C4::Circulation; >+use C4::Circulation qw( AddReturn CanBookBeIssued AddRenewal AddIssue CanBookBeRenewed ); > use C4::Reserves; >-use C4::Output; >-use C4::Members; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Members qw( GetMember GetPendingIssues ); > use C4::Biblio; >-use C4::Items; >+use C4::Items qw( GetItem ); > use Koha::DateUtils qw( dt_from_string ); > use Koha::Acquisition::Currencies; > use Koha::Patron::Images; >diff --git a/opac/svc/shelfbrowser.pl b/opac/svc/shelfbrowser.pl >index 2b24a0e3aa..5afc34aea0 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 = new CGI; > >diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl >index 02b402deac..d5fc33f9c3 100755 >--- a/opac/tracklinks.pl >+++ b/opac/tracklinks.pl >@@ -20,7 +20,7 @@ > > use Modern::Perl; > use C4::Context; >-use C4::Auth qw(checkauth); >+use C4::Auth qw( checkauth ); > use Koha::Linktracker; > use CGI qw ( -utf8 ); > >diff --git a/patron_lists/add-modify.pl b/patron_lists/add-modify.pl >index 27060a6191..94127f5752 100755 >--- a/patron_lists/add-modify.pl >+++ b/patron_lists/add-modify.pl >@@ -21,9 +21,9 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Output; >-use Koha::List::Patron; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::List::Patron qw( GetPatronLists ModPatronList AddPatronList ); > > my $cgi = new CGI; > >diff --git a/patron_lists/delete.pl b/patron_lists/delete.pl >index f9d1aef19c..728e9030c2 100755 >--- a/patron_lists/delete.pl >+++ b/patron_lists/delete.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::Output; >-use Koha::List::Patron; >+use Koha::List::Patron qw( DelPatronList ); > > my $cgi = new CGI; > >diff --git a/patron_lists/list.pl b/patron_lists/list.pl >index 9a21681c2b..08cfb91ba8 100755 >--- a/patron_lists/list.pl >+++ b/patron_lists/list.pl >@@ -21,9 +21,9 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Output; >-use Koha::List::Patron; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::List::Patron qw( GetPatronLists AddPatronsToList DelPatronsFromList ); > > my $cgi = new CGI; > >diff --git a/patron_lists/lists.pl b/patron_lists/lists.pl >index a5cdf2b74c..dc3876c0d4 100755 >--- a/patron_lists/lists.pl >+++ b/patron_lists/lists.pl >@@ -21,9 +21,9 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Output; >-use Koha::List::Patron; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::List::Patron qw( GetPatronLists ); > > my $cgi = new CGI; > >diff --git a/patron_lists/patrons.pl b/patron_lists/patrons.pl >index 658f92de8f..112ddf68bd 100755 >--- a/patron_lists/patrons.pl >+++ b/patron_lists/patrons.pl >@@ -21,9 +21,9 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Output; >-use Koha::List::Patron; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::List::Patron qw( GetPatronLists ModPatronList AddPatronList ); > > my $cgi = new CGI; > >diff --git a/patroncards/add_user_search.pl b/patroncards/add_user_search.pl >index c8eca5fa74..62179bfd15 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 e660af6179..21dbed3d30 100755 >--- a/patroncards/create-pdf.pl >+++ b/patroncards/create-pdf.pl >@@ -21,7 +21,7 @@ use strict; > use warnings; > > 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); >@@ -32,7 +32,7 @@ use C4::Context; > use autouse 'C4::Members' => qw(GetMember); > use C4::Creators; > use C4::Patroncards; >-use Koha::List::Patron; >+use Koha::List::Patron qw( GetPatronLists ); > use Koha::Patron::Images; > > my $cgi = new CGI; >diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl >index cd1f774b5d..e703058e24 100755 >--- a/patroncards/edit-batch.pl >+++ b/patroncards/edit-batch.pl >@@ -25,11 +25,11 @@ 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::Members qw(GetMember); >+use C4::Members qw( GetMember ); > my $cgi = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( > { >diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl >index fb495b166c..8cb23e04a6 100755 >--- a/patroncards/edit-layout.pl >+++ b/patroncards/edit-layout.pl >@@ -26,8 +26,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 4b0769c0e3..a4b79b0707 100755 >--- a/patroncards/edit-profile.pl >+++ b/patroncards/edit-profile.pl >@@ -23,9 +23,9 @@ use warnings; > > use CGI qw ( -utf8 ); > >-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::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Creators::Lib qw( get_unit_values get_all_templates ); > use C4::Patroncards::Profile; > > my $cgi = new CGI; >diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl >index f37757c540..a97448d844 100755 >--- a/patroncards/edit-template.pl >+++ b/patroncards/edit-template.pl >@@ -24,8 +24,8 @@ use warnings; > 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 b88221f337..4faa022a2b 100755 >--- a/patroncards/home.pl >+++ b/patroncards/home.pl >@@ -23,8 +23,8 @@ use warnings; > > 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 = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl >index 514ea942c1..899fb5f33b 100755 >--- a/patroncards/image-manage.pl >+++ b/patroncards/image-manage.pl >@@ -8,8 +8,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::Debug; > use C4::Creators; > use C4::Patroncards; >diff --git a/patroncards/manage.pl b/patroncards/manage.pl >index 837fccdf76..65fe623e18 100755 >--- a/patroncards/manage.pl >+++ b/patroncards/manage.pl >@@ -25,12 +25,12 @@ 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; >-use Koha::List::Patron; >+use Koha::List::Patron qw( GetPatronLists ); > > my $cgi = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/patroncards/print.pl b/patroncards/print.pl >index fdadfc9f36..39bd72f36e 100755 >--- a/patroncards/print.pl >+++ b/patroncards/print.pl >@@ -23,8 +23,8 @@ use warnings; > 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-home.pl b/plugins/plugins-home.pl >index 5efd9bd94c..e89b757e2e 100755 >--- a/plugins/plugins-home.pl >+++ b/plugins/plugins-home.pl >@@ -23,8 +23,8 @@ use warnings; > use CGI qw ( -utf8 ); > > 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::Debug; > use C4::Context; > >diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl >index d965e1233a..3746d31743 100755 >--- a/plugins/plugins-uninstall.pl >+++ b/plugins/plugins-uninstall.pl >@@ -24,7 +24,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 C4::Debug; >diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl >index 1e315f9d0d..6b3fc0e0a2 100755 >--- a/plugins/plugins-upload.pl >+++ b/plugins/plugins-upload.pl >@@ -25,8 +25,8 @@ use File::Copy; > 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::Members; > use C4::Debug; > use Koha::Plugins; >diff --git a/plugins/run.pl b/plugins/run.pl >index 86c7c360aa..922ab0c643 100755 >--- a/plugins/run.pl >+++ b/plugins/run.pl >@@ -23,8 +23,8 @@ use warnings; > 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::Debug; > use C4::Context; > >diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl >index ac86289a1a..e69dc597a2 100755 >--- a/reports/acquisitions_stats.pl >+++ b/reports/acquisitions_stats.pl >@@ -19,16 +19,16 @@ > > 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::DateUtils qw( dt_from_string output_pref ); > use Koha::Libraries; > > =head1 NAME >diff --git a/reports/bor_issues_top.pl b/reports/bor_issues_top.pl >index 84a46a36a2..5403437312 100755 >--- a/reports/bor_issues_top.pl >+++ b/reports/bor_issues_top.pl >@@ -20,16 +20,16 @@ > 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 C4::Debug; > >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::ItemTypes; > use Koha::Patron::Categories; > >diff --git a/reports/borrowers_out.pl b/reports/borrowers_out.pl >index 50c73b0dcb..883e1d21b6 100755 >--- a/reports/borrowers_out.pl >+++ b/reports/borrowers_out.pl >@@ -21,15 +21,15 @@ use strict; > use warnings; > > 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; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Patron::Categories; > > =head1 NAME >diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl >index 9bdf37d0dc..42a1529db0 100755 >--- a/reports/borrowers_stats.pl >+++ b/reports/borrowers_stats.pl >@@ -21,17 +21,17 @@ 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 C4::Members::AttributeTypes; > > use Koha::AuthorisedValues; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Libraries; > use Koha::Patron::Categories; > >diff --git a/reports/cash_register_stats.pl b/reports/cash_register_stats.pl >index 3bd8cadbff..5de79432f3 100755 >--- a/reports/cash_register_stats.pl >+++ b/reports/cash_register_stats.pl >@@ -15,15 +15,15 @@ > # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. > > 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; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Text::CSV::Encoded; > > my $input = new CGI; >diff --git a/reports/cat_issues_top.pl b/reports/cat_issues_top.pl >index 958a72e059..2b5cd88cd8 100755 >--- a/reports/cat_issues_top.pl >+++ b/reports/cat_issues_top.pl >@@ -20,15 +20,15 @@ > > 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::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::DateUtils qw( dt_from_string output_pref ); > use Koha::ItemTypes; > > =head1 NAME >diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl >index 0c53a79178..3243ba4cd3 100755 >--- a/reports/catalogue_out.pl >+++ b/reports/catalogue_out.pl >@@ -21,10 +21,10 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Context; > use C4::Debug; >-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 dcd28894c0..85d91789f2 100755 >--- a/reports/catalogue_stats.pl >+++ b/reports/catalogue_stats.pl >@@ -20,17 +20,17 @@ > > 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::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; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::ItemTypes; > > =head1 NAME >diff --git a/reports/dictionary.pl b/reports/dictionary.pl >index 7d86f8d11a..3e1cebf6f5 100755 >--- a/reports/dictionary.pl >+++ b/reports/dictionary.pl >@@ -19,11 +19,11 @@ > use CGI::Carp qw(fatalsToBrowser warningsToBrowser); > use strict; > use warnings; >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use CGI qw ( -utf8 ); >-use C4::Output; >-use C4::Reports::Guided; >-use Koha::DateUtils; >+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 qw( dt_from_string output_pref ); > > =head1 NAME > >diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl >index b81e84f321..d3a0e8e850 100755 >--- a/reports/guided_reports.pl >+++ b/reports/guided_reports.pl >@@ -24,14 +24,14 @@ use Encode qw( decode ); > use URI::Escape; > use File::Temp; > use File::Basename qw( dirname ); >-use C4::Reports::Guided; >-use C4::Auth qw/:DEFAULT get_session/; >-use C4::Output; >+use C4::Reports::Guided qw( delete_report get_report_areas get_saved_report 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 create_compound get_report_groups ); >+use C4::Auth qw( get_template_and_user get_session ); >+use C4::Output qw( pagination_bar output_html_with_http_headers ); > use C4::Debug; > use C4::Context; > use Koha::Caches; >-use C4::Log; >-use Koha::DateUtils qw/dt_from_string output_pref/; >+use C4::Log qw( logaction ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::AuthorisedValue; > use Koha::AuthorisedValues; > use Koha::BiblioFrameworks; >diff --git a/reports/issues_avg_stats.pl b/reports/issues_avg_stats.pl >index 5c35de781e..da1d7d0568 100755 >--- a/reports/issues_avg_stats.pl >+++ b/reports/issues_avg_stats.pl >@@ -20,14 +20,14 @@ > > 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::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Koha; > use C4::Circulation; >-use C4::Reports; >-use Koha::DateUtils; >+use C4::Reports qw( GetDelimiterChoices ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::ItemTypes; > use Koha::Patron::Categories; > use Date::Calc qw(Delta_Days); >diff --git a/reports/issues_stats.pl b/reports/issues_stats.pl >index f7f5662f4b..168b110cd7 100755 >--- a/reports/issues_stats.pl >+++ b/reports/issues_stats.pl >@@ -23,17 +23,17 @@ use warnings; > use CGI qw ( -utf8 ); > use Date::Manip; > >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Debug; > 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; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::ItemTypes; > use C4::Members::AttributeTypes; > >diff --git a/reports/itemslost.pl b/reports/itemslost.pl >index 75bb067c77..3a565e605f 100755 >--- a/reports/itemslost.pl >+++ b/reports/itemslost.pl >@@ -29,8 +29,8 @@ use strict; > use warnings; > > 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 Koha::DateUtils; >diff --git a/reports/manager.pl b/reports/manager.pl >index e9ec30e16d..9ce5e6a86f 100755 >--- a/reports/manager.pl >+++ b/reports/manager.pl >@@ -20,9 +20,9 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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 469b2c2c8d..e9dac67496 100755 >--- a/reports/orders_by_fund.pl >+++ b/reports/orders_by_fund.pl >@@ -28,13 +28,13 @@ 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::Budgets; >-use C4::Biblio; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Budgets qw( GetBudget GetBudgetsReport GetBudgets GetBudgetReport GetBudgetHierarchy ); >+use C4::Biblio qw( GetBiblio ); > use C4::Reports; >-use C4::Acquisition; #GetBasket() >-use Koha::DateUtils; >+use C4::Acquisition qw( GetBasket ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $query = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/reports/reports-home.pl b/reports/reports-home.pl >index c1e92c2119..9af0886451 100755 >--- a/reports/reports-home.pl >+++ b/reports/reports-home.pl >@@ -21,8 +21,8 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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 09bfd0c729..02f1f49b92 100755 >--- a/reports/reserves_stats.pl >+++ b/reports/reserves_stats.pl >@@ -21,15 +21,15 @@ use Modern::Perl; > > use CGI qw ( -utf8 ); > >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Debug; > 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; >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::ItemTypes; > use Koha::Libraries; > use Koha::Patron::Categories; >diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl >index 614b95f4ca..8e207d3df3 100755 >--- a/reports/serials_stats.pl >+++ b/reports/serials_stats.pl >@@ -19,13 +19,13 @@ > > use strict; > use warnings; >-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/reports/stats.print.pl b/reports/stats.print.pl >index 9495360342..64cf3dcd5f 100755 >--- a/reports/stats.print.pl >+++ b/reports/stats.print.pl >@@ -8,7 +8,7 @@ use C4::Output; > use C4::Auth; > use C4::Context; > use Date::Manip; >-use C4::Stats; >+use C4::Stats qw( TotalPaid ); > use Text::CSV_XS; > &Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005 > >diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl >index 84703f20ca..01cf34e3db 100755 >--- a/reserve/modrequest.pl >+++ b/reserve/modrequest.pl >@@ -26,8 +26,8 @@ use strict; > use warnings; > use CGI qw ( -utf8 ); > use C4::Output; >-use C4::Reserves; >-use C4::Auth; >+use C4::Reserves qw( ModReserve ModReserveCancelAll ); >+use C4::Auth qw( get_template_and_user ); > > my $query = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl >index f8e24ba538..796fa4f388 100755 >--- a/reserve/modrequest_suspendall.pl >+++ b/reserve/modrequest_suspendall.pl >@@ -26,8 +26,8 @@ use strict; > use warnings; > 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 = new CGI; > my ( $template, $loggedinuser, $cookie ) = get_template_and_user( >diff --git a/reserve/placerequest.pl b/reserve/placerequest.pl >index 92f3c48b01..163e789834 100755 >--- a/reserve/placerequest.pl >+++ b/reserve/placerequest.pl >@@ -26,12 +26,12 @@ use warnings; > > use CGI qw ( -utf8 ); > use C4::Biblio; >-use C4::Items; >+use C4::Items qw( GetItem ); > use C4::Output; >-use C4::Reserves; >+use C4::Reserves qw( AddReserve ); > use C4::Circulation; >-use C4::Members; >-use C4::Auth qw/checkauth/; >+use C4::Members qw( GetMember ); >+use C4::Auth qw( checkauth ); > > my $input = CGI->new(); > >diff --git a/reserve/request.pl b/reserve/request.pl >index db35e165fa..49c2b6092f 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::Biblio; >-use C4::Items; >-use C4::Koha; >-use C4::Circulation; >-use Koha::DateUtils; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); >+use C4::Reserves qw( AlterPriority CancelReserve ToggleLowestPriority ToggleSuspend GetReserve GetReserveCount CanBookBeReserved GetMaxPatronHoldsForRecord CanItemBeReserved OPACItemHoldsAllowed IsAvailableForItemLevelRequest ); >+use C4::Biblio qw( GetBiblioData GetBiblio GetBiblioItemInfosOf GetFrameworkCode ); >+use C4::Items qw( get_hostitemnumbers_of GetItem ); >+use C4::Koha qw( getitemtypeimagelocation ); >+use C4::Circulation qw( CheckIfIssuedToPatron GetItemIssue GetTransfers _GetCircControlBranch GetBranchItemRule ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use C4::Utils::DataTables::Members; >-use C4::Members; >-use C4::Search; # enabled_staff_search_views >-use Koha::DateUtils; >+use C4::Members qw( GetMember GetMemberAccountRecords ); >+use C4::Search qw( enabled_staff_search_views ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > use Koha::Holds; > use Koha::Items; > use Koha::ItemTypes; >diff --git a/reviews/reviewswaiting.pl b/reviews/reviewswaiting.pl >index 452b54c283..de4afd2d18 100755 >--- a/reviews/reviewswaiting.pl >+++ b/reviews/reviewswaiting.pl >@@ -18,11 +18,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( pagination_bar output_html_with_http_headers ); > use C4::Context; >-use C4::Members; >-use C4::Biblio; >+use C4::Members qw( GetMember ); >+use C4::Biblio qw( GetBiblioData GetBiblio ); > use Koha::Reviews; > > my $query = new CGI; >diff --git a/rotating_collections/addItems.pl b/rotating_collections/addItems.pl >index cd24d50fd7..9a1fbf3fdc 100755 >--- a/rotating_collections/addItems.pl >+++ b/rotating_collections/addItems.pl >@@ -18,11 +18,11 @@ > > 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; >+use C4::RotatingCollections qw( AddItemToCollection RemoveItemFromCollection GetCollection GetItemsInCollection ); >+use C4::Items qw( GetItem GetItemnumberFromBarcode AddItem ); > > use CGI qw ( -utf8 ); > >diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl >index c8ed8ed03b..ddcb380869 100755 >--- a/rotating_collections/editCollections.pl >+++ b/rotating_collections/editCollections.pl >@@ -20,11 +20,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::Context; > >-use C4::RotatingCollections; >+use C4::RotatingCollections qw( CreateCollection DeleteCollection GetCollection UpdateCollection ); > > my $query = new CGI; > >diff --git a/rotating_collections/rotatingCollections.pl b/rotating_collections/rotatingCollections.pl >index acf4586568..da7d107812 100755 >--- a/rotating_collections/rotatingCollections.pl >+++ b/rotating_collections/rotatingCollections.pl >@@ -20,10 +20,10 @@ 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; >+use C4::RotatingCollections qw( GetCollections GetCollection ); > > my $query = new CGI; > >diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl >index 49b09b3113..e0ae065c39 100755 >--- a/rotating_collections/transferCollection.pl >+++ b/rotating_collections/transferCollection.pl >@@ -18,10 +18,10 @@ > > 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::RotatingCollections qw( TransferCollection GetCollection ); > > use CGI qw ( -utf8 ); > >diff --git a/serials/acqui-search-result.pl b/serials/acqui-search-result.pl >index c159d294e8..3d8f65f214 100755 >--- a/serials/acqui-search-result.pl >+++ b/serials/acqui-search-result.pl >@@ -42,12 +42,12 @@ acqui-search-result.pl > > use strict; > use warnings; >-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; >+use Koha::DateUtils qw( output_pref ); > > use Koha::Acquisition::Booksellers; > >diff --git a/serials/acqui-search.pl b/serials/acqui-search.pl >index ff404f7139..50045c6c02 100755 >--- a/serials/acqui-search.pl >+++ b/serials/acqui-search.pl >@@ -21,8 +21,8 @@ > use strict; > use warnings; > 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 = new CGI; > >diff --git a/serials/add_fields.pl b/serials/add_fields.pl >index 317f299a98..69753236b3 100755 >--- a/serials/add_fields.pl >+++ b/serials/add_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::AdditionalField; > > my $input = new CGI; >diff --git a/serials/add_user_search.pl b/serials/add_user_search.pl >index 6cb177acbe..2b068f9379 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 7e2eed483c..9133e2704b 100755 >--- a/serials/checkexpiration.pl >+++ b/serials/checkexpiration.pl >@@ -45,11 +45,11 @@ The date to filter on. > use strict; > use warnings; > 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; >+use Koha::DateUtils qw( dt_from_string ); > > use DateTime; > >diff --git a/serials/claims.pl b/serials/claims.pl >index 44cff74865..02118baf72 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::AdditionalField; >diff --git a/serials/create-numberpattern.pl b/serials/create-numberpattern.pl >index 52b303d8a8..c4560f3ebd 100755 >--- a/serials/create-numberpattern.pl >+++ b/serials/create-numberpattern.pl >@@ -20,8 +20,8 @@ > use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Serials::Numberpattern; >-use C4::Auth qw/check_cookie_auth/; >+use C4::Serials::Numberpattern qw( AddSubscriptionNumberpattern ModSubscriptionNumberpattern ); >+use C4::Auth qw( check_cookie_auth ); > use URI::Escape; > > my $input = new CGI; >diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl >index e36e7347bb..39456271d5 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 491bf2b2e1..8f96c025da 100755 >--- a/serials/routing-preview.pl >+++ b/serials/routing-preview.pl >@@ -22,16 +22,16 @@ use strict; > use warnings; > 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::Members qw( GetMember ); >+use C4::Biblio qw( GetBiblioItemByBiblioNumber GetBiblio ); >+use C4::Items qw( GetItem 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 32f42e52ab..c59647ca99 100755 >--- a/serials/routing.pl >+++ b/serials/routing.pl >@@ -29,14 +29,14 @@ use strict; > use warnings; > 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::Output; >+use C4::Output qw( output_html_with_http_headers ); > use C4::Context; > >-use C4::Members; >-use C4::Serials; >+use C4::Members qw( GetMember ); >+use C4::Serials qw( delroutingmember addroutingmember getroutinglist GetSubscription GetSerials GetLatestSerials check_routing ); > > use URI::Escape; > >diff --git a/serials/serial-issues.pl b/serials/serial-issues.pl >index fdda1fd5a2..10a1bda401 100755 >--- a/serials/serial-issues.pl >+++ b/serials/serial-issues.pl >@@ -44,10 +44,10 @@ the biblionumber this script has to give more infos. > use strict; > use warnings; > use CGI qw ( -utf8 ); >-use C4::Auth; >+use C4::Auth qw( get_template_and_user ); > use C4::Koha; >-use C4::Serials; >-use C4::Output; >+use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber ); >+use C4::Output qw( output_html_with_http_headers ); > use C4::Context; > > >diff --git a/serials/serials-collection.pl b/serials/serials-collection.pl >index 5182cbda61..79152b5eb4 100755 >--- a/serials/serials-collection.pl >+++ b/serials/serials-collection.pl >@@ -22,11 +22,11 @@ > use strict; > use warnings; > 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_html_with_http_headers ); > use C4::Context; > > use List::MoreUtils qw/uniq/; >diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl >index 2bff94b66e..d7335323af 100755 >--- a/serials/serials-edit.pl >+++ b/serials/serials-edit.pl >@@ -65,15 +65,15 @@ use strict; > use warnings; > 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( GetBiblioData GetBiblio TransformHtmlToXml GetMarcFromKohaField GetFrameworkCode ); >+use C4::Items qw( PrepareItemrecordDisplay ModItem GetItem GetItemnumberFromBarcode AddItemFromMarc AddItem 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 Koha::DateUtils; >+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 qw( dt_from_string output_pref ); > use Koha::Serial::Items; > > use List::MoreUtils qw/uniq/; >diff --git a/serials/serials-home.pl b/serials/serials-home.pl >index cf59cb8b7d..2458be6519 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 = new CGI; >diff --git a/serials/serials-search.pl b/serials/serials-search.pl >index 30bf7db87c..aee738e615 100755 >--- a/serials/serials-search.pl >+++ b/serials/serials-search.pl >@@ -30,14 +30,14 @@ 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::AdditionalField; > >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > > my $query = new CGI; > my $title = $query->param('title_filter') || ''; >diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl >index 6986b5efad..f0ad61ed00 100755 >--- a/serials/showpredictionpattern.pl >+++ b/serials/showpredictionpattern.pl >@@ -32,11 +32,11 @@ 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 Koha::DateUtils; >+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 qw( output_pref dt_from_string ); > > my $input = new CGI; > my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { >diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl >index ce7f168e8b..01ec7f3f16 100755 >--- a/serials/subscription-add.pl >+++ b/serials/subscription-add.pl >@@ -20,18 +20,18 @@ use warnings; > > 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( GetBiblioData GetBiblio GetMarcBiblio ); >+use C4::Auth qw( get_template_and_user ); > use C4::Acquisition; >-use C4::Output; >+use C4::Output qw( 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 NewSubscription ModNextExpected ModSubscription ); >+use C4::Serials qw( GetSubscription GetNextExpected GetSerials NewSubscription ModNextExpected ModSubscription ); >+use C4::Serials qw( GetSubscription GetNextExpected GetSerials NewSubscription ModNextExpected ModSubscription ); >+use C4::Letters qw( GetLetters ); > use Koha::AdditionalField; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref ); > use Koha::ItemTypes; > use Carp; > >diff --git a/serials/subscription-bib-search.pl b/serials/subscription-bib-search.pl >index 35159e6754..92ccb5278d 100755 >--- a/serials/subscription-bib-search.pl >+++ b/serials/subscription-bib-search.pl >@@ -50,12 +50,12 @@ use strict; > use warnings; > > 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 C4::Debug; > > use Koha::ItemTypes; >diff --git a/serials/subscription-detail.pl b/serials/subscription-detail.pl >index b7e7c05bd0..c1e2c3569d 100755 >--- a/serials/subscription-detail.pl >+++ b/serials/subscription-detail.pl >@@ -17,17 +17,17 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Acquisition; >-use C4::Auth; >-use C4::Budgets; >-use C4::Koha; >-use C4::Serials; >-use C4::Output; >+use C4::Acquisition qw( GetLastOrderNotReceivedFromSubscriptionid GetLastOrderReceivedFromSubscriptionid GetBasket ); >+use C4::Auth qw( get_template_and_user checkauth ); >+use C4::Budgets qw( GetBudgetName GetBudget ); >+use C4::Koha qw( GetAuthorisedValues ); >+use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription ); >+use C4::Output qw( 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::AuthorisedValues; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref ); > use Koha::Acquisition::Bookseller; > > use Date::Calc qw/Today Day_of_Year Week_of_Year Add_Delta_Days/; >diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl >index f3c6d572d3..7ff4b37526 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 = new CGI; > my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { >diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl >index f7fe7c0bdb..0b56d79d84 100755 >--- a/serials/subscription-frequency.pl >+++ b/serials/subscription-frequency.pl >@@ -20,8 +20,8 @@ > use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Context; >-use C4::Serials::Frequency; >-use C4::Auth qw/check_cookie_auth/; >+use C4::Serials::Frequency qw( GetSubscriptionFrequency ); >+use C4::Auth qw( check_cookie_auth ); > use JSON qw( to_json ); > > my $input=new CGI; >diff --git a/serials/subscription-history.pl b/serials/subscription-history.pl >index 8b7dd3dada..0c441d5451 100755 >--- a/serials/subscription-history.pl >+++ b/serials/subscription-history.pl >@@ -30,12 +30,12 @@ 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 Koha::DateUtils; >+use C4::Biblio qw( GetBiblio ); >+use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription ); >+use Koha::DateUtils qw( output_pref ); > > my $input = new CGI; > my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { >diff --git a/serials/subscription-numberpattern.pl b/serials/subscription-numberpattern.pl >index 26745f1c14..57f1a09f87 100755 >--- a/serials/subscription-numberpattern.pl >+++ b/serials/subscription-numberpattern.pl >@@ -19,8 +19,8 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Serials::Numberpattern; >-use C4::Auth qw/check_cookie_auth/; >+use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern ); >+use C4::Auth qw( check_cookie_auth ); > use JSON qw( to_json ); > > my $input=new CGI; >diff --git a/serials/subscription-numberpatterns.pl b/serials/subscription-numberpatterns.pl >index 2bcce3a077..46b8eadece 100755 >--- a/serials/subscription-numberpatterns.pl >+++ b/serials/subscription-numberpatterns.pl >@@ -30,10 +30,10 @@ Manage numbering patterns > use Modern::Perl; > use CGI qw ( -utf8 ); > >-use C4::Auth; >-use C4::Output; >-use C4::Serials::Numberpattern; >-use C4::Serials::Frequency; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern GetSubscriptionNumberpatternByName AddSubscriptionNumberpattern ModSubscriptionNumberpattern DelSubscriptionNumberpattern GetSubscriptionsWithNumberpattern GetSubscriptionNumberpatterns ); >+use C4::Serials::Frequency qw( GetSubscriptionFrequencies ); > > my $input = new CGI; > my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { >diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl >index bbbc8e501d..4d8102592d 100755 >--- a/serials/subscription-renew.pl >+++ b/serials/subscription-renew.pl >@@ -49,12 +49,12 @@ use warnings; > 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 Koha::DateUtils; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Serials qw( NewSubscription ReNewSubscription GetSubscription ); >+use Koha::DateUtils qw( output_pref dt_from_string ); > > my $query = new CGI; > my $dbh = C4::Context->dbh; >diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl >index 7ee90b39ec..050061c445 100755 >--- a/serials/viewalerts.pl >+++ b/serials/viewalerts.pl >@@ -21,12 +21,12 @@ > use strict; > use warnings; > 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::Letters; >-use C4::Serials; >+use C4::Letters qw( getalert findrelatedto ); >+use C4::Serials qw( GetSubscription ); > > my $dbh = C4::Context->dbh; > >diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl >index f4bb384e5a..30c06f1f74 100755 >--- a/services/itemrecorddisplay.pl >+++ b/services/itemrecorddisplay.pl >@@ -31,9 +31,9 @@ use strict; > use warnings; > > 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 = new CGI; > my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { >diff --git a/sms/sms.pl b/sms/sms.pl >index 5d599fb939..185cbf14da 100755 >--- a/sms/sms.pl >+++ b/sms/sms.pl >@@ -4,8 +4,8 @@ use strict; > #use warnings; FIXME - Bug 2505 > use CGI qw ( -utf8 ); > use C4::SMS; >-use C4::Output; >-use C4::Auth; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); > > my $query = new CGI; > my $message = $query->param( 'message' ); >diff --git a/sms/sms_listen.pl b/sms/sms_listen.pl >index 0ee3f532f5..e0b6ea487d 100755 >--- a/sms/sms_listen.pl >+++ b/sms/sms_listen.pl >@@ -4,7 +4,7 @@ use strict; > use warnings; > > use C4::SMS; >-use C4::Auth; >+use C4::Auth qw( checkpw ); > use C4::Context; > use C4::Members; > use C4::Circulation; >diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl >index fb977623e5..9e2f64e13a 100755 >--- a/suggestion/suggestion.pl >+++ b/suggestion/suggestion.pl >@@ -21,13 +21,13 @@ use strict; > #use warnings; FIXME - Bug 2505 > 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::Budgets; >-use C4::Search; >-use C4::Members; >+use C4::Koha qw( GetAuthorisedValues ); >+use C4::Budgets qw( GetBudget GetBudgets CanUserUseBudget ); >+use C4::Search qw( GetDistinctValues ); >+use C4::Members qw( GetMember ); > use C4::Debug; > > use Koha::DateUtils qw( dt_from_string ); >diff --git a/tags/list.pl b/tags/list.pl >index cbc1bd34a2..52259fe0a2 100755 >--- a/tags/list.pl >+++ b/tags/list.pl >@@ -21,13 +21,13 @@ use warnings; > use strict; > 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 GetBiblio GetMarcBiblio GetRecordValue GetFrameworkCode ); > use C4::Context; >-use C4::Items; >+use C4::Items qw( GetItem 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 b7e959b69b..7120657642 100755 >--- a/tags/review.pl >+++ b/tags/review.pl >@@ -26,13 +26,13 @@ use POSIX; > 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 Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > # use C4::Koha; >-use C4::Output qw(:html :ajax pagination_bar); >+use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers ); > use C4::Debug; >-use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved); >+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/test/search.pl b/test/search.pl >index 5d4f6e8d76..e8b205fe38 100755 >--- a/test/search.pl >+++ b/test/search.pl >@@ -1,6 +1,6 @@ > #!/usr/bin/perl -w > >-use C4::Search; >+use C4::Search qw( buildQuery ); > > my @SEARCH = ( > { operators => [ >diff --git a/tools/ajax-inventory.pl b/tools/ajax-inventory.pl >index 2aeda40847..6d182334ba 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 = new CGI; >diff --git a/tools/automatic_item_modification_by_age.pl b/tools/automatic_item_modification_by_age.pl >index 12a1c006e1..4b83638ab9 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::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 811f5b2df5..d6ed6f3aa6 100755 >--- a/tools/background-job-progress.pl >+++ b/tools/background-job-progress.pl >@@ -25,7 +25,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 1dc2174951..ec6a465244 100755 >--- a/tools/batchMod.pl >+++ b/tools/batchMod.pl >@@ -21,22 +21,22 @@ > use CGI qw ( -utf8 ); > use strict; > #use warnings; FIXME - Bug 2505 >-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 GetBiblionumberFromItemnumber GetBiblio GetMarcFromKohaField TransformHtmlToXml DelBiblio IsMarcStructureInternal GetAuthorisedValueDesc GetBiblioData ); >+use C4::Items qw( GetBarcodeFromItemnumber GetItem DelItem DelItemCheck Item2Marc ModItemFromMarc ModItem GetItemnumberFromBarcode 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::Debug; >-use C4::Members; >+use C4::Members qw( GetMember ); > use MARC::File::XML; > use List::MoreUtils qw/uniq/; > > use Koha::Biblios; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > use Koha::ItemTypes; > > my $input = new CGI; >diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl >index 4be2427073..17678f8e06 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 GetRecordValue GetFrameworkCode CountItemsIssued DelBiblio ); > > use Koha::Biblios; > >diff --git a/tools/batch_record_modification.pl b/tools/batch_record_modification.pl >index 6ea0317955..3026f939ff 100755 >--- a/tools/batch_record_modification.pl >+++ b/tools/batch_record_modification.pl >@@ -25,10 +25,10 @@ use List::MoreUtils qw( uniq ); > > 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::BackgroundJob; >-use C4::Biblio qw( GetMarcBiblio ModBiblio ); >-use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModificationTemplates ModifyRecordWithTemplate ); >+use C4::Biblio qw( GetBiblio GetMarcBiblio GetFrameworkCode ModBiblio ); >+use C4::MarcModificationTemplates qw( GetModificationTemplates GetModificationTemplateAction GetModificationTemplateActions ModifyRecordWithTemplate ); > use Koha::MetadataRecord::Authority; > > my $input = new CGI; >diff --git a/tools/batch_records_ajax.pl b/tools/batch_records_ajax.pl >index c8c61989f0..26f3fedbcc 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 = new CGI; > >diff --git a/tools/cleanborrowers.pl b/tools/cleanborrowers.pl >index 3040b1d777..b2a1ac2bdf 100755 >--- a/tools/cleanborrowers.pl >+++ b/tools/cleanborrowers.pl >@@ -34,16 +34,16 @@ 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; > use Koha::Patrons; > use Date::Calc qw/Today Add_Delta_YM/; > use Koha::Patrons; >-use Koha::List::Patron; >+use Koha::List::Patron qw( GetPatronLists ); > > my $cgi = new CGI; > >diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl >index dd09677676..c1cad5e7f4 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 2855189803..afa3ba0c78 100755 >--- a/tools/exceptionHolidays.pl >+++ b/tools/exceptionHolidays.pl >@@ -10,7 +10,7 @@ use C4::Output; > use DateTime; > > use C4::Calendar; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string ); > > my $input = new CGI; > my $dbh = C4::Context->dbh(); >diff --git a/tools/export.pl b/tools/export.pl >index 72b18c4756..978e6ebf5d 100755 >--- a/tools/export.pl >+++ b/tools/export.pl >@@ -20,14 +20,14 @@ 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; > use Koha::CsvProfiles; > use Koha::Database; >-use Koha::DateUtils qw( dt_from_string output_pref ); >+use Koha::DateUtils qw( dt_from_string ); > use Koha::Exporter::Record; > use Koha::ItemTypes; > use Koha::Libraries; >diff --git a/tools/holidays.pl b/tools/holidays.pl >index fb4272b20f..574727462d 100755 >--- a/tools/holidays.pl >+++ b/tools/holidays.pl >@@ -21,11 +21,11 @@ use warnings; > > 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; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $input = new CGI; > >diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl >index 58c2266495..d9f7920029 100755 >--- a/tools/import_borrowers.pl >+++ b/tools/import_borrowers.pl >@@ -37,18 +37,18 @@ > use strict; > use warnings; > >-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::Attributes qw(:all); >-use C4::Members::AttributeTypes; >-use C4::Members::Messaging; >+use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember ); >+use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember ); >+use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember ); >+use C4::Members qw( ModMember GetMember checkcardnumber Check_Userid fixup_cardnumber AddMember ); > use C4::Reports::Guided; > use C4::Templates; >-use Koha::Patron::Debarments; >+use Koha::Patron::Debarments qw( GetDebarments AddDebarment ); > use Koha::Patrons; >-use Koha::DateUtils; >+use Koha::DateUtils qw( output_pref dt_from_string ); > use Koha::Token; > use Koha::Libraries; > use Koha::Patron::Categories; >diff --git a/tools/inventory.pl b/tools/inventory.pl >index 1ee40a1014..2c00c05a74 100755 >--- a/tools/inventory.pl >+++ b/tools/inventory.pl >@@ -25,16 +25,16 @@ use CGI qw ( -utf8 ); > my $input = CGI->new; > my $uploadbarcodes = $input->param('uploadbarcodes'); > >-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::Koha; >-use C4::Circulation; >-use C4::Reports::Guided; #_get_column_defs >-use C4::Charset; >-use Koha::DateUtils; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Biblio qw( GetMarcFromKohaField GetBiblioData GetBiblio ); >+use C4::Items qw( GetItem ModItem GetItemsForInventory ); >+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::DateUtils qw( dt_from_string output_pref ); > use Koha::AuthorisedValues; > use Koha::BiblioFrameworks; > use List::MoreUtils qw( none ); >diff --git a/tools/koha-news.pl b/tools/koha-news.pl >index 61c3ec606f..ba1469afbb 100755 >--- a/tools/koha-news.pl >+++ b/tools/koha-news.pl >@@ -25,14 +25,14 @@ > use strict; > # use warnings; FIXME - Bug 2505 > 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::NewsChannels; >-use C4::Languages qw(getTranslatedLanguages); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::NewsChannels qw( get_opac_new add_opac_new upd_opac_new del_opac_new get_opac_news ); >+use C4::Languages qw( getTranslatedLanguages ); > use Date::Calc qw/Date_to_Days Today/; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $cgi = new CGI; > >diff --git a/tools/letter.pl b/tools/letter.pl >index 5920a8437f..b2d4732b95 100755 >--- a/tools/letter.pl >+++ b/tools/letter.pl >@@ -43,11 +43,11 @@ > use strict; > use warnings; > 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::Members::Attributes; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Letters qw( GetLetterTemplates GetMessageTransportTypes GetMessage getletter DelLetter ); >+use C4::Members::Attributes qw( GetAttributes ); > > # $protected_letters = protected_letters() > # - return a hashref of letter_codes representing letters that should never be deleted >diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl >index 892ffe8b95..b2da6e089d 100755 >--- a/tools/manage-marc-import.pl >+++ b/tools/manage-marc-import.pl >@@ -28,11 +28,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 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 c115429279..511f1a476c 100755 >--- a/tools/marc_modification_templates.pl >+++ b/tools/marc_modification_templates.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::Output; >-use C4::MarcModificationTemplates; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::MarcModificationTemplates qw( AddModificationTemplate DelModificationTemplate AddModificationTemplateAction ModModificationTemplateAction DelModificationTemplateAction MoveModificationTemplateAction GetModificationTemplates GetModificationTemplateAction GetModificationTemplateActions ); > > my $cgi = new CGI; > >diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl >index 8f0a567324..5b3fde2dc8 100755 >--- a/tools/modborrowers.pl >+++ b/tools/modborrowers.pl >@@ -27,15 +27,15 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Koha; >-use C4::Members; >-use C4::Members::Attributes; >-use C4::Members::AttributeTypes qw/GetAttributeTypes_hashref/; >-use C4::Output; >+use C4::Auth qw( get_template_and_user ); >+use C4::Koha qw( GetAuthorisedValues ); >+use C4::Members qw( ModMember GetMember ); >+use C4::Members qw( ModMember GetMember ); >+use C4::Members qw( ModMember GetMember ); >+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; >+use Koha::List::Patron qw( GetPatronLists ); > use Koha::Libraries; > use Koha::Patron::Categories; > use Koha::Patrons; >diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl >index eb948c708e..1d5cae2f90 100755 >--- a/tools/newHolidays.pl >+++ b/tools/newHolidays.pl >@@ -14,7 +14,7 @@ use Koha::Caches; > > use C4::Calendar; > use DateTime; >-use Koha::DateUtils; >+use Koha::DateUtils qw( dt_from_string output_pref ); > > my $input = new CGI; > my $dbh = C4::Context->dbh(); >diff --git a/tools/overduerules.pl b/tools/overduerules.pl >index 5c35a8c7fa..0e9857ea5a 100755 >--- a/tools/overduerules.pl >+++ b/tools/overduerules.pl >@@ -21,12 +21,12 @@ use strict; > use warnings; > 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 e74e262480..c3185c7542 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_html_with_http_headers ); > use C4::Members; > use C4::Debug; > >diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl >index 5a535be78e..8f35d09df2 100755 >--- a/tools/quotes-upload.pl >+++ b/tools/quotes-upload.pl >@@ -23,10 +23,10 @@ use warnings; > 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 = new CGI; > >diff --git a/tools/quotes.pl b/tools/quotes.pl >index 1f4dff8f20..d67cfb521b 100755 >--- a/tools/quotes.pl >+++ b/tools/quotes.pl >@@ -23,10 +23,10 @@ use warnings; > 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 = new CGI; > >diff --git a/tools/quotes/quotes-upload_ajax.pl b/tools/quotes/quotes-upload_ajax.pl >index 727280c9e7..5c6e20bb23 100755 >--- a/tools/quotes/quotes-upload_ajax.pl >+++ b/tools/quotes/quotes-upload_ajax.pl >@@ -25,7 +25,7 @@ use JSON; > use URI::Escape; > use autouse 'Data::Dumper' => qw(Dumper); > >-use C4::Auth; >+use C4::Auth qw( check_api_auth ); > use C4::Koha; > use C4::Context; > use C4::Output; >diff --git a/tools/quotes/quotes_ajax.pl b/tools/quotes/quotes_ajax.pl >index 9948313dbf..de105de2e2 100755 >--- a/tools/quotes/quotes_ajax.pl >+++ b/tools/quotes/quotes_ajax.pl >@@ -24,7 +24,7 @@ use CGI qw ( -utf8 ); > use JSON; > use autouse 'Data::Dumper' => qw(Dumper); > >-use C4::Auth; >+use C4::Auth qw( check_api_auth ); > use C4::Context; > > my $cgi = CGI->new; >diff --git a/tools/scheduler.pl b/tools/scheduler.pl >index 809ffaebf3..6f8188e86f 100755 >--- a/tools/scheduler.pl >+++ b/tools/scheduler.pl >@@ -20,12 +20,12 @@ > use strict; > #use warnings; FIXME - Bug 2505 > 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 get_saved_report ); >+use C4::Auth qw( get_template_and_user ); > use CGI qw ( -utf8 ); >-use C4::Output; >-use Koha::DateUtils;; >+use C4::Output qw( output_html_with_http_headers ); >+use Koha::DateUtils qw( dt_from_string output_pref ); > > use vars qw($debug); > >diff --git a/tools/showdiffmarc.pl b/tools/showdiffmarc.pl >index ec0f735181..6203648cce 100755 >--- a/tools/showdiffmarc.pl >+++ b/tools/showdiffmarc.pl >@@ -26,10 +26,10 @@ use CGI qw(:standard -utf8); > > # 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 GetBiblioData GetBiblio ); >+use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios ); > > # Input params > my $input = new CGI; >diff --git a/tools/stage-marc-import.pl b/tools/stage-marc-import.pl >index 63dd4e5130..02e56c3751 100755 >--- a/tools/stage-marc-import.pl >+++ b/tools/stage-marc-import.pl >@@ -34,14 +34,14 @@ 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 BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction ); > use C4::Matcher; > use Koha::UploadedFiles; > use C4::BackgroundJob; >-use C4::MarcModificationTemplates; >+use C4::MarcModificationTemplates qw( GetModificationTemplates ); > use Koha::Plugins; > > my $input = new CGI; >diff --git a/tools/tools-home.pl b/tools/tools-home.pl >index 86cfb0376f..f75b47f4fe 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 = new CGI; >diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl >index dd73bbbe59..efc9f55064 100755 >--- a/tools/upload-cover-image.pl >+++ b/tools/upload-cover-image.pl >@@ -44,11 +44,11 @@ use File::Temp; > use CGI qw ( -utf8 ); > use GD; > use C4::Context; >-use C4::Auth; >-use C4::Output; >-use C4::Images; >+use C4::Auth qw( get_template_and_user ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Images qw( PutImage ); > use Koha::UploadedFiles; >-use C4::Log; >+use C4::Log qw( logaction ); > > my $debug = 1; > >diff --git a/tools/upload-file.pl b/tools/upload-file.pl >index 86ef2c5dc2..bef77ab260 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 fd70b13a02..4b66ba0e00 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; > > my $input = CGI::->new; >diff --git a/tools/viewlog.pl b/tools/viewlog.pl >index b7ddb6a787..5a52ee1fc6 100755 >--- a/tools/viewlog.pl >+++ b/tools/viewlog.pl >@@ -20,16 +20,16 @@ > > 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::Log; >-use C4::Items; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Log qw( GetLogs ); >+use C4::Items qw( GetItem ); > use C4::Debug; >-use C4::Search; # enabled_staff_search_views >+use C4::Search qw( enabled_staff_search_views ); > use Koha::Patron::Images; > > use vars qw($debug $cgi_debug); >diff --git a/virtualshelves/addbybiblionumber.pl b/virtualshelves/addbybiblionumber.pl >index 6e058e9e49..b833047c7c 100755 >--- a/virtualshelves/addbybiblionumber.pl >+++ b/virtualshelves/addbybiblionumber.pl >@@ -59,9 +59,9 @@ addbybiblionumber.pl > use Modern::Perl; > > use CGI qw ( -utf8 ); >-use C4::Biblio; >-use C4::Output; >-use C4::Auth; >+use C4::Biblio qw( GetBiblioData GetBiblio ); >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Auth qw( get_template_and_user ); > > use Koha::Virtualshelves; > >diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl >index 9faf4ad22b..70ff9d9525 100755 >--- a/virtualshelves/downloadshelf.pl >+++ b/virtualshelves/downloadshelf.pl >@@ -22,12 +22,12 @@ 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::Record; >-use C4::Ris; >+use C4::Output qw( output_html_with_http_headers ); >+use C4::Record qw( marc2csv marc2bibtex ); >+use C4::Ris qw( marc2ris ); > > use Koha::CsvProfiles; > use Koha::Virtualshelves; >diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl >index 1226d3e66b..3815eb23d8 100755 >--- a/virtualshelves/sendshelf.pl >+++ b/virtualshelves/sendshelf.pl >@@ -27,10 +27,10 @@ use Carp; > use Mail::Sendmail; > use MIME::QuotedPrint; > use MIME::Base64; >-use C4::Auth; >-use C4::Biblio; >-use C4::Items; >-use C4::Output; >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetFrameworkCode GetBiblioData GetBiblio GetMarcBiblio GetMarcAuthors GetMarcSubjects GetRecordValue GetMarcISBN ); >+use C4::Items qw( GetItem 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 06d93d2cae..929ae3e4cc 100755 >--- a/virtualshelves/shelves.pl >+++ b/virtualshelves/shelves.pl >@@ -19,13 +19,13 @@ > > use Modern::Perl; > use CGI qw ( -utf8 ); >-use C4::Auth; >-use C4::Biblio; >-use C4::Koha; >-use C4::Items; >-use C4::Members; >-use C4::Output; >-use C4::XSLT; >+use C4::Auth qw( get_template_and_user ); >+use C4::Biblio qw( GetBiblioFromItemNumber GetBiblio GetMarcBiblio GetCOinSBiblio GetRecordValue GetFrameworkCode ); >+use C4::Koha qw( getitemtypeinfo GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN ); >+use C4::Items qw( GetItem GetItemsLocationInfo ); >+use C4::Members qw( GetMember ); >+use C4::Output qw( pagination_bar output_html_with_http_headers ); >+use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display ); > > use Koha::Biblios; > use Koha::Biblioitems; >-- >2.11.0
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 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