@@ -, +, @@ --- 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(-) --- a/C4/SIP/interactive_patron_check_password.pl +++ a/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) { --- a/about.pl +++ a/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 '####'; --- a/acqui/acqui-home.pl +++ a/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; --- a/acqui/add_user_search.pl +++ a/acqui/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/acqui/addorder.pl +++ a/acqui/addorder.pl @@ -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; --- a/acqui/addorderiso2709.pl +++ a/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; --- a/acqui/ajax-getauthvaluedropbox.pl +++ a/acqui/ajax-getauthvaluedropbox.pl @@ -48,8 +48,8 @@ Default value for the dropbox. use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Charset; -use C4::Auth qw/check_api_auth/; +use C4::Charset qw( NormalizeString ); +use C4::Auth qw( check_api_auth ); use Koha::AuthorisedValues; my $query = CGI->new(); --- a/acqui/basket.pl +++ a/acqui/basket.pl @@ -21,25 +21,25 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user haspermission ); use C4::Koha; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); 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 --- a/acqui/basketgroup.pl +++ a/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; --- a/acqui/basketheader.pl +++ a/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; --- a/acqui/booksellers.pl +++ a/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; --- a/acqui/cancelorder.pl +++ a/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( { --- a/acqui/check_budget_total.pl +++ a/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 --- a/acqui/check_duplicate_barcode_ajax.pl +++ a/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; --- a/acqui/check_uniqueness.pl +++ a/acqui/check_uniqueness.pl @@ -33,8 +33,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON; -use C4::Output; -use C4::Items; +use C4::Output qw( output_with_http_headers ); +use C4::Items qw( SearchItemsByField SearchItems ); my $input = new CGI; my @field = $input->multi_param('field[]'); --- a/acqui/edi_ean.pl +++ a/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(); --- a/acqui/edifactmsgs.pl +++ a/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( --- a/acqui/edimsg.pl +++ a/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( --- a/acqui/finishreceive.pl +++ a/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; --- a/acqui/histsearch.pl +++ a/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'); --- a/acqui/invoice-files.pl +++ a/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; --- a/acqui/invoice.pl +++ a/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; --- a/acqui/invoices.pl +++ a/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; --- a/acqui/lateorders-export.pl +++ a/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; --- a/acqui/lateorders.pl +++ a/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( --- a/acqui/modordernotes.pl +++ a/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; --- a/acqui/neworderbiblio.pl +++ a/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; --- a/acqui/neworderempty.pl +++ a/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; --- a/acqui/newordersubscription.pl +++ a/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; --- a/acqui/newordersuggestion.pl +++ a/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; --- a/acqui/ordered.pl +++ a/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; --- a/acqui/orderreceive.pl +++ a/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 ); --- a/acqui/parcel.pl +++ a/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; --- a/acqui/parcels.pl +++ a/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 ); --- a/acqui/spent.pl +++ a/acqui/spent.pl @@ -30,8 +30,8 @@ this script is designed to show the spent amount in budgets =cut use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use strict; use warnings; use CGI qw ( -utf8 ); --- a/acqui/supplier.pl +++ a/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; --- a/acqui/transferorder.pl +++ a/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; --- a/acqui/uncertainprice.pl +++ a/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; --- a/acqui/updatesupplier.pl +++ a/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; --- a/acqui/z3950_search.pl +++ a/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; --- a/admin/add_user_search.pl +++ a/admin/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/admin/admin-home.pl +++ a/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( --- a/admin/aqbudgetperiods.pl +++ a/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; --- a/admin/aqbudgets.pl +++ a/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; --- a/admin/aqcontract.pl +++ a/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; --- a/admin/aqplan.pl +++ a/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; --- a/admin/audio_alerts.pl +++ a/admin/audio_alerts.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::AudioAlert; use Koha::AudioAlerts; --- a/admin/auth_subfields_structure.pl +++ a/admin/auth_subfields_structure.pl @@ -18,8 +18,8 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Koha; --- a/admin/auth_tag_structure.pl +++ a/admin/auth_tag_structure.pl @@ -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; --- a/admin/authorised_values.pl +++ a/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; --- a/admin/authtypes.pl +++ a/admin/authtypes.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Authorities; use Koha::Authority::Types; --- a/admin/biblio_framework.pl +++ a/admin/biblio_framework.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Biblios; use Koha::BiblioFramework; use Koha::BiblioFrameworks; --- a/admin/branch_transfer_limits.pl +++ a/admin/branch_transfer_limits.pl @@ -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; --- a/admin/branches.pl +++ a/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; --- a/admin/categories.pl +++ a/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; --- a/admin/check_budget_parent.pl +++ a/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 --- a/admin/check_parent_total.pl +++ a/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 --- a/admin/checkmarc.pl +++ a/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; --- a/admin/cities.pl +++ a/admin/cities.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Cities; --- a/admin/classsources.pl +++ a/admin/classsources.pl @@ -21,12 +21,12 @@ use 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"; --- a/admin/clone-rules.pl +++ a/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; --- a/admin/columns_settings.pl +++ a/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; --- a/admin/currency.pl +++ a/admin/currency.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Acquisition::Booksellers; use Koha::Acquisition::Currency; --- a/admin/didyoumean.pl +++ a/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; --- a/admin/edi_accounts.pl +++ a/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; --- a/admin/edi_ean_accounts.pl +++ a/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(); --- a/admin/fieldmapping.pl +++ a/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; --- a/admin/import_export_framework.pl +++ a/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; --- a/admin/item_circulation_alerts.pl +++ a/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; --- a/admin/items_search_field.pl +++ a/admin/items_search_field.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField); --- a/admin/items_search_fields.pl +++ a/admin/items_search_fields.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField); --- a/admin/itemtypes.pl +++ a/admin/itemtypes.pl @@ -27,10 +27,10 @@ use CGI qw ( -utf8 ); use File::Spec; -use C4::Koha; +use C4::Koha qw( getImageSets GetAuthorisedValues ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::ItemTypes; use Koha::ItemType; use Koha::Localizations; --- a/admin/koha2marclinks.pl +++ a/admin/koha2marclinks.pl @@ -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; --- a/admin/localization.pl +++ a/admin/localization.pl @@ -18,8 +18,8 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Localization; use Koha::Localizations; --- a/admin/marc_subfields_structure.pl +++ a/admin/marc_subfields_structure.pl @@ -18,8 +18,8 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; --- a/admin/marctagstructure.pl +++ a/admin/marctagstructure.pl @@ -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; --- a/admin/matching-rules.pl +++ a/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/; --- a/admin/oai_set_mappings.pl +++ a/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; --- a/admin/oai_sets.pl +++ a/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; --- a/admin/patron-attr-types.pl +++ a/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; --- a/admin/preferences.pl +++ a/admin/preferences.pl @@ -20,13 +20,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Koha; -use C4::Languages qw(getTranslatedLanguages); -use C4::ClassSource; +use C4::Koha qw( getallthemes ); +use C4::Languages qw( getTranslatedLanguages ); +use C4::ClassSource qw( GetClassSources GetClassSource ); use C4::Log; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Templates; use Koha::Acquisition::Currencies; use File::Spec; --- a/admin/printers.pl +++ a/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?! --- a/admin/smart-rules.pl +++ a/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; --- a/admin/sms_providers.pl +++ a/admin/sms_providers.pl @@ -22,8 +22,8 @@ use Modern::Perl; use CGI; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::SMS::Provider; use Koha::SMS::Providers; --- a/admin/sru_modmapping.pl +++ a/admin/sru_modmapping.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); # Initialize CGI, template --- a/admin/systempreferences.pl +++ a/admin/systempreferences.pl @@ -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) --- a/admin/transport-cost-matrix.pl +++ a/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; --- a/admin/usage_statistics.pl +++ a/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; --- a/admin/z3950servers.pl +++ a/admin/z3950servers.pl @@ -27,8 +27,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Database; # Initialize CGI, template, database --- a/authorities/auth_finder.pl +++ a/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; --- a/authorities/authorities-home.pl +++ a/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; --- a/authorities/authorities-list.pl +++ a/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; --- a/authorities/authorities.pl +++ a/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); --- a/authorities/blinddetail-biblio-search.pl +++ a/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; --- a/authorities/detail-biblio-search.pl +++ a/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; --- a/authorities/detail.pl +++ a/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; --- a/authorities/export.pl +++ a/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; --- a/authorities/merge.pl +++ a/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'); --- a/authorities/merge_ajax.pl +++ a/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' }); --- a/authorities/ysearch.pl +++ a/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; --- a/basket/basket.pl +++ a/basket/basket.pl @@ -19,10 +19,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; -use C4::Biblio; -use C4::Items; -use C4::Auth; -use C4::Output; +use C4::Biblio qw( GetBiblioData 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; --- a/basket/downloadcart.pl +++ a/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; --- a/basket/sendbasket.pl +++ a/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; --- a/catalogue/ISBDdetail.pl +++ a/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; --- a/catalogue/MARCdetail.pl +++ a/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; --- a/catalogue/detail.pl +++ a/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; --- a/catalogue/export.pl +++ a/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 ); --- a/catalogue/getitem-ajax.pl +++ a/catalogue/getitem-ajax.pl @@ -21,11 +21,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON; -use C4::Auth; -use C4::Biblio; -use C4::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; --- a/catalogue/image.pl +++ a/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; --- a/catalogue/imageviewer.pl +++ a/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; --- a/catalogue/issuehistory.pl +++ a/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( --- a/catalogue/itemsearch.pl +++ a/catalogue/itemsearch.pl @@ -21,11 +21,11 @@ use CGI; use JSON; -use C4::Auth; -use C4::Output; -use C4::Items; -use C4::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); --- a/catalogue/labeledMARCdetail.pl +++ a/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; --- a/catalogue/moredetail.pl +++ a/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; --- a/catalogue/search-history.pl +++ a/catalogue/search-history.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Search::History; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $cgi = new CGI; --- a/catalogue/search.pl +++ a/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; --- a/catalogue/showmarc.pl +++ a/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'); --- a/catalogue/updateitem.pl +++ a/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; --- a/cataloguing/addbiblio.pl +++ a/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; --- a/cataloguing/addbooks.pl +++ a/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; --- a/cataloguing/additem.pl +++ a/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; --- a/cataloguing/editor.pl +++ a/cataloguing/editor.pl @@ -23,10 +23,10 @@ use Modern::Perl; use CGI; use MARC::Record; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Biblio; use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use DBIx::Class::ResultClass::HashRefInflator; use Koha::Database; --- a/cataloguing/linkitem.pl +++ a/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; --- a/cataloguing/merge.pl +++ a/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; --- a/cataloguing/merge_ajax.pl +++ a/cataloguing/merge_ajax.pl @@ -7,8 +7,8 @@ use CGI::Cookie; # need to check cookies before CGI parses the POST request use JSON; use C4::Context; -use C4::Biblio; -use C4::Auth qw/check_cookie_auth/; +use C4::Biblio qw( GetMarcStructure ); +use C4::Auth qw( check_cookie_auth ); my %cookies = CGI::Cookie->fetch; my ( $auth_status, $sessionID ) = check_cookie_auth( --- a/cataloguing/moveitem.pl +++ a/cataloguing/moveitem.pl @@ -22,10 +22,10 @@ use 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; --- a/cataloguing/value_builder/EXAMPLE.pl +++ a/cataloguing/value_builder/EXAMPLE.pl @@ -19,8 +19,8 @@ use Modern::Perl; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); # Example of framework plugin new style. # It should define and return at least one and normally two anynomous --- a/cataloguing/value_builder/barcode.pl +++ a/cataloguing/value_builder/barcode.pl @@ -24,7 +24,7 @@ use Modern::Perl; use C4::Context; use C4::Barcodes::ValueBuilder; -use Koha::DateUtils; +use Koha::DateUtils qw( dt_from_string output_pref ); use Algorithm::CheckDigits; --- a/cataloguing/value_builder/barcode_manual.pl +++ a/cataloguing/value_builder/barcode_manual.pl @@ -24,7 +24,7 @@ use Modern::Perl; use C4::Context; use C4::Barcodes::ValueBuilder; -use Koha::DateUtils; +use Koha::DateUtils qw( dt_from_string output_pref ); my $DEBUG = 0; --- a/cataloguing/value_builder/callnumber-KU.pl +++ a/cataloguing/value_builder/callnumber-KU.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/callnumber.pl +++ a/cataloguing/value_builder/callnumber.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/cn_browser.pl +++ a/cataloguing/value_builder/cn_browser.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::ClassSource; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::ClassSource qw( GetClassSort ); +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/dateaccessioned.pl +++ a/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 ) = @_; --- a/cataloguing/value_builder/macles.pl +++ a/cataloguing/value_builder/macles.pl @@ -23,8 +23,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Auth; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_field_006.pl +++ a/cataloguing/value_builder/marc21_field_006.pl @@ -20,12 +20,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use XML::LibXML; --- a/cataloguing/value_builder/marc21_field_007.pl +++ a/cataloguing/value_builder/marc21_field_007.pl @@ -21,12 +21,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_field_008.pl +++ a/cataloguing/value_builder/marc21_field_008.pl @@ -20,12 +20,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use XML::LibXML; use Koha::Util::FrameworkPlugin qw|date_entered|; --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ a/cataloguing/value_builder/marc21_field_008_authorities.pl @@ -20,12 +20,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Util::FrameworkPlugin qw|date_entered|; use constant FIXLEN_DATA_ELTS => '|| aca||aabn | a|a d'; --- a/cataloguing/value_builder/marc21_field_008_classifications.pl +++ a/cataloguing/value_builder/marc21_field_008_classifications.pl @@ -16,12 +16,12 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::Util::FrameworkPlugin qw|date_entered|; use constant FIXLEN_DATA_ELTS => 'baaaaaaa'; --- a/cataloguing/value_builder/marc21_leader.pl +++ a/cataloguing/value_builder/marc21_leader.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ a/cataloguing/value_builder/marc21_leader_authorities.pl @@ -21,12 +21,12 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $builder = sub { my ( $params ) = @_; @@ -92,4 +92,4 @@ my $launcher = sub { output_html_with_http_headers $input, $cookie, $template->output; }; -return { builder => $builder, launcher => $launcher }; +return { builder => $builder, launcher => $launcher }; --- a/cataloguing/value_builder/marc21_linking_section.pl +++ a/cataloguing/value_builder/marc21_linking_section.pl @@ -22,13 +22,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Search; -use C4::Auth; -use C4::Output; +use C4::Search qw( new_record_from_zebra ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha ); use C4::Koha; use MARC::Record; --- a/cataloguing/value_builder/normarc_field_007.pl +++ a/cataloguing/value_builder/normarc_field_007.pl @@ -18,12 +18,12 @@ # along with Koha; if not, see . use 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) = @_; --- a/cataloguing/value_builder/normarc_field_008.pl +++ a/cataloguing/value_builder/normarc_field_008.pl @@ -18,12 +18,12 @@ # along with Koha; if not, see . use 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); --- a/cataloguing/value_builder/normarc_leader.pl +++ a/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) = @_; --- a/cataloguing/value_builder/stocknumberAV.pl +++ a/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 --- a/cataloguing/value_builder/stocknumberam123.pl +++ a/cataloguing/value_builder/stocknumberam123.pl @@ -22,9 +22,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/unimarc_field_010.pl +++ a/cataloguing/value_builder/unimarc_field_010.pl @@ -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 { --- a/cataloguing/value_builder/unimarc_field_100.pl +++ a/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 { --- a/cataloguing/value_builder/unimarc_field_100_authorities.pl +++ a/cataloguing/value_builder/unimarc_field_100_authorities.pl @@ -20,10 +20,10 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { --- a/cataloguing/value_builder/unimarc_field_105.pl +++ a/cataloguing/value_builder/unimarc_field_105.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_106.pl +++ a/cataloguing/value_builder/unimarc_field_106.pl @@ -20,12 +20,12 @@ use 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) = @_; --- a/cataloguing/value_builder/unimarc_field_110.pl +++ a/cataloguing/value_builder/unimarc_field_110.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ a/cataloguing/value_builder/unimarc_field_115a.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ a/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 ) = @_; --- a/cataloguing/value_builder/unimarc_field_116.pl +++ a/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 ) = @_; --- a/cataloguing/value_builder/unimarc_field_117.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_120.pl +++ a/cataloguing/value_builder/unimarc_field_120.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ a/cataloguing/value_builder/unimarc_field_121a.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_122.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_125.pl +++ a/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 --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_126.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_127.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_field_130.pl +++ a/cataloguing/value_builder/unimarc_field_130.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ a/cataloguing/value_builder/unimarc_field_135a.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_140.pl +++ a/cataloguing/value_builder/unimarc_field_140.pl @@ -22,12 +22,12 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; --- a/cataloguing/value_builder/unimarc_field_141.pl +++ a/cataloguing/value_builder/unimarc_field_141.pl @@ -20,12 +20,12 @@ use 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) = @_; --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ a/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 --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ a/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 ) = @_; --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ a/cataloguing/value_builder/unimarc_field_225a.pl @@ -41,12 +41,12 @@ It need : use strict; #use warnings; FIXME - Bug 2505 -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::AuthoritiesMarc; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION --- a/cataloguing/value_builder/unimarc_field_225a_bis.pl +++ a/cataloguing/value_builder/unimarc_field_225a_bis.pl @@ -24,11 +24,11 @@ biblioitems.collectiontitle use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use CGI qw( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_; --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ a/cataloguing/value_builder/unimarc_field_4XX.pl @@ -22,13 +22,13 @@ use strict; #use warnings; FIXME - Bug 2505 use CGI qw ( -utf8 ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Search; -use C4::Auth; -use C4::Output; +use C4::Search qw( new_record_from_zebra ); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::Biblio; +use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha ); use C4::Koha; use MARC::Record; --- a/cataloguing/value_builder/unimarc_field_686a.pl +++ a/cataloguing/value_builder/unimarc_field_686a.pl @@ -19,12 +19,12 @@ use 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) = @_; --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ a/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) = @_; --- a/cataloguing/value_builder/unimarc_leader.pl +++ a/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 ) = @_; --- a/cataloguing/ysearch.pl +++ a/cataloguing/ysearch.pl @@ -27,8 +27,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Charset; -use C4::Auth qw/check_cookie_auth/; +use C4::Charset qw( nsb_clean ); +use C4::Auth qw( check_cookie_auth ); use JSON qw/ to_json /; my $input = new CGI; --- a/cataloguing/z3950_auth_search.pl +++ a/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; --- a/cataloguing/z3950_search.pl +++ a/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; --- a/circ/add_message.pl +++ a/circ/add_message.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use Koha::Patron::Message; --- a/circ/article-request-slip.pl +++ a/circ/article-request-slip.pl @@ -22,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; --- a/circ/article-requests.pl +++ a/circ/article-requests.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::ArticleRequests; my $query = new CGI; --- a/circ/bookcount.pl +++ a/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; --- a/circ/branchoverdues.pl +++ a/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; --- a/circ/branchtransfers.pl +++ a/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; --- a/circ/circulation-home.pl +++ a/circ/circulation-home.pl @@ -18,8 +18,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::BiblioFrameworks; --- a/circ/circulation.pl +++ a/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; --- a/circ/del_message.pl +++ a/circ/del_message.pl @@ -21,7 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Output; use Koha::Patron::Messages; --- a/circ/hold-transfer-slip.pl +++ a/circ/hold-transfer-slip.pl @@ -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); --- a/circ/offline-mf.pl +++ a/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( --- a/circ/offline.pl +++ a/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; --- a/circ/on-site_checkouts.pl +++ a/circ/on-site_checkouts.pl @@ -18,9 +18,9 @@ use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Circulation qw( GetPendingOnSiteCheckouts ); -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use Koha::BiblioFrameworks; --- a/circ/overdue.pl +++ a/circ/overdue.pl @@ -21,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; --- a/circ/pendingreserves.pl +++ a/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; --- a/circ/renew.pl +++ a/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; --- a/circ/request-article.pl +++ a/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; --- a/circ/reserveratios.pl +++ a/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'); --- a/circ/returns.pl +++ a/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; --- a/circ/selectbranchprinter.pl +++ a/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; --- a/circ/transfer-slip.pl +++ a/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); --- a/circ/transferstoreceive.pl +++ a/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; --- a/circ/view_holdsqueue.pl +++ a/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; --- a/circ/waitingreserves.pl +++ a/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; --- a/circ/ypattrodue-attr-search-authvalue.pl +++ a/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 "]"; +print "]"; --- a/circ/ysearch.pl +++ a/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 ); --- a/clubs/club-enrollments.pl +++ a/clubs/club-enrollments.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; my $cgi = new CGI; --- a/clubs/clubs-add-modify.pl +++ a/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; --- a/clubs/clubs.pl +++ a/clubs/clubs.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; use Koha::Club::Templates; --- a/clubs/patron-clubs-tab.pl +++ a/clubs/patron-clubs-tab.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; use Koha::Club::Enrollments; --- a/clubs/patron-enroll.pl +++ a/clubs/patron-enroll.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; my $cgi = new CGI; --- a/clubs/templates-add-modify.pl +++ a/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; --- a/course_reserves/add_items.pl +++ a/course_reserves/add_items.pl @@ -22,13 +22,13 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Koha; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); use C4::Biblio; use Koha::Items; -use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve); +use C4::CourseReserves qw( GetCourse GetCourseItem GetCourseReserve ModCourse ModCourseItem ModCourseReserve ); use Koha::ItemTypes; --- a/course_reserves/course-details.pl +++ a/course_reserves/course-details.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves); +use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves ); my $cgi = new CGI; --- a/course_reserves/course-reserves.pl +++ a/course_reserves/course-reserves.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::CourseReserves qw(GetCourses); +use C4::CourseReserves qw( GetCourse GetCourses ); my $cgi = new CGI; --- a/course_reserves/course.pl +++ a/course_reserves/course.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Koha; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Koha qw( GetAuthorisedValues ); -use C4::CourseReserves qw(GetCourse); +use C4::CourseReserves qw( GetCourse ); my $cgi = new CGI; --- a/course_reserves/mod_course.pl +++ a/course_reserves/mod_course.pl @@ -23,9 +23,9 @@ use CGI qw ( -utf8 ); use C4::Output; use C4::Reserves; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); -use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors); +use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors ); my $cgi = new CGI; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/edithelp.pl +++ a/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); --- a/errors/400.pl +++ a/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; --- a/errors/401.pl +++ a/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; --- a/errors/402.pl +++ a/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; --- a/errors/403.pl +++ a/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; --- a/errors/404.pl +++ a/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; --- a/errors/500.pl +++ a/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; --- a/help.pl +++ a/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 ); --- a/installer/install.pl +++ a/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; --- a/installer/onboarding.pl +++ a/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; --- a/labels/label-create-pdf.pl +++ a/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; --- a/labels/label-edit-batch.pl +++ a/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; --- a/labels/label-edit-layout.pl +++ a/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; --- a/labels/label-edit-profile.pl +++ a/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; --- a/labels/label-edit-template.pl +++ a/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; --- a/labels/label-home.pl +++ a/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( --- a/labels/label-item-search.pl +++ a/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; --- a/labels/label-manage.pl +++ a/labels/label-manage.pl @@ -25,8 +25,8 @@ use vars qw($debug); use CGI qw ( -utf8 ); use Data::Dumper; -use C4::Auth qw(get_template_and_user); -use C4::Output qw(output_html_with_http_headers); +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Creators; use C4::Labels; --- a/labels/label-print.pl +++ a/labels/label-print.pl @@ -23,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; --- a/labels/spinelabel-home.pl +++ a/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; --- a/labels/spinelabel-print.pl +++ a/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; --- a/mainpage.pl +++ a/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; --- a/members/boraccount.pl +++ a/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; --- a/members/deletemem.pl +++ a/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; --- a/members/discharge.pl +++ a/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; --- a/members/discharges.pl +++ a/members/discharges.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use Koha::Patron::Discharge; --- a/members/files.pl +++ a/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; --- a/members/guarantor_search.pl +++ a/members/guarantor_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/members/housebound.pl +++ a/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; --- a/members/mancredit.pl +++ a/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; --- a/members/maninvoice.pl +++ a/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; --- a/members/member-flags.pl +++ a/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; --- a/members/member-password.pl +++ a/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; --- a/members/member.pl +++ a/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; --- a/members/memberentry.pl +++ a/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; --- a/members/members-home.pl +++ a/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; --- a/members/members-update-do.pl +++ a/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; --- a/members/members-update.pl +++ a/members/members-update.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Members; use Koha::Patron::Attribute::Types; --- a/members/mod_debarment.pl +++ a/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; --- a/members/moremember.pl +++ a/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; --- a/members/nl-search.pl +++ a/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; --- a/members/notices.pl +++ a/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; --- a/members/pay.pl +++ a/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; --- a/members/paycollect.pl +++ a/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; --- a/members/print_overdues.pl +++ a/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; --- a/members/printfeercpt.pl +++ a/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; --- a/members/printinvoice.pl +++ a/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; --- a/members/printslip.pl +++ a/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; --- a/members/purchase-suggestions.pl +++ a/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; --- a/members/readingrec.pl +++ a/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; --- a/members/routing-lists.pl +++ a/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; --- a/members/setstatus.pl +++ a/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; --- a/members/statistics.pl +++ a/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; --- a/members/summary-print.pl +++ a/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; --- a/members/update-child.pl +++ a/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; --- a/misc/batchDeleteUnusedSubfields.pl +++ a/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; --- a/misc/batchImportMARCWithBiblionumbers.pl +++ a/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; --- a/misc/batchRebuildBiblioTables.pl +++ a/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; --- a/misc/batchRebuildItemsTables.pl +++ a/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 --- a/misc/batchRepairMissingBiblionumbers.pl +++ a/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; --- a/misc/batchdeletebiblios.pl +++ a/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( --- a/misc/commit_file.pl +++ a/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; --- a/misc/cronjobs/advance_notices.pl +++ a/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; --- a/misc/cronjobs/automatic_item_modification_by_age.pl +++ a/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 ); --- a/misc/cronjobs/automatic_renewals.pl +++ a/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; --- a/misc/cronjobs/batch_anonymise.pl +++ a/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; --- a/misc/cronjobs/nl-sync-to-koha.pl +++ a/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; --- a/misc/cronjobs/notice_unprocessed_suggestions.pl +++ a/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; --- a/misc/cronjobs/overdue_notices.pl +++ a/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; --- a/misc/cronjobs/process_message_queue.pl +++ a/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; --- a/misc/cronjobs/purge_suggestions.pl +++ a/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); --- a/misc/cronjobs/runreport.pl +++ a/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; --- a/misc/cronjobs/serialsUpdate.pl +++ a/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; --- a/misc/cronjobs/share_usage_with_koha_community.pl +++ a/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 ); --- a/misc/cronjobs/staticfines.pl +++ a/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; --- a/misc/cronjobs/update_totalissues.pl +++ a/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/; --- a/misc/devel/create_superlibrarian.pl +++ a/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; --- a/misc/export_borrowers.pl +++ a/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)"; --- a/misc/link_bibs_to_authorities.pl +++ a/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; --- a/misc/load_testing/benchmark_staff.pl +++ a/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); --- a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl +++ a/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 { --- a/misc/maintenance/fix_accountlines_date.pl +++ a/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 --- a/misc/maintenance/process_record_through_filter.pl +++ a/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]); --- a/misc/maintenance/remove_items_from_biblioitems.pl +++ a/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); --- a/misc/maintenance/sanitize_records.pl +++ a/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; --- a/misc/maintenance/touch_all_biblios.pl +++ a/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; --- a/misc/maintenance/touch_all_items.pl +++ a/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; --- a/misc/migration_tools/buildEDITORS.pl +++ a/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); --- a/misc/migration_tools/build_oai_sets.pl +++ a/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; --- a/misc/migration_tools/bulkmarcimport.pl +++ a/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); --- a/misc/migration_tools/create_analytical_rel.pl +++ a/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; --- a/misc/migration_tools/fix_onloan.pl +++ a/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; # --- a/misc/migration_tools/import_lexile.pl +++ a/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; --- a/misc/migration_tools/rebuild_zebra.pl +++ a/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; --- a/misc/migration_tools/remove_unused_authorities.pl +++ a/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; --- a/misc/migration_tools/switch_marc21_series_info.pl +++ a/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; --- a/misc/migration_tools/upgradeitems.pl +++ a/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; --- a/misc/mod_zebraqueue.pl +++ a/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; --- a/misc/recreateIssueStatistics.pl +++ a/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; --- a/misc/sip_cli_emulator.pl +++ a/misc/sip_cli_emulator.pl @@ -23,8 +23,8 @@ use Socket qw(:crlf); use IO::Socket::INET; use Getopt::Long; -use C4::SIP::Sip::Constants qw(:all); -use C4::SIP::Sip; +use C4::SIP::Sip qw( timestamp ); +use C4::SIP::Sip qw( timestamp ); use constant { LANGUAGE => '001' }; --- a/misc/stage_file.pl +++ a/misc/stage_file.pl @@ -29,7 +29,7 @@ BEGIN { } use C4::Context; -use C4::ImportBatch; +use C4::ImportBatch qw( RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates ); use C4::Matcher; use Getopt::Long; --- a/offline_circ/download.pl +++ a/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; --- a/offline_circ/enqueue_koc.pl +++ a/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; --- a/offline_circ/list.pl +++ a/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; --- a/offline_circ/process.pl +++ a/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; --- a/offline_circ/process_koc.pl +++ a/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; --- a/offline_circ/service.pl +++ a/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; --- a/opac/clubs/clubs-tab.pl +++ a/opac/clubs/clubs-tab.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; my $cgi = new CGI; --- a/opac/clubs/enroll.pl +++ a/opac/clubs/enroll.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Clubs; my $cgi = new CGI; --- a/opac/errors/400.pl +++ a/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; --- a/opac/errors/401.pl +++ a/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; --- a/opac/errors/402.pl +++ a/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; --- a/opac/errors/403.pl +++ a/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; --- a/opac/errors/404.pl +++ a/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; --- a/opac/errors/500.pl +++ a/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; --- a/opac/ilsdi.pl +++ a/opac/ilsdi.pl @@ -20,8 +20,8 @@ use Modern::Perl; use C4::ILSDI::Services; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Context; use List::MoreUtils qw(any); --- a/opac/maintenance.pl +++ a/opac/maintenance.pl @@ -19,7 +19,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Templates qw/gettemplate/; use Koha; --- a/opac/opac-ISBDdetail.pl +++ a/opac/opac-ISBDdetail.pl @@ -41,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; --- a/opac/opac-MARCdetail.pl +++ a/opac/opac-MARCdetail.pl @@ -45,17 +45,17 @@ the items attached to the biblio use Modern::Perl; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( parametrized_url output_html_with_http_headers ); use CGI qw ( -utf8 ); use MARC::Record; -use C4::Biblio; -use C4::Items; -use C4::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; --- a/opac/opac-account-pay-paypal-return.pl +++ a/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; --- a/opac/opac-account-pay.pl +++ a/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; --- a/opac/opac-account.pl +++ a/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; --- a/opac/opac-addbybiblionumber.pl +++ a/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; --- a/opac/opac-alert-subscribe.pl +++ a/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; --- a/opac/opac-article-request-cancel.pl +++ a/opac/opac-article-request-cancel.pl @@ -22,7 +22,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use Koha::ArticleRequests; my $query = new CGI; --- a/opac/opac-authorities-home.pl +++ a/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; --- a/opac/opac-authoritiesdetail.pl +++ a/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; --- a/opac/opac-basket.pl +++ a/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; --- a/opac/opac-blocked.pl +++ a/opac/opac-blocked.pl @@ -19,8 +19,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_with_http_headers ); use C4::Context; my $query = new CGI; --- a/opac/opac-browser.pl +++ a/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 --- a/opac/opac-course-details.pl +++ a/opac/opac-course-details.pl @@ -22,11 +22,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; -use C4::CourseReserves qw(GetCourse GetCourseReserves); +use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves ); my $cgi = new CGI; --- a/opac/opac-course-reserves.pl +++ a/opac/opac-course-reserves.pl @@ -22,10 +22,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); -use C4::CourseReserves qw(SearchCourses); +use C4::CourseReserves qw( SearchCourses ); my $cgi = new CGI; --- a/opac/opac-detail.pl +++ a/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; --- a/opac/opac-discharge.pl +++ a/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; --- a/opac/opac-downloadcart.pl +++ a/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; --- a/opac/opac-downloadshelf.pl +++ a/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; --- a/opac/opac-export.pl +++ a/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; --- a/opac/opac-ics.pl +++ a/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( --- a/opac/opac-idref.pl +++ a/opac/opac-idref.pl @@ -25,10 +25,10 @@ use HTTP::Request::Common; use JSON; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Search; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); my $cgi = new CGI; my ( $template, $borrowernumber, $cookie ) = get_template_and_user( --- a/opac/opac-image.pl +++ a/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; --- a/opac/opac-imageviewer.pl +++ a/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( --- a/opac/opac-issue-note.pl +++ a/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; --- a/opac/opac-main.pl +++ a/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 ); --- a/opac/opac-memberentry.pl +++ a/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; --- a/opac/opac-messaging.pl +++ a/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; --- a/opac/opac-modrequest-suspend.pl +++ a/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( { --- a/opac/opac-modrequest.pl +++ a/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( --- a/opac/opac-mymessages.pl +++ a/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(); --- a/opac/opac-news-rss.pl +++ a/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; --- a/opac/opac-overdrive-search.pl +++ a/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; --- a/opac/opac-passwd.pl +++ a/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; --- a/opac/opac-password-recovery.pl +++ a/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; --- a/opac/opac-patron-image.pl +++ a/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; --- a/opac/opac-privacy.pl +++ a/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; --- a/opac/opac-ratings-ajax.pl +++ a/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; --- a/opac/opac-ratings.pl +++ a/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; --- a/opac/opac-readingrecord.pl +++ a/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; --- a/opac/opac-registration-verify.pl +++ a/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; --- a/opac/opac-renew.pl +++ a/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; --- a/opac/opac-request-article.pl +++ a/opac/opac-request-article.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::Biblios; use Koha::Patrons; --- a/opac/opac-reserve.pl +++ a/opac/opac-reserve.pl @@ -21,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; --- a/opac/opac-restrictedpage.pl +++ a/opac/opac-restrictedpage.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); my $localNetwork = C4::Context->preference('RestrictedPageLocalIPs'); my $userIP = $ENV{'REMOTE_ADDR'}; --- a/opac/opac-retrieve-file.pl +++ a/opac/opac-retrieve-file.pl @@ -21,9 +21,9 @@ use Modern::Perl; use CGI; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use Koha::UploadedFiles; my $input = CGI::->new; --- a/opac/opac-review.pl +++ a/opac/opac-review.pl @@ -19,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; --- a/opac/opac-search-history.pl +++ a/opac/opac-search-history.pl @@ -19,10 +19,10 @@ use Modern::Perl; -use C4::Auth qw(:DEFAULT get_session); +use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Log; use C4::Items; use C4::Debug; --- a/opac/opac-search.pl +++ a/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; --- a/opac/opac-sendbasket.pl +++ a/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; --- a/opac/opac-sendshelf.pl +++ a/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; --- a/opac/opac-serial-issues.pl +++ a/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; --- a/opac/opac-shareshelf.pl +++ a/opac/opac-shareshelf.pl @@ -27,11 +27,11 @@ use constant SHELVES_URL => use CGI qw ( -utf8 ); use Email::Valid; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Letters; -use C4::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; --- a/opac/opac-shelves.pl +++ a/opac/opac-shelves.pl @@ -20,14 +20,14 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Biblio; -use C4::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; --- a/opac/opac-showmarc.pl +++ a/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; --- a/opac/opac-showreviews.pl +++ a/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); --- a/opac/opac-suggestions.pl +++ a/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; --- a/opac/opac-tags.pl +++ a/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; --- a/opac/opac-tags_subject.pl +++ a/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 --- a/opac/opac-topissues.pl +++ a/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 --- a/opac/opac-user.pl +++ a/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; --- a/opac/sco/help.pl +++ a/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({ --- a/opac/sco/printslip.pl +++ a/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; --- a/opac/sco/sco-main.pl +++ a/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; --- a/opac/svc/shelfbrowser.pl +++ a/opac/svc/shelfbrowser.pl @@ -3,10 +3,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; -use C4::ShelfBrowser; +use C4::Output qw( output_html_with_http_headers ); +use C4::ShelfBrowser qw( GetNearbyItems ); my $cgi = new CGI; --- a/opac/tracklinks.pl +++ a/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 ); --- a/patron_lists/add-modify.pl +++ a/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; --- a/patron_lists/delete.pl +++ a/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; --- a/patron_lists/list.pl +++ a/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; --- a/patron_lists/lists.pl +++ a/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; --- a/patron_lists/patrons.pl +++ a/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; --- a/patroncards/add_user_search.pl +++ a/patroncards/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/patroncards/create-pdf.pl +++ a/patroncards/create-pdf.pl @@ -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; --- a/patroncards/edit-batch.pl +++ a/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( { --- a/patroncards/edit-layout.pl +++ a/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; --- a/patroncards/edit-profile.pl +++ a/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; --- a/patroncards/edit-template.pl +++ a/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; --- a/patroncards/home.pl +++ a/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( --- a/patroncards/image-manage.pl +++ a/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; --- a/patroncards/manage.pl +++ a/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( --- a/patroncards/print.pl +++ a/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; --- a/plugins/plugins-home.pl +++ a/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; --- a/plugins/plugins-uninstall.pl +++ a/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; --- a/plugins/plugins-upload.pl +++ a/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; --- a/plugins/run.pl +++ a/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; --- a/reports/acquisitions_stats.pl +++ a/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 --- a/reports/bor_issues_top.pl +++ a/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; --- a/reports/borrowers_out.pl +++ a/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 --- a/reports/borrowers_stats.pl +++ a/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; --- a/reports/cash_register_stats.pl +++ a/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; --- a/reports/cat_issues_top.pl +++ a/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 --- a/reports/catalogue_out.pl +++ a/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; --- a/reports/catalogue_stats.pl +++ a/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 --- a/reports/dictionary.pl +++ a/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 --- a/reports/guided_reports.pl +++ a/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; --- a/reports/issues_avg_stats.pl +++ a/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); --- a/reports/issues_stats.pl +++ a/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; --- a/reports/itemslost.pl +++ a/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; --- a/reports/manager.pl +++ a/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; --- a/reports/orders_by_fund.pl +++ a/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( --- a/reports/reports-home.pl +++ a/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; --- a/reports/reserves_stats.pl +++ a/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; --- a/reports/serials_stats.pl +++ a/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 --- a/reports/stats.print.pl +++ a/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 --- a/reserve/modrequest.pl +++ a/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( --- a/reserve/modrequest_suspendall.pl +++ a/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( --- a/reserve/placerequest.pl +++ a/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(); --- a/reserve/request.pl +++ a/reserve/request.pl @@ -31,18 +31,18 @@ use Modern::Perl; use CGI qw ( -utf8 ); use List::MoreUtils qw/uniq/; use Date::Calc qw/Date_to_Days/; -use C4::Output; -use C4::Auth; -use C4::Reserves; -use C4::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; --- a/reviews/reviewswaiting.pl +++ a/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; --- a/rotating_collections/addItems.pl +++ a/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 ); --- a/rotating_collections/editCollections.pl +++ a/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; --- a/rotating_collections/rotatingCollections.pl +++ a/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; --- a/rotating_collections/transferCollection.pl +++ a/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 ); --- a/serials/acqui-search-result.pl +++ a/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; --- a/serials/acqui-search.pl +++ a/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; --- a/serials/add_fields.pl +++ a/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; --- a/serials/add_user_search.pl +++ a/serials/add_user_search.pl @@ -20,8 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use Koha::Patron::Categories; --- a/serials/checkexpiration.pl +++ a/serials/checkexpiration.pl @@ -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; --- a/serials/claims.pl +++ a/serials/claims.pl @@ -19,12 +19,12 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Serials; +use C4::Auth qw( get_template_and_user ); +use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription ); use C4::Acquisition; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Letters; +use C4::Letters qw( SendAlerts GetLetters ); use C4::Koha qw( GetAuthorisedValues ); use Koha::AdditionalField; --- a/serials/create-numberpattern.pl +++ a/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; --- a/serials/lateissues-export.pl +++ a/serials/lateissues-export.pl @@ -18,7 +18,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; -use C4::Serials; +use C4::Serials qw( GetLateOrMissingIssues updateClaim ); use C4::Acquisition; use C4::Output; use C4::Context; --- a/serials/routing-preview.pl +++ a/serials/routing-preview.pl @@ -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; --- a/serials/routing.pl +++ a/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; --- a/serials/serial-issues.pl +++ a/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; --- a/serials/serials-collection.pl +++ a/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/; --- a/serials/serials-edit.pl +++ a/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/; --- a/serials/serials-home.pl +++ a/serials/serials-home.pl @@ -30,9 +30,9 @@ this script is the main page for serials/ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Serials; my $query = new CGI; --- a/serials/serials-search.pl +++ a/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') || ''; --- a/serials/showpredictionpattern.pl +++ a/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( { --- a/serials/subscription-add.pl +++ a/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; --- a/serials/subscription-bib-search.pl +++ a/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; --- a/serials/subscription-detail.pl +++ a/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/; --- a/serials/subscription-frequencies.pl +++ a/serials/subscription-frequencies.pl @@ -31,10 +31,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Serials; -use C4::Serials::Frequency; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Serials qw( GetSubscription ModSubscription DelSubscription ); +use C4::Serials qw( GetSubscription ModSubscription DelSubscription ); my $input = new CGI; my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { --- a/serials/subscription-frequency.pl +++ a/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; --- a/serials/subscription-history.pl +++ a/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( { --- a/serials/subscription-numberpattern.pl +++ a/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; --- a/serials/subscription-numberpatterns.pl +++ a/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( { --- a/serials/subscription-renew.pl +++ a/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; --- a/serials/viewalerts.pl +++ a/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; --- a/services/itemrecorddisplay.pl +++ a/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( { --- a/sms/sms.pl +++ a/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' ); --- a/sms/sms_listen.pl +++ a/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; --- a/suggestion/suggestion.pl +++ a/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 ); --- a/tags/list.pl +++ a/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. --- a/tags/review.pl +++ a/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. --- a/test/search.pl +++ a/test/search.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -use C4::Search; +use C4::Search qw( buildQuery ); my @SEARCH = ( { operators => [ --- a/tools/ajax-inventory.pl +++ a/tools/ajax-inventory.pl @@ -2,7 +2,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; +use C4::Auth qw( check_api_auth ); use C4::Items qw( ModDateLastSeen ); my $input = new CGI; --- a/tools/automatic_item_modification_by_age.pl +++ a/tools/automatic_item_modification_by_age.pl @@ -34,10 +34,10 @@ use Modern::Perl; use CGI; use JSON qw( to_json from_json ); -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Items; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use C4::Koha; use Koha::Items; --- a/tools/background-job-progress.pl +++ a/tools/background-job-progress.pl @@ -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 --- a/tools/batchMod.pl +++ a/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; --- a/tools/batch_delete_records.pl +++ a/tools/batch_delete_records.pl @@ -23,10 +23,10 @@ use Modern::Perl; use CGI; use List::MoreUtils qw( uniq ); -use C4::Auth; -use C4::Output; -use C4::AuthoritiesMarc; -use C4::Biblio; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetMarcBiblio GetRecordValue GetFrameworkCode CountItemsIssued DelBiblio ); use Koha::Biblios; --- a/tools/batch_record_modification.pl +++ a/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; --- a/tools/batch_records_ajax.pl +++ a/tools/batch_records_ajax.pl @@ -36,8 +36,8 @@ use JSON qw/ to_json /; use C4::Context; use C4::Charset; -use C4::Auth qw/check_cookie_auth/; -use C4::ImportBatch; +use C4::Auth qw( check_cookie_auth ); +use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches ); my $input = new CGI; --- a/tools/cleanborrowers.pl +++ a/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; --- a/tools/csv-profiles.pl +++ a/tools/csv-profiles.pl @@ -37,9 +37,9 @@ This script allow the user to define a new profile for CSV export use Modern::Perl; use Encode; -use C4::Auth; +use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Output; +use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Koha; use Koha::CsvProfiles; --- a/tools/exceptionHolidays.pl +++ a/tools/exceptionHolidays.pl @@ -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(); --- a/tools/export.pl +++ a/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; --- a/tools/holidays.pl +++ a/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; --- a/tools/import_borrowers.pl +++ a/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; --- a/tools/inventory.pl +++ a/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 ); --- a/tools/koha-news.pl +++ a/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; --- a/tools/letter.pl +++ a/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 --- a/tools/manage-marc-import.pl +++ a/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; --- a/tools/marc_modification_templates.pl +++ a/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; --- a/tools/modborrowers.pl +++ a/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; --- a/tools/newHolidays.pl +++ a/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(); --- a/tools/overduerules.pl +++ a/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; --- a/tools/picture-upload.pl +++ a/tools/picture-upload.pl @@ -26,8 +26,8 @@ use File::Copy; use CGI qw ( -utf8 ); use GD; use C4::Context; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use C4::Members; use C4::Debug; --- a/tools/quotes-upload.pl +++ a/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; --- a/tools/quotes.pl +++ a/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; --- a/tools/quotes/quotes-upload_ajax.pl +++ a/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; --- a/tools/quotes/quotes_ajax.pl +++ a/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; --- a/tools/scheduler.pl +++ a/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); --- a/tools/showdiffmarc.pl +++ a/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; --- a/tools/stage-marc-import.pl +++ a/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; --- a/tools/tools-home.pl +++ a/tools/tools-home.pl @@ -18,9 +18,9 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; -use C4::Output; -use C4::Tags qw/get_count_by_tag_status/; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); +use C4::Tags qw( get_count_by_tag_status ); use Koha::Reviews; my $query = new CGI; --- a/tools/upload-cover-image.pl +++ a/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; --- a/tools/upload-file.pl +++ a/tools/upload-file.pl @@ -26,7 +26,7 @@ use JSON; use URI::Escape; use C4::Context; -use C4::Auth qw/check_cookie_auth haspermission/; +use C4::Auth qw( check_cookie_auth get_session ); use Koha::Uploader; # upload-file.pl must authenticate the user --- a/tools/upload.pl +++ a/tools/upload.pl @@ -21,8 +21,8 @@ use Modern::Perl; use CGI qw/-utf8/; use JSON; -use C4::Auth; -use C4::Output; +use C4::Auth qw( get_template_and_user ); +use C4::Output qw( output_html_with_http_headers ); use Koha::UploadedFiles; my $input = CGI::->new; --- a/tools/viewlog.pl +++ a/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); --- a/virtualshelves/addbybiblionumber.pl +++ a/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; --- a/virtualshelves/downloadshelf.pl +++ a/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; --- a/virtualshelves/sendshelf.pl +++ a/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; --- a/virtualshelves/shelves.pl +++ a/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; --