Changeset 21600
- Timestamp:
- 2010-01-25T14:19:15+13:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs3-extensions/pharos-videois/trunk/perllib/plugins/PharosVideoPlugin.pm
r21333 r21600 73 73 } 74 74 75 sub remove old{75 sub remove_all { 76 76 my $self = shift (@_); 77 77 my ($pluginfo, $base_dir, $processor, $maxdocs) = @_; 78 78 79 $self->SUPER::remove old(@_);80 $self->PharosImageIndexer::remove old(@_);79 $self->SUPER::remove_all(@_); 80 $self->PharosImageIndexer::remove_all(@_); 81 81 82 82 } 83 84 sub remove_one { 85 my $self = shift (@_); 86 my ($file, $oids, $archivedir) = @_; 87 return undef if (!$self->can_process_this_file($file)); 88 89 $self->PharosImageIndexer::remove_one(@_); 90 return $self->SUPER::remove_one(@_); 91 92 } 93 83 94 84 95 sub post_process_doc_obj { … … 86 97 # options?? 87 98 my ($pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_; 88 $self->pharos_index_image(&util::filename_cat($base_dir, $file), $doc_obj); 99 100 my $topsection = $doc_obj->get_top_section(); 101 102 my $assoc_files = $doc_obj->get_assoc_files(); 103 104 105 my $docid = $doc_obj->get_OID(); 106 107 foreach my $ar (@$assoc_files) { 108 my ($real_filename,$afile,$mimetype,$section) = @$ar; 109 if ($afile =~ m/^keyframe/) { 110 111 my $secid = $docid; 112 if ($section ne "") { 113 $secid .= ".$section"; 114 } 115 116 $self->pharos_index_image($real_filename, $doc_obj, $secid); 117 } 118 } 89 119 } 90 120
Note:
See TracChangeset
for help on using the changeset viewer.