Changeset 21600

Show
Ignore:
Timestamp:
25.01.2010 14:19:15 (9 years ago)
Author:
davidb
Message:

index each keyframe for each section

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gs3-extensions/pharos-videois/trunk/perllib/plugins/PharosVideoPlugin.pm

    r21333 r21600  
    7373} 
    7474 
    75 sub removeold { 
     75sub remove_all { 
    7676    my $self = shift (@_); 
    7777    my ($pluginfo, $base_dir, $processor, $maxdocs) = @_; 
    7878     
    79     $self->SUPER::removeold(@_); 
    80     $self->PharosImageIndexer::removeold(@_); 
     79    $self->SUPER::remove_all(@_); 
     80    $self->PharosImageIndexer::remove_all(@_); 
    8181    
    8282} 
     83 
     84sub 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 
    8394 
    8495sub post_process_doc_obj { 
     
    8697    # options?? 
    8798    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    } 
    89119} 
    90120