Changeset 20003 for extensions
- Timestamp:
- 2009-07-17T10:19:54+12:00 (15 years ago)
- Location:
- extensions/gsdl-video/trunk/perllib/plugins
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
extensions/gsdl-video/trunk/perllib/plugins/AudioPlugin.pm
r18556 r20003 153 153 154 154 155 # Convert the video to a new type (if required).155 # Convert the audio to a new type (if required). 156 156 my $converttotype = $self->{'converttotype'}; 157 157 my $converttosize = $self->{'converttosize'}; … … 333 333 334 334 335 sub read_into_doc_obj { 336 my $self = shift (@_); 337 my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $processor, $maxdocs, $total_count, $gli) = @_; 338 339 $self->{'media_type'} = "audio"; 340 341 my ($rv,$doc_obj) = $self->SUPER::read_into_doc_obj(@_); 342 343 if ($rv != 1) { 344 return ($rv,$doc_obj); 345 } 346 347 $self->{'media_type'} = undef; 348 349 return ($rv,$doc_obj); 350 } 351 335 352 336 353 -
extensions/gsdl-video/trunk/perllib/plugins/VideoConverter.pm
r19828 r20003 394 394 395 395 my $s_opt = ""; 396 if ($self->{'media_type'} ne "audio") { 396 my $media_type = $self->{'media_type'}; 397 if ($media_type ne "audio") { 397 398 $s_opt = $self->optional_frame_scale($streaming_size,$video_width,$video_height); 398 399 } -
extensions/gsdl-video/trunk/perllib/plugins/VideoPlugin.pm
r19828 r20003 602 602 my ($pluginfo, $base_dir, $file, $block_hash, $metadata, $processor, $maxdocs, $total_count, $gli) = @_; 603 603 604 $self->{'media_type'} = "video"; 605 604 606 my ($rv,$doc_obj) = $self->SUPER::read_into_doc_obj(@_); 605 607 … … 624 626 } 625 627 628 $self->{'media_type'} = undef; 629 626 630 return ($rv,$doc_obj); 627 631 }
Note:
See TracChangeset
for help on using the changeset viewer.