Changeset 3433 for trunk/gsdl/perllib
- Timestamp:
- 2002-10-01T15:05:47+12:00 (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/AZList.pm
r3109 r3433 81 81 $self->{'title'} = $title; 82 82 if (defined($removeprefix) && $removeprefix) { 83 $removeprefix =~ s/^\^//; # don't need a leading ^ 83 84 $self->{'removeprefix'} = $removeprefix; 84 85 } … … 104 105 # sorting by we won't include it in this classification 105 106 if (defined $metavalue && $metavalue ne "") { 106 if ( $self->{'removeprefix'}) {107 if (length($self->{'removeprefix'})) { 107 108 $metavalue =~ s/^$self->{'removeprefix'}//; 108 109 } … … 119 120 print $outhandle "WARNING: AZList::classify called multiple times for $doc_OID\n"; 120 121 } 121 $self->{'list'}->{$doc_OID} = $metavalue; 122 if ($metavalue) { 123 $self->{'list'}->{$doc_OID} = $metavalue; 124 } else { 125 my $outhandle = $self->{'outhandle'}; 126 print $outhandle "WARNING: AZList: $doc_OID metadata is empty - not classifying\n"; 127 } 122 128 } 123 129 }
Note:
See TracChangeset
for help on using the changeset viewer.