Bug 15836: Mark C4::ClassSource subs DEPRECATED

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

@@ -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.

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;