Changeset 19499 for gsdl/trunk/perllib/GDBMUtils.pm

Timestamp:

2009-05-18T11:01:40+12:00 (15 years ago)

Author:

davidb

Message:

Additional work on supporting Greenstone CGI-based API

File:

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

gsdl/trunk/perllib/GDBMUtils.pm

@@ -52 +52 @@
 
     return $rec;
+}
+
+sub serializeHash
+{
+    my ($hash) = @_;
+
+    my $shash = "";
+    
+    foreach my $metaname (keys %$hash) {
+    my $metavals = $hash->{$metaname};
+    foreach my $metaval (@$metavals) {
+        # need to escape chars HTML entities ??
+        $shash .= "<$metaname>$metaval\n";
+    }
+    }
+
+    return $shash;
 }