# Usage: &dbGet($table, $select, $where);
sub dbGet {
my ($table, $select, $where) = @_;
- my $query = "SELECT $select FROM $table";
+ my $query = "SELECT $select FROM $table";
$query .= " WHERE $where" if ($where);
if (!defined $select) {
#####
#####
-# Usage: &getFactInfo($faqtoid, type);
+# Usage: &getFactInfo($faqtoid, $type);
# Note: getFactInfo does dbQuote
sub getFactInfo {
return &dbGet("factoids", $_[1], "factoid_key=".&dbQuote($_[0]) );
return 1;
}
-sub SQLDebug {
- return unless (&IsParam("SQLDebug"));
-
- return unless (fileno SQLDEBUG);
-
- print SQLDEBUG $_[0]."\n";
-}
-
sub dbCreateTable {
my($table) = @_;
my(@path) = (".","..","../..");