From fc64833f3e3aa74d8455a88913c8efbf58c91042 Mon Sep 17 00:00:00 2001 From: Jonathan Druart 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 . 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 < 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