summaryrefslogtreecommitdiff
path: root/lib/RHRD
diff options
context:
space:
mode:
Diffstat (limited to 'lib/RHRD')
-rwxr-xr-xlib/RHRD/rddb.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/RHRD/rddb.pm b/lib/RHRD/rddb.pm
index 5141ff5..3d19ff5 100755
--- a/lib/RHRD/rddb.pm
+++ b/lib/RHRD/rddb.pm
@@ -2269,9 +2269,14 @@ sub remove_musicpool
return (undef, $status, $errorstring);
}
- # TODO: remove grid/clock entries!
my @actions = ({
# Delete Clock Permissions
+ sql => qq{update SVC_CLOCKS set CLOCK_NAME = NULL where CLOCK_NAME = ?;},
+ param => $shortname,
+ name => 'grid entries',
+ cnt => 0
+ }, {
+ # Delete Clock Permissions
sql => qq{delete from CLOCK_PERMS where CLOCK_NAME = ?;},
param => $shortname,
name => 'clock permissions',
@@ -2448,7 +2453,7 @@ sub set_musicgrid_clock
or return (undef, 'ERROR', "Database Error: " . $sth->errstr);
unless($cnt == 1) {
- return (undef, 'ERROR', "clock does not exist")
+ return (undef, 'ERROR', "updateting clock failed")
}
return (1, 'OK', 'success');
}