Changeset 10257

Timestamp:

2005-07-19T16:58:51+12:00 (19 years ago)

Author:

kjdon

Message:

added a check for undefined/empty values passed into format_metadata_for_sorting

File:

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

trunk/gsdl/perllib/sorttools.pm

@@ -32 +32 @@
 sub format_metadata_for_sorting {
     my ($metaname, $metavalue, $doc_obj) = @_;
-    
+    if (!defined $metaname || $metaname !~ /\S/ || ! defined $metavalue || $metavalue !~ /\S/) {
+    return "";
+    }
+
     if ($metaname eq "Language") {
     $metavalue = $iso639::fromiso639{$metavalue};