"Temporary" fix so import works again. DBIx/Data/Store/CRUD.pm no longer seems to...

diff --git a/lib/App/IdiotBox/Importer.pm b/lib/App/IdiotBox/Importer.pm
index b7ba153..030de6e 100644 (file)
--- 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) {