version 1.36, 2003/04/14 20:06:59
|
version 1.38, 2004/01/10 21:07:38
|
Line 372 MAIN:
|
Line 372 MAIN:
|
next; |
next; |
} |
} |
|
|
|
|
|
if ($key =~ /Зач[её]т/) { |
|
&UpdateQuestion($dbh, $QuestionId, "PassCriteria", $value); |
|
next; |
|
} |
|
|
|
|
|
|
if ($key =~ /Комментари/) { |
if ($key =~ /Комментари/) { |
&UpdateQuestion($dbh, $QuestionId, "Comments", $value); |
&UpdateQuestion($dbh, $QuestionId, "Comments", $value); |
next; |
next; |
} |
} |
|
|
|
if ($key =~ /Вид/) { |
|
if ($value =~ /^\s*Д\s*$/) {#Questions Д are really ЧД... |
|
$value = "ДЧ"; |
|
} |
|
&UpdateQuestion($dbh, $QuestionId, "Type", $value); |
|
next; |
|
} |
|
|
|
|
|
|
my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; |
my @Fields = grep { $key =~ /$_/ } keys %QuestionFields; |
|
|