changed regexp for sounds of movement

1 files changed, 1 insertions, 1 deletions

diff --git a/rhimport-sm b/rhimport-sm
index e73c8a9..f1fb60e 100755
--- a/rhimport-sm
+++ b/rhimport-sm
@@ -116,7 +116,7 @@ if(Date::Calc::Delta_Days(@broadcast_date, @today) <= 0) {
 
 my $id = sprintf("%04d-%02d-%02d", $import_date[0], $import_date[1], $import_date[2]);
 my $bd = sprintf("%04d-%02d-%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]);
-my $bdfile = sprintf("%04d-%02d-%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]);
+my $bdfile = sprintf("%04d%02d%02d", $broadcast_date[0], $broadcast_date[1], $broadcast_date[2]);
 
 print "looking for files from $bd in RSS Feed\n";
 print " -> $RSS_URL\n";