From 180fcff6fe93d51e6ac68fc43e6fb186dcee80d8 Mon Sep 17 00:00:00 2001
From: Andreas Brachold <vdr07@deltab.de>
Date: Wed, 9 Jul 2008 17:40:19 +0000
Subject: * KEYWORDS: Fix reread changed items, if recording edited * CHANNELS:
 Fix format of message if new channel found

---
 lib/XXV/MODULES/CHANNELS.pm | 2 +-
 lib/XXV/MODULES/RECORDS.pm  | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/XXV/MODULES/CHANNELS.pm b/lib/XXV/MODULES/CHANNELS.pm
index 88841b8..3a88a76 100644
--- a/lib/XXV/MODULES/CHANNELS.pm
+++ b/lib/XXV/MODULES/CHANNELS.pm
@@ -1221,7 +1221,7 @@ sub _brandNewChannels {
     my $rm = main::getModule('REPORT');
     $rm->news(
         sprintf(gettext('Found %d new channels!'), scalar keys %$attr),
-        join('\r\n',@lines),
+        join("\r\n",@lines),
         'clist',
         undef,
         'veryinteresting',
diff --git a/lib/XXV/MODULES/RECORDS.pm b/lib/XXV/MODULES/RECORDS.pm
index 7a0f292..18a8129 100644
--- a/lib/XXV/MODULES/RECORDS.pm
+++ b/lib/XXV/MODULES/RECORDS.pm
@@ -2242,8 +2242,9 @@ WHERE
             my $sth = $obj->{dbh}->prepare('DELETE FROM RECORDS WHERE RecordMD5 = ?');
             $sth->execute($recordid)
                 or return con_err($console,sprintf("Couldn't execute query: %s.",$sth->errstr));
-            my @todel = [$recordid];
-            $obj->{keywords}->remove('recording',\@todel);
+            my $todel;
+            push(@$todel,$recordid);
+            $obj->{keywords}->remove('recording',$todel);
         }
         if($dropEPGEntry || $ChangeRecordingData) {
             $obj->{lastupdate} = 0;
-- 
cgit v1.2.3