| … | … | ||
|---|---|---|---|
| 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 |