$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) {