Changeset 34434

Timestamp:

07/15/09 15:34:05 (4 years ago)

Author:

omoon

Message:

一周したときにエラーとなるSQLでした。

Files:

• lang/perl/misc/MyOA/tweet_feed.pl (modified) (1 diff)

lang/perl/misc/MyOA/tweet_feed.pl

@@ -30 +30 @@
 # twitterへの投稿回数が少ないものからランダムに情報取得
 my $sth = $dbh->prepare(
-    "select * from tweet_counter left join documents using(id)
-     where count=(select min(count) from tweet_counter)
-     order by rand()"
+   "select * from tweet_counter left join documents using(id)
+     where title is not null order by count asc, rand()"
 );
 $sth->execute();