summaryrefslogtreecommitdiffstats
path: root/buglist.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'buglist.cgi')
-rwxr-xr-xbuglist.cgi8
1 files changed, 7 insertions, 1 deletions
diff --git a/buglist.cgi b/buglist.cgi
index ab7373e06..d1a3c665b 100755
--- a/buglist.cgi
+++ b/buglist.cgi
@@ -199,7 +199,13 @@ sub GetQuip {
my $quip;
- SendSQL("SELECT quip FROM quips WHERE approved = 1 ORDER BY RAND() LIMIT 1");
+ # COUNT is quick because it is cached for MySQL. We may want to revisit
+ # this when we support other databases.
+
+ SendSQL("SELECT COUNT(quip) FROM quips WHERE approved = 1");
+ my $count = FetchOneColumn();
+ my $random = int(rand($count));
+ SendSQL("SELECT quip FROM quips WHERE approved = 1 LIMIT $random,1");
if (MoreSQLData()) {
($quip) = FetchSQLData();