Changeset 30348 for gs2-extensions/tdb

Timestamp:

2015-12-16T10:41:27+13:00 (8 years ago)

Author:

jmt12

Message:

Turns out some non-70-hyphen drivers need the functions to convert to and from string... may need to think about further refactoring

Location:

gs2-extensions/tdb/trunk/perllib/DBDrivers

Files:

• 70HyphenFormat.pm (modified) (1 diff)
• BaseDBDriver.pm (modified) (1 diff)

gs2-extensions/tdb/trunk/perllib/DBDrivers/70HyphenFormat.pm

@@ -88 +88 @@
 }
 ## close_infodb_write_handle(filehandle) => void ##
-
-
-## @function convert_infodb_hash_to_string(hashmap) => string
-#
-sub convert_infodb_hash_to_string
-{
-    my $self = shift(@_);
-    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;
-}
-## convert_infodb_hash_to_string(hashmap) => string ##
-
-
-## @function convert_infodb_string_to_hash(string) => hashmap
-#
-sub convert_infodb_string_to_hash
-{
-    my $self = shift(@_);
-    my $infodb_entry_value = shift(@_);
-    my $infodb_map = ();
-
-    if (!defined $infodb_entry_value) {
-    print STDERR "Warning: No value to convert into a infodb hashtable\n";
-    }
-    else {
-        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;
-}
-## convert_infodb_string_to_hash(string) => hashmap ##
 
 

gs2-extensions/tdb/trunk/perllib/DBDrivers/BaseDBDriver.pm

@@ -250 +250 @@
 
 
+## @function convert_infodb_hash_to_string(hashmap) => string
+#
+sub convert_infodb_hash_to_string
+{
+    my $self = shift(@_);
+    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;
+}
+## convert_infodb_hash_to_string(hashmap) => string ##
+
+
+## @function convert_infodb_string_to_hash(string) => hashmap
+#
+sub convert_infodb_string_to_hash
+{
+    my $self = shift(@_);
+    my $infodb_entry_value = shift(@_);
+    my $infodb_map = ();
+
+    if (!defined $infodb_entry_value) {
+    print STDERR "Warning: No value to convert into a infodb hashtable\n";
+    }
+    else {
+        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;
+}
+## convert_infodb_string_to_hash(string) => hashmap ##
+
+
 ## @function get_infodb_file_path(string, string) => string
 #