Changeset 9142

Timestamp:

2005-02-23T10:04:07+13:00 (19 years ago)

Author:

davidb

Message:

Revision to Collaging so only documents with associated files that
match the list of imageType filename extension go into the classifier.

File:

• trunk/gsdl/perllib/classify/Collage.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/Collage.pm

@@ -170 +170 @@
     my ($doc_obj) = @_;
 
-    my $doc_OID = $doc_obj->get_OID();
-    push (@{$self->{'list'}}, $doc_OID);
+    my $has_image_type = 0;
+
+    my @image_type_split = split(/%/,$self->{'imageType'});
+    my @image_type_ext = map { "($_)" } @image_type_split;
+    my $image_type_re = join("|",@image_type_ext);
+    $image_type_re =~ s/\./\\\./g;
+
+    my $assoc_files = $doc_obj->{'associated_files'};
+
+    foreach my $af ( @$assoc_files ) {
+    my ($real_filename, $assoc_filename, $mime_type, $section) = @$af;
+    if ($assoc_filename =~ m/$image_type_re/) {
+        $has_image_type = 1;
+        last;
+    }
+    }
+
+    if ($has_image_type) {
+    my $doc_OID = $doc_obj->get_OID();
+    push (@{$self->{'list'}}, $doc_OID);
+    }
+
 }