diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/RHRD/rddb.pm | 9 |
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'); } |