From 0c101bd9893bbbc808647a81601cb1223049ec16 Mon Sep 17 00:00:00 2001
From: Karl Dietz <dekarl@users.sourceforge.net>
Date: Fri, 6 Aug 2010 20:14:09 +0200
Subject: [PATCH] fix channel removal in Datastore (left over data in files
 table)

---
 lib/NonameTV/DataStore.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/NonameTV/DataStore.pm b/lib/NonameTV/DataStore.pm
index 69a1b98..400d4c9 100644
--- a/lib/NonameTV/DataStore.pm
+++ b/lib/NonameTV/DataStore.pm
@@ -446,6 +446,7 @@ sub ClearChannel {
   my $deleted = $self->{sa}->Delete( 'programs', { channel_id => $chid } );
 
   $self->{sa}->DoSql( "delete from batches where name like '${chid}_%'", [] );
+  $self->{sa}->Delete( 'files', { channelid => $chid } );
 
   return $deleted;
 }
-- 
2.11.4.GIT