Changeset 10977 for trunk/gsdl

Timestamp:

2005-12-09T10:14:24+13:00 (18 years ago)

Author:

kjdon

Message:

extended the match for author metadata - can now have Authors, and also e.g. pub.Authors,Author - in this case it will just look at the first metadata name

File:

• trunk/gsdl/perllib/sorttools.pm (modified) (2 diffs)

trunk/gsdl/perllib/sorttools.pm

@@ -49 +49 @@
     # is this metadata likely to be a name?
     my $function_name="format_string_name_$lang";
-    if ($metaname =~ /^(?:\w+\.)?(?:Creator|Author|Editor)(?::.*)?$/
+    if ($metaname =~ /^(?:\w+\.)?(?:Creators?|Authors?|Editors?)(?:[:,].*)?$/
     && exists &$function_name) {
     no strict 'refs';
@@ -84 +84 @@
 sub format_string_name_en {
     my ($stringref) = @_;
-
     $$stringref =~ tr/A-Z/a-z/;
     $$stringref =~ s/&\S+;//g;