diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/XXV/MODULES/CHANNELS.pm | 2 | ||||
| -rw-r--r-- | lib/XXV/MODULES/RECORDS.pm | 5 |
2 files changed, 4 insertions, 3 deletions
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; |