Changeset 16177

Timestamp:

2008-06-25T14:19:29+12:00 (15 years ago)

Author:

mdewsnip

Message:

Variable name change for consistency.

File:

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

gsdl/trunk/perllib/dbutil.pm

@@ -237 +237 @@
 
     my $sqlite3_exe = &util::filename_cat("$ENV{'GSDLHOME'}/bin/$ENV{'GSDLOS'}", "sqlite3" . &util::get_os_exe());
-    my $infodb_file_handle = undef;
-    if (!-e "$sqlite3_exe" || !open($infodb_file_handle, "| $sqlite3_exe \"$infodb_file_path\""))
+    my $infodb_handle = undef;
+    if (!-e "$sqlite3_exe" || !open($infodb_handle, "| $sqlite3_exe \"$infodb_file_path\""))
     {
     return undef;
     }
 
-    print $infodb_file_handle "CREATE TABLE data (key TEXT, value TEXT, PRIMARY KEY(key));\n";
-    print $infodb_file_handle "CREATE TABLE document_metadata (id INTEGER PRIMARY KEY, docOID TEXT, element TEXT, value TEXT);\n";
-
-    return $infodb_file_handle;
+    print $infodb_handle "CREATE TABLE data (key TEXT, value TEXT, PRIMARY KEY(key));\n";
+    print $infodb_handle "CREATE TABLE document_metadata (id INTEGER PRIMARY KEY, docOID TEXT, element TEXT, value TEXT);\n";
+
+    return $infodb_handle;
 }