Changeset 21606

Show
Ignore:
Timestamp:
25.01.2010 15:24:46 (9 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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs2-extensions/video/trunk/perllib/plugins/VideoConverter.pm

    r21599 r21606  
    799799    my $count = 1; 
    800800 
    801     my $endchild = $doc_obj->get_end_child($topsection); 
    802  
    803801    foreach my $t (sort { $timeline->{$a}->{'keyframeindex'} <=> $timeline->{$b}->{'keyframeindex'} } keys %$timeline) 
    804802    { 
     
    807805 
    808806    # create next sub-section to video "document" 
    809     $endchild = $doc_obj->insert_section($endchild); 
     807    my $endchild = $doc_obj->insert_section($doc_obj->get_end_child($topsection)); 
    810808    $doc_obj->add_utf8_metadata($endchild,"Title","Timestamp $timestamp"); 
    811809    $doc_obj->add_utf8_metadata($endchild,"FrameNum",$t);