Bug 20 fix.

diff --git a/htdocs/cgi-bin/login_ctr.cgi b/htdocs/cgi-bin/login_ctr.cgi
index 3cf8703e71ea62039d222ab0bcd12823bc2609e8..7f783dd2a05c480b5635021f56b2a5e24da0e957 100755 (executable)
--- a/htdocs/cgi-bin/login_ctr.cgi
+++ b/htdocs/cgi-bin/login_ctr.cgi
@@ -182,7 +182,7 @@ sub checkCreateTables {
     my ($pst, $sql,$rv, $changed) = 0;
     # We live check database for available tables now only once.
     # If brand new database, this sill returns fine an empty array.
-    my $pst = Settings::selectRecords($db,"SELECT name FROM sqlite_master WHERE type='table' or type='view';");
+    $pst = Settings::selectRecords($db,"SELECT name FROM sqlite_master WHERE type='table' or type='view';");
     my %curr_tables = ();
     while(my @r = $pst->fetchrow_array()){
         $curr_tables{$r[0]} = 1;