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

*** empty log message ***

This commit is contained in:
david 2002-01-21 20:55:02 +00:00
parent 79a7dd8393
commit dc5672dad3
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LDP/txt2db/sample.txt
View File

@ -3,12 +3,12 @@
The following list should be rendered as a qandaset:
Q: Why?|why-id
A: Why not?
A: Why
not?
Multiple questions and multiple answers:
Q: Why?
Q: Why2?
A: Why not?
A: Why not2?

8
LDP/txt2db/txt2db.pl
View File

@ -259,7 +259,9 @@ sub proc_txt {
$line =~ s/^A://;
&trimline;
&closeanswer;
$line = "<answer><para>" . $line . "</para>\n";
$line = "<answer><para>" . $line . "\n";
$answer = 1;
$para = 1;
# para
#
@ -354,7 +356,6 @@ sub closenonsect {
&closepara;
&closeorderedlist;
&closeitemizedlist;
# &closeqandaentry;
}
sub closelistitem {
@ -389,8 +390,9 @@ sub closelists {
}
sub closeanswer {
&closepara;
if ($answer == 1) {
$line = "</answer>\n";
$buf .= "</answer>\n";
$answer = 0;
}
}