Changeset 9576

Timestamp:

2005-04-07T13:17:12+12:00 (19 years ago)

Author:

jrm21

Message:

dynamically check for format_string_xxx functions at runtime, based on the
language. (So we can add format_string_zh for chinese, for example).

File:

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

trunk/gsdl/perllib/sorttools.pm

@@ -43 +43 @@
     }
     $lang = 'en' unless defined $lang;
-    if ($lang eq 'en') {
-    if ($metaname =~ /^(\w+\.)?Creator(:.*)?/) {
-        &format_string_name_english (\$metavalue);
-    } else {
-        &format_string_english (\$metavalue);
+    
+    # is this metadata likely to be a name?
+    my $function_name="format_string_name_$lang";
+    if ($metaname =~ /^(?:\w+\.)?(?:Creator|Author|Editor)(?::.*)?$/
+    && exists &$function_name) {
+    no strict 'refs';
+    &$function_name(\$metavalue);
+    } else {
+    $function_name="format_string_$lang";
+    if (exists &$function_name) {
+        no strict 'refs';
+        &$function_name(\$metavalue);
     }
     }
+
     return $metavalue;
 }
@@ -56 +64 @@
 # i.e. convert to lowercase, remove the, a or an
 # from beginning of string etc.
-sub format_string_english {
-    my ($stringref) = @_;
+sub format_string_en {
+    my $stringref = shift;
 
     $$stringref =~ tr/A-Z/a-z/;
@@ -71 +79 @@
 # i.e. convert to lowercase, put surname before
 # first names etc.    
-sub format_string_name_english {
+sub format_string_name_en {
     my ($stringref) = @_;