| 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>>|; |
Parent Directory
| 
Revision Log
| 
Patch