| … | |
… | |
| 722 | if $newnode; |
722 | if $newnode; |
| 723 | |
723 | |
| 724 | for (split /\n/, $comment) { |
724 | for (split /\n/, $comment) { |
| 725 | $text .= "\n"; |
725 | $text .= "\n"; |
| 726 | if (s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) { |
726 | if (s/^([0-9a-zA-Z]+ \[[0-9dkp\?\-]+\])://) { |
| 727 | $text .= "<leader><user>" . (util::toxml $1) . "</user>:</leader>"; |
727 | $text .= "<user>" . (util::toxml $1) . "</user>:"; |
| 728 | } |
728 | } |
| 729 | |
729 | |
| 730 | # coords only for 19x19 so far |
730 | # coords only for 19x19 so far |
| 731 | $_ = util::toxml $_; |
731 | $_ = util::toxml $_; |
| 732 | s{ |
732 | s{ |
