Changeset 20610 for gsdl/trunk

Timestamp:

2009-09-16T14:25:03+12:00 (15 years ago)

Author:

davidb

Message:

parseStringToHash brought out as a useful subroutine in its own right

File:

• gsdl/trunk/perllib/GDBMUtils.pm (modified) (2 diffs)

gsdl/trunk/perllib/GDBMUtils.pm

@@ -31 +31 @@
 }
 
-sub gdbmRecordToHash
-{
-    my ($database, $oid) = @_;
-
-    my $val = gdbmDatabaseGet($database,$oid);
+sub parseStringToHash
+{
+    my ($val) = @_;
 
     my $rec = {};
@@ -52 +50 @@
 
     return $rec;
+}
+
+sub gdbmRecordToHash
+{
+    my ($database, $oid) = @_;
+
+    my $val = gdbmDatabaseGet($database,$oid);
+
+    return parseStringToHash($val);
 }