--- deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 18:48:57	1.3
+++ deliantra/Deliantra-Client/bin/pod2wiki	2006/08/13 19:47:06	1.4
@@ -60,10 +60,12 @@
 sub view_seq_link {
    my (undef, $link) = @_;
 
+   my $text = $link =~ s/^(.*)\|// ? $1 : $link;
+
    if ($link =~ /http:/) {
       "<u>" . (::asxml $link) . "</u>"
    } else {
-      "${MA_BEG}link${MA_SEP}$link$MA_END"
+      "${MA_BEG}link$MA_SEP$text$MA_SEP$link$MA_END"
    }
 }