Changeset 20003 for extensions/gsdl-video/trunk/perllib/plugins/AudioPlugin.pm

Timestamp:

2009-07-17T10:19:54+12:00 (15 years ago)

Author:

davidb

Message:

Some minor tweaks to better align the audio and video plugins

File:

• extensions/gsdl-video/trunk/perllib/plugins/AudioPlugin.pm (modified) (2 diffs)

extensions/gsdl-video/trunk/perllib/plugins/AudioPlugin.pm

@@ -153 +153 @@
 
 
-    # Convert the video to a new type (if required).
+    # Convert the audio to a new type (if required).
     my $converttotype = $self->{'converttotype'};
     my $converttosize = $self->{'converttosize'};
@@ -333 +333 @@
 
 
+sub read_into_doc_obj {
+    my $self = shift (@_);  
+    my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $processor, $maxdocs, $total_count, $gli) = @_;
+
+    $self->{'media_type'} = "audio";
+
+    my ($rv,$doc_obj) = $self->SUPER::read_into_doc_obj(@_);
+
+    if ($rv != 1) {
+    return ($rv,$doc_obj);
+    }
+    
+    $self->{'media_type'} = undef;
+
+    return ($rv,$doc_obj);
+}
+