Changeset 15747 for gsdl

Timestamp:

2008-05-28T14:14:53+12:00 (16 years ago)

Author:

mdewsnip

Message:

(Adding new DB support) Added an sqlite_safe() function to escape single quotes in values.

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -233 +233 @@
     my $infodb_map = shift(@_);
 
+    # Add the key -> value mapping into the "data" table
     my $infodb_entry_value = "";
     foreach my $infodb_value_key (keys(%$infodb_map))
@@ -242 +243 @@
     }
 
+    print $infodb_handle "DELETE FROM data WHERE key='" . &sqlite_safe($infodb_key) . "';\n";
+    print $infodb_handle "INSERT INTO data (key, value) VALUES ('" . &sqlite_safe($infodb_key) . "', '" . &sqlite_safe($infodb_entry_value) . "');\n";
+}
+
+
+sub sqlite_safe
+{
+    my $value = shift(@_);
+
     # Escape any single quotes in the value
-    $infodb_entry_value =~ s/\'/\'\'/g;
-
-    print $infodb_handle "DELETE FROM data WHERE key='" . $infodb_key . "';\n";
-    print $infodb_handle "INSERT INTO data (key, value) VALUES ('" . $infodb_key . "', '" . $infodb_entry_value . "');\n";
+    $value =~ s/\'/\'\'/g;
+
+    return $value;
 }