Return to findequal.pl CVS log | Up to [Local Repository] / db / prgsrc / eq |
version 1.1, 2001/05/18 01:37:51 | version 1.2, 2001/05/18 02:52:59 |
---|---|
Line 51 getbase(QuestionId,Question); | Line 51 getbase(QuestionId,Question); |
print "Loading questions...\n"; | print "Loading questions...\n"; |
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; | #if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
while ((($id, $a) = getrow), $id) | while ((($id, $a) = getrow), $id) |
{ | { |