From 12316fc82b5e5c55ffa18279124a7f2db611286b Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 8 Jun 2022 15:28:44 +0200 Subject: [PATCH] Bug 30926: Remove unnecessary use statements This is the result of: perl remove_unused_import.pl **/*.pl **/*.pm svc/* svc/**/* --- C4/Accounts.pm | 3 --- C4/Acquisition.pm | 1 - C4/Auth.pm | 2 -- C4/Auth_with_ldap.pm | 1 - C4/Auth_with_shibboleth.pm | 1 - C4/AuthoritiesMarc.pm | 3 --- C4/BackgroundJob.pm | 1 - C4/Barcodes.pm | 1 - C4/Barcodes/EAN13.pm | 1 - C4/Barcodes/annual.pm | 1 - C4/Barcodes/incremental.pm | 1 - C4/Biblio.pm | 4 ---- C4/Breeding.pm | 2 -- C4/Budgets.pm | 1 - C4/Calendar.pm | 1 - C4/Circulation.pm | 3 --- C4/ClassSortRoutine.pm | 2 -- C4/ClassSortRoutine/Dewey.pm | 1 - C4/ClassSortRoutine/Generic.pm | 1 - C4/ClassSortRoutine/LCC.pm | 1 - C4/ClassSplitRoutine/Dewey.pm | 1 - C4/ClassSplitRoutine/Generic.pm | 1 - C4/ClassSplitRoutine/LCC.pm | 1 - C4/ClassSplitRoutine/RegEx.pm | 1 - C4/Context.pm | 1 - C4/Contract.pm | 1 - C4/Creators/Batch.pm | 1 - C4/Form/MessagingPreferences.pm | 2 -- C4/ILSDI/Services.pm | 5 ----- C4/ImportExportFramework.pm | 2 -- C4/Items.pm | 1 - C4/Labels/Label.pm | 4 ---- C4/Letters.pm | 2 -- C4/Linker/FirstMatch.pm | 1 - C4/Linker/LastMatch.pm | 1 - C4/Members.pm | 2 -- C4/Output.pm | 1 - C4/Overdues.pm | 1 - C4/Record.pm | 1 - C4/Reports/Guided.pm | 1 - C4/Reserves.pm | 4 ---- C4/SIP/ILS.pm | 2 -- C4/SIP/ILS/Item.pm | 5 ----- C4/SIP/ILS/Patron.pm | 3 --- C4/SIP/ILS/Transaction.pm | 2 -- C4/SIP/ILS/Transaction/Checkout.pm | 1 - C4/SIP/ILS/Transaction/FeePayment.pm | 1 - C4/SIP/SIPServer.pm | 1 - C4/SIP/Sip/MsgType.pm | 1 - C4/SMS.pm | 1 - C4/Scheduler.pm | 1 - C4/Scrubber.pm | 2 -- C4/Serials.pm | 1 - C4/Stats.pm | 1 - C4/Suggestions.pm | 3 --- C4/Tags.pm | 1 - C4/TmplToken.pm | 1 - C4/XISBN.pm | 2 -- Koha/Account.pm | 1 - Koha/ActionLog.pm | 1 - Koha/ActionLogs.pm | 1 - Koha/AdditionalField.pm | 1 - Koha/Auth/TwoFactorAuth.pm | 1 - Koha/AuthUtils.pm | 1 - Koha/Authority/MergeRequests.pm | 1 - Koha/BackgroundJob/BatchDeleteAuthority.pm | 1 - Koha/BackgroundJob/BatchDeleteBiblio.pm | 1 - Koha/BackgroundJob/BatchUpdateBiblio.pm | 2 -- Koha/BackgroundJob/BatchUpdateItem.pm | 2 -- Koha/BiblioUtils/Iterator.pm | 1 - Koha/Config/SysPref.pm | 1 - Koha/Exporter/Record.pm | 2 -- Koha/ExternalContent.pm | 1 - Koha/Filter/MARC/EmbedItems.pm | 1 - Koha/I18N.pm | 1 - Koha/Illrequest.pm | 1 - Koha/Illrequest/Logger.pm | 1 - Koha/ImportBatch.pm | 2 +- Koha/ImportBatchProfile.pm | 2 +- Koha/ImportBatchProfiles.pm | 2 +- Koha/ImportBatches.pm | 2 +- Koha/Item.pm | 1 - Koha/Item/Attributes.pm | 1 - Koha/ItemType.pm | 1 - Koha/ItemTypes.pm | 1 - Koha/Items.pm | 1 - Koha/Misc/Files.pm | 1 - Koha/Patron.pm | 1 - Koha/Patron/Category.pm | 1 - Koha/Patron/Files.pm | 1 - Koha/Patron/Message.pm | 1 - Koha/Patron/Password/Recovery.pm | 1 - Koha/Plugins.pm | 1 - Koha/REST/V1/Checkouts.pm | 1 - Koha/REST/V1/Clubs/Holds.pm | 1 - Koha/REST/V1/Holds.pm | 1 - Koha/REST/V1/ImportBatchProfiles.pm | 2 +- Koha/SearchEngine/Elasticsearch/Indexer.pm | 1 - Koha/SearchEngine/Elasticsearch/Search.pm | 1 - Koha/SearchEngine/Search.pm | 1 - Koha/SearchEngine/Zebra/QueryBuilder.pm | 2 -- Koha/SearchEngine/Zebra/Search.pm | 1 - Koha/Template/Plugin/AdditionalContents.pm | 2 -- Koha/Template/Plugin/Branches.pm | 1 - Koha/Template/Plugin/Cache.pm | 1 - Koha/Template/Plugin/Context.pm | 1 - Koha/Template/Plugin/I18N.pm | 1 - Koha/Template/Plugin/Languages.pm | 2 -- Koha/Template/Plugin/Registers.pm | 1 - Koha/Template/Plugin/TablesSettings.pm | 2 -- Koha/Uploader.pm | 1 - Koha/Z3950Responder/Session.pm | 1 - Koha/pdfformat/layout3pagesfr.pm | 1 - acqui/acqui-home.pl | 1 - acqui/addorderiso2709.pl | 1 - acqui/check_budget_total.pl | 1 - acqui/edimsg.pl | 1 - acqui/finishreceive.pl | 2 -- acqui/lateorders-export.pl | 2 -- acqui/neworderempty.pl | 1 - acqui/newordersuggestion.pl | 1 - acqui/orderreceive.pl | 1 - acqui/supplier.pl | 1 - acqui/transferorder.pl | 1 - acqui/updatesupplier.pl | 2 -- acqui/z3950_search.pl | 1 - admin/adveditorshortcuts.pl | 1 - admin/aqbudgetperiods.pl | 2 -- admin/aqcontract.pl | 2 -- admin/auth_tag_structure.pl | 1 - admin/authorised_values.pl | 1 - admin/authtypes.pl | 1 - admin/background_jobs.pl | 1 - admin/biblio_framework.pl | 1 - admin/branch_transfer_limits.pl | 1 - admin/branches.pl | 2 -- admin/cash_registers.pl | 1 - admin/categories.pl | 1 - admin/check_budget_parent.pl | 1 - admin/classsources.pl | 1 - admin/clone-rules.pl | 2 -- admin/columns_settings.pl | 1 - admin/credit_types.pl | 1 - admin/currency.pl | 1 - admin/debit_types.pl | 1 - admin/desks.pl | 1 - admin/import_export_authtype.pl | 1 - admin/import_export_framework.pl | 1 - admin/item_circulation_alerts.pl | 1 - admin/library_groups.pl | 1 - admin/marc-overlay-rules.pl | 2 -- admin/marctagstructure.pl | 1 - admin/matching-rules.pl | 1 - admin/overdrive.pl | 1 - admin/preferences.pl | 1 - admin/searchengine/elasticsearch/mappings.pl | 1 - admin/sms_providers.pl | 1 - admin/systempreferences.pl | 1 - admin/z3950servers.pl | 1 - authorities/authorities-home.pl | 2 -- authorities/detail-biblio-search.pl | 1 - authorities/detail.pl | 2 -- authorities/export.pl | 2 -- authorities/merge_ajax.pl | 1 - authorities/ysearch.pl | 1 - basket/basket.pl | 1 - basket/downloadcart.pl | 1 - basket/sendbasket.pl | 1 - catalogue/ISBDdetail.pl | 1 - catalogue/MARCdetail.pl | 1 - catalogue/detail.pl | 1 - catalogue/export.pl | 2 -- catalogue/item-export.pl | 1 - catalogue/moredetail.pl | 1 - catalogue/search-history.pl | 1 - catalogue/showmarc.pl | 1 - catalogue/updateitem.pl | 2 -- cataloguing/addbooks.pl | 2 -- cataloguing/additem.pl | 2 -- cataloguing/merge_ajax.pl | 1 - cataloguing/value_builder/barcode.pl | 1 - cataloguing/value_builder/barcode_manual.pl | 1 - cataloguing/value_builder/marc21_field_006.pl | 1 - cataloguing/value_builder/marc21_field_007.pl | 1 - cataloguing/value_builder/marc21_field_008.pl | 1 - cataloguing/value_builder/marc21_field_008_authorities.pl | 1 - .../value_builder/marc21_field_008_classifications.pl | 2 -- cataloguing/value_builder/marc21_field_245h.pl | 1 - cataloguing/value_builder/marc21_field_260b.pl | 1 - cataloguing/value_builder/marc21_leader_authorities.pl | 1 - cataloguing/value_builder/unimarc_field_105.pl | 1 - cataloguing/value_builder/unimarc_field_106.pl | 1 - cataloguing/value_builder/unimarc_field_110.pl | 1 - cataloguing/value_builder/unimarc_field_115a.pl | 1 - cataloguing/value_builder/unimarc_field_115b.pl | 1 - cataloguing/value_builder/unimarc_field_116.pl | 1 - cataloguing/value_builder/unimarc_field_117.pl | 1 - cataloguing/value_builder/unimarc_field_120.pl | 1 - cataloguing/value_builder/unimarc_field_121a.pl | 1 - cataloguing/value_builder/unimarc_field_121b.pl | 1 - cataloguing/value_builder/unimarc_field_122.pl | 1 - cataloguing/value_builder/unimarc_field_123a.pl | 1 - cataloguing/value_builder/unimarc_field_123d.pl | 1 - cataloguing/value_builder/unimarc_field_123e.pl | 1 - cataloguing/value_builder/unimarc_field_123f.pl | 1 - cataloguing/value_builder/unimarc_field_123g.pl | 1 - cataloguing/value_builder/unimarc_field_123i.pl | 1 - cataloguing/value_builder/unimarc_field_123j.pl | 1 - cataloguing/value_builder/unimarc_field_124.pl | 1 - cataloguing/value_builder/unimarc_field_124a.pl | 1 - cataloguing/value_builder/unimarc_field_124b.pl | 1 - cataloguing/value_builder/unimarc_field_124c.pl | 1 - cataloguing/value_builder/unimarc_field_124d.pl | 1 - cataloguing/value_builder/unimarc_field_124e.pl | 1 - cataloguing/value_builder/unimarc_field_124f.pl | 1 - cataloguing/value_builder/unimarc_field_124g.pl | 1 - cataloguing/value_builder/unimarc_field_125.pl | 1 - cataloguing/value_builder/unimarc_field_125a.pl | 1 - cataloguing/value_builder/unimarc_field_125b.pl | 1 - cataloguing/value_builder/unimarc_field_126.pl | 1 - cataloguing/value_builder/unimarc_field_126a.pl | 1 - cataloguing/value_builder/unimarc_field_126b.pl | 1 - cataloguing/value_builder/unimarc_field_127.pl | 1 - cataloguing/value_builder/unimarc_field_128a.pl | 1 - cataloguing/value_builder/unimarc_field_128b.pl | 1 - cataloguing/value_builder/unimarc_field_128c.pl | 1 - cataloguing/value_builder/unimarc_field_130.pl | 1 - cataloguing/value_builder/unimarc_field_135a.pl | 1 - cataloguing/value_builder/unimarc_field_140.pl | 1 - cataloguing/value_builder/unimarc_field_141.pl | 1 - cataloguing/value_builder/unimarc_field_210c.pl | 1 - cataloguing/value_builder/unimarc_field_225a_bis.pl | 1 - cataloguing/value_builder/unimarc_field_686a.pl | 1 - cataloguing/value_builder/unimarc_field_700-4.pl | 1 - cataloguing/value_builder/unimarc_leader.pl | 1 - cataloguing/value_builder/unimarc_leader_authorities.pl | 1 - cataloguing/z3950_search.pl | 1 - changelanguage.pl | 1 - circ/add_message.pl | 1 - circ/article-request-slip.pl | 2 -- circ/branchtransfers.pl | 2 -- circ/checkout-notes.pl | 1 - circ/circulation.pl | 3 --- circ/del_message.pl | 1 - circ/hold-transfer-slip.pl | 1 - circ/pendingreserves.pl | 1 - circ/returns.pl | 3 --- circ/transferstoreceive.pl | 3 --- course_reserves/mod_course.pl | 2 -- docs/CAS/CASProxy/examples/koha_webservice.pl | 3 --- docs/CAS/CASProxy/examples/proxy_cas.pl | 3 --- docs/CAS/CASProxy/examples/proxy_cas_callback.pl | 1 - help.pl | 1 - installer/data/mysql/backfill_statistics.pl | 1 - installer/data/mysql/db_revs/211200022.pl | 1 - installer/install.pl | 1 - labels/barcode-print.pl | 1 - labels/label-create-csv.pl | 1 - labels/label-create-pdf.pl | 2 -- labels/label-create-xml.pl | 1 - labels/label-edit-batch.pl | 1 - labels/label-edit-layout.pl | 1 - labels/label-edit-profile.pl | 1 - labels/label-edit-template.pl | 1 - labels/label-manage.pl | 1 - labels/label-print.pl | 1 - labels/spinelabel-home.pl | 1 - mainpage.pl | 1 - members/accountline-details.pl | 1 - members/boraccount.pl | 2 -- members/default_messageprefs.pl | 2 -- members/deletemem.pl | 1 - members/discharge.pl | 3 --- members/files.pl | 1 - members/housebound.pl | 1 - members/mancredit.pl | 2 -- members/maninvoice.pl | 2 -- members/member-password.pl | 1 - members/memberentry.pl | 1 - members/members-home.pl | 1 - members/members-update-do.pl | 2 -- members/members-update.pl | 1 - members/merge-patrons.pl | 1 - members/moremember.pl | 1 - members/notices.pl | 2 -- members/pay.pl | 5 ----- members/paycollect.pl | 2 -- members/printfeercpt.pl | 1 - members/printinvoice.pl | 1 - members/purchase-suggestions.pl | 2 -- members/readingrec.pl | 1 - members/routing-lists.pl | 2 -- members/setstatus.pl | 1 - members/statistics.pl | 2 -- members/summary-print.pl | 2 -- members/update-child.pl | 1 - misc/add_date_fields_to_marc_records.pl | 1 - misc/batchRebuildBiblioTables.pl | 1 - misc/cronjobs/advance_notices.pl | 3 --- misc/cronjobs/automatic_checkin.pl | 2 +- misc/cronjobs/automatic_item_modification_by_age.pl | 1 - misc/cronjobs/automatic_renewals.pl | 1 - misc/cronjobs/batch_anonymise.pl | 1 - misc/cronjobs/build_browser_and_cloud.pl | 2 -- misc/cronjobs/cleanup_database.pl | 2 -- misc/cronjobs/cloud-kw.pl | 2 -- misc/cronjobs/create_koc_db.pl | 1 - misc/cronjobs/gather_print_notices.pl | 1 - misc/cronjobs/holds/auto_unsuspend_holds.pl | 1 - misc/cronjobs/holds/build_holds_queue.pl | 1 - misc/cronjobs/holds/cancel_expired_holds.pl | 1 - misc/cronjobs/holds/cancel_unfilled_holds.pl | 1 - misc/cronjobs/holds/holds_reminder.pl | 1 - misc/cronjobs/membership_expiry.pl | 1 - misc/cronjobs/notice_unprocessed_suggestions.pl | 2 -- misc/cronjobs/overdue_notices.pl | 2 -- misc/cronjobs/process_message_queue.pl | 1 - misc/cronjobs/purge_suggestions.pl | 1 - misc/cronjobs/recalls/expire_recalls.pl | 1 - misc/cronjobs/recalls/overdue_recalls.pl | 1 - misc/cronjobs/serialsUpdate.pl | 1 - misc/cronjobs/share_usage_with_koha_community.pl | 1 - misc/cronjobs/social_data/get_report_social_data.pl | 1 - misc/cronjobs/social_data/update_social_data.pl | 1 - misc/cronjobs/staticfines.pl | 1 - misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl | 2 -- misc/cronjobs/update_patrons_category.pl | 1 - misc/devel/coverage.pl | 2 +- misc/export_records.pl | 2 -- misc/exportauth.pl | 1 - misc/load_testing/benchmark_webservices.pl | 2 -- misc/load_yaml.pl | 1 - misc/maintenance/borrowers-force-messaging-defaults.pl | 1 - misc/maintenance/check_syspref_cache.pl | 1 - misc/maintenance/fix_tags_weight.pl | 1 - misc/maintenance/sanitize_records.pl | 2 -- misc/maintenance/touch_all_biblios.pl | 1 - misc/maintenance/touch_all_items.pl | 1 - misc/migration_tools/22_to_30/export_Authorities.pl | 1 - misc/migration_tools/22_to_30/export_Authorities_xml.pl | 1 - misc/migration_tools/22_to_30/move_marc_to_authheader.pl | 2 -- misc/migration_tools/buildCOUNTRY.pl | 1 - misc/migration_tools/buildEDITORS.pl | 1 - misc/migration_tools/buildLANG.pl | 1 - misc/migration_tools/build_oai_sets.pl | 1 - misc/migration_tools/bulkmarcimport.pl | 2 -- misc/migration_tools/import_lexile.pl | 1 - misc/migration_tools/remove_unused_authorities.pl | 1 - misc/sip_cli_emulator.pl | 1 - misc/translator/LangInstaller.pm | 1 - misc/translator/TmplTokenizer.pm | 1 - offline_circ/download.pl | 2 -- offline_circ/enqueue_koc.pl | 3 --- offline_circ/list.pl | 2 -- offline_circ/process_koc.pl | 3 --- opac/ilsdi.pl | 2 -- opac/maintenance.pl | 1 - opac/opac-ISBDdetail.pl | 1 - opac/opac-MARCdetail.pl | 2 -- opac/opac-account-pay.pl | 2 -- opac/opac-account.pl | 1 - opac/opac-article-request-cancel.pl | 1 - opac/opac-authorities-home.pl | 2 -- opac/opac-authoritiesdetail.pl | 1 - opac/opac-basket.pl | 1 - opac/opac-changelanguage.pl | 1 - opac/opac-detail.pl | 1 - opac/opac-downloadcart.pl | 1 - opac/opac-downloadshelf.pl | 1 - opac/opac-export.pl | 4 ---- opac/opac-idref.pl | 1 - opac/opac-illrequests.pl | 1 - opac/opac-issue-note.pl | 2 -- opac/opac-main.pl | 1 - opac/opac-memberentry.pl | 1 - opac/opac-messaging.pl | 2 -- opac/opac-modrequest-suspend.pl | 1 - opac/opac-modrequest.pl | 1 - opac/opac-mymessages.pl | 2 -- opac/opac-passwd.pl | 1 - opac/opac-patron-image.pl | 1 - opac/opac-readingrecord.pl | 1 - opac/opac-registration-verify.pl | 2 -- opac/opac-renew.pl | 2 -- opac/opac-reportproblem.pl | 1 - opac/opac-reserve.pl | 2 -- opac/opac-reset-password.pl | 1 - opac/opac-retrieve-file.pl | 1 - opac/opac-routing-lists.pl | 1 - opac/opac-search-history.pl | 1 - opac/opac-search.pl | 3 --- opac/opac-sendbasket.pl | 1 - opac/opac-shareshelf.pl | 1 - opac/opac-shelves.pl | 1 - opac/opac-showmarc.pl | 3 --- opac/opac-suggestions.pl | 2 -- opac/opac-tags.pl | 1 - opac/opac-topissues.pl | 1 - opac/opac-user.pl | 1 - opac/sco/help.pl | 1 - opac/sco/sco-main.pl | 2 -- opac/sco/sco-patron-image.pl | 1 - opac/tracklinks.pl | 1 - patron_lists/delete.pl | 1 - patroncards/create-pdf.pl | 2 -- patroncards/edit-batch.pl | 1 - patroncards/edit-layout.pl | 1 - patroncards/edit-template.pl | 1 - patroncards/manage.pl | 1 - plugins/plugins-uninstall.pl | 2 -- plugins/plugins-upload.pl | 1 - recalls/recall_pickup_slip.pl | 1 - recalls/request.pl | 1 - reports/acquisitions_stats.pl | 1 - reports/catalogue_out.pl | 1 - reports/guided_reports.pl | 1 - reports/reserves_stats.pl | 1 - reserve/modrequest.pl | 1 - reserve/modrequest_suspendall.pl | 1 - rotating_collections/addItems.pl | 2 -- rotating_collections/editCollections.pl | 2 -- rotating_collections/rotatingCollections.pl | 2 -- rotating_collections/transferCollection.pl | 2 -- serials/lateissues-export.pl | 3 --- serials/reorder_members.pl | 1 - serials/routing-preview.pl | 1 - serials/routing.pl | 1 - serials/serials-home.pl | 1 - serials/showpredictionpattern.pl | 1 - serials/subscription-add.pl | 2 -- serials/subscription-frequencies.pl | 1 - serials/subscription-frequency.pl | 1 - serials/subscription-renew.pl | 1 - serials/viewalerts.pl | 1 - suggestion/suggestion.pl | 2 -- svc/bib | 1 - svc/bib_framework | 2 -- svc/bib_profile | 1 - svc/cataloguing/automatic_linker.pl | 1 - svc/cataloguing/framework | 3 --- svc/checkout_notes | 1 - svc/config/systempreferences | 1 - svc/convert_report | 3 --- svc/creator_batches | 1 - svc/holds | 1 - svc/letters/preview | 3 --- svc/new_bib | 3 --- svc/problem_reports | 1 - svc/recall | 1 - svc/split_callnumbers | 1 - t/lib/Mocks/Zebra.pm | 1 - tools/additional-contents.pl | 1 - tools/automatic_item_modification_by_age.pl | 1 - tools/background-job-progress.pl | 1 - tools/batch_delete_records.pl | 1 - tools/batch_records_ajax.pl | 1 - tools/copy-holidays.pl | 1 - tools/csv-profiles.pl | 1 - tools/exceptionHolidays.pl | 1 - tools/import_borrowers.pl | 1 - tools/manage-marc-import.pl | 2 -- tools/modborrowers.pl | 1 - tools/newHolidays.pl | 1 - tools/overduerules.pl | 2 -- tools/picture-upload.pl | 1 - tools/problem-reports.pl | 1 - tools/quotes-upload.pl | 1 - tools/quotes.pl | 1 - tools/showdiffmarc.pl | 1 - tools/upload-file.pl | 1 - virtualshelves/downloadshelf.pl | 1 - virtualshelves/shelves.pl | 1 - 472 files changed, 7 insertions(+), 623 deletions(-) diff --git a/C4/Accounts.pm b/C4/Accounts.pm index ad0d34f184d..a1d927734fd 100644 --- a/C4/Accounts.pm +++ b/C4/Accounts.pm @@ -20,8 +20,6 @@ package C4::Accounts; use Modern::Perl; use C4::Context; -use C4::Stats; -use C4::Members; use Koha::Account; use Koha::Account::Lines; use Koha::Account::Offsets; @@ -178,4 +176,3 @@ __END__ DBI(3) =cut - diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 76b6e647c69..20a2483eee0 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -39,7 +39,6 @@ use Koha::Libraries; use Koha::CsvProfiles; use Koha::Patrons; -use C4::Koha; use MARC::Field; use JSON qw( to_json ); diff --git a/C4/Auth.pm b/C4/Auth.pm index a44cd097679..54a8b583450 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -29,8 +29,6 @@ use URI::QueryParam; use C4::Context; use C4::Templates; # to get the template -use C4::Languages; -use C4::Search::History; use Koha; use Koha::Logger; use Koha::Caches; diff --git a/C4/Auth_with_ldap.pm b/C4/Auth_with_ldap.pm index 7f6c99a9a46..d1825b2e485 100644 --- a/C4/Auth_with_ldap.pm +++ b/C4/Auth_with_ldap.pm @@ -21,7 +21,6 @@ use Modern::Perl; use Carp qw( croak ); use C4::Context; -use C4::Members::Messaging; use C4::Auth qw( checkpw_internal ); use Koha::Patrons; use Koha::AuthUtils qw( hash_password ); diff --git a/C4/Auth_with_shibboleth.pm b/C4/Auth_with_shibboleth.pm index e214a5307ce..d345be19445 100644 --- a/C4/Auth_with_shibboleth.pm +++ b/C4/Auth_with_shibboleth.pm @@ -23,7 +23,6 @@ use C4::Context; use Koha::AuthUtils qw( get_script_name ); use Koha::Database; use Koha::Patrons; -use C4::Members::Messaging; use Carp qw( carp ); use List::MoreUtils qw( any ); diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index d6f2e381b31..1701456e670 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -25,8 +25,6 @@ use MARC::Field; use C4::Context; use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio ); use C4::Search qw( FindDuplicate new_record_from_zebra ); -use C4::AuthoritiesMarc::MARC21; -use C4::AuthoritiesMarc::UNIMARC; use C4::Charset qw( SetUTF8Flag ); use C4::Log qw( logaction ); use Koha::MetadataRecord::Authority; @@ -1646,4 +1644,3 @@ Paul POULAIN paul.poulain@free.fr Ere Maijala ere.maijala@helsinki.fi =cut - diff --git a/C4/BackgroundJob.pm b/C4/BackgroundJob.pm index 733f72e11b1..5a1eecb629a 100644 --- a/C4/BackgroundJob.pm +++ b/C4/BackgroundJob.pm @@ -19,7 +19,6 @@ package C4::BackgroundJob; # along with Koha; if not, see . use Modern::Perl; -use C4::Context; use C4::Auth qw( get_session ); use Digest::MD5; diff --git a/C4/Barcodes.pm b/C4/Barcodes.pm index 957d60f2835..78f9c808674 100644 --- a/C4/Barcodes.pm +++ b/C4/Barcodes.pm @@ -257,4 +257,3 @@ like the IBM "Boulder" format can cause problems for sprintf. Basically, the va (64-bit integers). So we have to use floats or increment a piece of it and return the rejoined fragments. =cut - diff --git a/C4/Barcodes/EAN13.pm b/C4/Barcodes/EAN13.pm index 7927d195369..e6468186a08 100644 --- a/C4/Barcodes/EAN13.pm +++ b/C4/Barcodes/EAN13.pm @@ -20,7 +20,6 @@ package C4::Barcodes::EAN13; use strict; use warnings; -use C4::Context; use Algorithm::CheckDigits qw( CheckDigits ); use Carp qw( carp ); diff --git a/C4/Barcodes/annual.pm b/C4/Barcodes/annual.pm index 0d7e05ae00a..17e46223d9d 100644 --- a/C4/Barcodes/annual.pm +++ b/C4/Barcodes/annual.pm @@ -90,4 +90,3 @@ sub new_object { 1; __END__ - diff --git a/C4/Barcodes/incremental.pm b/C4/Barcodes/incremental.pm index a2bf6e462e6..dd5e950bd3c 100644 --- a/C4/Barcodes/incremental.pm +++ b/C4/Barcodes/incremental.pm @@ -35,4 +35,3 @@ Since incremental is the default in C4::Barcodes, we do not override anything he In fact, this file is more of a place holder. =cut - diff --git a/C4/Biblio.pm b/C4/Biblio.pm index ef094ab3759..6b286dacdc6 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -87,9 +87,7 @@ use MARC::File::XML; use POSIX qw( strftime ); use Module::Load::Conditional qw( can_load ); -use C4::Koha; use C4::Log qw( logaction ); # logaction -use C4::Budgets; use C4::ClassSource qw( GetClassSort GetClassSource ); use C4::Charset qw( nsb_clean @@ -97,8 +95,6 @@ use C4::Charset qw( SetUTF8Flag StripNonXmlChars ); -use C4::Linker; -use C4::OAI::Sets; use C4::Items qw( GetHiddenItemnumbers GetMarcItem ); use Koha::Logger; diff --git a/C4/Breeding.pm b/C4/Breeding.pm index 7b3dbc58746..b2e2f6c7c98 100644 --- a/C4/Breeding.pm +++ b/C4/Breeding.pm @@ -28,7 +28,6 @@ use MARC::File::USMARC; use MARC::Field; use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch ); use C4::AuthoritiesMarc qw( GuessAuthTypeCode ); -use C4::Languages; use Koha::Database; use Koha::XSLT::Base; @@ -640,4 +639,3 @@ sub Z3950SearchAuth { 1; __END__ - diff --git a/C4/Budgets.pm b/C4/Budgets.pm index 9624650be14..212f20e75a1 100644 --- a/C4/Budgets.pm +++ b/C4/Budgets.pm @@ -23,7 +23,6 @@ use C4::Context; use Koha::Database; use Koha::Patrons; use Koha::Acquisition::Invoice::Adjustments; -use C4::Acquisition; use C4::Log qw(logaction); our (@ISA, @EXPORT_OK); diff --git a/C4/Calendar.pm b/C4/Calendar.pm index 257119c8e32..a60bb753d22 100644 --- a/C4/Calendar.pm +++ b/C4/Calendar.pm @@ -733,4 +733,3 @@ __END__ Koha Physics Library UNLP =cut - diff --git a/C4/Circulation.pm b/C4/Circulation.pm index f5df973d1d1..5017b833f3c 100644 --- a/C4/Circulation.pm +++ b/C4/Circulation.pm @@ -30,11 +30,8 @@ use C4::Stats qw( UpdateStats ); use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ItemsAnyAvailableAndNotRestricted ); use C4::Biblio qw( UpdateTotalIssues ); use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf ); -use C4::Accounts; -use C4::ItemCirculationAlertPreference; use C4::Message; use C4::Log qw( logaction ); # logaction -use C4::Overdues; use C4::RotatingCollections qw(GetCollectionItemBranches); use Algorithm::CheckDigits qw( CheckDigits ); diff --git a/C4/ClassSortRoutine.pm b/C4/ClassSortRoutine.pm index 248baa74a82..55362d098db 100644 --- a/C4/ClassSortRoutine.pm +++ b/C4/ClassSortRoutine.pm @@ -21,7 +21,6 @@ use strict; use warnings; use Class::Factory::Util; -use C4::Context; our (@ISA, @EXPORT_OK); BEGIN { @@ -126,4 +125,3 @@ sub _get_class_sort_key { Koha Development Team =cut - diff --git a/C4/ClassSortRoutine/Dewey.pm b/C4/ClassSortRoutine/Dewey.pm index eedf4ed768b..30d715b6f1f 100644 --- a/C4/ClassSortRoutine/Dewey.pm +++ b/C4/ClassSortRoutine/Dewey.pm @@ -100,4 +100,3 @@ sub get_class_sort_key { Koha Development Team =cut - diff --git a/C4/ClassSortRoutine/Generic.pm b/C4/ClassSortRoutine/Generic.pm index 665dd53ca63..d8208fca7c5 100644 --- a/C4/ClassSortRoutine/Generic.pm +++ b/C4/ClassSortRoutine/Generic.pm @@ -68,4 +68,3 @@ sub get_class_sort_key { Koha Development Team =cut - diff --git a/C4/ClassSortRoutine/LCC.pm b/C4/ClassSortRoutine/LCC.pm index b943fb683e2..f81004b8c0e 100644 --- a/C4/ClassSortRoutine/LCC.pm +++ b/C4/ClassSortRoutine/LCC.pm @@ -64,4 +64,3 @@ sub get_class_sort_key { Koha Development Team =cut - diff --git a/C4/ClassSplitRoutine/Dewey.pm b/C4/ClassSplitRoutine/Dewey.pm index de97e486b15..1a97e2f43de 100644 --- a/C4/ClassSplitRoutine/Dewey.pm +++ b/C4/ClassSplitRoutine/Dewey.pm @@ -25,7 +25,6 @@ C4::ClassSplitRoutine::Dewey - Dewey call number split method =head1 SYNOPSIS -use C4::ClassSplitRoutine; my $cn_split = C4::ClassSplitRoutine::Dewey::split_callnumber($cn_item); diff --git a/C4/ClassSplitRoutine/Generic.pm b/C4/ClassSplitRoutine/Generic.pm index 48aa85a4191..ea2f59050d2 100644 --- a/C4/ClassSplitRoutine/Generic.pm +++ b/C4/ClassSplitRoutine/Generic.pm @@ -25,7 +25,6 @@ C4::ClassSplitRoutine::Generic - generic call number sorting key routine =head1 SYNOPSIS -use C4::ClassSplitRoutine; =head1 FUNCTIONS diff --git a/C4/ClassSplitRoutine/LCC.pm b/C4/ClassSplitRoutine/LCC.pm index 98bcab79e5a..0d374a1e873 100644 --- a/C4/ClassSplitRoutine/LCC.pm +++ b/C4/ClassSplitRoutine/LCC.pm @@ -28,7 +28,6 @@ C4::ClassSplitRoutine::LCC - LCC call number split method =head1 SYNOPSIS -use C4::ClassSplitRoutine; my $cn_split = C4::ClassSplitRoutine::LCC::split_callnumber($cn_item); diff --git a/C4/ClassSplitRoutine/RegEx.pm b/C4/ClassSplitRoutine/RegEx.pm index d6e669999ac..14d0a52215d 100644 --- a/C4/ClassSplitRoutine/RegEx.pm +++ b/C4/ClassSplitRoutine/RegEx.pm @@ -25,7 +25,6 @@ C4::ClassSplitRoutine::RegEx - regex call number sorting key routine =head1 SYNOPSIS -use C4::ClassSplitRoutine; my $cn_sort = C4::ClassSplitRoutine::RegEx::split_callnumber($cn_item, $regexs); diff --git a/C4/Context.pm b/C4/Context.pm index 8cb9bdefe7b..f58f2485532 100644 --- a/C4/Context.pm +++ b/C4/Context.pm @@ -1025,4 +1025,3 @@ Specifies the configuration file to read. Andrew Arensburger Joshua Ferraro - diff --git a/C4/Contract.pm b/C4/Contract.pm index 2630af403e8..5812e690465 100644 --- a/C4/Contract.pm +++ b/C4/Contract.pm @@ -18,7 +18,6 @@ package C4::Contract; # along with Koha; if not, see . use Modern::Perl; -use C4::Context; use Koha::Database; use vars qw(@ISA @EXPORT); diff --git a/C4/Creators/Batch.pm b/C4/Creators/Batch.pm index e81f6d60207..e35e2dedfdc 100644 --- a/C4/Creators/Batch.pm +++ b/C4/Creators/Batch.pm @@ -325,4 +325,3 @@ Koha is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY A PARTICULAR PURPOSE. See the GNU General Public License for more details. =cut - diff --git a/C4/Form/MessagingPreferences.pm b/C4/Form/MessagingPreferences.pm index dbac3aceb21..c6e3a5d16f3 100644 --- a/C4/Form/MessagingPreferences.pm +++ b/C4/Form/MessagingPreferences.pm @@ -21,8 +21,6 @@ use strict; use warnings; use CGI qw ( -utf8 ); -use C4::Context; -use C4::Members::Messaging; use constant MAX_DAYS_IN_ADVANCE => 30; diff --git a/C4/ILSDI/Services.pm b/C4/ILSDI/Services.pm index 61f8e345236..86fa147d618 100644 --- a/C4/ILSDI/Services.pm +++ b/C4/ILSDI/Services.pm @@ -20,17 +20,12 @@ package C4::ILSDI::Services; use strict; use warnings; -use C4::Members; use C4::Items qw( get_hostitemnumbers_of ); use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal ); -use C4::Accounts; use C4::Biblio qw( GetMarcBiblio ); use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved CanReserveBeCanceledFromOpac); -use C4::Context; -use C4::Auth; use CGI qw ( -utf8 ); use DateTime; -use C4::Auth; use Koha::DateUtils qw( dt_from_string ); use C4::AuthoritiesMarc qw( GetAuthorityXML ); diff --git a/C4/ImportExportFramework.pm b/C4/ImportExportFramework.pm index 3d44d46ec39..1bc287c82f2 100644 --- a/C4/ImportExportFramework.pm +++ b/C4/ImportExportFramework.pm @@ -1205,5 +1205,3 @@ __END__ Koha Development Team =cut - - diff --git a/C4/Items.pm b/C4/Items.pm index 301fb51ebe0..e588c2d054f 100644 --- a/C4/Items.pm +++ b/C4/Items.pm @@ -50,7 +50,6 @@ BEGIN { use Carp qw( croak ); use C4::Context; -use C4::Koha; use C4::Biblio qw( GetMarcStructure TransformMarcToKoha ); use Koha::DateUtils qw( dt_from_string output_pref ); use MARC::Record; diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index 5f3a610079c..1dda6bdc6dc 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -13,10 +13,6 @@ use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ); use Koha::ClassSources; use Koha::ClassSortRules; use Koha::ClassSplitRules; -use C4::ClassSplitRoutine::Dewey; -use C4::ClassSplitRoutine::LCC; -use C4::ClassSplitRoutine::Generic; -use C4::ClassSplitRoutine::RegEx; sub _check_params { my $given_params = {}; diff --git a/C4/Letters.pm b/C4/Letters.pm index 8ab0bb727e0..6a19d6ee001 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -25,10 +25,8 @@ use Module::Load::Conditional qw( can_load ); use Try::Tiny qw( catch try ); -use C4::Members; use C4::Log qw( logaction ); use C4::SMS; -use C4::Templates; use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::SMS::Providers; diff --git a/C4/Linker/FirstMatch.pm b/C4/Linker/FirstMatch.pm index 873395a3628..52c7710e3de 100644 --- a/C4/Linker/FirstMatch.pm +++ b/C4/Linker/FirstMatch.pm @@ -19,7 +19,6 @@ package C4::Linker::FirstMatch; use strict; use warnings; -use C4::Heading; use C4::Linker::Default; # Use Default for flipping use base qw(C4::Linker); diff --git a/C4/Linker/LastMatch.pm b/C4/Linker/LastMatch.pm index 1f873d8c5b4..b223165629f 100644 --- a/C4/Linker/LastMatch.pm +++ b/C4/Linker/LastMatch.pm @@ -19,7 +19,6 @@ package C4::Linker::LastMatch; use strict; use warnings; -use C4::Heading; use C4::Linker::Default; # Use Default for flipping use base qw(C4::Linker); diff --git a/C4/Members.pm b/C4/Members.pm index 0919ac9883c..c1f728e3d3d 100644 --- a/C4/Members.pm +++ b/C4/Members.pm @@ -25,8 +25,6 @@ use C4::Context; use Scalar::Util qw( looks_like_number ); use Date::Calc qw( check_date Date_to_Days ); use C4::Overdues qw( checkoverdues ); -use C4::Reserves; -use C4::Accounts; use C4::Letters qw( GetPreparedLetter ); use DateTime; use Koha::Database; diff --git a/C4/Output.pm b/C4/Output.pm index e36ec30bdc5..a0ae4cc7758 100644 --- a/C4/Output.pm +++ b/C4/Output.pm @@ -32,7 +32,6 @@ use Scalar::Util qw( looks_like_number ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Templates; our (@ISA, @EXPORT_OK); diff --git a/C4/Overdues.pm b/C4/Overdues.pm index a31d2b4f7ba..b9573c351b1 100644 --- a/C4/Overdues.pm +++ b/C4/Overdues.pm @@ -28,7 +28,6 @@ use Locale::Currency::Format 1.28 qw( currency_format FMT_SYMBOL ); use Carp qw( carp ); use C4::Context; -use C4::Accounts; use Koha::Logger; use Koha::Account::Lines; use Koha::Account::Offsets; diff --git a/C4/Record.pm b/C4/Record.pm index 537a09d76fe..d20d2b6ef63 100644 --- a/C4/Record.pm +++ b/C4/Record.pm @@ -28,7 +28,6 @@ use Biblio::EndnoteStyle; use Unicode::Normalize qw( NFC ); # _entity_encode use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ); use C4::Koha; #marc2csv -use C4::XSLT; use YAML::XS; #marcrecords2csv use Encode; use Template; diff --git a/C4/Reports/Guided.pm b/C4/Reports/Guided.pm index 2d29b2138e7..2b3b6debde0 100644 --- a/C4/Reports/Guided.pm +++ b/C4/Reports/Guided.pm @@ -28,7 +28,6 @@ use C4::Koha qw( GetAuthorisedValues ); use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Patrons; use Koha::Reports; -use C4::Output; use C4::Log qw( logaction ); use Koha::Notice::Templates; diff --git a/C4/Reserves.pm b/C4/Reserves.pm index 9a1a7fc7585..e42fce48ea0 100644 --- a/C4/Reserves.pm +++ b/C4/Reserves.pm @@ -23,15 +23,11 @@ package C4::Reserves; use Modern::Perl; -use C4::Accounts; use C4::Biblio qw( GetMarcFromKohaField ); use C4::Circulation qw( CheckIfIssuedToPatron GetAgeRestriction GetBranchItemRule ); use C4::Context; use C4::Items qw( CartToShelf get_hostitemnumbers_of ); -use C4::Letters; use C4::Log qw( logaction ); -use C4::Members::Messaging; -use C4::Members; use Koha::Account::Lines; use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; use Koha::Biblios; diff --git a/C4/SIP/ILS.pm b/C4/SIP/ILS.pm index e6c75671be8..aadfc0d46eb 100644 --- a/C4/SIP/ILS.pm +++ b/C4/SIP/ILS.pm @@ -11,7 +11,6 @@ use Data::Dumper; use C4::SIP::ILS::Item; use C4::SIP::ILS::Patron; -use C4::SIP::ILS::Transaction; use C4::SIP::ILS::Transaction::Checkout; use C4::SIP::ILS::Transaction::Checkin; use C4::SIP::ILS::Transaction::FeePayment; @@ -515,4 +514,3 @@ sub renew_all { 1; __END__ - diff --git a/C4/SIP/ILS/Item.pm b/C4/SIP/ILS/Item.pm index 105b8d01003..d4b691d161a 100644 --- a/C4/SIP/ILS/Item.pm +++ b/C4/SIP/ILS/Item.pm @@ -16,11 +16,7 @@ use Template; use C4::SIP::ILS::Transaction; use C4::SIP::Sip qw(add_field); -use C4::Biblio; use C4::Circulation qw( barcodedecode ); -use C4::Context; -use C4::Items; -use C4::Members; use Koha::Biblios; use Koha::Checkouts::ReturnClaims; use Koha::Checkouts; @@ -434,4 +430,3 @@ sub build_additional_item_fields_string { 1; __END__ - diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm index de2b1ddadea..ba29f816da4 100644 --- a/C4/SIP/ILS/Patron.pm +++ b/C4/SIP/ILS/Patron.pm @@ -18,9 +18,7 @@ use Data::Dumper; use C4::SIP::Sip qw(add_field maybe_add); use C4::Context; -use C4::Koha; use C4::Members; -use C4::Reserves; use C4::Auth qw(checkpw); use Koha::Items; @@ -742,4 +740,3 @@ __END__ {itemlist} ref-to-array: list of available items =cut - diff --git a/C4/SIP/ILS/Transaction.pm b/C4/SIP/ILS/Transaction.pm index fade710a040..2ad97ad82ac 100644 --- a/C4/SIP/ILS/Transaction.pm +++ b/C4/SIP/ILS/Transaction.pm @@ -7,7 +7,6 @@ package C4::SIP::ILS::Transaction; use Carp; use strict; use warnings; -use C4::Context; use Koha::DateUtils qw( dt_from_string ); use Koha::Checkouts; @@ -79,4 +78,3 @@ sub AUTOLOAD { 1; __END__ - diff --git a/C4/SIP/ILS/Transaction/Checkout.pm b/C4/SIP/ILS/Transaction/Checkout.pm index b9fa51979e9..946b9fd5fdb 100644 --- a/C4/SIP/ILS/Transaction/Checkout.pm +++ b/C4/SIP/ILS/Transaction/Checkout.pm @@ -16,7 +16,6 @@ use C4::SIP::ILS::Transaction; use C4::Context; use C4::Circulation qw( AddIssue GetIssuingCharges CanBookBeIssued ); -use C4::Members; use Koha::DateUtils; use parent qw(C4::SIP::ILS::Transaction); diff --git a/C4/SIP/ILS/Transaction/FeePayment.pm b/C4/SIP/ILS/Transaction/FeePayment.pm index 80d9698694d..115f6396dc7 100644 --- a/C4/SIP/ILS/Transaction/FeePayment.pm +++ b/C4/SIP/ILS/Transaction/FeePayment.pm @@ -88,4 +88,3 @@ sub pay { 1; __END__ - diff --git a/C4/SIP/SIPServer.pm b/C4/SIP/SIPServer.pm index 995d448d84b..5ef7cb98b53 100644 --- a/C4/SIP/SIPServer.pm +++ b/C4/SIP/SIPServer.pm @@ -23,7 +23,6 @@ use C4::SIP::Logger qw(set_logger); use Koha::Caches; use Koha::Logger; -use C4::SIP::Trapper; tie *STDERR, "C4::SIP::Trapper"; use base qw(Net::Server::PreFork); diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm index 2f7ba7da0fa..129e743fcbd 100644 --- a/C4/SIP/Sip/MsgType.pm +++ b/C4/SIP/Sip/MsgType.pm @@ -1760,4 +1760,3 @@ sub desensitize { 1; __END__ - diff --git a/C4/SMS.pm b/C4/SMS.pm index ce3358f66ab..f4acc371dfa 100644 --- a/C4/SMS.pm +++ b/C4/SMS.pm @@ -148,4 +148,3 @@ sub driver { 1; __END__ - diff --git a/C4/Scheduler.pm b/C4/Scheduler.pm index e2f6d85f654..5d3a145d418 100644 --- a/C4/Scheduler.pm +++ b/C4/Scheduler.pm @@ -19,7 +19,6 @@ package C4::Scheduler; use Modern::Perl; -use C4::Context; use Schedule::At; our (@ISA, @EXPORT_OK); diff --git a/C4/Scrubber.pm b/C4/Scrubber.pm index 0fcd3580bc2..e13438f71c3 100644 --- a/C4/Scrubber.pm +++ b/C4/Scrubber.pm @@ -24,7 +24,6 @@ use warnings; use Carp qw( croak ); use HTML::Scrubber; -use C4::Context; my %scrubbertypes = ( default => {}, # place holder, default settings are below as fallbacks in call to constructor @@ -68,4 +67,3 @@ for Tags. =head2 TODO: Add real perldoc =cut - diff --git a/C4/Serials.pm b/C4/Serials.pm index 93c8a759d97..f6b3936bec8 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -35,7 +35,6 @@ use POSIX qw( strftime ); use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio ); use C4::Log qw( logaction ); # logaction use C4::Serials::Frequency qw( GetSubscriptionFrequency ); -use C4::Serials::Numberpattern; use Koha::AdditionalFieldValues; use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Serial; diff --git a/C4/Stats.pm b/C4/Stats.pm index 6afb5380922..78e750bc778 100644 --- a/C4/Stats.pm +++ b/C4/Stats.pm @@ -155,4 +155,3 @@ __END__ Koha Development Team =cut - diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm index 649fb964e57..f8833beb4ee 100644 --- a/C4/Suggestions.pm +++ b/C4/Suggestions.pm @@ -22,8 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Output; -use C4::Letters; use C4::Biblio qw( GetMarcFromKohaField ); use Koha::DateUtils qw( dt_from_string ); use Koha::Suggestions; @@ -652,4 +650,3 @@ __END__ Koha Development Team =cut - diff --git a/C4/Tags.pm b/C4/Tags.pm index e01244f9279..3206154e567 100644 --- a/C4/Tags.pm +++ b/C4/Tags.pm @@ -705,4 +705,3 @@ perl -ne 'use C4::Tags qw(get_tags add_tag); use Data::Dumper;chomp; add_tag($_, Note, the borrowernumber in this example is 51. Use your own or any arbitrary valid borrowernumber. =cut - diff --git a/C4/TmplToken.pm b/C4/TmplToken.pm index 045269b80b7..fe7fbbdc2e4 100644 --- a/C4/TmplToken.pm +++ b/C4/TmplToken.pm @@ -20,7 +20,6 @@ package C4::TmplToken; use strict; use warnings; -use C4::TmplTokenType; =head1 NAME diff --git a/C4/XISBN.pm b/C4/XISBN.pm index 67d89ea96cc..a70634336e4 100644 --- a/C4/XISBN.pm +++ b/C4/XISBN.pm @@ -20,7 +20,6 @@ package C4::XISBN; use Modern::Perl; use XML::Simple; - use C4::Biblio qw(TransformMarcToKoha); use C4::Koha qw( GetNormalizedISBN ); use C4::Search qw( new_record_from_zebra ); @@ -153,4 +152,3 @@ __END__ Joshua Ferraro =cut - diff --git a/Koha/Account.pm b/Koha/Account.pm index c7cf9e58dbb..4506102431a 100644 --- a/Koha/Account.pm +++ b/Koha/Account.pm @@ -24,7 +24,6 @@ use Data::Dumper qw( Dumper ); use Try::Tiny qw( catch try ); use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal ); -use C4::Letters; use C4::Log qw( logaction ); use C4::Stats qw( UpdateStats ); use C4::Overdues qw(GetFine); diff --git a/Koha/ActionLog.pm b/Koha/ActionLog.pm index 05faf89d0aa..1ebc1fbe833 100644 --- a/Koha/ActionLog.pm +++ b/Koha/ActionLog.pm @@ -19,7 +19,6 @@ package Koha::ActionLog; use Modern::Perl; -use C4::Context; use base qw(Koha::Object); diff --git a/Koha/ActionLogs.pm b/Koha/ActionLogs.pm index c94969fb300..827bb751db4 100644 --- a/Koha/ActionLogs.pm +++ b/Koha/ActionLogs.pm @@ -19,7 +19,6 @@ package Koha::ActionLogs; use Modern::Perl; -use C4::Context; use base qw(Koha::Objects); diff --git a/Koha/AdditionalField.pm b/Koha/AdditionalField.pm index 721c01fffc9..cded9275d39 100644 --- a/Koha/AdditionalField.pm +++ b/Koha/AdditionalField.pm @@ -10,7 +10,6 @@ use Modern::Perl; use base qw(Koha::Object); -use C4::Context; sub _type { 'AdditionalField' } diff --git a/Koha/Auth/TwoFactorAuth.pm b/Koha/Auth/TwoFactorAuth.pm index 48b2a895ea3..a1ed9e15f9e 100644 --- a/Koha/Auth/TwoFactorAuth.pm +++ b/Koha/Auth/TwoFactorAuth.pm @@ -19,7 +19,6 @@ use Modern::Perl; use GD::Barcode; use MIME::Base64 qw( encode_base64 ); -use C4::Letters; use Koha::Exceptions; use Koha::Exceptions::Patron; diff --git a/Koha/AuthUtils.pm b/Koha/AuthUtils.pm index 8345f50a5fe..ceae7c1d269 100644 --- a/Koha/AuthUtils.pm +++ b/Koha/AuthUtils.pm @@ -25,7 +25,6 @@ use List::MoreUtils qw( any ); use String::Random qw( random_string ); use Koha::Exceptions::Password; -use C4::Context; our (@ISA, @EXPORT_OK); diff --git a/Koha/Authority/MergeRequests.pm b/Koha/Authority/MergeRequests.pm index 481118e0f57..f6ddf57cf3c 100644 --- a/Koha/Authority/MergeRequests.pm +++ b/Koha/Authority/MergeRequests.pm @@ -20,7 +20,6 @@ package Koha::Authority::MergeRequests; use Modern::Perl; use MARC::File::XML; -use C4::Context; use Koha::Authority::MergeRequest; use Koha::Database; use Koha::DateUtils qw( dt_from_string ); diff --git a/Koha/BackgroundJob/BatchDeleteAuthority.pm b/Koha/BackgroundJob/BatchDeleteAuthority.pm index 64d10f43ab6..075a9f6c8b0 100644 --- a/Koha/BackgroundJob/BatchDeleteAuthority.pm +++ b/Koha/BackgroundJob/BatchDeleteAuthority.pm @@ -3,7 +3,6 @@ package Koha::BackgroundJob::BatchDeleteAuthority; use Modern::Perl; use JSON qw( encode_json decode_json ); -use C4::AuthoritiesMarc; use Koha::DateUtils qw( dt_from_string ); use Koha::SearchEngine; diff --git a/Koha/BackgroundJob/BatchDeleteBiblio.pm b/Koha/BackgroundJob/BatchDeleteBiblio.pm index b5984ce44ff..7f08c89a36e 100644 --- a/Koha/BackgroundJob/BatchDeleteBiblio.pm +++ b/Koha/BackgroundJob/BatchDeleteBiblio.pm @@ -3,7 +3,6 @@ package Koha::BackgroundJob::BatchDeleteBiblio; use Modern::Perl; use JSON qw( encode_json decode_json ); -use C4::Biblio; use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue; use Koha::DateUtils qw( dt_from_string ); diff --git a/Koha/BackgroundJob/BatchUpdateBiblio.pm b/Koha/BackgroundJob/BatchUpdateBiblio.pm index 35152e45267..93598e84489 100644 --- a/Koha/BackgroundJob/BatchUpdateBiblio.pm +++ b/Koha/BackgroundJob/BatchUpdateBiblio.pm @@ -24,8 +24,6 @@ use Koha::SearchEngine; use Koha::SearchEngine::Indexer; use C4::Context; -use C4::Biblio; -use C4::MarcModificationTemplates; use base 'Koha::BackgroundJob'; diff --git a/Koha/BackgroundJob/BatchUpdateItem.pm b/Koha/BackgroundJob/BatchUpdateItem.pm index d01aed7f39b..e1099fa4075 100644 --- a/Koha/BackgroundJob/BatchUpdateItem.pm +++ b/Koha/BackgroundJob/BatchUpdateItem.pm @@ -24,8 +24,6 @@ use Try::Tiny; use MARC::Record; use MARC::Field; -use C4::Biblio; -use C4::Items; use Koha::DateUtils qw( dt_from_string ); use Koha::SearchEngine::Indexer; diff --git a/Koha/BiblioUtils/Iterator.pm b/Koha/BiblioUtils/Iterator.pm index c75a3733e5c..b564048713b 100644 --- a/Koha/BiblioUtils/Iterator.pm +++ b/Koha/BiblioUtils/Iterator.pm @@ -43,7 +43,6 @@ Returns biblionumber and marc in list context. =cut -use C4::Biblio; use Carp qw( confess ); use MARC::Record; diff --git a/Koha/Config/SysPref.pm b/Koha/Config/SysPref.pm index dd743f8ef2b..644590645b2 100644 --- a/Koha/Config/SysPref.pm +++ b/Koha/Config/SysPref.pm @@ -22,7 +22,6 @@ use Modern::Perl; use Koha::Database; -use C4::Log; use base qw(Koha::Object); diff --git a/Koha/Exporter/Record.pm b/Koha/Exporter/Record.pm index 05cfe3e2a71..58fd852d478 100644 --- a/Koha/Exporter/Record.pm +++ b/Koha/Exporter/Record.pm @@ -4,9 +4,7 @@ use Modern::Perl; use MARC::File::XML; use MARC::File::USMARC; -use C4::AuthoritiesMarc; use C4::Biblio qw( GetMarcFromKohaField ); -use C4::Record; use Koha::CsvProfiles; use Koha::Logger; use List::Util qw( all any ); diff --git a/Koha/ExternalContent.pm b/Koha/ExternalContent.pm index be5174d32e2..b521181f302 100644 --- a/Koha/ExternalContent.pm +++ b/Koha/ExternalContent.pm @@ -24,7 +24,6 @@ use base qw(Class::Accessor); use Koha; use Koha::Logger; use Koha::Patrons; -use C4::Auth; __PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger)); diff --git a/Koha/Filter/MARC/EmbedItems.pm b/Koha/Filter/MARC/EmbedItems.pm index 2839694ff8a..a2086675f68 100644 --- a/Koha/Filter/MARC/EmbedItems.pm +++ b/Koha/Filter/MARC/EmbedItems.pm @@ -53,7 +53,6 @@ Filter to embed items information into MARC::Record objects. use Modern::Perl; -use C4::Biblio; use base qw(Koha::RecordProcessor::Base); our $NAME = 'EmbedItems'; diff --git a/Koha/I18N.pm b/Koha/I18N.pm index 464911cb2dc..fd726d74a55 100644 --- a/Koha/I18N.pm +++ b/Koha/I18N.pm @@ -19,7 +19,6 @@ package Koha::I18N; use Modern::Perl; -use C4::Languages; use C4::Context; use Encode; diff --git a/Koha/Illrequest.pm b/Koha/Illrequest.pm index 6d26418cd9f..475d17f7a92 100644 --- a/Koha/Illrequest.pm +++ b/Koha/Illrequest.pm @@ -23,7 +23,6 @@ use Clone qw( clone ); use Try::Tiny qw( catch try ); use DateTime; -use C4::Letters; use Koha::Database; use Koha::DateUtils qw( dt_from_string ); use Koha::Exceptions::Ill; diff --git a/Koha/Illrequest/Logger.pm b/Koha/Illrequest/Logger.pm index 31f1704446c..bf2aab8dca1 100644 --- a/Koha/Illrequest/Logger.pm +++ b/Koha/Illrequest/Logger.pm @@ -22,7 +22,6 @@ use JSON qw( from_json to_json ); use C4::Koha qw( GetAuthorisedValues ); use C4::Context; -use C4::Templates; use C4::Log qw( logaction ); use Koha::ActionLogs; use Koha::Notice::Template; diff --git a/Koha/ImportBatch.pm b/Koha/ImportBatch.pm index e30389c133c..dd21d0d46f4 100644 --- a/Koha/ImportBatch.pm +++ b/Koha/ImportBatch.pm @@ -38,4 +38,4 @@ sub _type { return 'ImportBatch'; } -1; \ No newline at end of file +1; diff --git a/Koha/ImportBatchProfile.pm b/Koha/ImportBatchProfile.pm index 1b349fc6b9d..51459053aaa 100644 --- a/Koha/ImportBatchProfile.pm +++ b/Koha/ImportBatchProfile.pm @@ -51,4 +51,4 @@ sub _type { return 'ImportBatchProfile'; } -1; \ No newline at end of file +1; diff --git a/Koha/ImportBatchProfiles.pm b/Koha/ImportBatchProfiles.pm index 7787af8845c..002207acce8 100644 --- a/Koha/ImportBatchProfiles.pm +++ b/Koha/ImportBatchProfiles.pm @@ -48,4 +48,4 @@ sub object_class { return 'Koha::ImportBatchProfile'; } -1; \ No newline at end of file +1; diff --git a/Koha/ImportBatches.pm b/Koha/ImportBatches.pm index 0c6002d58f8..e484e769b6f 100644 --- a/Koha/ImportBatches.pm +++ b/Koha/ImportBatches.pm @@ -48,4 +48,4 @@ sub object_class { return 'Koha::ImportBatch'; } -1; \ No newline at end of file +1; diff --git a/Koha/Item.pm b/Koha/Item.pm index 16d6f95bed1..9331e15fe5c 100644 --- a/Koha/Item.pm +++ b/Koha/Item.pm @@ -26,7 +26,6 @@ use Koha::DateUtils qw( dt_from_string output_pref ); use C4::Context; use C4::Circulation qw( barcodedecode GetBranchItemRule ); -use C4::Reserves; use C4::ClassSource qw( GetClassSort ); use C4::Log qw( logaction ); diff --git a/Koha/Item/Attributes.pm b/Koha/Item/Attributes.pm index 0c91d3e4431..dec8bb34387 100644 --- a/Koha/Item/Attributes.pm +++ b/Koha/Item/Attributes.pm @@ -20,7 +20,6 @@ use MARC::Record; use MARC::Field; use List::MoreUtils qw( uniq ); -use C4::Biblio; use C4::Charset qw( StripNonXmlChars ); =head1 NAME diff --git a/Koha/ItemType.pm b/Koha/ItemType.pm index 4b77433e8e1..4c39babc93b 100644 --- a/Koha/ItemType.pm +++ b/Koha/ItemType.pm @@ -19,7 +19,6 @@ use Modern::Perl; use C4::Koha qw( getitemtypeimagelocation ); -use C4::Languages; use Koha::Database; use Koha::CirculationRules; use Koha::Localizations; diff --git a/Koha/ItemTypes.pm b/Koha/ItemTypes.pm index 13caa648a81..6523e4a147a 100644 --- a/Koha/ItemTypes.pm +++ b/Koha/ItemTypes.pm @@ -18,7 +18,6 @@ package Koha::ItemTypes; use Modern::Perl; -use C4::Languages; use Koha::Database; use Koha::ItemType; diff --git a/Koha/Items.pm b/Koha/Items.pm index 90b178a1cef..db04b2b4cd2 100644 --- a/Koha/Items.pm +++ b/Koha/Items.pm @@ -24,7 +24,6 @@ use Try::Tiny; use C4::Context; use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField ); -use C4::Circulation; use Koha::Database; use Koha::SearchEngine::Indexer; diff --git a/Koha/Misc/Files.pm b/Koha/Misc/Files.pm index a107441b6d6..126d9434349 100644 --- a/Koha/Misc/Files.pm +++ b/Koha/Misc/Files.pm @@ -22,7 +22,6 @@ package Koha::Misc::Files; use Modern::Perl; use C4::Context; -use C4::Output; =head1 NAME diff --git a/Koha/Patron.pm b/Koha/Patron.pm index e677f39e872..8e854352d13 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -29,7 +29,6 @@ use C4::Context; use C4::Log qw( logaction ); use Koha::Account; use Koha::ArticleRequests; -use C4::Letters; use Koha::AuthUtils; use Koha::Checkouts; use Koha::CirculationRules; diff --git a/Koha/Patron/Category.pm b/Koha/Patron/Category.pm index c6837ca00f2..dcbc9beeccb 100644 --- a/Koha/Patron/Category.pm +++ b/Koha/Patron/Category.pm @@ -19,7 +19,6 @@ use Modern::Perl; use List::MoreUtils qw( any ); -use C4::Members::Messaging; use Koha::Database; use Koha::DateUtils qw( dt_from_string ); diff --git a/Koha/Patron/Files.pm b/Koha/Patron/Files.pm index 6c3a33072ce..883ca752eed 100644 --- a/Koha/Patron/Files.pm +++ b/Koha/Patron/Files.pm @@ -21,7 +21,6 @@ use Modern::Perl; use C4::Context; -use C4::Output; =head1 NAME diff --git a/Koha/Patron/Message.pm b/Koha/Patron/Message.pm index fa4473d2201..e851d3e6f50 100644 --- a/Koha/Patron/Message.pm +++ b/Koha/Patron/Message.pm @@ -19,7 +19,6 @@ use Modern::Perl; use C4::Context; -use C4::Log; use Koha::Database; diff --git a/Koha/Patron/Password/Recovery.pm b/Koha/Patron/Password/Recovery.pm index 0f1882bf840..828fbf3841e 100644 --- a/Koha/Patron/Password/Recovery.pm +++ b/Koha/Patron/Password/Recovery.pm @@ -19,7 +19,6 @@ package Koha::Patron::Password::Recovery; use Modern::Perl; use C4::Context; -use C4::Letters; use Crypt::Eksblowfish::Bcrypt qw( en_base64 ); use Koha::DateUtils qw( dt_from_string ); diff --git a/Koha/Plugins.pm b/Koha/Plugins.pm index f7b716638d9..f332d54c996 100644 --- a/Koha/Plugins.pm +++ b/Koha/Plugins.pm @@ -28,7 +28,6 @@ use Module::Pluggable search_path => ['Koha::Plugin'], except => qr/::Edifact(|: use Try::Tiny; use C4::Context; -use C4::Output; use Koha::Exceptions::Plugin; use Koha::Plugins::Methods; diff --git a/Koha/REST/V1/Checkouts.pm b/Koha/REST/V1/Checkouts.pm index e670987bffe..403be70fe47 100644 --- a/Koha/REST/V1/Checkouts.pm +++ b/Koha/REST/V1/Checkouts.pm @@ -21,7 +21,6 @@ use Mojo::Base 'Mojolicious::Controller'; use Mojo::JSON; use C4::Auth qw( haspermission ); -use C4::Context; use C4::Circulation qw( AddRenewal ); use Koha::Checkouts; use Koha::Old::Checkouts; diff --git a/Koha/REST/V1/Clubs/Holds.pm b/Koha/REST/V1/Clubs/Holds.pm index 3333d75e7df..55c7d192f51 100644 --- a/Koha/REST/V1/Clubs/Holds.pm +++ b/Koha/REST/V1/Clubs/Holds.pm @@ -19,7 +19,6 @@ use Modern::Perl; use Mojo::Base 'Mojolicious::Controller'; -use C4::Reserves; use Koha::Items; use Koha::Patrons; diff --git a/Koha/REST/V1/Holds.pm b/Koha/REST/V1/Holds.pm index acd4b78e20e..658381dd9fc 100644 --- a/Koha/REST/V1/Holds.pm +++ b/Koha/REST/V1/Holds.pm @@ -21,7 +21,6 @@ use Mojo::Base 'Mojolicious::Controller'; use Mojo::JSON; -use C4::Reserves; use Koha::Items; use Koha::Patrons; diff --git a/Koha/REST/V1/ImportBatchProfiles.pm b/Koha/REST/V1/ImportBatchProfiles.pm index ddac0eee4fb..11322013060 100644 --- a/Koha/REST/V1/ImportBatchProfiles.pm +++ b/Koha/REST/V1/ImportBatchProfiles.pm @@ -142,4 +142,4 @@ sub delete { }; } -1; \ No newline at end of file +1; diff --git a/Koha/SearchEngine/Elasticsearch/Indexer.pm b/Koha/SearchEngine/Elasticsearch/Indexer.pm index ca0d19a442b..42956ab70c3 100644 --- a/Koha/SearchEngine/Elasticsearch/Indexer.pm +++ b/Koha/SearchEngine/Elasticsearch/Indexer.pm @@ -28,7 +28,6 @@ use Koha::Exceptions::Elasticsearch; use Koha::SearchEngine::Zebra::Indexer; use Koha::BackgroundJob::UpdateElasticIndex; use C4::AuthoritiesMarc qw//; -use C4::Biblio; use C4::Context; =head1 NAME diff --git a/Koha/SearchEngine/Elasticsearch/Search.pm b/Koha/SearchEngine/Elasticsearch/Search.pm index 0a1bc7ccc91..f69616d35d7 100644 --- a/Koha/SearchEngine/Elasticsearch/Search.pm +++ b/Koha/SearchEngine/Elasticsearch/Search.pm @@ -42,7 +42,6 @@ use Modern::Perl; use base qw(Koha::SearchEngine::Elasticsearch); use C4::Context; -use C4::AuthoritiesMarc; use Koha::ItemTypes; use Koha::AuthorisedValues; use Koha::SearchEngine::QueryBuilder; diff --git a/Koha/SearchEngine/Search.pm b/Koha/SearchEngine/Search.pm index 578ae8979c9..43bf17d421a 100644 --- a/Koha/SearchEngine/Search.pm +++ b/Koha/SearchEngine/Search.pm @@ -45,7 +45,6 @@ Creates a new C of whatever the relevant type is. use Modern::Perl; use C4::Context; -use C4::Biblio; use POSIX qw( ceil ); sub new { diff --git a/Koha/SearchEngine/Zebra/QueryBuilder.pm b/Koha/SearchEngine/Zebra/QueryBuilder.pm index b0011d09a92..acf73640c9a 100644 --- a/Koha/SearchEngine/Zebra/QueryBuilder.pm +++ b/Koha/SearchEngine/Zebra/QueryBuilder.pm @@ -40,8 +40,6 @@ use Modern::Perl; use base qw(Class::Accessor); -use C4::Search; -use C4::AuthoritiesMarc; =head2 build_query diff --git a/Koha/SearchEngine/Zebra/Search.pm b/Koha/SearchEngine/Zebra/Search.pm index 1d504d384fd..0325f4f4bd3 100644 --- a/Koha/SearchEngine/Zebra/Search.pm +++ b/Koha/SearchEngine/Zebra/Search.pm @@ -22,7 +22,6 @@ use Modern::Perl; use base qw(Class::Accessor); use C4::Search qw( getRecords ); # :( -use C4::AuthoritiesMarc; use Koha::SearchEngine::Search; =head1 NAME diff --git a/Koha/Template/Plugin/AdditionalContents.pm b/Koha/Template/Plugin/AdditionalContents.pm index c37abece4ea..4d6044f1688 100644 --- a/Koha/Template/Plugin/AdditionalContents.pm +++ b/Koha/Template/Plugin/AdditionalContents.pm @@ -24,8 +24,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use C4::Koha; -use C4::Context; use Koha::AdditionalContents; sub get { diff --git a/Koha/Template/Plugin/Branches.pm b/Koha/Template/Plugin/Branches.pm index 981c5b413da..4e780c1060e 100644 --- a/Koha/Template/Plugin/Branches.pm +++ b/Koha/Template/Plugin/Branches.pm @@ -23,7 +23,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use C4::Koha; use C4::Context; use Koha::Cache::Memory::Lite; use Koha::Libraries; diff --git a/Koha/Template/Plugin/Cache.pm b/Koha/Template/Plugin/Cache.pm index 93bbf0f24df..32df15d4d3a 100644 --- a/Koha/Template/Plugin/Cache.pm +++ b/Koha/Template/Plugin/Cache.pm @@ -21,7 +21,6 @@ use strict; use warnings; use base qw( Template::Plugin ); use Template::Plugin; -use C4::Context; #------------------------------------------------------------------------ # new(\%options) diff --git a/Koha/Template/Plugin/Context.pm b/Koha/Template/Plugin/Context.pm index cccb346963c..49ebaff90b9 100644 --- a/Koha/Template/Plugin/Context.pm +++ b/Koha/Template/Plugin/Context.pm @@ -19,7 +19,6 @@ use Modern::Perl; use base qw( Template::Plugin ); -use C4::Context; =head1 NAME diff --git a/Koha/Template/Plugin/I18N.pm b/Koha/Template/Plugin/I18N.pm index 43e2ef3c079..baae0fa133b 100644 --- a/Koha/Template/Plugin/I18N.pm +++ b/Koha/Template/Plugin/I18N.pm @@ -21,7 +21,6 @@ use Modern::Perl; use base qw( Template::Plugin ); -use C4::Context; use Koha::I18N qw( __ __n __np __npx __nx __p __px __x __xn ); =head1 NAME diff --git a/Koha/Template/Plugin/Languages.pm b/Koha/Template/Plugin/Languages.pm index 65534e50714..707a5d724d6 100644 --- a/Koha/Template/Plugin/Languages.pm +++ b/Koha/Template/Plugin/Languages.pm @@ -21,8 +21,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use C4::Koha; -use C4::Languages; sub GetByISOCode { my ( $self, $lang, $code ) = @_; diff --git a/Koha/Template/Plugin/Registers.pm b/Koha/Template/Plugin/Registers.pm index cb5fab8b61b..0bdf62814cd 100644 --- a/Koha/Template/Plugin/Registers.pm +++ b/Koha/Template/Plugin/Registers.pm @@ -38,7 +38,6 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use C4::Koha; use C4::Context; use Koha::Cash::Registers; diff --git a/Koha/Template/Plugin/TablesSettings.pm b/Koha/Template/Plugin/TablesSettings.pm index 720b67445ac..969e507928e 100644 --- a/Koha/Template/Plugin/TablesSettings.pm +++ b/Koha/Template/Plugin/TablesSettings.pm @@ -56,8 +56,6 @@ use base qw( Template::Plugin ); use JSON qw( to_json ); -use C4::Context; -use C4::Utils::DataTables::TablesSettings; =head1 FUNCTIONS diff --git a/Koha/Uploader.pm b/Koha/Uploader.pm index 8fbb06a14c9..1b76c6e5480 100644 --- a/Koha/Uploader.pm +++ b/Koha/Uploader.pm @@ -75,7 +75,6 @@ use Time::HiRes; use base qw(Class::Accessor); use C4::Context; -use C4::Koha; use Koha::UploadedFile; use Koha::UploadedFiles; diff --git a/Koha/Z3950Responder/Session.pm b/Koha/Z3950Responder/Session.pm index 6f663b5f95c..e83326576e3 100644 --- a/Koha/Z3950Responder/Session.pm +++ b/Koha/Z3950Responder/Session.pm @@ -20,7 +20,6 @@ package Koha::Z3950Responder::Session; use Modern::Perl; use C4::Circulation qw( GetTransfers ); -use C4::Context; use C4::Reserves qw( GetReserveStatus ); use C4::Search qw( new_record_from_zebra ); diff --git a/Koha/pdfformat/layout3pagesfr.pm b/Koha/pdfformat/layout3pagesfr.pm index 21f3f0270d8..bfcbdd72b0d 100644 --- a/Koha/pdfformat/layout3pagesfr.pm +++ b/Koha/pdfformat/layout3pagesfr.pm @@ -27,7 +27,6 @@ use List::MoreUtils qw( uniq ); use Modern::Perl; use utf8; -use C4::Acquisition; use Koha::Number::Price; use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Libraries; diff --git a/acqui/acqui-home.pl b/acqui/acqui-home.pl index 05eb16bf06d..73ac7dcdbc1 100755 --- a/acqui/acqui-home.pl +++ b/acqui/acqui-home.pl @@ -32,7 +32,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget ); -use C4::Members; use Koha::Acquisition::Currencies; use Koha::Patrons; use Koha::Suggestions; diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index dd90a398fb6..05f1f520e33 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -45,7 +45,6 @@ use C4::Items qw( PrepareItemrecordDisplay AddItemFromMarc ); use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode ); use C4::Acquisition qw( populate_order_with_prices ); use C4::Suggestions; # GetSuggestion -use C4::Members; use Koha::Number::Price; use Koha::Libraries; diff --git a/acqui/check_budget_total.pl b/acqui/check_budget_total.pl index 46379fa0053..a1a582761ca 100755 --- a/acqui/check_budget_total.pl +++ b/acqui/check_budget_total.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Budgets qw( GetBudget ); diff --git a/acqui/edimsg.pl b/acqui/edimsg.pl index 05340d44813..bb8fefa0d1c 100755 --- a/acqui/edimsg.pl +++ b/acqui/edimsg.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI; use Koha::Database; -use C4::Koha; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl index c2d51686eb2..d94a9ab492a 100755 --- a/acqui/finishreceive.pl +++ b/acqui/finishreceive.pl @@ -24,13 +24,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); use JSON qw( encode_json ); -use C4::Output; use C4::Context; use C4::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder ); use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml ); use C4::Items qw( GetMarcItem ModItemFromMarc AddItemFromMarc ); use C4::Log qw(logaction); -use C4::Search; use Koha::Number::Price; use Koha::Acquisition::Booksellers; diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl index a8717774351..18b93b4e329 100755 --- a/acqui/lateorders-export.pl +++ b/acqui/lateorders-export.pl @@ -21,8 +21,6 @@ use Encode; use C4::Auth qw( get_template_and_user ); use C4::Acquisition qw( GetOrder ); -use C4::Output; -use C4::Context; my $input = CGI->new; my ($template, $loggedinuser, $cookie) = get_template_and_user({ diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl index 7c443147b15..76e50efe166 100755 --- a/acqui/neworderempty.pl +++ b/acqui/neworderempty.pl @@ -84,7 +84,6 @@ use C4::Biblio qw( IsMarcStructureInternal ); use C4::Output qw( output_and_exit output_html_with_http_headers ); -use C4::Members; use C4::Search qw( FindDuplicate ); #needed for z3950 import: diff --git a/acqui/newordersuggestion.pl b/acqui/newordersuggestion.pl index 0ee10365cbe..9004cd33db8 100755 --- a/acqui/newordersuggestion.pl +++ b/acqui/newordersuggestion.pl @@ -94,7 +94,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Suggestions qw( ConnectSuggestionAndBiblio SearchSuggestion ); -use C4::Budgets; use Koha::Acquisition::Booksellers; diff --git a/acqui/orderreceive.pl b/acqui/orderreceive.pl index e1b76d32732..bb00364999c 100755 --- a/acqui/orderreceive.pl +++ b/acqui/orderreceive.pl @@ -66,7 +66,6 @@ use C4::Acquisition qw( GetInvoice ); 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; use C4::Biblio qw( GetMarcStructure ); use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo ); diff --git a/acqui/supplier.pl b/acqui/supplier.pl index 0e3570780a5..268d521f5bc 100755 --- a/acqui/supplier.pl +++ b/acqui/supplier.pl @@ -46,7 +46,6 @@ use C4::Contract qw( GetContracts GetContract ); use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Budgets; use Koha::Acquisition::Bookseller::Contacts; use Koha::Acquisition::Booksellers; diff --git a/acqui/transferorder.pl b/acqui/transferorder.pl index 1fa15be7b85..2aec37dfa8b 100755 --- a/acqui/transferorder.pl +++ b/acqui/transferorder.pl @@ -139,4 +139,3 @@ $template->param( ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/acqui/updatesupplier.pl b/acqui/updatesupplier.pl index b195c88fb6b..a411fdb8936 100755 --- a/acqui/updatesupplier.pl +++ b/acqui/updatesupplier.pl @@ -47,10 +47,8 @@ contact_serialsprimary. =cut use Modern::Perl; -use C4::Context; use C4::Auth qw( checkauth ); -use C4::Output; use Koha::Acquisition::Bookseller::Contacts; use Koha::Acquisition::Booksellers; diff --git a/acqui/z3950_search.pl b/acqui/z3950_search.pl index d596cbf227c..471db10a131 100755 --- a/acqui/z3950_search.pl +++ b/acqui/z3950_search.pl @@ -24,7 +24,6 @@ use CGI qw/-utf8/; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Context; use C4::Breeding qw( Z3950Search ); use Koha::Acquisition::Booksellers; diff --git a/admin/adveditorshortcuts.pl b/admin/adveditorshortcuts.pl index 0fbe51c1602..919b8f8d65b 100755 --- a/admin/adveditorshortcuts.pl +++ b/admin/adveditorshortcuts.pl @@ -36,7 +36,6 @@ This script allows the user to redefine the keyboard shortcuts for the advacned use Modern::Perl; use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use Koha::KeyboardShortcuts; diff --git a/admin/aqbudgetperiods.pl b/admin/aqbudgetperiods.pl index efd174c1676..c48d16827c6 100755 --- a/admin/aqbudgetperiods.pl +++ b/admin/aqbudgetperiods.pl @@ -50,11 +50,9 @@ use CGI qw ( -utf8 ); use Koha::DateUtils qw( dt_from_string ); use JSON qw( encode_json ); use Koha::Database; -use C4::Koha; use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Acquisition; use C4::Budgets qw( GetBudgetPeriod GetBudgetHierarchy GetBudgetPeriods ModBudgetPeriod AddBudgetPeriod GetBudgets DelBudgetPeriod CloneBudgetPeriod MoveOrders ); use C4::Log qw(logaction); use Koha::Acquisition::Currencies; diff --git a/admin/aqcontract.pl b/admin/aqcontract.pl index 83e99d7d0c6..22c4835ac43 100755 --- a/admin/aqcontract.pl +++ b/admin/aqcontract.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Contract qw( @@ -177,4 +176,3 @@ if ( $op eq 'list' ) { } output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/admin/auth_tag_structure.pl b/admin/auth_tag_structure.pl index 1c952d58a58..9e881651678 100755 --- a/admin/auth_tag_structure.pl +++ b/admin/auth_tag_structure.pl @@ -251,4 +251,3 @@ sub duplicate_auth_framework { $sth_insert->execute($newauthtype, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory,$kohafield, $tab, $authorised_value, $thesaurus_category, $seealso,$hidden); } } - diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl index dd8339b5689..c896ef628b9 100755 --- a/admin/authorised_values.pl +++ b/admin/authorised_values.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); use List::MoreUtils qw( any ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Koha qw( getitemtypeimagelocation ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/authtypes.pl b/admin/authtypes.pl index 3fea873e0d9..9cccbf54351 100755 --- a/admin/authtypes.pl +++ b/admin/authtypes.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/background_jobs.pl b/admin/background_jobs.pl index 8a27c00a274..e119b3b50b4 100755 --- a/admin/background_jobs.pl +++ b/admin/background_jobs.pl @@ -18,7 +18,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/biblio_framework.pl b/admin/biblio_framework.pl index 32f2ac11eb8..d74006618cb 100755 --- a/admin/biblio_framework.pl +++ b/admin/biblio_framework.pl @@ -125,4 +125,3 @@ $template->param( ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/admin/branch_transfer_limits.pl b/admin/branch_transfer_limits.pl index 5a2a688c70a..ca35732d175 100755 --- a/admin/branch_transfer_limits.pl +++ b/admin/branch_transfer_limits.pl @@ -122,4 +122,3 @@ $template->param( ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/admin/branches.pl b/admin/branches.pl index 08a73f6571f..c4359ecca55 100755 --- a/admin/branches.pl +++ b/admin/branches.pl @@ -24,9 +24,7 @@ use CGI qw ( -utf8 ); use Try::Tiny qw( catch try ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Koha; use Koha::Database; use Koha::Patrons; diff --git a/admin/cash_registers.pl b/admin/cash_registers.pl index db55b2aadc7..d7c68e0d5a5 100755 --- a/admin/cash_registers.pl +++ b/admin/cash_registers.pl @@ -25,7 +25,6 @@ use Try::Tiny qw( catch try ); use C4::Auth qw( get_template_and_user ); use Koha::Libraries; -use C4::Koha; use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Cash::Registers; diff --git a/admin/categories.pl b/admin/categories.pl index e41a28904df..507125dba47 100755 --- a/admin/categories.pl +++ b/admin/categories.pl @@ -24,7 +24,6 @@ use CGI qw ( -utf8 ); use C4::Context; 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 qw( dt_from_string output_pref ); diff --git a/admin/check_budget_parent.pl b/admin/check_budget_parent.pl index 2274679f3b0..35cab18c08e 100755 --- a/admin/check_budget_parent.pl +++ b/admin/check_budget_parent.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Budgets qw( CheckBudgetParent GetBudget ); diff --git a/admin/classsources.pl b/admin/classsources.pl index 89b2200c647..ea4ad1950f6 100755 --- a/admin/classsources.pl +++ b/admin/classsources.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::ClassSortRoutine qw( GetSortRoutineNames ); use C4::ClassSplitRoutine qw( GetSplitRoutineNames ); diff --git a/admin/clone-rules.pl b/admin/clone-rules.pl index 9dc78d80940..35ed942df88 100755 --- a/admin/clone-rules.pl +++ b/admin/clone-rules.pl @@ -27,7 +27,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use Koha::CirculationRules; @@ -63,4 +62,3 @@ $template->param(result => 1); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/admin/columns_settings.pl b/admin/columns_settings.pl index 4d040e96a12..ae8c9bb4d8e 100755 --- a/admin/columns_settings.pl +++ b/admin/columns_settings.pl @@ -3,7 +3,6 @@ use Modern::Perl; use CGI; use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Utils::DataTables::TablesSettings qw( get_modules ); my $input = CGI->new; diff --git a/admin/credit_types.pl b/admin/credit_types.pl index 27f6edf2ad6..53a4769b8cc 100755 --- a/admin/credit_types.pl +++ b/admin/credit_types.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny qw( catch try ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/currency.pl b/admin/currency.pl index 28dc2d26735..eaa946aeead 100755 --- a/admin/currency.pl +++ b/admin/currency.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Acquisition::Booksellers; diff --git a/admin/debit_types.pl b/admin/debit_types.pl index 40210479a1f..f6bf1b2d609 100755 --- a/admin/debit_types.pl +++ b/admin/debit_types.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny qw( catch try ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/desks.pl b/admin/desks.pl index bc087a3c9de..ec7047acc9c 100755 --- a/admin/desks.pl +++ b/admin/desks.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/import_export_authtype.pl b/admin/import_export_authtype.pl index e12bcc78872..5229556aac6 100755 --- a/admin/import_export_authtype.pl +++ b/admin/import_export_authtype.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; -use C4::Context; use C4::Auth qw/check_cookie_auth/; use C4::ImportExportFramework qw( ExportFramework ImportFramework createODS ); diff --git a/admin/import_export_framework.pl b/admin/import_export_framework.pl index 9973eb9c081..e6a289fd5bf 100755 --- a/admin/import_export_framework.pl +++ b/admin/import_export_framework.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; -use C4::Context; use C4::Auth qw( check_cookie_auth ); use C4::ImportExportFramework qw( createODS ExportFramework ImportFramework ); diff --git a/admin/item_circulation_alerts.pl b/admin/item_circulation_alerts.pl index 57a3c7d1233..da3ab6efb6e 100755 --- a/admin/item_circulation_alerts.pl +++ b/admin/item_circulation_alerts.pl @@ -23,7 +23,6 @@ use JSON qw( encode_json ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::ItemCirculationAlertPreference; use C4::Output qw( output_html_with_http_headers ); use Koha::ItemTypes; diff --git a/admin/library_groups.pl b/admin/library_groups.pl index 5284a881f48..a736fe1171f 100755 --- a/admin/library_groups.pl +++ b/admin/library_groups.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/marc-overlay-rules.pl b/admin/marc-overlay-rules.pl index 05a5bbe5817..5664818579f 100755 --- a/admin/marc-overlay-rules.pl +++ b/admin/marc-overlay-rules.pl @@ -20,10 +20,8 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Try::Tiny; -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::ImportBatch; use Koha::MarcOverlayRules; use Koha::Patron::Categories; diff --git a/admin/marctagstructure.pl b/admin/marctagstructure.pl index 7ce19f99acd..ec45fe0ae45 100755 --- a/admin/marctagstructure.pl +++ b/admin/marctagstructure.pl @@ -337,4 +337,3 @@ sub duplicate_framework { SELECT ?,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,important,kohafield,tab,authorised_value,authtypecode,value_builder,isurl,seealso,hidden,link,defaultvalue,maxlength from marc_subfield_structure where frameworkcode=? |, undef, $newframeworkcode, $oldframeworkcode ); } - diff --git a/admin/matching-rules.pl b/admin/matching-rules.pl index 3cdbbb7b6f3..3f26247e3fb 100755 --- a/admin/matching-rules.pl +++ b/admin/matching-rules.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Matcher qw/valid_normalization_routines/; diff --git a/admin/overdrive.pl b/admin/overdrive.pl index a961b893373..22ef1a36acd 100755 --- a/admin/overdrive.pl +++ b/admin/overdrive.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Libraries; diff --git a/admin/preferences.pl b/admin/preferences.pl index 45a5891c623..6ca2b404755 100755 --- a/admin/preferences.pl +++ b/admin/preferences.pl @@ -26,7 +26,6 @@ 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 C4::Templates; use Koha::Acquisition::Currencies; use Koha::Database::Columns; use IO::File; diff --git a/admin/searchengine/elasticsearch/mappings.pl b/admin/searchengine/elasticsearch/mappings.pl index e4d5ab10ea2..33772df20a3 100755 --- a/admin/searchengine/elasticsearch/mappings.pl +++ b/admin/searchengine/elasticsearch/mappings.pl @@ -21,7 +21,6 @@ use Scalar::Util qw( looks_like_number ); use List::Util qw( first ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Log; use Koha::SearchEngine::Elasticsearch; use Koha::SearchEngine::Elasticsearch::QueryBuilder; diff --git a/admin/sms_providers.pl b/admin/sms_providers.pl index 1677576d941..6c08d153466 100755 --- a/admin/sms_providers.pl +++ b/admin/sms_providers.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI; -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); diff --git a/admin/systempreferences.pl b/admin/systempreferences.pl index 1eb54552b12..da77e4d3ddb 100755 --- a/admin/systempreferences.pl +++ b/admin/systempreferences.pl @@ -451,4 +451,3 @@ sub get_local_prefs { return @names; } - diff --git a/admin/z3950servers.pl b/admin/z3950servers.pl index d7dd4161c5b..3788842f7ad 100755 --- a/admin/z3950servers.pl +++ b/admin/z3950servers.pl @@ -26,7 +26,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use Koha::Database; diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index 2be064c1c21..fb6f1f9a1f8 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -27,8 +27,6 @@ use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit pagination_bar output_html_with_http_headers ); use C4::AuthoritiesMarc qw( DelAuthority ); -use C4::Search::History; -use C4::Languages; use Koha::Authority::Types; use Koha::SearchEngine::Search; diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index 2e8ea40e9af..8203553df15 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -123,4 +123,3 @@ $template->param( index => $index, ); output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/authorities/detail.pl b/authorities/detail.pl index a95460958b3..2fef05aad1a 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -43,7 +43,6 @@ use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy GetTagsLabels ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Koha; use Koha::Authorities; use Koha::Authority::Types; @@ -236,4 +235,3 @@ $template->param( $template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour"); output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/authorities/export.pl b/authorities/export.pl index 0703da840b6..a8d5b368eb8 100755 --- a/authorities/export.pl +++ b/authorities/export.pl @@ -1,9 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use C4::Record; use C4::Auth qw( get_template_and_user ); -use C4::Output; use C4::AuthoritiesMarc qw( GetAuthority ); use CGI qw ( -utf8 ); diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl index b4e489be5e1..4e0ad6eee91 100755 --- a/authorities/merge_ajax.pl +++ b/authorities/merge_ajax.pl @@ -6,7 +6,6 @@ use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before CGI parses the POST request use JSON qw( encode_json ); -use C4::Context; use C4::Auth qw( check_cookie_auth ); use C4::AuthoritiesMarc qw( GetTagsLabels ); diff --git a/authorities/ysearch.pl b/authorities/ysearch.pl index 3a58fe97581..682128a087c 100755 --- a/authorities/ysearch.pl +++ b/authorities/ysearch.pl @@ -31,7 +31,6 @@ use CGI qw ( -utf8 ); use Modern::Perl; use JSON qw( to_json ); -use C4::Context; use C4::Charset qw( nsb_clean ); use C4::Auth qw( check_cookie_auth ); use C4::Output qw( output_with_http_headers ); diff --git a/basket/basket.pl b/basket/basket.pl index fdcc2c85597..799aa238211 100755 --- a/basket/basket.pl +++ b/basket/basket.pl @@ -18,7 +18,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Koha; use C4::Biblio qw( GetMarcBiblio GetMarcSeries diff --git a/basket/downloadcart.pl b/basket/downloadcart.pl index f612099c6af..49a2719438e 100755 --- a/basket/downloadcart.pl +++ b/basket/downloadcart.pl @@ -25,7 +25,6 @@ use Encode qw( encode ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio ); use C4::Output qw( output_html_with_http_headers ); -use C4::Record; use C4::Ris qw( marc2ris ); use Koha::CsvProfiles; diff --git a/basket/sendbasket.pl b/basket/sendbasket.pl index 3c536050692..3e1c729e974 100755 --- a/basket/sendbasket.pl +++ b/basket/sendbasket.pl @@ -29,7 +29,6 @@ use C4::Biblio qw( use C4::Items qw( GetItemsInfo ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit output_html_with_http_headers ); -use C4::Templates; use Koha::Email; use Koha::Token; diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl index d991d3e799a..bdec928ec25 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -184,4 +184,3 @@ my $holds = $biblio->holds; $template->param( holdcount => $holds->count ); output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 4ff6a03c548..e2ba28a182e 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -50,7 +50,6 @@ use HTML::Entities; use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Koha; use C4::Biblio qw( GetAuthorisedValueDesc GetBiblioData diff --git a/catalogue/detail.pl b/catalogue/detail.pl index e4d84aa0eac..03a2a9ba042 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -35,7 +35,6 @@ use C4::Output qw( output_html_with_http_headers ); use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo ); use C4::Circulation qw( GetTransfers ); -use C4::Reserves; use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); use C4::XISBN qw( get_xisbns ); use C4::External::Amazon qw( get_amazon_tld ); diff --git a/catalogue/export.pl b/catalogue/export.pl index 3785116581c..b894ef318ce 100755 --- a/catalogue/export.pl +++ b/catalogue/export.pl @@ -1,9 +1,7 @@ #!/usr/bin/perl use Modern::Perl; -use C4::Record; use C4::Auth qw( get_template_and_user ); -use C4::Output; use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber ); use CGI qw ( -utf8 ); use C4::Ris qw( marc2ris ); diff --git a/catalogue/item-export.pl b/catalogue/item-export.pl index 52f6b84a4c6..bce6ff47713 100755 --- a/catalogue/item-export.pl +++ b/catalogue/item-export.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI; use C4::Auth qw( get_template_and_user ); -use C4::Output; my $cgi = CGI->new; diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index cff2460a278..628e4c08f5b 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -312,4 +312,3 @@ my $holds = $biblio->holds; $template->param( holdcount => $holds->count ); output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/catalogue/search-history.pl b/catalogue/search-history.pl index 42bef7cfd46..230bdb103c7 100755 --- a/catalogue/search-history.pl +++ b/catalogue/search-history.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Search::History; use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl index 8292bfe746c..7f1db1e4e6b 100755 --- a/catalogue/showmarc.pl +++ b/catalogue/showmarc.pl @@ -32,7 +32,6 @@ use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio GetXmlBiblio ); use C4::ImportBatch qw( GetRecordFromImportBiblio ); -use C4::XSLT; my $input= CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl index 6d9022ff871..7a80b5c052b 100755 --- a/catalogue/updateitem.pl +++ b/catalogue/updateitem.pl @@ -21,9 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); use C4::Context; -use C4::Output; use C4::Circulation qw( LostItem ); -use C4::Reserves; my $cgi= CGI->new; diff --git a/cataloguing/addbooks.pl b/cataloguing/addbooks.pl index 2206c5e143b..df7b662fb01 100755 --- a/cataloguing/addbooks.pl +++ b/cataloguing/addbooks.pl @@ -31,7 +31,6 @@ use C4::Auth qw( get_template_and_user ); use C4::Breeding qw( BreedingSearch ); use C4::Output qw( output_html_with_http_headers pagination_bar ); use C4::Koha qw( getnbpages ); -use C4::Languages; use C4::Search qw( searchResults z3950_search_args ); use Koha::BiblioFrameworks; @@ -136,4 +135,3 @@ $template->param( ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/cataloguing/additem.pl b/cataloguing/additem.pl index d1db1d15f92..bcf9a32b020 100755 --- a/cataloguing/additem.pl +++ b/cataloguing/additem.pl @@ -35,7 +35,6 @@ use C4::Biblio qw( use C4::Context; use C4::Circulation qw( barcodedecode LostItem ); use C4::Barcodes; -use C4::Barcodes::ValueBuilder; use Koha::DateUtils qw( dt_from_string ); use Koha::Items; use Koha::ItemTypes; @@ -45,7 +44,6 @@ use Koha::SearchEngine::Indexer; use C4::Search qw( enabled_staff_search_views ); use Storable qw( freeze thaw ); use URI::Escape qw( uri_escape_utf8 ); -use C4::Members; use Koha::UI::Form::Builder::Item; use MARC::File::XML; diff --git a/cataloguing/merge_ajax.pl b/cataloguing/merge_ajax.pl index ca4543690e3..5230295e382 100755 --- a/cataloguing/merge_ajax.pl +++ b/cataloguing/merge_ajax.pl @@ -6,7 +6,6 @@ use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before CGI parses the POST request use JSON qw( encode_json ); -use C4::Context; use C4::Biblio qw( GetMarcStructure ); use C4::Auth qw( check_cookie_auth ); diff --git a/cataloguing/value_builder/barcode.pl b/cataloguing/value_builder/barcode.pl index 8fcd45beae8..3d1c4897420 100755 --- a/cataloguing/value_builder/barcode.pl +++ b/cataloguing/value_builder/barcode.pl @@ -23,7 +23,6 @@ use Modern::Perl; use C4::Context; -use C4::Barcodes::ValueBuilder; use C4::Biblio qw( GetMarcFromKohaField ); use Koha::DateUtils qw( dt_from_string output_pref ); diff --git a/cataloguing/value_builder/barcode_manual.pl b/cataloguing/value_builder/barcode_manual.pl index d2b7f7a4149..ffb45ae251f 100755 --- a/cataloguing/value_builder/barcode_manual.pl +++ b/cataloguing/value_builder/barcode_manual.pl @@ -23,7 +23,6 @@ use Modern::Perl; use C4::Context; -use C4::Barcodes::ValueBuilder; use C4::Biblio qw( GetMarcFromKohaField ); use Koha::DateUtils qw( dt_from_string output_pref ); diff --git a/cataloguing/value_builder/marc21_field_006.pl b/cataloguing/value_builder/marc21_field_006.pl index b4f28521f96..dc7cccc4517 100755 --- a/cataloguing/value_builder/marc21_field_006.pl +++ b/cataloguing/value_builder/marc21_field_006.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); use XML::LibXML; diff --git a/cataloguing/value_builder/marc21_field_007.pl b/cataloguing/value_builder/marc21_field_007.pl index 093653d1bfb..8b64a3b6756 100755 --- a/cataloguing/value_builder/marc21_field_007.pl +++ b/cataloguing/value_builder/marc21_field_007.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); my $builder = sub { diff --git a/cataloguing/value_builder/marc21_field_008.pl b/cataloguing/value_builder/marc21_field_008.pl index 08b1540f69e..fe04c975b82 100755 --- a/cataloguing/value_builder/marc21_field_008.pl +++ b/cataloguing/value_builder/marc21_field_008.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); use XML::LibXML; diff --git a/cataloguing/value_builder/marc21_field_008_authorities.pl b/cataloguing/value_builder/marc21_field_008_authorities.pl index e7a7f168d88..952cbcbba31 100755 --- a/cataloguing/value_builder/marc21_field_008_authorities.pl +++ b/cataloguing/value_builder/marc21_field_008_authorities.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); use Koha::Util::FrameworkPlugin qw|date_entered|; diff --git a/cataloguing/value_builder/marc21_field_008_classifications.pl b/cataloguing/value_builder/marc21_field_008_classifications.pl index c5979f8f7e4..9291ea17582 100755 --- a/cataloguing/value_builder/marc21_field_008_classifications.pl +++ b/cataloguing/value_builder/marc21_field_008_classifications.pl @@ -18,9 +18,7 @@ use Modern::Perl; use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); -use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); use Koha::Util::FrameworkPlugin qw|date_entered|; diff --git a/cataloguing/value_builder/marc21_field_245h.pl b/cataloguing/value_builder/marc21_field_245h.pl index 667ae2249ac..c4bcc1d7e37 100755 --- a/cataloguing/value_builder/marc21_field_245h.pl +++ b/cataloguing/value_builder/marc21_field_245h.pl @@ -20,7 +20,6 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Context; my $builder = sub { my ( $params ) = @_; diff --git a/cataloguing/value_builder/marc21_field_260b.pl b/cataloguing/value_builder/marc21_field_260b.pl index 406feb41221..3bb957abbba 100755 --- a/cataloguing/value_builder/marc21_field_260b.pl +++ b/cataloguing/value_builder/marc21_field_260b.pl @@ -25,7 +25,6 @@ biblioitems.publishercode =cut use Modern::Perl; -use C4::Context; my $builder = sub { my ( $params ) = @_; diff --git a/cataloguing/value_builder/marc21_leader_authorities.pl b/cataloguing/value_builder/marc21_leader_authorities.pl index 04a55ea28bf..b49926d48ea 100755 --- a/cataloguing/value_builder/marc21_leader_authorities.pl +++ b/cataloguing/value_builder/marc21_leader_authorities.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); my $builder = sub { diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl index f0ff7f2dd8b..6c27f5dedf0 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -26,7 +26,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_106.pl b/cataloguing/value_builder/unimarc_field_106.pl index 7b91dd4410b..cc9478c4c8d 100755 --- a/cataloguing/value_builder/unimarc_field_106.pl +++ b/cataloguing/value_builder/unimarc_field_106.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl index b3e88e2c207..03eafcb7279 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -26,7 +26,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_115a.pl b/cataloguing/value_builder/unimarc_field_115a.pl index fc0223a3e65..0dea3c3c1d0 100755 --- a/cataloguing/value_builder/unimarc_field_115a.pl +++ b/cataloguing/value_builder/unimarc_field_115a.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_115b.pl b/cataloguing/value_builder/unimarc_field_115b.pl index 901e73eb3e0..e4e49dd3abb 100755 --- a/cataloguing/value_builder/unimarc_field_115b.pl +++ b/cataloguing/value_builder/unimarc_field_115b.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_116.pl b/cataloguing/value_builder/unimarc_field_116.pl index 8781a5da2f4..fd0ea2183d3 100755 --- a/cataloguing/value_builder/unimarc_field_116.pl +++ b/cataloguing/value_builder/unimarc_field_116.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_117.pl b/cataloguing/value_builder/unimarc_field_117.pl index 92868261458..4849d769ffb 100755 --- a/cataloguing/value_builder/unimarc_field_117.pl +++ b/cataloguing/value_builder/unimarc_field_117.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index 4c4d06139d2..5a836169f24 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -26,7 +26,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_121a.pl b/cataloguing/value_builder/unimarc_field_121a.pl index e1967e38ca6..dfe700b6bb8 100755 --- a/cataloguing/value_builder/unimarc_field_121a.pl +++ b/cataloguing/value_builder/unimarc_field_121a.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_121b.pl b/cataloguing/value_builder/unimarc_field_121b.pl index bcdc22aac0a..9d056de9799 100755 --- a/cataloguing/value_builder/unimarc_field_121b.pl +++ b/cataloguing/value_builder/unimarc_field_121b.pl @@ -23,7 +23,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_122.pl b/cataloguing/value_builder/unimarc_field_122.pl index ecedc74cc23..235b14756e5 100755 --- a/cataloguing/value_builder/unimarc_field_122.pl +++ b/cataloguing/value_builder/unimarc_field_122.pl @@ -23,7 +23,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123a.pl b/cataloguing/value_builder/unimarc_field_123a.pl index 3d3fa4f56f8..88c536c21ea 100755 --- a/cataloguing/value_builder/unimarc_field_123a.pl +++ b/cataloguing/value_builder/unimarc_field_123a.pl @@ -23,7 +23,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123d.pl b/cataloguing/value_builder/unimarc_field_123d.pl index 50865fb2eba..6ca8a9840b6 100755 --- a/cataloguing/value_builder/unimarc_field_123d.pl +++ b/cataloguing/value_builder/unimarc_field_123d.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123e.pl b/cataloguing/value_builder/unimarc_field_123e.pl index 50865fb2eba..6ca8a9840b6 100755 --- a/cataloguing/value_builder/unimarc_field_123e.pl +++ b/cataloguing/value_builder/unimarc_field_123e.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123f.pl b/cataloguing/value_builder/unimarc_field_123f.pl index 4fb190e52a8..d097b4a88bf 100755 --- a/cataloguing/value_builder/unimarc_field_123f.pl +++ b/cataloguing/value_builder/unimarc_field_123f.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123g.pl b/cataloguing/value_builder/unimarc_field_123g.pl index 50865fb2eba..6ca8a9840b6 100755 --- a/cataloguing/value_builder/unimarc_field_123g.pl +++ b/cataloguing/value_builder/unimarc_field_123g.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123i.pl b/cataloguing/value_builder/unimarc_field_123i.pl index a62c23ab37b..7fabb7ca394 100755 --- a/cataloguing/value_builder/unimarc_field_123i.pl +++ b/cataloguing/value_builder/unimarc_field_123i.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_123j.pl b/cataloguing/value_builder/unimarc_field_123j.pl index aa2a3c31e07..02e74295ac2 100755 --- a/cataloguing/value_builder/unimarc_field_123j.pl +++ b/cataloguing/value_builder/unimarc_field_123j.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124.pl b/cataloguing/value_builder/unimarc_field_124.pl index 82ab72d4f41..5b0a1e5a914 100755 --- a/cataloguing/value_builder/unimarc_field_124.pl +++ b/cataloguing/value_builder/unimarc_field_124.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124a.pl b/cataloguing/value_builder/unimarc_field_124a.pl index ef2e7dccb70..0b4921ecf83 100755 --- a/cataloguing/value_builder/unimarc_field_124a.pl +++ b/cataloguing/value_builder/unimarc_field_124a.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124b.pl b/cataloguing/value_builder/unimarc_field_124b.pl index 9008ea673c5..a0c2d0e0717 100755 --- a/cataloguing/value_builder/unimarc_field_124b.pl +++ b/cataloguing/value_builder/unimarc_field_124b.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124c.pl b/cataloguing/value_builder/unimarc_field_124c.pl index 3433ea9a93c..c5d1236ee3e 100755 --- a/cataloguing/value_builder/unimarc_field_124c.pl +++ b/cataloguing/value_builder/unimarc_field_124c.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124d.pl b/cataloguing/value_builder/unimarc_field_124d.pl index e65d93eaa2c..59d019bf792 100755 --- a/cataloguing/value_builder/unimarc_field_124d.pl +++ b/cataloguing/value_builder/unimarc_field_124d.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124e.pl b/cataloguing/value_builder/unimarc_field_124e.pl index 11d1aabfa34..23d28119205 100755 --- a/cataloguing/value_builder/unimarc_field_124e.pl +++ b/cataloguing/value_builder/unimarc_field_124e.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124f.pl b/cataloguing/value_builder/unimarc_field_124f.pl index 96df17be7a7..20c15d04603 100755 --- a/cataloguing/value_builder/unimarc_field_124f.pl +++ b/cataloguing/value_builder/unimarc_field_124f.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_124g.pl b/cataloguing/value_builder/unimarc_field_124g.pl index 4dfe3a7d9f9..c6df2c60333 100755 --- a/cataloguing/value_builder/unimarc_field_124g.pl +++ b/cataloguing/value_builder/unimarc_field_124g.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_125.pl b/cataloguing/value_builder/unimarc_field_125.pl index fa312008618..47b48393d7f 100755 --- a/cataloguing/value_builder/unimarc_field_125.pl +++ b/cataloguing/value_builder/unimarc_field_125.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); =head1 DESCRIPTION diff --git a/cataloguing/value_builder/unimarc_field_125a.pl b/cataloguing/value_builder/unimarc_field_125a.pl index c4585d7e24e..a20c2e22f79 100755 --- a/cataloguing/value_builder/unimarc_field_125a.pl +++ b/cataloguing/value_builder/unimarc_field_125a.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_125b.pl b/cataloguing/value_builder/unimarc_field_125b.pl index 2429d3e48bd..678a4cc422f 100755 --- a/cataloguing/value_builder/unimarc_field_125b.pl +++ b/cataloguing/value_builder/unimarc_field_125b.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_126.pl b/cataloguing/value_builder/unimarc_field_126.pl index 82ab72d4f41..5b0a1e5a914 100755 --- a/cataloguing/value_builder/unimarc_field_126.pl +++ b/cataloguing/value_builder/unimarc_field_126.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_126a.pl b/cataloguing/value_builder/unimarc_field_126a.pl index d1cfd84c4c9..505ad3079b4 100755 --- a/cataloguing/value_builder/unimarc_field_126a.pl +++ b/cataloguing/value_builder/unimarc_field_126a.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_126b.pl b/cataloguing/value_builder/unimarc_field_126b.pl index 79778cfe44d..7b395b3c3bc 100755 --- a/cataloguing/value_builder/unimarc_field_126b.pl +++ b/cataloguing/value_builder/unimarc_field_126b.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_127.pl b/cataloguing/value_builder/unimarc_field_127.pl index 85adba0dad0..e1f65b25c0e 100755 --- a/cataloguing/value_builder/unimarc_field_127.pl +++ b/cataloguing/value_builder/unimarc_field_127.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_128a.pl b/cataloguing/value_builder/unimarc_field_128a.pl index 9f235e1e5d4..ac83096eb95 100755 --- a/cataloguing/value_builder/unimarc_field_128a.pl +++ b/cataloguing/value_builder/unimarc_field_128a.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_128b.pl b/cataloguing/value_builder/unimarc_field_128b.pl index 7d2e215fb8e..1c5f07217ad 100755 --- a/cataloguing/value_builder/unimarc_field_128b.pl +++ b/cataloguing/value_builder/unimarc_field_128b.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_128c.pl b/cataloguing/value_builder/unimarc_field_128c.pl index a0ff9ddd4e4..11d173d976e 100755 --- a/cataloguing/value_builder/unimarc_field_128c.pl +++ b/cataloguing/value_builder/unimarc_field_128c.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl index 411eb80a8ea..04e05570370 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.pl @@ -26,7 +26,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_135a.pl b/cataloguing/value_builder/unimarc_field_135a.pl index db5bf3c8b07..8ac0920b1db 100755 --- a/cataloguing/value_builder/unimarc_field_135a.pl +++ b/cataloguing/value_builder/unimarc_field_135a.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl index a5b303158bb..c6b270bde99 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.pl @@ -26,7 +26,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_141.pl b/cataloguing/value_builder/unimarc_field_141.pl index a7a28ea3060..db4ad100731 100755 --- a/cataloguing/value_builder/unimarc_field_141.pl +++ b/cataloguing/value_builder/unimarc_field_141.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_210c.pl b/cataloguing/value_builder/unimarc_field_210c.pl index c9e1ebbcf80..0aefaaa095a 100755 --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ b/cataloguing/value_builder/unimarc_field_210c.pl @@ -24,7 +24,6 @@ use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Output qw( pagination_bar output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Search; use C4::Koha qw( getnbpages ); use C4::AuthoritiesMarc qw( GetAuthority SearchAuthorities ); diff --git a/cataloguing/value_builder/unimarc_field_225a_bis.pl b/cataloguing/value_builder/unimarc_field_225a_bis.pl index 1ca62775a99..9ecf01d2f41 100755 --- a/cataloguing/value_builder/unimarc_field_225a_bis.pl +++ b/cataloguing/value_builder/unimarc_field_225a_bis.pl @@ -26,7 +26,6 @@ use Modern::Perl; use C4::Auth qw( get_template_and_user ); use CGI qw( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); diff --git a/cataloguing/value_builder/unimarc_field_686a.pl b/cataloguing/value_builder/unimarc_field_686a.pl index d766b038c63..b35373a87c1 100755 --- a/cataloguing/value_builder/unimarc_field_686a.pl +++ b/cataloguing/value_builder/unimarc_field_686a.pl @@ -23,7 +23,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_field_700-4.pl b/cataloguing/value_builder/unimarc_field_700-4.pl index 0d083e9d399..d90311e8ab1 100755 --- a/cataloguing/value_builder/unimarc_field_700-4.pl +++ b/cataloguing/value_builder/unimarc_field_700-4.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_leader.pl b/cataloguing/value_builder/unimarc_leader.pl index 838f5a88f09..1296ce57c5c 100755 --- a/cataloguing/value_builder/unimarc_leader.pl +++ b/cataloguing/value_builder/unimarc_leader.pl @@ -25,7 +25,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); sub plugin_javascript { diff --git a/cataloguing/value_builder/unimarc_leader_authorities.pl b/cataloguing/value_builder/unimarc_leader_authorities.pl index 365a44ddbb6..555c309ff0f 100755 --- a/cataloguing/value_builder/unimarc_leader_authorities.pl +++ b/cataloguing/value_builder/unimarc_leader_authorities.pl @@ -22,7 +22,6 @@ use Modern::Perl; use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl index 8acc92c25d0..1eaa2031dee 100755 --- a/cataloguing/z3950_search.pl +++ b/cataloguing/z3950_search.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Context; use C4::Breeding qw( Z3950Search ); my $input = CGI->new; diff --git a/changelanguage.pl b/changelanguage.pl index 48d8c4657f0..fb83f498753 100755 --- a/changelanguage.pl +++ b/changelanguage.pl @@ -17,7 +17,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Templates; use Koha::Util::Navigation; my $query = CGI->new; diff --git a/circ/add_message.pl b/circ/add_message.pl index ee90af35227..65605a86cb2 100755 --- a/circ/add_message.pl +++ b/circ/add_message.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Output; use Koha::Patron::Message; my $input = CGI->new; diff --git a/circ/article-request-slip.pl b/circ/article-request-slip.pl index f31eac72d06..aec7adbe930 100755 --- a/circ/article-request-slip.pl +++ b/circ/article-request-slip.pl @@ -21,10 +21,8 @@ use Modern::Perl; use CGI qw( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Letters; use Koha::ArticleRequests; use Koha::Patrons; diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index cb10b5b0f16..c15bcfea795 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -26,7 +26,6 @@ use C4::Circulation qw( transferbook barcodedecode ); use C4::Output qw( output_html_with_http_headers ); use C4::Reserves qw( ModReserve ModReserveAffect ); use C4::Auth qw( get_session get_template_and_user ); -use C4::Members; use Koha::BiblioFrameworks; use Koha::AuthorisedValues; use Koha::Holds; @@ -246,4 +245,3 @@ $template->param( $template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' ); output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/circ/checkout-notes.pl b/circ/checkout-notes.pl index 9f5e1c7bdfd..70a89e983ad 100755 --- a/circ/checkout-notes.pl +++ b/circ/checkout-notes.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use Koha::Checkouts; diff --git a/circ/circulation.pl b/circ/circulation.pl index 614547b65a3..8c65aef23ba 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -32,12 +32,9 @@ use DateTime::Duration; use Scalar::Util qw( looks_like_number ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use C4::Auth qw( get_session get_template_and_user ); -use C4::Koha; use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue ); -use C4::Members; use C4::Biblio qw( TransformMarcToKoha ); use C4::Search qw( new_record_from_zebra ); -use C4::Reserves; use Koha::Holds; use C4::Context; use CGI::Session; diff --git a/circ/del_message.pl b/circ/del_message.pl index 3e7c7756662..7179096e99e 100755 --- a/circ/del_message.pl +++ b/circ/del_message.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Output; use Koha::Patron::Messages; my $input = CGI->new; diff --git a/circ/hold-transfer-slip.pl b/circ/hold-transfer-slip.pl index 61aef56c4cd..032e803742b 100755 --- a/circ/hold-transfer-slip.pl +++ b/circ/hold-transfer-slip.pl @@ -54,4 +54,3 @@ $template->param( caller => 'hold-transfer' ); $template->param( plain => !$is_html ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/circ/pendingreserves.pl b/circ/pendingreserves.pl index 1f853554b5c..7cf549294f0 100755 --- a/circ/pendingreserves.pl +++ b/circ/pendingreserves.pl @@ -28,7 +28,6 @@ use C4::Context; use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Items; use C4::Reserves qw( ModReserveCancelAll ); use Koha::Biblios; use Koha::DateUtils qw( dt_from_string ); diff --git a/circ/returns.pl b/circ/returns.pl index 340efb47795..8d2ed8b74c8 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -38,11 +38,8 @@ use C4::Auth qw( get_template_and_user get_session haspermission ); use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem ); use C4::Context; use C4::Items qw( ModItemTransfer ); -use C4::Members::Messaging; -use C4::Members; use C4::Output qw( output_html_with_http_headers ); use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves ); -use C4::RotatingCollections; use Koha::AuthorisedValues; use Koha::BiblioFrameworks; use Koha::Calendar; diff --git a/circ/transferstoreceive.pl b/circ/transferstoreceive.pl index 939891211dd..d15ad063e1a 100755 --- a/circ/transferstoreceive.pl +++ b/circ/transferstoreceive.pl @@ -24,10 +24,8 @@ use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Circulation qw( GetTransfers GetTransfersFromTo ); -use C4::Members; use Date::Calc qw( Add_Delta_Days Date_to_Days Today ); -use C4::Reserves; use Koha::Items; use Koha::ItemTypes; use Koha::Libraries; @@ -138,4 +136,3 @@ $template->param( $template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/course_reserves/mod_course.pl b/course_reserves/mod_course.pl index 3abcb9731fa..c83e6f07620 100755 --- a/course_reserves/mod_course.pl +++ b/course_reserves/mod_course.pl @@ -21,8 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; -use C4::Reserves; use C4::Auth qw( get_template_and_user ); use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors ); diff --git a/docs/CAS/CASProxy/examples/koha_webservice.pl b/docs/CAS/CASProxy/examples/koha_webservice.pl index da7fc8b10de..46eda2d0042 100755 --- a/docs/CAS/CASProxy/examples/koha_webservice.pl +++ b/docs/CAS/CASProxy/examples/koha_webservice.pl @@ -40,8 +40,6 @@ use Modern::Perl; binmode(STDOUT, ":encoding(UTF-8)"); use C4::Auth qw(check_api_auth); -use C4::Output; -use C4::Context; use CGI qw ( -utf8 ); my $cgi = CGI->new; @@ -58,4 +56,3 @@ if ($status ne 'ok') { print "Hello World!"; } exit 0; - diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl index c69d197f80e..d6e35a7ef20 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas.pl @@ -85,6 +85,3 @@ if ($cgi->param('ticket')) { } print $cgi->end_html; - - - diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl index 75df85ffd65..1fc84b1068e 100755 --- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl +++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl @@ -58,4 +58,3 @@ if ($cgi->param('pgtId')) { } print $cgi->end_html; - diff --git a/help.pl b/help.pl index 92162539554..694c3f199a8 100755 --- a/help.pl +++ b/help.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use Koha::Manual; my $query = CGI->new; diff --git a/installer/data/mysql/backfill_statistics.pl b/installer/data/mysql/backfill_statistics.pl index 8c573cbc548..80b1d5f15e5 100755 --- a/installer/data/mysql/backfill_statistics.pl +++ b/installer/data/mysql/backfill_statistics.pl @@ -103,4 +103,3 @@ foreach (@$nullborrs) { print "\nOperations complete.\n"; (scalar @ARGV) or show_counts; - diff --git a/installer/data/mysql/db_revs/211200022.pl b/installer/data/mysql/db_revs/211200022.pl index 68a49c6346c..03efd00b883 100755 --- a/installer/data/mysql/db_revs/211200022.pl +++ b/installer/data/mysql/db_revs/211200022.pl @@ -13,4 +13,3 @@ return { }); }, }; - diff --git a/installer/install.pl b/installer/install.pl index 063832569c8..26eba4ad2cd 100755 --- a/installer/install.pl +++ b/installer/install.pl @@ -26,7 +26,6 @@ use POSIX; use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Templates; use C4::Languages qw( getAllLanguages getTranslatedLanguages ); use C4::Installer; use C4::Installer::PerlModules; diff --git a/labels/barcode-print.pl b/labels/barcode-print.pl index 27075215754..8cc795c8772 100755 --- a/labels/barcode-print.pl +++ b/labels/barcode-print.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Context; my $query = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl index 8c06a41a0b5..e6ccc525a36 100755 --- a/labels/label-create-csv.pl +++ b/labels/label-create-csv.pl @@ -23,7 +23,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Text::CSV_XS; -use C4::Labels; my $cgi = CGI->new; diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl index f1cd47183c1..95be8f291ca 100755 --- a/labels/label-create-pdf.pl +++ b/labels/label-create-pdf.pl @@ -22,8 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Creators; -use C4::Labels; my $cgi = CGI->new; diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl index 3962cfb5022..798b81a360e 100755 --- a/labels/label-create-xml.pl +++ b/labels/label-create-xml.pl @@ -23,7 +23,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use XML::Simple; -use C4::Labels; my $cgi = CGI->new; diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl index ac2da6392f7..a3051db052a 100755 --- a/labels/label-edit-batch.pl +++ b/labels/label-edit-batch.pl @@ -25,7 +25,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Creators qw( get_label_summary html_table ); -use C4::Labels; use Koha::Items; diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl index f1fc6878a18..329ad4a1ba3 100755 --- a/labels/label-edit-layout.pl +++ b/labels/label-edit-layout.pl @@ -31,7 +31,6 @@ use C4::Creators qw( get_label_types get_text_justification_types ); -use C4::Labels; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl index 257bf4382d9..51d10488829 100755 --- a/labels/label-edit-profile.pl +++ b/labels/label-edit-profile.pl @@ -25,7 +25,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Creators qw( get_all_templates get_unit_values ); -use C4::Labels; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl index 9e6a019d092..0fa2a49f0d3 100755 --- a/labels/label-edit-template.pl +++ b/labels/label-edit-template.pl @@ -25,7 +25,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Creators qw( get_all_profiles get_unit_values ); -use C4::Labels; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/labels/label-manage.pl b/labels/label-manage.pl index 01a7d5babe9..5589ba22ec2 100755 --- a/labels/label-manage.pl +++ b/labels/label-manage.pl @@ -31,7 +31,6 @@ use C4::Creators qw( get_batch_summary html_table ); -use C4::Labels; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/labels/label-print.pl b/labels/label-print.pl index f3dd120f18c..99a404d5369 100755 --- a/labels/label-print.pl +++ b/labels/label-print.pl @@ -29,7 +29,6 @@ use C4::Creators::Lib qw( get_all_templates get_output_formats ); -use C4::Labels::Batch; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl index 3e9f016146a..7472443b63c 100755 --- a/labels/spinelabel-home.pl +++ b/labels/spinelabel-home.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Context; my $query = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/mainpage.pl b/mainpage.pl index 6972d398711..f22b8ed932e 100755 --- a/mainpage.pl +++ b/mainpage.pl @@ -23,7 +23,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Koha; use C4::Tags qw( get_count_by_tag_status ); use Koha::AdditionalContents; use Koha::Patron::Modifications; diff --git a/members/accountline-details.pl b/members/accountline-details.pl index b798ef96477..b7f440cc1dc 100755 --- a/members/accountline-details.pl +++ b/members/accountline-details.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Context; use Koha::Patrons; use Koha::Account::Lines; diff --git a/members/boraccount.pl b/members/boraccount.pl index 83fa43bf653..b799d06a177 100755 --- a/members/boraccount.pl +++ b/members/boraccount.pl @@ -28,8 +28,6 @@ use URI::Escape qw( uri_unescape ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Members; -use C4::Accounts; use Koha::Cash::Registers; use Koha::Patrons; use Koha::Patron::Categories; diff --git a/members/default_messageprefs.pl b/members/default_messageprefs.pl index e0b4343b066..06609cf8cc2 100755 --- a/members/default_messageprefs.pl +++ b/members/default_messageprefs.pl @@ -20,7 +20,6 @@ use Modern::Perl; use C4::Service; -use C4::Form::MessagingPreferences; # Simple JSON service to get the default messaging preferences # for a patron category - used by the patron editing form to @@ -31,4 +30,3 @@ my ($query, $response) = C4::Service->init(borrowers => 'edit_borrowers'); my ($categorycode) = C4::Service->require_params('categorycode'); C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode }, $response); C4::Service->return_success( $response ); - diff --git a/members/deletemem.pl b/members/deletemem.pl index 5faf87dc472..f916db3684c 100755 --- a/members/deletemem.pl +++ b/members/deletemem.pl @@ -30,7 +30,6 @@ use Try::Tiny qw( catch try ); use C4::Context; use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Suggestions; use Koha::Patrons; use Koha::Token; use Koha::Patron::Categories; diff --git a/members/discharge.pl b/members/discharge.pl index e0f4b2d8cc2..b8750d07ce0 100755 --- a/members/discharge.pl +++ b/members/discharge.pl @@ -33,9 +33,6 @@ use Carp qw( carp ); use CGI qw( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Members; -use C4::Reserves; -use C4::Letters; use Koha::Patron::Discharge; use Koha::Patrons; diff --git a/members/files.pl b/members/files.pl index 2abfbc71dee..e469c29c8bb 100755 --- a/members/files.pl +++ b/members/files.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Members; use Koha::Patrons; use Koha::Patron::Files; diff --git a/members/housebound.pl b/members/housebound.pl index c86fad8b33c..b2b824855e4 100755 --- a/members/housebound.pl +++ b/members/housebound.pl @@ -27,7 +27,6 @@ use Modern::Perl; use CGI; use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use DateTime; use Koha::DateUtils qw( dt_from_string ); diff --git a/members/mancredit.pl b/members/mancredit.pl index 7ec9b957b21..d6dcd7999af 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -27,8 +27,6 @@ use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Members; -use C4::Accounts; use Koha::Items; use Koha::Patrons; diff --git a/members/maninvoice.pl b/members/maninvoice.pl index d194bdd299a..1b544cf4b6a 100755 --- a/members/maninvoice.pl +++ b/members/maninvoice.pl @@ -29,8 +29,6 @@ use URI::Escape qw( uri_escape_utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Members; -use C4::Accounts; use Koha::Token; use Koha::Patrons; diff --git a/members/member-password.pl b/members/member-password.pl index d44f29d0f77..929e3e6adc0 100755 --- a/members/member-password.pl +++ b/members/member-password.pl @@ -8,7 +8,6 @@ use Modern::Perl; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Context; use CGI qw ( -utf8 ); use Koha::Token; diff --git a/members/memberentry.pl b/members/memberentry.pl index 0f369ebc219..be23a377eff 100755 --- a/members/memberentry.pl +++ b/members/memberentry.pl @@ -31,7 +31,6 @@ use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_htt use C4::Members qw( checkcardnumber get_cardnumber_length ); use C4::Koha qw( GetAuthorisedValues ); use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); -use C4::Form::MessagingPreferences; use Koha::AuthUtils; use Koha::AuthorisedValues; use Koha::Email; diff --git a/members/members-home.pl b/members/members-home.pl index e3b903f463f..b4bf9db50d2 100755 --- a/members/members-home.pl +++ b/members/members-home.pl @@ -22,7 +22,6 @@ use CGI qw ( -utf8 ); 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 qw( GetPatronLists ); diff --git a/members/members-update-do.pl b/members/members-update-do.pl index 88d021a3943..df7f414468d 100755 --- a/members/members-update-do.pl +++ b/members/members-update-do.pl @@ -20,8 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Output; -use C4::Context; use Koha::Patrons; use Koha::Patron::Modifications; diff --git a/members/members-update.pl b/members/members-update.pl index b34a8b3ca31..585d0719e38 100755 --- a/members/members-update.pl +++ b/members/members-update.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); 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; use Koha::Patron::Attributes; use Koha::Patron::Modifications; diff --git a/members/merge-patrons.pl b/members/merge-patrons.pl index 5318ff6ff5f..8169bf4a711 100755 --- a/members/merge-patrons.pl +++ b/members/merge-patrons.pl @@ -23,7 +23,6 @@ use Try::Tiny qw( catch try ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Context; use Koha::Patrons; my $cgi = CGI->new; diff --git a/members/moremember.pl b/members/moremember.pl index 89ec5d9af58..2f1725c2fab 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -32,7 +32,6 @@ use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Form::MessagingPreferences; use List::MoreUtils qw( uniq ); use Scalar::Util qw( looks_like_number ); use Koha::Patron::Attribute::Types; diff --git a/members/notices.pl b/members/notices.pl index 806ec4a5a8b..d1e8f81fa1d 100755 --- a/members/notices.pl +++ b/members/notices.pl @@ -23,7 +23,6 @@ use Modern::Perl; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Members; use C4::Letters qw( GetPreparedLetter EnqueueLetter ); use Koha::Patrons; use Koha::Patron::Categories; @@ -122,4 +121,3 @@ $template->param( sentnotices => 1, ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/members/pay.pl b/members/pay.pl index 27181164ad1..e7243072cc1 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -33,11 +33,6 @@ use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Members; -use C4::Accounts; -use C4::Stats; -use C4::Koha; -use C4::Overdues; use Koha::Patrons; use Koha::Items; diff --git a/members/paycollect.pl b/members/paycollect.pl index e8301a76604..95eb129bed8 100755 --- a/members/paycollect.pl +++ b/members/paycollect.pl @@ -24,8 +24,6 @@ use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Accounts; -use C4::Koha; use Koha::Cash::Registers; use Koha::Patrons; diff --git a/members/printfeercpt.pl b/members/printfeercpt.pl index d366cc87806..8801b82c922 100755 --- a/members/printfeercpt.pl +++ b/members/printfeercpt.pl @@ -23,7 +23,6 @@ use Modern::Perl; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Letters; use Koha::Account::Lines; my $input = CGI->new; diff --git a/members/printinvoice.pl b/members/printinvoice.pl index 1f8480ee347..38ff594d2ea 100755 --- a/members/printinvoice.pl +++ b/members/printinvoice.pl @@ -23,7 +23,6 @@ use Modern::Perl; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use CGI qw ( -utf8 ); -use C4::Letters; use Koha::Account::Lines; my $input = CGI->new; diff --git a/members/purchase-suggestions.pl b/members/purchase-suggestions.pl index 6a9725115ec..14f69db22f6 100755 --- a/members/purchase-suggestions.pl +++ b/members/purchase-suggestions.pl @@ -21,9 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Members; use C4::Suggestions qw( SearchSuggestion ); use Koha::Patrons; diff --git a/members/readingrec.pl b/members/readingrec.pl index b0e2a5b9a1a..f622387c42c 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -100,4 +100,3 @@ $template->param( loop_reading => $issues, ); output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/members/routing-lists.pl b/members/routing-lists.pl index 81ad7980ab0..ed4064538dd 100755 --- a/members/routing-lists.pl +++ b/members/routing-lists.pl @@ -21,9 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Members; use C4::Context; -use C4::Serials; use Koha::Patrons; use CGI::Session; diff --git a/members/setstatus.pl b/members/setstatus.pl index 83ef1590be5..223bdc0fb61 100755 --- a/members/setstatus.pl +++ b/members/setstatus.pl @@ -28,7 +28,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); use C4::Context; -use C4::Members; use Koha::Patrons; diff --git a/members/statistics.pl b/members/statistics.pl index e407eaf025b..11264eea50c 100755 --- a/members/statistics.pl +++ b/members/statistics.pl @@ -26,8 +26,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; -use C4::Members; use C4::Members::Statistics qw( GetPrecedentStateByBorrower GetTotalIssuesReturnedTodayByBorrower diff --git a/members/summary-print.pl b/members/summary-print.pl index 6c6ed923ec3..6b93fd1f262 100755 --- a/members/summary-print.pl +++ b/members/summary-print.pl @@ -21,9 +21,7 @@ use CGI; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); -use C4::Members; use C4::Circulation qw( GetIssuingCharges ); -use C4::Reserves; use Koha::DateUtils qw( dt_from_string ); use Koha::Holds; use Koha::ItemTypes; diff --git a/members/update-child.pl b/members/update-child.pl index 765687f128c..11a436755a7 100755 --- a/members/update-child.pl +++ b/members/update-child.pl @@ -100,4 +100,3 @@ elsif ( $op eq 'update' ) { ); } } - diff --git a/misc/add_date_fields_to_marc_records.pl b/misc/add_date_fields_to_marc_records.pl index c310350b6a7..dee39611efd 100755 --- a/misc/add_date_fields_to_marc_records.pl +++ b/misc/add_date_fields_to_marc_records.pl @@ -23,7 +23,6 @@ use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use MARC::Field; -use C4::Biblio; use Koha::DateUtils qw( dt_from_string ); my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field ); diff --git a/misc/batchRebuildBiblioTables.pl b/misc/batchRebuildBiblioTables.pl index 5b3ce003348..cc066abb213 100755 --- a/misc/batchRebuildBiblioTables.pl +++ b/misc/batchRebuildBiblioTables.pl @@ -8,7 +8,6 @@ use strict; # Koha modules used use Koha::Script; use MARC::Record; -use C4::Charset; use C4::Context; use C4::Biblio qw( GetXmlBiblio diff --git a/misc/cronjobs/advance_notices.pl b/misc/cronjobs/advance_notices.pl index 9ec07659aa9..5860fe83146 100755 --- a/misc/cronjobs/advance_notices.pl +++ b/misc/cronjobs/advance_notices.pl @@ -42,9 +42,6 @@ use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Koha::Script -cron; use C4::Context; -use C4::Letters; -use C4::Members; -use C4::Members::Messaging; use C4::Log qw( cronlogaction ); use Koha::Items; use Koha::Libraries; diff --git a/misc/cronjobs/automatic_checkin.pl b/misc/cronjobs/automatic_checkin.pl index 2960b4a83dd..69dda78c2ee 100755 --- a/misc/cronjobs/automatic_checkin.pl +++ b/misc/cronjobs/automatic_checkin.pl @@ -24,4 +24,4 @@ use C4::Log qw( cronlogaction ); cronlogaction(); -Koha::Checkouts->automatic_checkin; \ No newline at end of file +Koha::Checkouts->automatic_checkin; diff --git a/misc/cronjobs/automatic_item_modification_by_age.pl b/misc/cronjobs/automatic_item_modification_by_age.pl index a4e5538430a..fae48199e57 100755 --- a/misc/cronjobs/automatic_item_modification_by_age.pl +++ b/misc/cronjobs/automatic_item_modification_by_age.pl @@ -8,7 +8,6 @@ use JSON; use Koha::Script -cron; use C4::Context; -use C4::Items; use C4::Log qw( cronlogaction ); # Getting options diff --git a/misc/cronjobs/automatic_renewals.pl b/misc/cronjobs/automatic_renewals.pl index 1af18c70f54..07dc7c740d0 100755 --- a/misc/cronjobs/automatic_renewals.pl +++ b/misc/cronjobs/automatic_renewals.pl @@ -82,7 +82,6 @@ use Koha::Script -cron; use C4::Circulation qw( CanBookBeRenewed AddRenewal ); use C4::Context; use C4::Log qw( cronlogaction ); -use C4::Letters; use Koha::Checkouts; use Koha::Libraries; use Koha::Patrons; diff --git a/misc/cronjobs/batch_anonymise.pl b/misc/cronjobs/batch_anonymise.pl index 786e847c348..ed4d356813b 100755 --- a/misc/cronjobs/batch_anonymise.pl +++ b/misc/cronjobs/batch_anonymise.pl @@ -21,7 +21,6 @@ use Modern::Perl; use Koha::Script -cron; -use C4::Context; use C4::Log qw( cronlogaction ); use Koha::Database; diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl index 8cd733a785d..c30dd8eaf1d 100755 --- a/misc/cronjobs/build_browser_and_cloud.pl +++ b/misc/cronjobs/build_browser_and_cloud.pl @@ -5,7 +5,6 @@ use strict; #use warnings; FIXME - Bug 2505 use Koha::Script -cron; -use C4::Koha; use C4::Context; use C4::Biblio qw( GetMarcBiblio ); use Date::Calc; @@ -13,7 +12,6 @@ use Time::HiRes qw(gettimeofday); use ZOOM; use MARC::File::USMARC; use Getopt::Long; -use C4::Log; my ( $input_marc_file, $number) = ('',0); my ($version, $confirm,$field,$batch,$max_digits,$cloud_tag); diff --git a/misc/cronjobs/cleanup_database.pl b/misc/cronjobs/cleanup_database.pl index 74505cf067e..3729cb3a4fc 100755 --- a/misc/cronjobs/cleanup_database.pl +++ b/misc/cronjobs/cleanup_database.pl @@ -30,8 +30,6 @@ use constant DEFAULT_DEBARMENTS_PURGEDAYS => 30; use Koha::Script -cron; use C4::Context; -use C4::Search; -use C4::Search::History; use Getopt::Long qw( GetOptions ); use C4::Log qw( cronlogaction ); use C4::Accounts qw( purge_zero_balance_fees ); diff --git a/misc/cronjobs/cloud-kw.pl b/misc/cronjobs/cloud-kw.pl index d6e64be9022..7936a641ec5 100755 --- a/misc/cronjobs/cloud-kw.pl +++ b/misc/cronjobs/cloud-kw.pl @@ -405,5 +405,3 @@ by their weight. =back =cut - - diff --git a/misc/cronjobs/create_koc_db.pl b/misc/cronjobs/create_koc_db.pl index a9704d7a15b..b34d02dd551 100755 --- a/misc/cronjobs/create_koc_db.pl +++ b/misc/cronjobs/create_koc_db.pl @@ -455,4 +455,3 @@ sub get_columns_for_issues_table { 1; __END__ - diff --git a/misc/cronjobs/gather_print_notices.pl b/misc/cronjobs/gather_print_notices.pl index 729c0d956bb..72598344f09 100755 --- a/misc/cronjobs/gather_print_notices.pl +++ b/misc/cronjobs/gather_print_notices.pl @@ -6,7 +6,6 @@ use CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate hap use Koha::Script -cron; use C4::Context; use C4::Letters qw( GetPrintMessages ); -use C4::Templates; use File::Spec; use Pod::Usage qw( pod2usage ); use Getopt::Long qw( GetOptions ); diff --git a/misc/cronjobs/holds/auto_unsuspend_holds.pl b/misc/cronjobs/holds/auto_unsuspend_holds.pl index a0b3724c981..99c9ad1fbd6 100755 --- a/misc/cronjobs/holds/auto_unsuspend_holds.pl +++ b/misc/cronjobs/holds/auto_unsuspend_holds.pl @@ -23,7 +23,6 @@ use warnings; # cancel all expired hold requests use Koha::Script -cron; -use C4::Reserves; use C4::Log qw( cronlogaction ); cronlogaction(); diff --git a/misc/cronjobs/holds/build_holds_queue.pl b/misc/cronjobs/holds/build_holds_queue.pl index 6ba476b585f..a19c501135d 100755 --- a/misc/cronjobs/holds/build_holds_queue.pl +++ b/misc/cronjobs/holds/build_holds_queue.pl @@ -16,4 +16,3 @@ use C4::Log qw( cronlogaction ); cronlogaction(); CreateQueue(); - diff --git a/misc/cronjobs/holds/cancel_expired_holds.pl b/misc/cronjobs/holds/cancel_expired_holds.pl index a4addc01708..366e157f9c2 100755 --- a/misc/cronjobs/holds/cancel_expired_holds.pl +++ b/misc/cronjobs/holds/cancel_expired_holds.pl @@ -43,7 +43,6 @@ use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Koha::Script -cron; -use C4::Reserves; use C4::Log qw( cronlogaction ); =head1 OPTIONS diff --git a/misc/cronjobs/holds/cancel_unfilled_holds.pl b/misc/cronjobs/holds/cancel_unfilled_holds.pl index ea5d70ab485..58024984319 100755 --- a/misc/cronjobs/holds/cancel_unfilled_holds.pl +++ b/misc/cronjobs/holds/cancel_unfilled_holds.pl @@ -22,7 +22,6 @@ use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Koha::Script -cron; -use C4::Reserves; use C4::Log qw( cronlogaction ); use Koha::Holds; use Koha::Calendar; diff --git a/misc/cronjobs/holds/holds_reminder.pl b/misc/cronjobs/holds/holds_reminder.pl index b99259f43d7..8838dcb44d7 100755 --- a/misc/cronjobs/holds/holds_reminder.pl +++ b/misc/cronjobs/holds/holds_reminder.pl @@ -23,7 +23,6 @@ use DateTime; use DateTime::Duration; use C4::Context; -use C4::Letters; use C4::Log qw( cronlogaction ); use Koha::DateUtils qw( dt_from_string ); use Koha::Calendar; diff --git a/misc/cronjobs/membership_expiry.pl b/misc/cronjobs/membership_expiry.pl index c52843c7dcc..698f025b7fb 100755 --- a/misc/cronjobs/membership_expiry.pl +++ b/misc/cronjobs/membership_expiry.pl @@ -142,7 +142,6 @@ use Pod::Usage qw( pod2usage ); use Koha::Script -cron; use C4::Context; -use C4::Letters; use C4::Log qw( cronlogaction ); use Koha::Patrons; diff --git a/misc/cronjobs/notice_unprocessed_suggestions.pl b/misc/cronjobs/notice_unprocessed_suggestions.pl index 6567c35d752..6de5003274f 100755 --- a/misc/cronjobs/notice_unprocessed_suggestions.pl +++ b/misc/cronjobs/notice_unprocessed_suggestions.pl @@ -6,8 +6,6 @@ use Pod::Usage qw( pod2usage ); use Getopt::Long qw( GetOptions ); use Koha::Script -cron; -use C4::Budgets; -use C4::Suggestions; use Koha::Libraries; use Koha::Patrons; diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 9fdafe13b47..42d985ab64e 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -28,7 +28,6 @@ use DateTime::Duration; use Koha::Script -cron; use C4::Context; -use C4::Letters; use C4::Overdues qw( GetOverdueMessageTransportTypes parse_overdues_letter ); use C4::Log qw( cronlogaction ); use Koha::Patron::Debarments qw( AddUniqueDebarment ); @@ -932,4 +931,3 @@ sub prepare_letter_for_printing { } return $return; } - diff --git a/misc/cronjobs/process_message_queue.pl b/misc/cronjobs/process_message_queue.pl index d8918be6077..f5e846376e0 100755 --- a/misc/cronjobs/process_message_queue.pl +++ b/misc/cronjobs/process_message_queue.pl @@ -103,4 +103,3 @@ C4::Letters::SendQueuedMessages( letter_code => $letter_code, } ); - diff --git a/misc/cronjobs/purge_suggestions.pl b/misc/cronjobs/purge_suggestions.pl index 7b55efb1aa8..6999c0f5c5b 100755 --- a/misc/cronjobs/purge_suggestions.pl +++ b/misc/cronjobs/purge_suggestions.pl @@ -22,7 +22,6 @@ use Modern::Perl; use Getopt::Long qw( GetOptions ); use Koha::Script -cron; -use C4::Suggestions; use C4::Log qw( cronlogaction ); use C4::Context; diff --git a/misc/cronjobs/recalls/expire_recalls.pl b/misc/cronjobs/recalls/expire_recalls.pl index 7a4a6deebfe..9ced1b5e373 100755 --- a/misc/cronjobs/recalls/expire_recalls.pl +++ b/misc/cronjobs/recalls/expire_recalls.pl @@ -33,7 +33,6 @@ BEGIN { use Koha::Script -cron; use Koha::DateUtils qw( dt_from_string ); use Koha::Recalls; -use C4::Log; cronlogaction(); diff --git a/misc/cronjobs/recalls/overdue_recalls.pl b/misc/cronjobs/recalls/overdue_recalls.pl index d0e60859b4d..716c1e599f2 100755 --- a/misc/cronjobs/recalls/overdue_recalls.pl +++ b/misc/cronjobs/recalls/overdue_recalls.pl @@ -32,7 +32,6 @@ use Koha::Script -cron; use Koha::DateUtils; use Koha::Checkouts; use Koha::Recalls; -use C4::Log; cronlogaction(); diff --git a/misc/cronjobs/serialsUpdate.pl b/misc/cronjobs/serialsUpdate.pl index 26ebf25dde0..8c1daa6e7dc 100755 --- a/misc/cronjobs/serialsUpdate.pl +++ b/misc/cronjobs/serialsUpdate.pl @@ -23,7 +23,6 @@ use warnings; use Koha::Script -cron; use C4::Context; use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus ); -use C4::Serials::Frequency; use C4::Log qw( cronlogaction ); use Koha::DateUtils qw( dt_from_string output_pref ); diff --git a/misc/cronjobs/share_usage_with_koha_community.pl b/misc/cronjobs/share_usage_with_koha_community.pl index fa6d59850f4..cdad9a5c34c 100755 --- a/misc/cronjobs/share_usage_with_koha_community.pl +++ b/misc/cronjobs/share_usage_with_koha_community.pl @@ -7,7 +7,6 @@ use Getopt::Long qw( GetOptions ); use Koha::Script -cron; use C4::Context; -use C4::UsageStats; use C4::Log qw( cronlogaction ); use POSIX qw( strftime ); diff --git a/misc/cronjobs/social_data/get_report_social_data.pl b/misc/cronjobs/social_data/get_report_social_data.pl index c5e13aaf1b5..48f106ea764 100755 --- a/misc/cronjobs/social_data/get_report_social_data.pl +++ b/misc/cronjobs/social_data/get_report_social_data.pl @@ -3,7 +3,6 @@ use Modern::Perl; use Koha::Script -cron; -use C4::SocialData; my $results = C4::SocialData::get_report; diff --git a/misc/cronjobs/social_data/update_social_data.pl b/misc/cronjobs/social_data/update_social_data.pl index 58e3dc06969..7f338d63eb8 100755 --- a/misc/cronjobs/social_data/update_social_data.pl +++ b/misc/cronjobs/social_data/update_social_data.pl @@ -4,7 +4,6 @@ use Modern::Perl; use Koha::Script -cron; use C4::Context; -use C4::SocialData; my $url = C4::Context->preference( "Babeltheque_url_update" ); my $output_dir = qq{/tmp}; diff --git a/misc/cronjobs/staticfines.pl b/misc/cronjobs/staticfines.pl index d4141b25f3b..d5610022205 100755 --- a/misc/cronjobs/staticfines.pl +++ b/misc/cronjobs/staticfines.pl @@ -237,4 +237,3 @@ Number of Overdue Items: EOM } - diff --git a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl b/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl index 6a1456987fa..77d5b02d1da 100755 --- a/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl +++ b/misc/cronjobs/thirdparty/TalkingTech_itiva_outbound.pl @@ -25,8 +25,6 @@ use Pod::Usage qw( pod2usage ); use Koha::Script -cron; use C4::Context; -use C4::Letters; -use C4::Overdues; use Koha::Calendar; use Koha::DateUtils qw( dt_from_string output_pref ); use Koha::Patrons; diff --git a/misc/cronjobs/update_patrons_category.pl b/misc/cronjobs/update_patrons_category.pl index b1e9cc479ab..bd01e362f0d 100755 --- a/misc/cronjobs/update_patrons_category.pl +++ b/misc/cronjobs/update_patrons_category.pl @@ -17,7 +17,6 @@ use Modern::Perl; -use C4::Context; use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Koha::Logger; diff --git a/misc/devel/coverage.pl b/misc/devel/coverage.pl index a4d09344cc4..44a5629f768 100755 --- a/misc/devel/coverage.pl +++ b/misc/devel/coverage.pl @@ -76,4 +76,4 @@ system("cover"); say("file://$KOHA_PATH/cover_db/coverage.html") unless !-e "$KOHA_PATH/cover_db/coverage.html"; -1; \ No newline at end of file +1; diff --git a/misc/export_records.pl b/misc/export_records.pl index 32658cb8c8c..e8ff04f8e31 100755 --- a/misc/export_records.pl +++ b/misc/export_records.pl @@ -23,9 +23,7 @@ use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Koha::Script; -use C4::Auth; use C4::Context; -use C4::Record; use Koha::Biblioitems; use Koha::Database; diff --git a/misc/exportauth.pl b/misc/exportauth.pl index 14e30884d2d..733e7c51df3 100755 --- a/misc/exportauth.pl +++ b/misc/exportauth.pl @@ -8,7 +8,6 @@ use strict; use Koha::Script; use C4::Context; -use C4::Auth; my $outfile = $ARGV[0]; open(my $fh, '>', $outfile) or die $!; my $dbh=C4::Context->dbh; diff --git a/misc/load_testing/benchmark_webservices.pl b/misc/load_testing/benchmark_webservices.pl index 2ccd15bf731..1996b1cd9af 100755 --- a/misc/load_testing/benchmark_webservices.pl +++ b/misc/load_testing/benchmark_webservices.pl @@ -50,5 +50,3 @@ for( my $i = 0; $i < $timestopost; $i++) { } sleep($timeout); } - - diff --git a/misc/load_yaml.pl b/misc/load_yaml.pl index 6eece296378..0b9bfa1f294 100755 --- a/misc/load_yaml.pl +++ b/misc/load_yaml.pl @@ -21,7 +21,6 @@ use Modern::Perl; use Koha::Script; use Getopt::Long qw( GetOptions :config no_ignore_case ); -use C4::Context; use C4::Installer; sub print_usage { diff --git a/misc/maintenance/borrowers-force-messaging-defaults.pl b/misc/maintenance/borrowers-force-messaging-defaults.pl index 7f2bba0c694..be11311e05f 100755 --- a/misc/maintenance/borrowers-force-messaging-defaults.pl +++ b/misc/maintenance/borrowers-force-messaging-defaults.pl @@ -22,7 +22,6 @@ use warnings; use Koha::Script; use C4::Context; -use C4::Members::Messaging; use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); diff --git a/misc/maintenance/check_syspref_cache.pl b/misc/maintenance/check_syspref_cache.pl index 9328988baf1..ded344aacf4 100755 --- a/misc/maintenance/check_syspref_cache.pl +++ b/misc/maintenance/check_syspref_cache.pl @@ -23,7 +23,6 @@ use Encode qw( encode_utf8 ); use Koha::Script; use Koha::Caches; use Koha::Config::SysPrefs; -use C4::Context; =head1 NAME diff --git a/misc/maintenance/fix_tags_weight.pl b/misc/maintenance/fix_tags_weight.pl index ff7e3d78350..cd381c17d8f 100755 --- a/misc/maintenance/fix_tags_weight.pl +++ b/misc/maintenance/fix_tags_weight.pl @@ -20,7 +20,6 @@ use Modern::Perl; use C4::Context; -use C4::Tags; use Koha::Script; use Koha::Database; diff --git a/misc/maintenance/sanitize_records.pl b/misc/maintenance/sanitize_records.pl index 2aa9f02a3f1..d8a39302ce9 100755 --- a/misc/maintenance/sanitize_records.pl +++ b/misc/maintenance/sanitize_records.pl @@ -20,9 +20,7 @@ use Modern::Perl; use Koha::Script; -use C4::Charset; use C4::Context; -use C4::Biblio; use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); diff --git a/misc/maintenance/touch_all_biblios.pl b/misc/maintenance/touch_all_biblios.pl index c2259602b49..28cffe09e56 100755 --- a/misc/maintenance/touch_all_biblios.pl +++ b/misc/maintenance/touch_all_biblios.pl @@ -134,4 +134,3 @@ Limits the search with a user-specified WHERE clause. =back =cut - diff --git a/misc/maintenance/touch_all_items.pl b/misc/maintenance/touch_all_items.pl index ddc9a821cea..b28b31f3205 100755 --- a/misc/maintenance/touch_all_items.pl +++ b/misc/maintenance/touch_all_items.pl @@ -142,4 +142,3 @@ Limits the search with a user-specified WHERE clause. =back =cut - diff --git a/misc/migration_tools/22_to_30/export_Authorities.pl b/misc/migration_tools/22_to_30/export_Authorities.pl index bed75f27c7e..6e6c56a5e09 100755 --- a/misc/migration_tools/22_to_30/export_Authorities.pl +++ b/misc/migration_tools/22_to_30/export_Authorities.pl @@ -3,7 +3,6 @@ use Modern::Perl; use C4::Context; #use MARC::File::XML(BinaryEncoding=>"utf8"); #use MARC::File::USMARC; -use C4::AuthoritiesMarc; use POSIX; #MARC::File::XML::default_record_format("UNIMARCAUTH"); my $dbh = C4::Context->dbh; diff --git a/misc/migration_tools/22_to_30/export_Authorities_xml.pl b/misc/migration_tools/22_to_30/export_Authorities_xml.pl index 2aefe5b62dd..e762296a86d 100755 --- a/misc/migration_tools/22_to_30/export_Authorities_xml.pl +++ b/misc/migration_tools/22_to_30/export_Authorities_xml.pl @@ -2,7 +2,6 @@ use Modern::Perl; use C4::Context; use MARC::File::XML(BinaryEncoding=>"utf8"); -use C4::AuthoritiesMarc; use POSIX; MARC::File::XML::default_record_format("UNIMARCAUTH"); my $dbh = C4::Context->dbh; diff --git a/misc/migration_tools/22_to_30/move_marc_to_authheader.pl b/misc/migration_tools/22_to_30/move_marc_to_authheader.pl index 53069bff01d..03de1fcaf3e 100755 --- a/misc/migration_tools/22_to_30/move_marc_to_authheader.pl +++ b/misc/migration_tools/22_to_30/move_marc_to_authheader.pl @@ -5,7 +5,6 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Context; -use C4::AuthoritiesMarc; use MARC::Record; use MARC::File::XML ( BinaryEncoding => 'utf8' ); @@ -123,4 +122,3 @@ sub old_AUTHgetauthority { } return $record; } - diff --git a/misc/migration_tools/buildCOUNTRY.pl b/misc/migration_tools/buildCOUNTRY.pl index 9329ac0e595..a8e4503a32e 100755 --- a/misc/migration_tools/buildCOUNTRY.pl +++ b/misc/migration_tools/buildCOUNTRY.pl @@ -8,7 +8,6 @@ use strict; # Koha modules used use Koha::Script; use C4::Context; -use C4::AuthoritiesMarc; use Time::HiRes qw( gettimeofday ); use Getopt::Long qw( GetOptions ); diff --git a/misc/migration_tools/buildEDITORS.pl b/misc/migration_tools/buildEDITORS.pl index a6f1d8baa27..e967d2216aa 100755 --- a/misc/migration_tools/buildEDITORS.pl +++ b/misc/migration_tools/buildEDITORS.pl @@ -11,7 +11,6 @@ use MARC::Batch; use Koha::Script; use C4::Context; use C4::Biblio qw( GetMarcBiblio ); -use C4::AuthoritiesMarc; use Time::HiRes qw( gettimeofday ); use Getopt::Long qw( GetOptions ); diff --git a/misc/migration_tools/buildLANG.pl b/misc/migration_tools/buildLANG.pl index bdef6dd9d31..244825d012f 100755 --- a/misc/migration_tools/buildLANG.pl +++ b/misc/migration_tools/buildLANG.pl @@ -8,7 +8,6 @@ use strict; # Koha modules used use Koha::Script; use C4::Context; -use C4::AuthoritiesMarc; use Time::HiRes qw( gettimeofday ); use Getopt::Long qw( GetOptions ); diff --git a/misc/migration_tools/build_oai_sets.pl b/misc/migration_tools/build_oai_sets.pl index 00f92c8fe7d..122a31a69f3 100755 --- a/misc/migration_tools/build_oai_sets.pl +++ b/misc/migration_tools/build_oai_sets.pl @@ -45,7 +45,6 @@ use Getopt::Std qw( getopts ); use Koha::Script; use C4::Context; use C4::Charset qw( StripNonXmlChars ); -use C4::Biblio; use C4::OAI::Sets qw( AddOAISetsBiblios CalcOAISetsBiblio diff --git a/misc/migration_tools/bulkmarcimport.pl b/misc/migration_tools/bulkmarcimport.pl index d2dfe1ad56a..6cf38533585 100755 --- a/misc/migration_tools/bulkmarcimport.pl +++ b/misc/migration_tools/bulkmarcimport.pl @@ -18,7 +18,6 @@ use C4::Biblio qw( ModBiblio ModBiblioMarc ); -use C4::Koha; use C4::Charset qw( MarcToUTF8Record SetUTF8Flag ); use C4::Items qw( AddItemBatchFromMarc ); use C4::MarcModificationTemplates qw( @@ -826,4 +825,3 @@ If not specified, no MARC modification templates are used (default). =back =cut - diff --git a/misc/migration_tools/import_lexile.pl b/misc/migration_tools/import_lexile.pl index 784b5826f06..068f1abd2ad 100755 --- a/misc/migration_tools/import_lexile.pl +++ b/misc/migration_tools/import_lexile.pl @@ -32,7 +32,6 @@ use Getopt::Long qw( GetOptions ); use Text::CSV; use Koha::Script; -use C4::Context; use C4::Biblio qw( GetMarcBiblio ModBiblio ); use C4::Koha qw( GetVariationsOfISBN ); diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl index da57f88f42c..7b3a6c300c5 100755 --- a/misc/migration_tools/remove_unused_authorities.pl +++ b/misc/migration_tools/remove_unused_authorities.pl @@ -24,7 +24,6 @@ use Modern::Perl; use Koha::Script; use C4::Context; -use C4::AuthoritiesMarc; use Getopt::Long qw( GetOptions ); use Koha::SearchEngine::Search; diff --git a/misc/sip_cli_emulator.pl b/misc/sip_cli_emulator.pl index 8336ced436a..b1038dc0e92 100755 --- a/misc/sip_cli_emulator.pl +++ b/misc/sip_cli_emulator.pl @@ -24,7 +24,6 @@ use IO::Socket::INET; use Getopt::Long; use C4::SIP::Sip::Constants qw(:all); -use C4::SIP::Sip; use constant { LANGUAGE => '001' }; diff --git a/misc/translator/LangInstaller.pm b/misc/translator/LangInstaller.pm index 8ab863f605f..2471b508829 100644 --- a/misc/translator/LangInstaller.pm +++ b/misc/translator/LangInstaller.pm @@ -589,4 +589,3 @@ Update .po files in F directory, named F-*.po. =back =cut - diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm index 05cc54ea6b6..ae69d0032ca 100644 --- a/misc/translator/TmplTokenizer.pm +++ b/misc/translator/TmplTokenizer.pm @@ -1,7 +1,6 @@ package TmplTokenizer; use Modern::Perl; -use C4::TmplTokenType; use C4::TmplToken; use C4::TTParser; use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic ); diff --git a/offline_circ/download.pl b/offline_circ/download.pl index 10272cbc3f0..20454941603 100755 --- a/offline_circ/download.pl +++ b/offline_circ/download.pl @@ -21,9 +21,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON qw( to_json ); use C4::Auth qw( checkauth ); -use C4::Output; use C4::Context; -use C4::Koha; my $query = CGI->new; checkauth( $query, undef, { circulate => "circulate_remaining_permissions" }, diff --git a/offline_circ/enqueue_koc.pl b/offline_circ/enqueue_koc.pl index e10df9545d9..b146bf2d399 100755 --- a/offline_circ/enqueue_koc.pl +++ b/offline_circ/enqueue_koc.pl @@ -24,10 +24,7 @@ use CGI qw ( -utf8 ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Accounts; use C4::Circulation qw( AddOfflineOperation ); -use C4::Members; -use C4::Stats; use Koha::Checkouts; use Koha::UploadedFiles; use Koha::Items; diff --git a/offline_circ/list.pl b/offline_circ/list.pl index 252dc8594b8..f1bfa081c3f 100755 --- a/offline_circ/list.pl +++ b/offline_circ/list.pl @@ -23,9 +23,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Circulation qw( GetOfflineOperations GetOfflineOperation ); -use C4::Members; use Koha::Patrons; use Koha::Items; diff --git a/offline_circ/process_koc.pl b/offline_circ/process_koc.pl index b3dc48a54c1..d7f900b2ac4 100755 --- a/offline_circ/process_koc.pl +++ b/offline_circ/process_koc.pl @@ -25,11 +25,8 @@ use CGI qw ( -utf8 ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Accounts; use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned ); use C4::Items qw( ModDateLastSeen ); -use C4::Members; -use C4::Stats; use C4::BackgroundJob; use Koha::UploadedFiles; use Koha::Account; diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl index 5b105246fa4..e4bfb462cfe 100755 --- a/opac/ilsdi.pl +++ b/opac/ilsdi.pl @@ -19,7 +19,6 @@ use Modern::Perl; -use C4::ILSDI::Services; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Context; @@ -254,4 +253,3 @@ print XMLout( SuppressEmpty => 1 ); exit 0; - diff --git a/opac/maintenance.pl b/opac/maintenance.pl index c7924921c3d..33ebf915eb3 100755 --- a/opac/maintenance.pl +++ b/opac/maintenance.pl @@ -18,7 +18,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; use C4::Output qw( output_html_with_http_headers ); use C4::Templates qw/gettemplate/; diff --git a/opac/opac-ISBDdetail.pl b/opac/opac-ISBDdetail.pl index 2d2355bb794..013c298619b 100755 --- a/opac/opac-ISBDdetail.pl +++ b/opac/opac-ISBDdetail.pl @@ -52,7 +52,6 @@ use C4::Biblio qw( GetMarcISSN TransformMarcToKoha ); -use C4::Reserves; use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); use C4::Koha qw( GetNormalizedEAN diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl index b4dae6d4ffd..4a8a89c6425 100755 --- a/opac/opac-MARCdetail.pl +++ b/opac/opac-MARCdetail.pl @@ -59,8 +59,6 @@ use C4::Biblio qw( GetMarcStructure TransformMarcToKoha ); -use C4::Reserves; -use C4::Members; use C4::Koha qw( GetNormalizedISBN ); use List::MoreUtils qw( uniq ); use Koha::Biblios; diff --git a/opac/opac-account-pay.pl b/opac/opac-account-pay.pl index 30be841dfcb..1e77c593e2c 100755 --- a/opac/opac-account-pay.pl +++ b/opac/opac-account-pay.pl @@ -24,8 +24,6 @@ use Modern::Perl; use CGI; use C4::Auth qw( get_template_and_user ); -use C4::Output; -use C4::Context; use Koha::Acquisition::Currencies; use Koha::Database; use Koha::Plugins::Handler; diff --git a/opac/opac-account.pl b/opac/opac-account.pl index c47bd58644b..0db38d054e8 100755 --- a/opac/opac-account.pl +++ b/opac/opac-account.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Members; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use Koha::Account::Lines; diff --git a/opac/opac-article-request-cancel.pl b/opac/opac-article-request-cancel.pl index e926a5f5066..198e1d07d86 100755 --- a/opac/opac-article-request-cancel.pl +++ b/opac/opac-article-request-cancel.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; use C4::Auth qw( get_template_and_user ); use Koha::ArticleRequests; diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl index eb795f4ed3c..6fc702cec62 100755 --- a/opac/opac-authorities-home.pl +++ b/opac/opac-authorities-home.pl @@ -26,8 +26,6 @@ use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Output qw( pagination_bar output_html_with_http_headers ); -use C4::Koha; -use C4::Search::History; use Koha::Authority::Types; use Koha::SearchEngine::Search; diff --git a/opac/opac-authoritiesdetail.pl b/opac/opac-authoritiesdetail.pl index ed0a1c70144..3e9deb4a275 100755 --- a/opac/opac-authoritiesdetail.pl +++ b/opac/opac-authoritiesdetail.pl @@ -44,7 +44,6 @@ use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::AuthoritiesMarc qw( GetAuthority BuildSummary GetTagsLabels GenerateHierarchy ); use CGI qw ( -utf8 ); -use C4::Koha; use Koha::Authorities; use Koha::Authority::Types; diff --git a/opac/opac-basket.pl b/opac/opac-basket.pl index fe54ca75b6f..c2eb11f000f 100755 --- a/opac/opac-basket.pl +++ b/opac/opac-basket.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Koha; use C4::Biblio qw( GetFrameworkCode GetMarcBiblio diff --git a/opac/opac-changelanguage.pl b/opac/opac-changelanguage.pl index eb1c2960749..513ad472d0d 100755 --- a/opac/opac-changelanguage.pl +++ b/opac/opac-changelanguage.pl @@ -17,7 +17,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Templates; use Koha::Util::Navigation; my $query = CGI->new; diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 000eac3a513..97dd37dfd83 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -60,7 +60,6 @@ use C4::External::Syndetics qw( get_syndetics_summary get_syndetics_toc ); -use C4::Members; use C4::XSLT qw( XSLTParse4Display ); use C4::ShelfBrowser qw( GetNearbyItems ); use C4::Reserves qw( GetReserveStatus ); diff --git a/opac/opac-downloadcart.pl b/opac/opac-downloadcart.pl index f3a1769c0b0..6d2841a8ec7 100755 --- a/opac/opac-downloadcart.pl +++ b/opac/opac-downloadcart.pl @@ -25,7 +25,6 @@ use Encode qw( encode ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio ); use C4::Output qw( output_html_with_http_headers ); -use C4::Record; use C4::Ris qw( marc2ris ); use Koha::CsvProfiles; use Koha::RecordProcessor; diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl index 5647f873b21..1bcb9e1c081 100755 --- a/opac/opac-downloadshelf.pl +++ b/opac/opac-downloadshelf.pl @@ -24,7 +24,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio ); use C4::Output qw( output_html_with_http_headers ); -use C4::Record; use C4::Ris qw( marc2ris ); use Koha::CsvProfiles; use Koha::RecordProcessor; diff --git a/opac/opac-export.pl b/opac/opac-export.pl index d816ded995d..0b8c815e84d 100755 --- a/opac/opac-export.pl +++ b/opac/opac-export.pl @@ -19,9 +19,6 @@ use Modern::Perl; -use C4::Record; -use C4::Auth; -use C4::Output; use C4::Biblio qw( GetFrameworkCode GetISBDView @@ -29,7 +26,6 @@ use C4::Biblio qw( GetMarcControlnumber ); use CGI qw ( -utf8 ); -use C4::Auth; use C4::Ris qw( marc2ris ); use Koha::RecordProcessor; diff --git a/opac/opac-idref.pl b/opac/opac-idref.pl index 795842215f9..8b666908bc6 100755 --- a/opac/opac-idref.pl +++ b/opac/opac-idref.pl @@ -26,7 +26,6 @@ use Encode; use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; diff --git a/opac/opac-illrequests.pl b/opac/opac-illrequests.pl index e619707451e..afdc4546e56 100755 --- a/opac/opac-illrequests.pl +++ b/opac/opac-illrequests.pl @@ -23,7 +23,6 @@ use JSON qw( encode_json ); use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Koha; use C4::Output qw( output_html_with_http_headers ); use Koha::Illrequest::Config; diff --git a/opac/opac-issue-note.pl b/opac/opac-issue-note.pl index b59e838b062..460f6cffab9 100755 --- a/opac/opac-issue-note.pl +++ b/opac/opac-issue-note.pl @@ -20,12 +20,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Koha; use C4::Context; use C4::Scrubber; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Letters; use Koha::Checkouts; use Koha::DateUtils qw( dt_from_string ); use Koha::Patrons; diff --git a/opac/opac-main.pl b/opac/opac-main.pl index 779c06d5870..549f79161ec 100755 --- a/opac/opac-main.pl +++ b/opac/opac-main.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use Koha::Quotes; -use C4::Members; use C4::Overdues qw( checkoverdues ); use Koha::Checkouts; use Koha::Holds; diff --git a/opac/opac-memberentry.pl b/opac/opac-memberentry.pl index f456362c3a2..08c6e8fa991 100755 --- a/opac/opac-memberentry.pl +++ b/opac/opac-memberentry.pl @@ -28,7 +28,6 @@ use C4::Output qw( output_html_with_http_headers ); use C4::Context; use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); use C4::Members qw( checkcardnumber ); -use C4::Form::MessagingPreferences; use Koha::AuthUtils; use Koha::Patrons; use Koha::Patron::Consent; diff --git a/opac/opac-messaging.pl b/opac/opac-messaging.pl index 01faeb3cf40..b4bd42d18dd 100755 --- a/opac/opac-messaging.pl +++ b/opac/opac-messaging.pl @@ -24,8 +24,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Members::Messaging; -use C4::Form::MessagingPreferences; use Koha::Patrons; use Koha::SMS::Providers; use Koha::Token; diff --git a/opac/opac-modrequest-suspend.pl b/opac/opac-modrequest-suspend.pl index 4022bb92df6..9d18a0f5c6a 100755 --- a/opac/opac-modrequest-suspend.pl +++ b/opac/opac-modrequest-suspend.pl @@ -18,7 +18,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll ); use C4::Auth qw( get_template_and_user ); my $query = CGI->new; diff --git a/opac/opac-modrequest.pl b/opac/opac-modrequest.pl index 05b01a836ae..66e1c0347e4 100755 --- a/opac/opac-modrequest.pl +++ b/opac/opac-modrequest.pl @@ -25,7 +25,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; use C4::Reserves qw( CanReserveBeCanceledFromOpac ); use C4::Auth qw( get_template_and_user ); use Koha::Holds; diff --git a/opac/opac-mymessages.pl b/opac/opac-mymessages.pl index 6acebadc4da..15e6b501306 100755 --- a/opac/opac-mymessages.pl +++ b/opac/opac-mymessages.pl @@ -22,8 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; -use C4::Letters; use C4::Output qw( output_html_with_http_headers ); my $query = CGI->new(); diff --git a/opac/opac-passwd.pl b/opac/opac-passwd.pl index 6ae82f0a8ea..fbe1f1a2e6a 100755 --- a/opac/opac-passwd.pl +++ b/opac/opac-passwd.pl @@ -23,7 +23,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user checkpw checkpw_hash ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; diff --git a/opac/opac-patron-image.pl b/opac/opac-patron-image.pl index dccba229eb2..318c6a535c5 100755 --- a/opac/opac-patron-image.pl +++ b/opac/opac-patron-image.pl @@ -19,7 +19,6 @@ # along with Koha; if not, see . use Modern::Perl; -use C4::Members; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request use C4::Auth qw( check_cookie_auth ); diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl index 927c37b275b..76a63b39d1b 100755 --- a/opac/opac-readingrecord.pl +++ b/opac/opac-readingrecord.pl @@ -26,7 +26,6 @@ use C4::Koha qw( GetNormalizedISBN GetNormalizedUPC ); -use C4::Biblio; use C4::Members qw( GetAllIssues ); use C4::External::BakerTaylor qw( image_url link_url ); use MARC::Record; diff --git a/opac/opac-registration-verify.pl b/opac/opac-registration-verify.pl index 73ff55e6e5d..e68917895c1 100755 --- a/opac/opac-registration-verify.pl +++ b/opac/opac-registration-verify.pl @@ -22,8 +22,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); -use C4::Members; -use C4::Form::MessagingPreferences; use Koha::AuthUtils; use Koha::Patrons; use Koha::Patron::Consent; diff --git a/opac/opac-renew.pl b/opac/opac-renew.pl index 46a205029e8..0552ac7bede 100755 --- a/opac/opac-renew.pl +++ b/opac/opac-renew.pl @@ -27,7 +27,6 @@ use CGI qw ( -utf8 ); use C4::Circulation qw( CanBookBeRenewed AddRenewal ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Members; use Koha::Items; use Koha::Patrons; my $query = CGI->new; @@ -70,4 +69,3 @@ else { } print $query->redirect("/cgi-bin/koha/opac-user.pl?renew_error=$errorstring&renewed=$renewed"); - diff --git a/opac/opac-reportproblem.pl b/opac/opac-reportproblem.pl index 2cb1ff340b0..17b2e24c197 100755 --- a/opac/opac-reportproblem.pl +++ b/opac/opac-reportproblem.pl @@ -23,7 +23,6 @@ use Try::Tiny qw( catch try ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Letters; use Koha::ProblemReport; use Koha::Libraries; use Koha::Patrons; diff --git a/opac/opac-reserve.pl b/opac/opac-reserve.pl index e62a3ba9afd..9f401f7c2f0 100755 --- a/opac/opac-reserve.pl +++ b/opac/opac-reserve.pl @@ -29,8 +29,6 @@ use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); use C4::Items qw( GetHostItemsInfo GetItemsInfo ); use C4::Output qw( output_html_with_http_headers ); use C4::Context; -use C4::Members; -use C4::Overdues; use Koha::AuthorisedValues; use Koha::Biblios; diff --git a/opac/opac-reset-password.pl b/opac/opac-reset-password.pl index 2090ddae93e..e3434166b65 100755 --- a/opac/opac-reset-password.pl +++ b/opac/opac-reset-password.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user checkpw checkpw_hash ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; diff --git a/opac/opac-retrieve-file.pl b/opac/opac-retrieve-file.pl index 3f6e6c8d3be..1146bd004fb 100755 --- a/opac/opac-retrieve-file.pl +++ b/opac/opac-retrieve-file.pl @@ -22,7 +22,6 @@ use CGI; use Encode; use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::UploadedFiles; diff --git a/opac/opac-routing-lists.pl b/opac/opac-routing-lists.pl index 299bb29e780..ff36608ca7b 100755 --- a/opac/opac-routing-lists.pl +++ b/opac/opac-routing-lists.pl @@ -18,7 +18,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Members; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use Koha::Patrons; diff --git a/opac/opac-search-history.pl b/opac/opac-search-history.pl index 8ef23062e7f..a96f3129508 100755 --- a/opac/opac-search-history.pl +++ b/opac/opac-search-history.pl @@ -23,7 +23,6 @@ use C4::Auth qw( get_template_and_user ); use CGI qw ( -utf8 ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Search::History; diff --git a/opac/opac-search.pl b/opac/opac-search.pl index fb13bc5c560..2fd106a93c8 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -47,12 +47,9 @@ use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http use C4::Auth qw( get_template_and_user get_session ); use C4::Languages qw( getlanguage getLanguages ); use C4::Search qw( searchResults ); -use C4::Search::History; use C4::Biblio qw( GetXmlBiblio CountItemsIssued ); use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues ); use C4::Tags qw( get_tags get_tag ); -use C4::SocialData; -use C4::External::OverDrive; use C4::External::BakerTaylor qw( image_url link_url ); use Koha::CirculationRules; diff --git a/opac/opac-sendbasket.pl b/opac/opac-sendbasket.pl index 75ddd3dc2c8..c3004499129 100755 --- a/opac/opac-sendbasket.pl +++ b/opac/opac-sendbasket.pl @@ -31,7 +31,6 @@ use C4::Biblio qw( use C4::Items qw( 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::Patrons; use Koha::Token; diff --git a/opac/opac-shareshelf.pl b/opac/opac-shareshelf.pl index 29edd822931..d68059058fe 100755 --- a/opac/opac-shareshelf.pl +++ b/opac/opac-shareshelf.pl @@ -28,7 +28,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Letters; use C4::Output qw( output_html_with_http_headers ); use Koha::Email; diff --git a/opac/opac-shelves.pl b/opac/opac-shelves.pl index 42a889869de..197d57d1fdc 100755 --- a/opac/opac-shelves.pl +++ b/opac/opac-shelves.pl @@ -29,7 +29,6 @@ use C4::Koha qw( GetNormalizedOCLCNumber GetNormalizedUPC ); -use C4::Members; use C4::Output qw( pagination_bar output_with_http_headers ); use C4::Tags qw( get_tags ); use C4::XSLT qw( XSLTParse4Display ); diff --git a/opac/opac-showmarc.pl b/opac/opac-showmarc.pl index 57c63fede10..205e0857008 100755 --- a/opac/opac-showmarc.pl +++ b/opac/opac-showmarc.pl @@ -27,9 +27,6 @@ use Encode; use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::ImportBatch; -use C4::XSLT; -use C4::Templates; use Koha::RecordProcessor; my $input = CGI->new; diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl index fcc95801aab..57da52201e8 100755 --- a/opac/opac-suggestions.pl +++ b/opac/opac-suggestions.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Encode; use C4::Auth qw( get_template_and_user ); -use C4::Members; use C4::Koha qw( GetAuthorisedValues ); use C4::Output qw( output_html_with_http_headers ); use C4::Suggestions qw( @@ -293,4 +292,3 @@ $template->param( ); output_html_with_http_headers $input, $cookie, $template->output, undef, { force_no_caching => 1 }; - diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl index 515f4ccd2e4..ced625267b7 100755 --- a/opac/opac-tags.pl +++ b/opac/opac-tags.pl @@ -377,4 +377,3 @@ response = { }; =cut - diff --git a/opac/opac-topissues.pl b/opac/opac-topissues.pl index 43830ccfd5f..7187c3150b1 100755 --- a/opac/opac-topissues.pl +++ b/opac/opac-topissues.pl @@ -24,7 +24,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Context; -use C4::Search; use C4::Output qw( output_html_with_http_headers ); use C4::Circulation qw( GetTopIssues ); diff --git a/opac/opac-user.pl b/opac/opac-user.pl index 86960e0c841..2b9146b215d 100755 --- a/opac/opac-user.pl +++ b/opac/opac-user.pl @@ -30,7 +30,6 @@ use C4::Koha qw( use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges ); use C4::External::BakerTaylor qw( image_url link_url ); use C4::Reserves qw( GetReserveStatus ); -use C4::Members; use C4::Output qw( output_html_with_http_headers ); use C4::Biblio qw( GetMarcBiblio ); use Koha::Account::Lines; diff --git a/opac/sco/help.pl b/opac/sco/help.pl index e24bfa0ef81..bd915f25c46 100755 --- a/opac/sco/help.pl +++ b/opac/sco/help.pl @@ -62,4 +62,3 @@ $template->param( ); output_html_with_http_headers $query, $cookie, $template->output; - diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl index a89f2538d6e..9e67ede8268 100755 --- a/opac/sco/sco-main.pl +++ b/opac/sco/sco-main.pl @@ -34,9 +34,7 @@ use CGI qw ( -utf8 ); use C4::Auth qw( in_iprange get_template_and_user checkpw ); use C4::Circulation qw( barcodedecode AddReturn CanBookBeIssued AddIssue CanBookBeRenewed AddRenewal ); -use C4::Reserves; use C4::Output qw( output_html_with_http_headers ); -use C4::Members; use Koha::DateUtils qw( dt_from_string ); use Koha::Acquisition::Currencies; use Koha::Items; diff --git a/opac/sco/sco-patron-image.pl b/opac/sco/sco-patron-image.pl index 36e86b7d137..db537ee9745 100755 --- a/opac/sco/sco-patron-image.pl +++ b/opac/sco/sco-patron-image.pl @@ -20,7 +20,6 @@ use Modern::Perl; use C4::Auth qw( in_iprange ); use C4::Service; -use C4::Members; use Koha::Patron::Images; use Koha::Patrons; use Koha::Token; diff --git a/opac/tracklinks.pl b/opac/tracklinks.pl index 5385beac6d2..33ee65929d0 100755 --- a/opac/tracklinks.pl +++ b/opac/tracklinks.pl @@ -21,7 +21,6 @@ use Modern::Perl; use C4::Context; use C4::Auth qw( checkauth ); -use C4::Biblio; use C4::Output qw( output_error ); use Koha::Items; use Koha::Linktracker; diff --git a/patron_lists/delete.pl b/patron_lists/delete.pl index 773ec3d1686..e05c613de10 100755 --- a/patron_lists/delete.pl +++ b/patron_lists/delete.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Output; use Koha::List::Patron qw( DelPatronList ); my $cgi = CGI->new; diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl index e994ddbbb25..033188821c7 100755 --- a/patroncards/create-pdf.pl +++ b/patroncards/create-pdf.pl @@ -27,8 +27,6 @@ use Storable qw( dclone ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Context; -use C4::Creators; -use C4::Patroncards; use Koha::List::Patron qw( GetPatronLists ); use Koha::Patrons; use Koha::Patron::Images; diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl index dbb3d9cc876..57de34a733b 100755 --- a/patroncards/edit-batch.pl +++ b/patroncards/edit-batch.pl @@ -27,7 +27,6 @@ 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::Creators qw( get_card_summary html_table ); -use C4::Patroncards; use Koha::Patrons; my $cgi = CGI->new; diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl index 233bfac349b..494d5e30e48 100755 --- a/patroncards/edit-layout.pl +++ b/patroncards/edit-layout.pl @@ -33,7 +33,6 @@ use C4::Creators qw( get_text_justification_types get_unit_values ); -use C4::Patroncards; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl index 1c7a2cd4113..6105fc4bfe6 100755 --- a/patroncards/edit-template.pl +++ b/patroncards/edit-template.pl @@ -26,7 +26,6 @@ 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::Creators qw( get_all_profiles get_unit_values ); -use C4::Patroncards; my $cgi = CGI->new; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/patroncards/manage.pl b/patroncards/manage.pl index 4366955d87d..50d5a0df2ec 100755 --- a/patroncards/manage.pl +++ b/patroncards/manage.pl @@ -32,7 +32,6 @@ use C4::Creators qw( get_batch_summary html_table ); -use C4::Labels; use Koha::List::Patron qw( GetPatronLists ); my $cgi = CGI->new; diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl index d6a85d39d32..c730b2979de 100755 --- a/plugins/plugins-uninstall.pl +++ b/plugins/plugins-uninstall.pl @@ -22,8 +22,6 @@ use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw( get_template_and_user ); -use C4::Output; -use C4::Members; use Koha::Plugins::Handler; die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins"); diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl index 3e44f00b7e1..8442caa544b 100755 --- a/plugins/plugins-upload.pl +++ b/plugins/plugins-upload.pl @@ -26,7 +26,6 @@ use File::Temp; use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Members; use Koha::Logger; use Koha::Plugins; diff --git a/recalls/recall_pickup_slip.pl b/recalls/recall_pickup_slip.pl index 20816db517f..57fb1fdc323 100755 --- a/recalls/recall_pickup_slip.pl +++ b/recalls/recall_pickup_slip.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); diff --git a/recalls/request.pl b/recalls/request.pl index 222f7ab38b7..d105db72dbd 100755 --- a/recalls/request.pl +++ b/recalls/request.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Search; use Koha::Recalls; use Koha::Biblios; diff --git a/reports/acquisitions_stats.pl b/reports/acquisitions_stats.pl index c804f72abe8..6c8bd1932de 100755 --- a/reports/acquisitions_stats.pl +++ b/reports/acquisitions_stats.pl @@ -563,4 +563,3 @@ sub calculate { } 1; - diff --git a/reports/catalogue_out.pl b/reports/catalogue_out.pl index 51961790a86..8c1b814ccc8 100755 --- a/reports/catalogue_out.pl +++ b/reports/catalogue_out.pl @@ -206,4 +206,3 @@ sub calculate { 1; __END__ - diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl index c497dcc0a71..ab17c6ae03d 100755 --- a/reports/guided_reports.pl +++ b/reports/guided_reports.pl @@ -1114,4 +1114,3 @@ sub create_non_existing_group_and_subgroup { } } } - diff --git a/reports/reserves_stats.pl b/reports/reserves_stats.pl index 94bd5dad8b7..a714f6aae23 100755 --- a/reports/reserves_stats.pl +++ b/reports/reserves_stats.pl @@ -26,7 +26,6 @@ use C4::Context; 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 qw( dt_from_string output_pref ); use Koha::ItemTypes; diff --git a/reserve/modrequest.pl b/reserve/modrequest.pl index 8fa885dd233..4c320530e9b 100755 --- a/reserve/modrequest.pl +++ b/reserve/modrequest.pl @@ -28,7 +28,6 @@ use URI; use List::MoreUtils qw( uniq ); use Try::Tiny; -use C4::Output; use C4::Reserves qw( ModReserve ModReserveCancelAll ); use C4::Auth qw( get_template_and_user ); use Koha::DateUtils qw( dt_from_string ); diff --git a/reserve/modrequest_suspendall.pl b/reserve/modrequest_suspendall.pl index 0a802782b56..e0b25112790 100755 --- a/reserve/modrequest_suspendall.pl +++ b/reserve/modrequest_suspendall.pl @@ -24,7 +24,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Output; use C4::Reserves qw( SuspendAll ); use C4::Auth qw( get_template_and_user ); diff --git a/rotating_collections/addItems.pl b/rotating_collections/addItems.pl index 6cde9aebcee..0ee829a9567 100755 --- a/rotating_collections/addItems.pl +++ b/rotating_collections/addItems.pl @@ -20,8 +20,6 @@ use Modern::Perl; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Context; -use C4::RotatingCollections; use Koha::Items; diff --git a/rotating_collections/editCollections.pl b/rotating_collections/editCollections.pl index 28a23e58675..daf35be2d8c 100755 --- a/rotating_collections/editCollections.pl +++ b/rotating_collections/editCollections.pl @@ -22,9 +22,7 @@ use CGI qw ( -utf8 ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Context; -use C4::RotatingCollections; my $query = CGI->new; diff --git a/rotating_collections/rotatingCollections.pl b/rotating_collections/rotatingCollections.pl index b350861d1e3..f4ae163b510 100755 --- a/rotating_collections/rotatingCollections.pl +++ b/rotating_collections/rotatingCollections.pl @@ -22,8 +22,6 @@ use CGI qw ( -utf8 ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Context; -use C4::RotatingCollections; my $query = CGI->new; diff --git a/rotating_collections/transferCollection.pl b/rotating_collections/transferCollection.pl index 1d5dcf8d581..5217fcdef8b 100755 --- a/rotating_collections/transferCollection.pl +++ b/rotating_collections/transferCollection.pl @@ -20,8 +20,6 @@ use Modern::Perl; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Context; -use C4::RotatingCollections; use CGI qw ( -utf8 ); diff --git a/serials/lateissues-export.pl b/serials/lateissues-export.pl index f20cdbe02c3..ee13e67dc0b 100755 --- a/serials/lateissues-export.pl +++ b/serials/lateissues-export.pl @@ -17,10 +17,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth; use C4::Serials qw( GetLateOrMissingIssues updateClaim ); -use C4::Output; -use C4::Context; use Koha::CsvProfiles; diff --git a/serials/reorder_members.pl b/serials/reorder_members.pl index 7edeb809093..98ca413c965 100755 --- a/serials/reorder_members.pl +++ b/serials/reorder_members.pl @@ -34,4 +34,3 @@ reorder_members( $subscriptionid, $routingid, $rank ); print $query->redirect( "/cgi-bin/koha/serials/routing.pl?subscriptionid=$subscriptionid"); - diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl index b33cb8dbcdf..1c059dedb70 100755 --- a/serials/routing-preview.pl +++ b/serials/routing-preview.pl @@ -20,7 +20,6 @@ # of reserves for the serial use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Koha; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Reserves qw( AddReserve ModReserve ); diff --git a/serials/routing.pl b/serials/routing.pl index 2e3122d3b5b..b56f6cdf634 100755 --- a/serials/routing.pl +++ b/serials/routing.pl @@ -27,7 +27,6 @@ printed out use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Koha; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Context; diff --git a/serials/serials-home.pl b/serials/serials-home.pl index a0e4bc0185f..14d3c9fd181 100755 --- a/serials/serials-home.pl +++ b/serials/serials-home.pl @@ -33,7 +33,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Serials; my $query = CGI->new; my $routing = $query->param('routing') || C4::Context->preference("RoutingSerials"); diff --git a/serials/showpredictionpattern.pl b/serials/showpredictionpattern.pl index 6420e50ce1a..1bd598d78a5 100755 --- a/serials/showpredictionpattern.pl +++ b/serials/showpredictionpattern.pl @@ -35,7 +35,6 @@ use Date::Calc qw( Add_Delta_Days Add_Delta_YM Day_of_Week Delta_Days ); 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::Frequency; use Koha::DateUtils qw( dt_from_string output_pref ); my $input = CGI->new; diff --git a/serials/subscription-add.pl b/serials/subscription-add.pl index c604e4042bb..c752be5651e 100755 --- a/serials/subscription-add.pl +++ b/serials/subscription-add.pl @@ -25,8 +25,6 @@ use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit output_html_with_http_headers ); use C4::Context; use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription ); -use C4::Serials::Frequency; -use C4::Serials::Numberpattern; use C4::Letters qw( GetLetters ); use Koha::AdditionalFields; use Koha::Biblios; diff --git a/serials/subscription-frequencies.pl b/serials/subscription-frequencies.pl index 86d14fccd22..91b90bd4284 100755 --- a/serials/subscription-frequencies.pl +++ b/serials/subscription-frequencies.pl @@ -34,7 +34,6 @@ use CGI qw ( -utf8 ); 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::Frequency; my $input = CGI->new; my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( { diff --git a/serials/subscription-frequency.pl b/serials/subscription-frequency.pl index 4d5208e8981..97949f6b037 100755 --- a/serials/subscription-frequency.pl +++ b/serials/subscription-frequency.pl @@ -19,7 +19,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Serials::Frequency qw( GetSubscriptionFrequency ); use C4::Auth qw( check_cookie_auth ); use JSON qw( to_json ); diff --git a/serials/subscription-renew.pl b/serials/subscription-renew.pl index 5da15363c19..d7eaa210ae2 100755 --- a/serials/subscription-renew.pl +++ b/serials/subscription-renew.pl @@ -47,7 +47,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use Carp qw( carp ); -use C4::Koha; use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Auth qw( get_template_and_user ); diff --git a/serials/viewalerts.pl b/serials/viewalerts.pl index bb356c6331c..42dfd7fbf23 100755 --- a/serials/viewalerts.pl +++ b/serials/viewalerts.pl @@ -21,7 +21,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Subscriptions; diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl index 12eb39f017d..02e98b5beca 100755 --- a/suggestion/suggestion.pl +++ b/suggestion/suggestion.pl @@ -22,11 +22,9 @@ require Exporter; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); -use C4::Suggestions; use C4::Koha qw( GetAuthorisedValues ); use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget ); use C4::Search qw( FindDuplicate GetDistinctValues ); -use C4::Members; use Koha::DateUtils qw( dt_from_string ); use Koha::AuthorisedValues; use Koha::Acquisition::Currencies; diff --git a/svc/bib b/svc/bib index 2fd01c773de..ea6226c4d0b 100755 --- a/svc/bib +++ b/svc/bib @@ -24,7 +24,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( check_api_auth ); use C4::Biblio qw( GetFrameworkCode ); -use C4::Items; use XML::Simple; my $query = CGI->new; diff --git a/svc/bib_framework b/svc/bib_framework index 711b8f7913a..e796820114a 100755 --- a/svc/bib_framework +++ b/svc/bib_framework @@ -20,8 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; -use C4::Biblio; -use C4::Items; use XML::Simple; binmode STDOUT, ':encoding(UTF-8)'; diff --git a/svc/bib_profile b/svc/bib_profile index 46ebe379635..879f7ef5191 100755 --- a/svc/bib_profile +++ b/svc/bib_profile @@ -23,7 +23,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; use C4::Context; -use C4::Koha; use Koha::ItemTypes; use XML::Simple; diff --git a/svc/cataloguing/automatic_linker.pl b/svc/cataloguing/automatic_linker.pl index 17159d96865..526237c376e 100755 --- a/svc/cataloguing/automatic_linker.pl +++ b/svc/cataloguing/automatic_linker.pl @@ -22,7 +22,6 @@ use CGI; use JSON qw( to_json ); use C4::Auth qw( check_cookie_auth ); use C4::Biblio qw( BiblioAutoLink TransformHtmlToMarc ); -use C4::Context; my $input = CGI->new; print $input->header('application/json'); diff --git a/svc/cataloguing/framework b/svc/cataloguing/framework index 1014ea5de97..e31ef2aff86 100755 --- a/svc/cataloguing/framework +++ b/svc/cataloguing/framework @@ -3,10 +3,7 @@ use Modern::Perl '2009'; use CGI; -use C4::ClassSource; use C4::Context; -use C4::Biblio; -use C4::Koha; use C4::Service; use Koha::Database; use Koha::Libraries; diff --git a/svc/checkout_notes b/svc/checkout_notes index c9443dba107..c7a9ecc95ae 100755 --- a/svc/checkout_notes +++ b/svc/checkout_notes @@ -21,7 +21,6 @@ use Modern::Perl; use JSON qw( to_json ); use CGI; -use C4::Service; use C4::Auth qw ( check_cookie_auth ); use C4::Output qw( is_ajax output_with_http_headers ); use Koha::Checkouts; diff --git a/svc/config/systempreferences b/svc/config/systempreferences index acaf3e485f9..8da70f501d2 100755 --- a/svc/config/systempreferences +++ b/svc/config/systempreferences @@ -22,7 +22,6 @@ use Modern::Perl; use C4::Context; use C4::Service; -use C4::Log; =head1 NAME diff --git a/svc/convert_report b/svc/convert_report index 36c8b9948b7..d06475d0b5e 100755 --- a/svc/convert_report +++ b/svc/convert_report @@ -19,10 +19,7 @@ use Modern::Perl; -use C4::Auth; -use C4::Reports::Guided; use Koha::Reports; -use C4::Output; use CGI qw ( -utf8 ); my $query = CGI->new(); diff --git a/svc/creator_batches b/svc/creator_batches index 1e2e4b3eb72..7c9c8f36f05 100755 --- a/svc/creator_batches +++ b/svc/creator_batches @@ -21,7 +21,6 @@ use Modern::Perl; use JSON qw( encode_json ); use CGI; -use C4::Service; use C4::Context; use C4::Auth qw( check_cookie_auth ); use C4::Output qw( is_ajax output_with_http_headers ); diff --git a/svc/holds b/svc/holds index c02602c0ff1..98203863d34 100755 --- a/svc/holds +++ b/svc/holds @@ -23,7 +23,6 @@ use CGI; use JSON qw(to_json); use C4::Auth qw(check_cookie_auth); -use C4::Charset; use C4::Circulation qw(GetTransfers); use C4::Context; diff --git a/svc/letters/preview b/svc/letters/preview index 843372ad082..76ad031f421 100755 --- a/svc/letters/preview +++ b/svc/letters/preview @@ -20,10 +20,7 @@ use Modern::Perl; use CGI qw( -utf8 ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Circulation; -use C4::Letters; use Koha::Checkouts; use Koha::Items; use Koha::Patrons; diff --git a/svc/new_bib b/svc/new_bib index 57a5988c4ac..3c22f9df052 100755 --- a/svc/new_bib +++ b/svc/new_bib @@ -22,10 +22,7 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw/check_api_auth/; -use C4::Biblio; -use C4::Items; use XML::Simple; -use C4::Charset; my $query = CGI->new; binmode STDOUT, ':encoding(UTF-8)'; diff --git a/svc/problem_reports b/svc/problem_reports index 012596bae4e..5d15be28e7d 100755 --- a/svc/problem_reports +++ b/svc/problem_reports @@ -21,7 +21,6 @@ use Modern::Perl; use JSON qw( to_json ); use CGI; -use C4::Service; use C4::Auth qw( check_cookie_auth ); use C4::Output qw( is_ajax output_with_http_headers ); use Koha::ProblemReports; diff --git a/svc/recall b/svc/recall index aad5d671551..b5fee51cec5 100755 --- a/svc/recall +++ b/svc/recall @@ -21,7 +21,6 @@ use Modern::Perl; use CGI; use JSON qw(encode_json); -use C4::Context; use C4::Auth qw(check_cookie_auth); use C4::Output qw(output_with_http_headers); use C4::Circulation qw(AddReturn); diff --git a/svc/split_callnumbers b/svc/split_callnumbers index 7fc9deefd34..5f001638afa 100755 --- a/svc/split_callnumbers +++ b/svc/split_callnumbers @@ -3,7 +3,6 @@ use Modern::Perl; use JSON qw( from_json ); use C4::Service; -use C4::ClassSplitRoutine::RegEx; our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' ); diff --git a/t/lib/Mocks/Zebra.pm b/t/lib/Mocks/Zebra.pm index 62e8b9480b2..02665b6885d 100644 --- a/t/lib/Mocks/Zebra.pm +++ b/t/lib/Mocks/Zebra.pm @@ -21,7 +21,6 @@ use File::Basename qw(dirname ); use File::Temp qw( tempdir ); use File::Path qw( rmtree ); use JSON qw( decode_json ); -use C4::ImportBatch; =head1 NAME diff --git a/tools/additional-contents.pl b/tools/additional-contents.pl index c179cac7ef1..4fd8523847d 100755 --- a/tools/additional-contents.pl +++ b/tools/additional-contents.pl @@ -25,7 +25,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw(get_template_and_user); -use C4::Koha; use C4::Context; use C4::Log qw( logaction ); use C4::Output qw(output_html_with_http_headers); diff --git a/tools/automatic_item_modification_by_age.pl b/tools/automatic_item_modification_by_age.pl index a3138091d31..4b2e162cc99 100755 --- a/tools/automatic_item_modification_by_age.pl +++ b/tools/automatic_item_modification_by_age.pl @@ -38,7 +38,6 @@ use JSON qw( to_json ); use C4::Auth qw( get_template_and_user ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); -use C4::Koha; use Koha::Items; use Koha::Biblioitems; diff --git a/tools/background-job-progress.pl b/tools/background-job-progress.pl index ae6df95e863..e676541c61c 100755 --- a/tools/background-job-progress.pl +++ b/tools/background-job-progress.pl @@ -22,7 +22,6 @@ use Modern::Perl; # standard or CPAN modules used use CGI qw ( -utf8 ); use CGI::Session; -use C4::Context; use C4::Auth qw( check_cookie_auth ); use C4::BackgroundJob; use CGI::Cookie; # need to check cookies before diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl index 923c902f04d..ad3f89570ee 100755 --- a/tools/batch_delete_records.pl +++ b/tools/batch_delete_records.pl @@ -28,7 +28,6 @@ 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 ); -use C4::AuthoritiesMarc; use Koha::Virtualshelves; use Koha::Authorities; diff --git a/tools/batch_records_ajax.pl b/tools/batch_records_ajax.pl index 3d706013ba4..e5e87b5df08 100755 --- a/tools/batch_records_ajax.pl +++ b/tools/batch_records_ajax.pl @@ -34,7 +34,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use JSON qw( to_json ); -use C4::Context; use C4::Auth qw( check_cookie_auth ); use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches ); diff --git a/tools/copy-holidays.pl b/tools/copy-holidays.pl index 381f9e70a54..b237c5eb8c8 100755 --- a/tools/copy-holidays.pl +++ b/tools/copy-holidays.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); -use C4::Output; use C4::Calendar; diff --git a/tools/csv-profiles.pl b/tools/csv-profiles.pl index 2883f71d49b..871c7a1006d 100755 --- a/tools/csv-profiles.pl +++ b/tools/csv-profiles.pl @@ -38,7 +38,6 @@ use Modern::Perl; use Encode; use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use CGI qw ( -utf8 ); use Koha::CsvProfiles; diff --git a/tools/exceptionHolidays.pl b/tools/exceptionHolidays.pl index a96b1d0ebb6..91148cd5c6d 100755 --- a/tools/exceptionHolidays.pl +++ b/tools/exceptionHolidays.pl @@ -5,7 +5,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); -use C4::Output; use DateTime; use C4::Calendar; diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl index 8e4fb5f40f0..4cca4c4607f 100755 --- a/tools/import_borrowers.pl +++ b/tools/import_borrowers.pl @@ -187,4 +187,3 @@ else { } output_html_with_http_headers $input, $cookie, $template->output; - diff --git a/tools/manage-marc-import.pl b/tools/manage-marc-import.pl index e84178fe423..3755672673b 100755 --- a/tools/manage-marc-import.pl +++ b/tools/manage-marc-import.pl @@ -26,7 +26,6 @@ use MARC::File::USMARC; # Koha modules used use C4::Context; -use C4::Koha; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::ImportBatch qw( CleanBatch DeleteBatch GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords ); @@ -452,4 +451,3 @@ sub add_page_numbers { } $template->param(pages => \@pages); } - diff --git a/tools/modborrowers.pl b/tools/modborrowers.pl index bb35b8e1c03..e463296a281 100755 --- a/tools/modborrowers.pl +++ b/tools/modborrowers.pl @@ -29,7 +29,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Koha qw( GetAuthorisedValues ); -use C4::Members; use C4::Output qw( output_html_with_http_headers ); use Koha::DateUtils qw( dt_from_string ); use Koha::List::Patron qw( GetPatronLists ); diff --git a/tools/newHolidays.pl b/tools/newHolidays.pl index b07079d52b1..d5e53fb8973 100755 --- a/tools/newHolidays.pl +++ b/tools/newHolidays.pl @@ -22,7 +22,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); -use C4::Output; use C4::Calendar; use DateTime; diff --git a/tools/overduerules.pl b/tools/overduerules.pl index 1e5d920a076..9d145af04db 100755 --- a/tools/overduerules.pl +++ b/tools/overduerules.pl @@ -22,8 +22,6 @@ use CGI qw ( -utf8 ); use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); -use C4::Letters; -use C4::Members; use C4::Overdues qw( GetOverdueMessageTransportTypes ); use Koha::Libraries; diff --git a/tools/picture-upload.pl b/tools/picture-upload.pl index 839976890ce..2f54f8b4807 100755 --- a/tools/picture-upload.pl +++ b/tools/picture-upload.pl @@ -28,7 +28,6 @@ use MIME::Base64; use C4::Context; use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_and_exit output_html_with_http_headers ); -use C4::Members; use Koha::Logger; use Koha::Patrons; diff --git a/tools/problem-reports.pl b/tools/problem-reports.pl index 31a3671b688..f4fa10608ee 100755 --- a/tools/problem-reports.pl +++ b/tools/problem-reports.pl @@ -20,7 +20,6 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use Koha::ProblemReports; diff --git a/tools/quotes-upload.pl b/tools/quotes-upload.pl index 6efb6da313d..1639dff2b29 100755 --- a/tools/quotes-upload.pl +++ b/tools/quotes-upload.pl @@ -23,7 +23,6 @@ use CGI qw ( -utf8 ); use autouse 'Data::Dumper' => qw(Dumper); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); my $cgi = CGI->new; diff --git a/tools/quotes.pl b/tools/quotes.pl index b45f55ea169..15243bd9a25 100755 --- a/tools/quotes.pl +++ b/tools/quotes.pl @@ -21,7 +21,6 @@ use CGI qw ( -utf8 ); use Try::Tiny qw( catch try ); use C4::Auth qw( get_template_and_user ); -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use Koha::Quotes; diff --git a/tools/showdiffmarc.pl b/tools/showdiffmarc.pl index 6864d7219df..83752b0558c 100755 --- a/tools/showdiffmarc.pl +++ b/tools/showdiffmarc.pl @@ -25,7 +25,6 @@ use Modern::Perl; use CGI qw(:standard -utf8); # Koha modules used -use C4::Context; use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio ); diff --git a/tools/upload-file.pl b/tools/upload-file.pl index 125e7cb611f..6a6d2600509 100755 --- a/tools/upload-file.pl +++ b/tools/upload-file.pl @@ -25,7 +25,6 @@ use Encode; use JSON; use URI::Escape qw( uri_unescape ); -use C4::Context; use C4::Auth qw( check_cookie_auth get_session ); use Koha::Uploader; diff --git a/virtualshelves/downloadshelf.pl b/virtualshelves/downloadshelf.pl index e922e9b4e26..62e038d9fd9 100755 --- a/virtualshelves/downloadshelf.pl +++ b/virtualshelves/downloadshelf.pl @@ -24,7 +24,6 @@ use CGI qw ( -utf8 ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio ); use C4::Output qw( output_html_with_http_headers ); -use C4::Record; use C4::Ris qw( marc2ris ); use Koha::CsvProfiles; diff --git a/virtualshelves/shelves.pl b/virtualshelves/shelves.pl index a722326ad04..18c1dfebf8b 100755 --- a/virtualshelves/shelves.pl +++ b/virtualshelves/shelves.pl @@ -28,7 +28,6 @@ use C4::Koha qw( GetNormalizedUPC ); use C4::Items qw( GetItemsLocationInfo ); -use C4::Members; use C4::Output qw( pagination_bar output_html_with_http_headers ); use C4::XSLT qw( XSLTParse4Display ); -- 2.25.1