Changeset 21856 for main/trunk/greenstone2/perllib/dbutil/mssql.pm

Timestamp:

2010-03-31T23:08:43+13:00 (14 years ago)

Author:

davidb

Message:

read_infodb_entry() implemented for sqlite. new write_infodb_rawentry() added for main dbutil.dm class

File:

• main/trunk/greenstone2/perllib/dbutil/mssql.pm (modified) (2 diffs)

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

@@ -140 +140 @@
   my $infodb_map = shift(@_);
 
-  # !! TO IMPLEMENT
+  print STDERR "******* mssql::read_infodb_file() TO BE IMPLEMENTED!\n";
+  print STDERR "******* See sqlite.pm for comparable implementation that has been coded up!\n";
 }
 
@@ -199 +200 @@
 }
 
+
+sub write_infodb_rawentry
+{
+  my $infodb_handle = shift(@_);
+  my $infodb_key = shift(@_);
+  my $infodb_val = shift(@_);
+  
+  # Prepare the query
+  my $safe_infodb_key = &mssql_safe($infodb_key);
+  my $query = "INSERT INTO " . $mssql_data_table_name . " (one_key, one_value) VALUES (N'" . $safe_infodb_key . "', N'" . &mssql_safe($infodb_val) . "')";
+  dbquery($infodb_handle, $query);
+}
+
 sub delete_infodb_entry
 {