| … | |
… | |
| 25 | X => "span", # broken |
25 | X => "span", # broken |
| 26 | Z => "span", # broken |
26 | Z => "span", # broken |
| 27 | ); |
27 | ); |
| 28 | # strip formatting codes, dumb version |
28 | # strip formatting codes, dumb version |
| 29 | map { |
29 | map { |
| 30 | s/([IBCLFSXZ])<< (.*?) >>/<$tag{$1}>$2<\/$tag{$1}>/gs; |
30 | s/([IBCLFSXZ])<< (.*?) >>/<$tag{$1}>$2 <\/$tag{$1}>/gs; |
| 31 | s/([IBCLFSXZ])<(.*?)>/<$tag{$1}>$2<\/$tag{$1}>/gs; |
31 | s/([IBCLFSXZ])<(.*?)>/<$tag{$1}>$2 <\/$tag{$1}>/gs; |
| 32 | $_ |
32 | $_ |
| 33 | } @$_; |
33 | } @$_; |
| 34 | } |
34 | } |
| 35 | |
35 | |
| 36 | sub command { |
36 | sub command { |
| … | |
… | |
| 80 | # html |
80 | # html |
| 81 | # pod::xhtml fails on begin/end blocks |
81 | # pod::xhtml fails on begin/end blocks |
| 82 | # print $fh "=begin xhtml\n\n"; |
82 | # print $fh "=begin xhtml\n\n"; |
| 83 | |
83 | |
| 84 | print $fh "=for xhtml <table>"; |
84 | print $fh "=for xhtml <table>"; |
| 85 | print $fh map "<tr><td>" . +(join "</td><td>", htmlfcodes @$_) . "</td></tr>", @$table; |
85 | print $fh map "<tr><td>" . +(join " </td><td>", htmlfcodes @$_) . " </td></tr>", @$table; |
| 86 | print $fh "</table>\n\n"; |
86 | print $fh "</table>\n\n"; |
| 87 | |
87 | |
| 88 | print $fh "=for html <table>"; |
88 | print $fh "=for html <table>"; |
| 89 | print $fh map "<tr><td>" . +(join "</td><td>", htmlfcodes @$_) . "</td></tr>", @$table; |
89 | print $fh map "<tr><td>" . +(join " </td><td>", htmlfcodes @$_) . " </td></tr>", @$table; |
| 90 | print $fh "</table>\n\n"; |
90 | print $fh "</table>\n\n"; |
| 91 | |
91 | |
| 92 | # print $fh "\n=end xhtml\n\n"; |
92 | # print $fh "\n=end xhtml\n\n"; |
| 93 | |
93 | |
| 94 | } |
94 | } |
