small cleanups and fixes

2 files changed, 2 insertions, 3 deletions

diff --git a/rhautoimport-ra b/rhautoimport-ra
index 84acc68..a531458 100755
--- a/rhautoimport-ra
+++ b/rhautoimport-ra
@@ -99,7 +99,6 @@ for my $entry ($feed->entries) {
 
       my $sum_title = decode_entities($entry->title);
       next unless $sum_title =~ /$bdexp/;
-      my $sum_text = decode_entities($entry->content->body);
       my $bnum = $1;
 
       $uri = new URI::URL($orig_uri);
@@ -117,8 +116,8 @@ for my $entry ($feed->entries) {
         exit 1;
       }
 
+      my $sum_text = decode_entities($entry->content->body);
       print "summary:\n" . $sum_title . "\n\n" . $sum_text . "\n";
-
       rhautoimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]), "1");
       print "\n";
       rhautoimport::pv_add_note($sum_title, $sum_text, $PV_ID, sprintf("%04d-%02d-%02d", $import_date_reb[0], $import_date_reb[1], $import_date_reb[2]), "2");
diff --git a/rhautoimport-tr b/rhautoimport-tr
index fac160a..2de6c42 100755
--- a/rhautoimport-tr
+++ b/rhautoimport-tr
@@ -73,7 +73,7 @@ print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_dat
 
 my $id = sprintf("%04d-%02d-%02d", @import_date);
 my $bd = sprintf("%04d-%02d-%02d", @broadcast_day);
-my $bdfile = sprintf("^%04d%02d%02d", @broadcast_day);
+my $bdfile = sprintf("^%04d-?%02d-?%02d", @broadcast_day);
 
 print "looking for files from $bd in RSS Feed\n";
 print " -> $RSS_URL\n";