my $answerformat = $cgi->param('format');
my $patch_dtd = $cgi->param('patch_dtd');
$answerformat = "" if (not defined($answerformat));
my $answerformat = $cgi->param('format');
my $patch_dtd = $cgi->param('patch_dtd');
$answerformat = "" if (not defined($answerformat));
if (($answerformat ne "gz") and ($answerformat ne "normal")
and ($answerformat ne "")) {
die "Wrong output format: $answerformat, must be 'normal' ".
if (($answerformat ne "gz") and ($answerformat ne "normal")
and ($answerformat ne "")) {
die "Wrong output format: $answerformat, must be 'normal' ".