--- deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 03:20:56	1.2
+++ deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 19:47:06	1.4
@@ -12,6 +12,10 @@
 our $indent;
 our $level;
 
+my $MA_BEG = "\x{fcd0}";
+my $MA_SEP = "\x{fcd1}";
+my $MA_END = "\x{fcd2}";
+
 sub asxml($) {
    local $_ = $_[0];
 
@@ -56,12 +60,13 @@
 sub view_seq_link {
    my (undef, $link) = @_;
 
-   # TODO:
-   # http://...
-   # ref
-   # pod/ref
+   my $text = $link =~ s/^(.*)\|// ? $1 : $link;
 
-   "<u>" . (::asxml $_[1]) . "</u>";
+   if ($link =~ /http:/) {
+      "<u>" . (::asxml $link) . "</u>"
+   } else {
+      "${MA_BEG}link$MA_SEP$text$MA_SEP$link$MA_END"
+   }
 }
 
 sub view_item {
@@ -146,8 +151,7 @@
       push @result, {
          indent => $indent * 16,
          level  => $level,
-         markup => "\x{fffc}",
-         widget => [["CFPlus::UI::Image" => path => "pod/" . $_[1]->text]],
+         markup => "${MA_BEG}image${MA_SEP}pod/" . $_->text . $MA_END,
       };
    }
    ()