--- deliantra/Deliantra-Client/bin/pod2wiki	2008/03/30 13:02:27	1.16
+++ deliantra/Deliantra-Client/bin/pod2wiki	2008/04/02 13:27:55	1.17
@@ -79,7 +79,10 @@
 sub view_seq_link {
    my (undef, $link) = @_;
 
-   my $text = $link =~ s/^(.*)\|// ? $1 : $link;
+   $link =~ s/^(.*)\|//
+      or $link =~ /([^\/]*)$/;
+
+   my $text = $1;
 
    if ($link =~ /http:/) {
       "<u>" . (::asxml $link) . "</u>"