From 02a942767f0f03eb3ba8101399bad34bc9b09390 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 22 Jun 2018 12:21:01 -0300
Subject: [PATCH] Bug 15836: Mark C4::ClassSource subs DEPRECATED
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

These subs are no longer used from scripts and should be removed. It
should be done on a separate bug report given that additional work is
needed

Sponsored-by: Goethe-Institut

Signed-off-by: Christian Stelzenmüller <christian.stelzenmueller@bsz-bw.de>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
---
 C4/ClassSource.pm     | 20 +++++++++++++-------
 admin/classsources.pl |  1 -
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/C4/ClassSource.pm b/C4/ClassSource.pm
index 245f9589c6..fc4cfbb658 100644
--- a/C4/ClassSource.pm
+++ b/C4/ClassSource.pm
@@ -48,16 +48,10 @@ sources and sorting rules.
 @ISA    = qw(Exporter);
 @EXPORT = qw(
     &GetClassSources
-    &AddClassSource
     &GetClassSource
-    &ModClassSource
-    &DelClassSource
     &GetClassSortRules
-    &AddClassSortRule
     &GetClassSortRule
-    &ModClassSortRule
-    &DelClassSortRule
-  
+
     &GetSourcesForSortRule
     &GetClassSort
     
@@ -103,6 +97,8 @@ sub GetClassSources {
 
 =head2 AddClassSource
 
+  DEPRECATED
+
   AddClassSource($cn_source, $description, $used, $class_sort_rule);
 
   Adds a class_sources row.
@@ -144,6 +140,8 @@ sub GetClassSource {
 
 =head2 ModClassSource 
 
+  DEPRECATED
+
   ModClassSource($cn_source, $description, $used, $class_sort_rule);
 
   Updates a class_sources row.
@@ -165,6 +163,8 @@ sub ModClassSource {
 
 =head2 DelClassSource 
 
+  DEPRECATED
+
   DelClassSource($cn_source);
 
   Deletes class_sources row.
@@ -219,6 +219,8 @@ sub GetClassSortRules {
 
 =head2 AddClassSortRule
 
+  DEPRECATED
+
   AddClassSortRule($class_sort_rule, $description, $sort_routine);
 
   Adds a class_sort_rules row.
@@ -260,6 +262,8 @@ sub GetClassSortRule {
 
 =head2 ModClassSortRule 
 
+  DEPRECATED
+
   ModClassSortRule($class_sort_rule, $description, $sort_routine);
 
   Updates a class_sort_rules row.
@@ -280,6 +284,8 @@ sub ModClassSortRule {
 
 =head2 DelClassSortRule 
 
+  DEPRECATED
+
   DelClassSortRule($class_sort_rule);
 
   Deletes class_sort_rules row.
diff --git a/admin/classsources.pl b/admin/classsources.pl
index 14d86dac55..697db41e45 100755
--- a/admin/classsources.pl
+++ b/admin/classsources.pl
@@ -25,7 +25,6 @@ use C4::Auth;
 use C4::Context;
 use C4::Output;
 use C4::Koha;
-use C4::ClassSource;
 use C4::ClassSortRoutine;
 use C4::ClassSplitRoutine;
 use Koha::ClassSources;
-- 
2.39.5