X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FApp-IdiotBox.git;a=blobdiff_plain;f=lib%2FApp%2FIdiotBox%2FImporter.pm;h=030de6ead9cd52989aff4a0e60d381791de08f9e;hp=b7ba15371e7b039997544794843cd4d758d01878;hb=ce2b1e73fc200bc54032b33af7487534d6608ca4;hpb=de247f1b00c98697c80d7b558ccc473af7b2d6c9

diff --git a/lib/App/IdiotBox/Importer.pm b/lib/App/IdiotBox/Importer.pm
index b7ba153..030de6e 100644
--- a/lib/App/IdiotBox/Importer.pm
+++ b/lib/App/IdiotBox/Importer.pm
@@ -79,6 +79,7 @@ sub run {
     $info->{slug} = prompt('What is the slug for this talk?', $slug);
     $info->{bucket} = $bucket;
     $info->{announcement} = $ann;
+    $info->{announcement_id} = $ann->id; # Temp fix so INSERT behaves -- alh
     $videos{$video_file} = bless($info, 'App::IdiotBox::Video');
   }
   foreach my $video_file (keys %videos) {