Return to findequal.pl CVS log | Up to [Local Repository] / db / prgsrc / eq |
version 1.3, 2001/05/18 03:12:49 | version 1.4, 2001/05/18 03:23:45 |
---|---|
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) |
{ | { |