656 |
sub make_link { |
sub make_link { |
657 |
my $chunk = shift; |
my $chunk = shift; |
658 |
# Walrus add (3) start |
# Walrus add (3) start |
659 |
|
$chunk =~ s/^<(.*)>$/$1/; |
660 |
my $name = $chunk; |
my $name = $chunk; |
|
$name =~ s/^<(.*)>$/$1/; |
|
661 |
if ($chunk =~ /^\[\[([^ ]+?) ([^ ]+?)\]\]$/ and $form{mypage} ne $InterWikiName) { |
if ($chunk =~ /^\[\[([^ ]+?) ([^ ]+?)\]\]$/ and $form{mypage} ne $InterWikiName) { |
662 |
($name, $chunk) = ($1, $2); |
($name, $chunk) = ($1, $2); |
663 |
} elsif ($chunk =~ /^mailto:(.*)$/) { |
} elsif ($chunk =~ /^mailto:(.*)$/) { |
675 |
# } else { |
# } else { |
676 |
# return qq(<a href="$chunk">$chunk</a>); |
# return qq(<a href="$chunk">$chunk</a>); |
677 |
# } |
# } |
678 |
return qq(<a href="$chunk">$name</a>); |
return qq(<<a href="$chunk">$name</a>>); |
679 |
# Walrus mod (3) end |
# Walrus mod (3) end |
680 |
} elsif ($chunk =~ m#^urn:[0-9A-Za-z_:;/.-]+#) { |
} elsif ($chunk =~ m#^urn:[0-9A-Za-z_:;/.-]+#) { |
681 |
return qq|<<a href="/uri-res/N2L?${name}">$name</a>>|; |
return qq|<<a href="/uri-res/N2L?${name}">$name</a>>|; |