From 27e242bbef89cc58fb02df6294f7d3dafe1e293c Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Sun, 13 Feb 2011 21:23:12 -0700
Subject: [PATCH] Updated QDB module.

---
 modules/QDB.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/modules/QDB.pm b/modules/QDB.pm
index c65b122..abf4f6f 100644
--- a/modules/QDB.pm
+++ b/modules/QDB.pm
@@ -14,7 +14,7 @@ sub _init
     cmd_add('QDB', 0, 0, \%m_QDB::HELP_QDB, \&m_QDB::cmd_qdb) or return;
 
     # Check for database table.
-    $Auto::DB->do('CREATE TABLE IF NOT EXISTS qdb (key INTEGER PRIMARY KEY, creator TEXT, time INTEGER, quote TEXT)') or return;
+    $Auto::DB->do('CREATE TABLE IF NOT EXISTS qdb (quoteid INTEGER PRIMARY KEY, creator TEXT, time INTEGER, quote TEXT)') or return;
 
     # Success.
     return 1;
@@ -76,7 +76,7 @@ sub cmd_qdb
             }
 
             # Get quote.
-            my $dbq = $Auto::DB->prepare('SELECT * FROM qdb WHERE key = ?') or
+            my $dbq = $Auto::DB->prepare('SELECT * FROM qdb WHERE quoteid = ?') or
                 notice($data{svr}, $data{nick}, trans('An error occurred').'. Quote might not exist.') and return;
             $dbq->execute($argv[1]) or notice($data{svr}, $data{nick}, trans('An error occurred').'. Quote might not exist.') and return;
             my @data = $dbq->fetchrow_array;
@@ -103,7 +103,7 @@ sub cmd_qdb
             if ($rand == 0) { $rand = $count; }
 
             # Get quote.
-            my $dbq = $Auto::DB->prepare('SELECT * FROM qdb WHERE key = ?') or
+            my $dbq = $Auto::DB->prepare('SELECT * FROM qdb WHERE quoteid = ?') or
                 notice($data{svr}, $data{nick}, trans('An error occurred').q{.}) and return;
             $dbq->execute($rand) or notice($data{svr}, $data{nick}, trans('An error occurred').q{.}) and return;
             my @data = $dbq->fetchrow_array;
@@ -125,7 +125,7 @@ sub cmd_qdb
             }
             
             # Update database.
-            my $dbq = $Auto::DB->do("UPDATE qdb SET quote = \"NOTICE: Quote deleted.\" WHERE key = $argv[1]");
+            my $dbq = $Auto::DB->do("UPDATE qdb SET quote = \"NOTICE: Quote deleted.\" WHERE quoteid = $argv[1]");
 
             notice($data{svr}, $data{nick}, (($dbq) ? 'Done.' : trans('An error occurred').q{.}));
         }
@@ -167,6 +167,6 @@ database.
 
 =over
 
-This module is compatible with Auto v3.0.0a3+.
+This module is compatible with Auto v3.0.0a4+.
 
 =back