Changeset 21601 for gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImageIndexer.pm

Timestamp:

2010-01-25T14:20:45+13:00 (13 years ago)

Author:

davidb

Message:

section level indexing support

File:

• gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImageIndexer.pm (modified) (2 diffs)

gs3-extensions/pharos-imageis/trunk/perllib/plugins/PharosImageIndexer.pm

@@ -142 +142 @@
     }
     # pass in the jpg thumbnail, and the doc obj
-    my ($filename_full_path, $doc_obj) = @_;
+    my ($filename_full_path, $doc_obj, $docid) = @_;
     print STDERR "pharos indexing $filename_full_path\n";
 
     my $collection = &util::get_current_collection_name();
-    my $id = $doc_obj->get_OID();
 
-    my $cmd = "perl -S pharos-imageis-add.pl $collection $filename_full_path $id 2>&1";
+    if (!defined $docid) {
+    $docid = $doc_obj->get_OID();
+    }
+
+    my $cmd = "perl -S pharos-imageis-add.pl $collection $filename_full_path $docid 2>&1";
     print STDERR "Running command $cmd\n";
     my $result = `$cmd`;
@@ -155 +158 @@
     my $outhandle = $self->{'outhandle'};
     if ($return_value != 0) {
-    print $outhandle "Pharos Indexing failed for $filename_full_path, $id\n";
+    print $outhandle "Pharos Indexing failed for $filename_full_path, $docid\n";
     }
     print $outhandle "$result\n";