--- db/prgsrc/db.cgi 2002/06/20 12:54:52 1.70 +++ db/prgsrc/db.cgi 2002/08/01 23:14:00 1.71 @@ -1160,7 +1160,6 @@ sub Get12Random { my ($qnum) = &GetMaxQId($dbh); my (%chosen); srand; - my $where=0; my $r=int (rand(10000)); @@ -1172,7 +1171,6 @@ sub Get12Random { $q="select QuestionId, QuestionId/$r-floor(QuestionId/$r) as val from Questions where $where order by val limit $num"; - # Когда на куличках появится mysql >=3.23 надо заменить на order by rand(); $sth=$dbh->prepare($q);