Changeset 21599

Timestamp:

2010-01-25T13:57:54+13:00 (13 years ago)

Author:

davidb

Message:

Section level support added in

Location:

gs2-extensions/video/trunk/perllib/plugins

Files:

• MultimediaPlugin.pm (modified) (1 diff)
• VideoConverter.pm (modified) (2 diffs)

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

@@ -208 +208 @@
     
     $self->add_OID($doc_obj);
+
+    $self->post_process_doc_obj($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli);
 
     return (1,$doc_obj);

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

@@ -793 +793 @@
     my ($self) = shift(@_);
 
-    my ($doc_obj,$section,$timeline) = @_;
+    my ($doc_obj,$topsection,$timeline) = @_;
 
     my $output_dir = $self->{'cached_dir'};
     
     my $count = 1;
+
+    my $endchild = $doc_obj->get_end_child($topsection);
 
     foreach my $t (sort { $timeline->{$a}->{'keyframeindex'} <=> $timeline->{$b}->{'keyframeindex'} } keys %$timeline)
@@ -804 +806 @@
     my $timestamp = $timeline->{$t}->{'timestamp'};
 
+    # create next sub-section to video "document"
+    $endchild = $doc_obj->insert_section($endchild);
+    $doc_obj->add_utf8_metadata($endchild,"Title","Timestamp $timestamp");
+    $doc_obj->add_utf8_metadata($endchild,"FrameNum",$t);
+
     my $kframe_filename = &util::filename_cat($output_dir,$kframe_file);
-    $doc_obj->associate_file($kframe_filename,"keyframe$count.jpg","image/jpeg",
-                 $section);
-    $doc_obj->add_utf8_metadata($section,"KeyframeTimestamp",$timestamp);
-    $doc_obj->add_utf8_metadata($section,"KeyframeFrameNum",$t);
+    $doc_obj->associate_file($kframe_filename,"keyframe$count.jpg",
+                 "image/jpeg",
+                 $endchild);
+
+    $doc_obj->add_utf8_metadata($endchild,"assockeyframe","keyframe$count.jpg");
+
+    $doc_obj->add_utf8_metadata($topsection,"KeyframeTimestamp",$timestamp);
+    $doc_obj->add_utf8_metadata($topsection,"KeyframeFrameNum",$t);
+
+
 
     $count++;
     }
 
-    #### $doc_obj->add_utf8_metadata($section,"NumKeyframes",scalar(@{$self->{'keyframe_fnames'}}));
-
-    $doc_obj->add_utf8_metadata($section,"NumKeyframes",scalar(keys %$timeline));
+    #### $doc_obj->add_utf8_metadata($topsection,"NumKeyframes",scalar(@{$self->{'keyframe_fnames'}}));
+
+    $doc_obj->add_utf8_metadata($topsection,"NumKeyframes",scalar(keys %$timeline));
 
 
     # *****
-    # $doc_obj->add_metadata ($section, "thumblist", $self->{'flowplayer_thumblist'});
+    # $doc_obj->add_metadata ($topsection, "thumblist", $self->{'flowplayer_thumblist'});
 }