db/prgsrc/updatedb.pl - diff

Return to updatedb.pl CVS log

Up to [Local Repository] / db / prgsrc

version 1.37, 2004/01/07 14:31:31	version 1.38, 2004/01/10 21:07:38
Line 384 MAIN:	Line 384 MAIN:
&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;