Changeset 20426
- Timestamp:
- 2009-08-28T13:28:26+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/BaseClassifier.pm
r20008 r20426 369 369 } 370 370 371 # ex. can be at front, or it may be a list of metadata, separated by ,/; 372 sub strip_ex_from_metadata { 373 my $self = shift (@_); 374 my $metadata = shift (@_); 375 376 return $metadata unless defined $metadata && $metadata =~ /\S/; 377 378 $metadata =~ s/^ex\.//; 379 $metadata =~ s/([,;\/])ex\./$1/g; 380 return $metadata; 381 } 382 383 371 384 1;
Note:
See TracChangeset
for help on using the changeset viewer.