Bug 22330: Transfer limits should be respected for placing holds in staff interface...

[koha.git] / C4 / ClassSource.pm

diff --git a/C4/ClassSource.pm b/C4/ClassSource.pm
index 1130dfb..8c133bc 100644 (file)
--- a/C4/ClassSource.pm
+++ b/C4/ClassSource.pm
@@ -26,8 +26,6 @@ use C4::ClassSortRoutine;
 
 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
-# set the version for version checking
-$VERSION = 3.07.00.049;
 
 =head1 NAME
 
@@ -50,19 +48,11 @@ sources and sorting rules.
 @ISA    = qw(Exporter);
 @EXPORT = qw(
     &GetClassSources
-    &AddClassSource
     &GetClassSource
-    &ModClassSource
-    &DelClassSource
-    &GetClassSortRules
-    &AddClassSortRule
     &GetClassSortRule
-    &ModClassSortRule
-    &DelClassSortRule
-  
-    &GetSourcesForSortRule
+
     &GetClassSort
-    
+
 );
 
 =head2 GetClassSources
@@ -103,25 +93,6 @@ sub GetClassSources {
 
 }
 
-=head2 AddClassSource
-
-  AddClassSource($cn_source, $description, $used, $class_sort_rule);
-
-  Adds a class_sources row.
-
-=cut
-
-sub AddClassSource {
-
-    my ($cn_source, $description, $used, $class_sort_rule) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("INSERT INTO `class_sources`
-                                           (`cn_source`, `description`, `used`, `class_sort_rule`)
-                                           VALUES (?, ?, ?, ?)");
-    $sth->execute($cn_source, $description, $used, $class_sort_rule);
-  
-}
-
 =head2 GetClassSource
 
   my $hashref = GetClassSource($cn_source);
@@ -140,100 +111,6 @@ sub GetClassSource {
     return $row;
 }
 
-=head2 ModClassSource 
-
-  ModClassSource($cn_source, $description, $used, $class_sort_rule);
-
-  Updates a class_sources row.
-
-=cut
-
-sub ModClassSource {
-
-    my ($cn_source, $description, $used, $class_sort_rule) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("UPDATE `class_sources`
-                                    SET  `description` = ?,
-                                         `used` = ?,
-                                         `class_sort_rule` = ?
-                                    WHERE `cn_source` = ?");
-    $sth->execute($description, $used, $class_sort_rule, $cn_source);
-
-}
-
-=head2 DelClassSource 
-
-  DelClassSource($cn_source);
-
-  Deletes class_sources row.
-
-=cut
-
-sub DelClassSource {
-
-    my ($cn_source) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("DELETE FROM `class_sources` WHERE `cn_source` = ?");
-    $sth->execute($cn_source);
-
-}
-
-=head2 GetClassSortRules
-
-  my $sort_rules = GetClassSortRules();
-
-Returns reference to hash of references to
-the class sorting rules, keyed on class_sort_rule
-
-=head3 Example
-
-  my $sort_rules = GetClassSortRules();
-  my @sort_rules = ();
-  foreach my $sort_rule (sort keys %$sort_rules) {
-      my $sort_rule = $sort_rules->{$sort_rule};
-      push @sort_rules,
-          {
-          rule        => $sort_rule->{'class_sort_rule'},
-          description => $sort_rule->{'description'},
-          sort_routine    => $sort_rule->{'sort_routine'}
-      }
-   }
-
-=cut
-
-sub GetClassSortRules {
-
-    my %class_sort_rules = ();
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("SELECT * FROM `class_sort_rules`");
-    $sth->execute();
-    while (my $sort_rule = $sth->fetchrow_hashref) {
-        $class_sort_rules{ $sort_rule->{'class_sort_rule'} } = $sort_rule;
-    }
-
-    return \%class_sort_rules;
-
-}
-
-=head2 AddClassSortRule
-
-  AddClassSortRule($class_sort_rule, $description, $sort_routine);
-
-  Adds a class_sort_rules row.
-
-=cut
-
-sub AddClassSortRule {
-
-    my ($class_sort_rule, $description, $sort_routine) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("INSERT INTO `class_sort_rules`
-                                           (`class_sort_rule`, `description`, `sort_routine`)
-                                           VALUES (?, ?, ?)");
-    $sth->execute($class_sort_rule, $description, $sort_routine);
-  
-}
-
 =head2 GetClassSortRule
 
   my $hashref = GetClassSortRule($class_sort_rule);
@@ -252,67 +129,6 @@ sub GetClassSortRule {
     return $row;
 }
 
-=head2 ModClassSortRule 
-
-  ModClassSortRule($class_sort_rule, $description, $sort_routine);
-
-  Updates a class_sort_rules row.
-
-=cut
-
-sub ModClassSortRule {
-
-    my ($class_sort_rule, $description, $sort_routine) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("UPDATE `class_sort_rules`
-                                    SET  `description` = ?,
-                                         `sort_routine` = ?
-                                    WHERE `class_sort_rule` = ?");
-    $sth->execute($description, $sort_routine, $class_sort_rule);
-
-}
-
-=head2 DelClassSortRule 
-
-  DelClassSortRule($class_sort_rule);
-
-  Deletes class_sort_rules row.
-
-=cut
-
-sub DelClassSortRule {
-
-    my ($class_sort_rule) = @_;
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("DELETE FROM `class_sort_rules` WHERE `class_sort_rule` = ?");
-    $sth->execute($class_sort_rule);
-
-}
-
-=head2 GetSourcesForSortRule
-
-  my @source = GetSourcesForSortRule($class_sort_rule);
-
-  Retrieves an array class_source.cn_rule for each source
-  that uses the supplied $class_sort_rule.
-
-=cut
-
-sub GetSourcesForSortRule {
-
-    my ($class_sort_rule) = @_;
-
-    my $dbh = C4::Context->dbh;
-    my $sth = $dbh->prepare("SELECT cn_source FROM class_sources WHERE class_sort_rule = ?");
-    $sth->execute($class_sort_rule);
-    my @sources = ();
-    while (my ($source) = $sth->fetchrow_array()) {
-        push @sources, $source;
-    }
-    return @sources;
-
-}
-
 =head2 GetClassSort
 
   my $cn_sort = GetClassSort($cn_source, $cn_class, $cn_item);