use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-# set the version for version checking
-$VERSION = 3.07.00.049;
=head1 NAME
sub AddClassSource {
my ($cn_source, $description, $used, $class_sort_rule) = @_;
+ my $exists = GetClassSource($cn_source);
+ if ($exists) {
+ return 0;
+ }
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);
-
+ return 1;
}
=head2 GetClassSource
sub AddClassSortRule {
my ($class_sort_rule, $description, $sort_routine) = @_;
+ my $exists = GetClassSortRule($class_sort_rule);
+ if ($exists) {
+ return 0;
+ }
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);
-
+ return 1;
}
=head2 GetClassSortRule