LDP
/
LDP
mirror of https://github.com/tLDP/LDP
0
1
Fork 0
Code Releases Activity

Error if any question has no answers defined.

This commit is contained in:
david 2002-01-20 20:47:50 +00:00
parent 7a386f4648
commit 12a4a170c2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
LDP/txt2db/txt2db.pl
View File

@ -18,6 +18,9 @@ my($level1,
$qandaentry,
$answer);
my($answers);
$answers = 0;
my($line);
my($id, $title);
@ -198,14 +201,15 @@ sub proc_txt {
$line = "<qandaset defaultlabel='qanda'>\n". $line;
$qandaset = 1;
}
$answers = 0;
} elsif ($line =~ /^A:/) {
$line =~ s/^A://;
&trimline;
&closeanswer;
$line = "<answer><para>" . $line . "</para>\n";
$answers++;
} else {
# &closeqandaset;
if ( $para == 0 ) {
$line =~ s/^/<para>/;
$para = 1;
@ -337,6 +341,10 @@ sub closeqandaentry {
if ($qandaentry == 1) {
$buf .= "</qandaentry>\n";
$qandaentry = 0;
if ($answers == 0) {
print "txt2db: ERROR A question did not have an answer.\n";
exit(1);
}
}
}