Changeset 21550 for main/trunk/greenstone2

Timestamp:

2010-01-21T14:00:10+13:00 (14 years ago)

Author:

mdewsnip

Message:

Added to dbutil.pm two new general functions: convert_infodb_string_to_hash() and convert_infodb_hash_to_string(). These will replace GDBMUtils::parseStringToHash() and GDBMUtils::serializeHash().

File:

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

main/trunk/greenstone2/perllib/dbutil.pm

@@ -259 +259 @@
 
 
+# ---- GENERAL FUNCTIONS --------
+
+sub convert_infodb_hash_to_string
+{
+  my $infodb_map = shift(@_);
+
+  my $infodb_entry_value = "";
+  foreach my $infodb_value_key (keys(%$infodb_map))
+  {
+    foreach my $infodb_value (@{$infodb_map->{$infodb_value_key}})
+    {
+      $infodb_entry_value .= "<$infodb_value_key>" . $infodb_value . "\n";
+    }
+  }
+
+  return $infodb_entry_value;
+}
+
+
+sub convert_infodb_string_to_hash
+{
+  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}))
+    {
+      $infodb_map->{$infodb_value_key} = [ $infodb_value ];
+    }
+    else
+    {
+      push(@{$infodb_map->{$infodb_value_key}}, $infodb_value);
+    }
+  }
+
+  return $infodb_map;
+}
+
+
 1;