Changeset 23399 for main/trunk/greenstone2/perllib/dbutil/gdbm.pm

Timestamp:

2010-12-07T16:55:10+13:00 (13 years ago)

Author:

max

Message:

Added (for GDBM and Sqlite) set_infodb_entry to directly change one value in the database. Print statements added to other versions of function, alterting that they are not implemented.

Also added read_infodb_rawentry. Plus, more efficient way of accessing a single record from Sqlite.

File:

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

main/trunk/greenstone2/perllib/dbutil/gdbm.pm

@@ -158 +158 @@
 
 
+sub set_infodb_entry
+{
+    my $infodb_file_path = shift(@_);
+    my $infodb_key = shift(@_);
+    my $infodb_map = shift(@_);
+  
+    # Protect metadtaa values that go inside quotes for gdbmset
+    foreach my $k (keys %$infodb_map) {
+      my @escaped_v = ();
+      foreach my $v (@{$infodb_map->{$k}}) {
+        if ($k eq "contains") {
+          # protect quotes in ".2;".3 etc
+          $v =~ s/\"/\\\"/g;
+          push(@escaped_v, $v);
+        }
+        else {
+          my $ev = &ghtml::unescape_html($v);
+          $ev =~ s/\"/\\\"/g;
+          push(@escaped_v, $ev);
+        }
+      }
+      $infodb_map->{$k} = \@escaped_v;
+    }
+    
+    # Generate the record string
+    my $serialized_infodb_map = &dbutil::convert_infodb_hash_to_string($infodb_map);
+    ## print STDERR "**** ser dr\n$serialized_infodb_map\n\n\n";
+
+    # Store it into GDBM
+    my $cmd = "gdbmset \"$infodb_file_path\" \"$infodb_key\" \"$serialized_infodb_map\"";
+    my $status = system($cmd);
+  
+    return $status;
+  
+}
+
+
 sub delete_infodb_entry
 {