Changeset 21600


Ignore:
Timestamp:
2010-01-25T14:19:15+13:00 (12 years ago)
Author:
davidb
Message:

index each keyframe for each section

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.