Changeset 21606


Ignore:
Timestamp:
2010-01-25T15:24:46+13:00 (12 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:
1 edited

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);
Note: See TracChangeset for help on using the changeset viewer.