… | … | ||
---|---|---|---|
77 | } | 77 | } |
78 | 78 | ||
79 | sub view_seq_link { | 79 | sub view_seq_link { |
80 | my (undef, $link) = @_; | 80 | my (undef, $link) = @_; |
81 | 81 | ||
82 | my $text = $link =~ s/^(.*)\|// ? $1 : $link; | 82 | $link =~ s/^(.*)\|// |
83 | or $link =~ /([^\/]*)$/; | ||
84 | |||
85 | my $text = $1; | ||
83 | 86 | ||
84 | if ($link =~ /http:/) { | 87 | if ($link =~ /http:/) { |
85 | "<u>" . (::asxml $link) . "</u>" | 88 | "<u>" . (::asxml $link) . "</u>" |
86 | } elsif ($link =~ /^\$ARCH\/(.+)$/) { | 89 | } elsif ($link =~ /^\$ARCH\/(.+)$/) { |
87 | my $path = $1; | 90 | my $path = $1; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |