Changeset 20426

Timestamp:

2009-08-28T13:28:26+12:00 (15 years ago)

Author:

kjdon

Message:

new strip_ex_from_metadata routine

File:

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

gsdl/trunk/perllib/classify/BaseClassifier.pm

@@ -369 +369 @@
 }
 
+# ex. can be at front, or it may be a list of metadata, separated by ,/; 
+sub strip_ex_from_metadata {
+    my $self = shift (@_);
+    my $metadata = shift (@_);
+
+    return $metadata unless defined $metadata && $metadata =~ /\S/;
+
+    $metadata =~ s/^ex\.//;
+    $metadata =~ s/([,;\/])ex\./$1/g;
+    return $metadata;
+}
+   
+
 1;