Changeset 3433

Timestamp:

2002-10-01T15:05:47+12:00 (22 years ago)

Author:

jrm21

Message:

If a metadata value becomes empty (because of the removeprefix option) then
we don't classify it.

File:

• trunk/gsdl/perllib/classify/AZList.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify/AZList.pm

@@ -81 +81 @@
     $self->{'title'} = $title;
     if (defined($removeprefix) && $removeprefix) {
+    $removeprefix =~ s/^\^//; # don't need a leading ^
     $self->{'removeprefix'} = $removeprefix;
     }
@@ -104 +105 @@
     # sorting by we won't include it in this classification
     if (defined $metavalue && $metavalue ne "") {
-    if ($self->{'removeprefix'}) {
+    if (length($self->{'removeprefix'})) {
         $metavalue =~ s/^$self->{'removeprefix'}//;
     }
@@ -119 +120 @@
         print $outhandle "WARNING: AZList::classify called multiple times for $doc_OID\n";
     } 
-    $self->{'list'}->{$doc_OID} = $metavalue;
+    if ($metavalue) {
+        $self->{'list'}->{$doc_OID} = $metavalue;
+    } else {
+        my $outhandle = $self->{'outhandle'};
+        print $outhandle "WARNING: AZList: $doc_OID metadata is empty - not classifying\n";
+    }
     }
 }