version 1.3, 2001/05/18 03:12:49
|
version 1.5, 2001/05/18 22:46:54
|
Line 44 print "Creating equalto table...\n";
|
Line 44 print "Creating equalto table...\n";
|
or die "Can't create equalto table: $!\n"; |
or die "Can't create equalto table: $!\n"; |
|
|
|
|
|
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"}; |
|
print "before getbase"; |
|
|
getbase(QuestionId,Question); |
getbase(QuestionId,Question); |
|
|
|
|
|
print "after getbase"; |
|
|
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) |
{ |
{ |