Changeset 24399 for gs3-extensions/audioDB/trunk/src/perllib/plugins/AudioDBPlugin.pm

Timestamp:

2011-08-12T16:40:33+12:00 (13 years ago)

Author:

davidb

Message:

Latest round of changes to code, in preparing for demo to Goldsmiths

File:

• gs3-extensions/audioDB/trunk/src/perllib/plugins/AudioDBPlugin.pm (modified) (1 diff)

gs3-extensions/audioDB/trunk/src/perllib/plugins/AudioDBPlugin.pm

@@ -141 +141 @@
     $wav_filename = $filename_full_path;
     }
-    $doc_obj->associate_file($wav_filename, "audio.wav", "audio/wav", $top_section);
+    $doc_obj->associate_file($wav_filename, "doc.wav", "audio/wav", $top_section);
 
     if ($self->{'enable_streaming'} ne "disabled") {
     
     my $streamable_ext = lc($self->{'enable_streaming'});
+    my $streamable_filename;
 
     if ($input_ext ne $streamable_ext) {
         # make streamable version
-        my $streamable_filename 
+        $streamable_filename 
         = $self->convert_audio_format($filename_full_path,$streamable_ext);
+    }
+    else {
+        $streamable_filename = $filename_full_path;
+    }
 
-        $doc_obj->associate_file($streamable_filename,
-                     "streamable.$streamable_ext", 
-                     $streaming_mime_types->{$streamable_ext},
-                     $top_section);
-    }
+    $doc_obj->associate_file($streamable_filename,
+                 "doc.$streamable_ext", 
+                 $streaming_mime_types->{$streamable_ext},
+                 $top_section);
+
     }