Changeset 22121 for main/trunk

Timestamp:

2010-05-19T17:55:59+12:00 (14 years ago)

Author:

max

Message:

Test added to insure that there is a valid string to convert into the hash table/database data structure (davidb)

File:

• main/trunk/greenstone2/perllib/dbutil.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/dbutil.pm

@@ -316 +316 @@
 {
   my $infodb_entry_value = shift(@_);
-
   my $infodb_map = ();
-  while ($infodb_entry_value =~ /^<(.*?)>(.*)$/mg)
-  {
-    my $infodb_value_key = $1;
-    my $infodb_value = $2;
-
-    if (!defined($infodb_map->{$infodb_value_key}))
+  
+  if (!defined $infodb_entry_value) {
+    print STDERR "Warning: No value to convert into a infodb hashtable\n";
+  }
+  else {
+    while ($infodb_entry_value =~ /^<(.*?)>(.*)$/mg)
     {
-      $infodb_map->{$infodb_value_key} = [ $infodb_value ];
-    }
-    else
-    {
-      push(@{$infodb_map->{$infodb_value_key}}, $infodb_value);
-    }
+        my $infodb_value_key = $1;
+        my $infodb_value = $2;
+
+        if (!defined($infodb_map->{$infodb_value_key}))
+        {
+          $infodb_map->{$infodb_value_key} = [ $infodb_value ];
+        }
+        else
+        {
+          push(@{$infodb_map->{$infodb_value_key}}, $infodb_value);
+        }
+    }
   }