Changeset 21606

Timestamp:

2010-01-25T15:24:46+13:00 (14 years ago)

Author:

kjdon

Message:

insert_section inserts *before* the specified section, so need to get the end child each time, otherwise each new one will be inserted before the previous one instead of after

File:

• gs2-extensions/video/trunk/perllib/plugins/VideoConverter.pm (modified) (2 diffs)

gs2-extensions/video/trunk/perllib/plugins/VideoConverter.pm

@@ -799 +799 @@
     my $count = 1;
 
-    my $endchild = $doc_obj->get_end_child($topsection);
-
     foreach my $t (sort { $timeline->{$a}->{'keyframeindex'} <=> $timeline->{$b}->{'keyframeindex'} } keys %$timeline)
     {
@@ -807 +805 @@
 
     # create next sub-section to video "document"
-    $endchild = $doc_obj->insert_section($endchild);
+    my $endchild = $doc_obj->insert_section($doc_obj->get_end_child($topsection));
     $doc_obj->add_utf8_metadata($endchild,"Title","Timestamp $timestamp");
     $doc_obj->add_utf8_metadata($endchild,"FrameNum",$t);