| 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>>|; |
| 709 |
return qq(<a title="$subject" href="$url_cgi?$cookedchunk">$name</a>); # Walrus add (3) |
return qq(<a title="$subject" href="$url_cgi?$cookedchunk">$name</a>); # Walrus add (3) |
| 710 |
} elsif ($page_command{$chunk}) { |
} elsif ($page_command{$chunk}) { |
| 711 |
# return qq(<a title="$chunk" href="$url_cgi?$cookedchunk">$chunk</a>); # Walrus del (3) |
# return qq(<a title="$chunk" href="$url_cgi?$cookedchunk">$chunk</a>); # Walrus del (3) |
| 712 |
return qq(<a title="$chunk" href="$url_cgi?$cookedchunk">$name</a>); # Walrus add (3) |
return qq(<a title="$chunk" href="$url_cgi?$cookedchunk" class="wiki">$name</a>); # Walrus add (3) |
| 713 |
} else { |
} else { |
| 714 |
# return qq($chunk<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit&mypage=$cookedchunk">$editchar</a>); # Walrus del (3) |
return qq(<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit;mypage=$cookedchunk" class="wiki">$name<span class="mark">$editchar</span></a>); |
|
return qq($name<a title="$resource{editthispage}" href="$url_cgi?mycmd=edit&mypage=$cookedchunk">$editchar</a>); # Walrus add (3) |
|
| 715 |
} |
} |
| 716 |
} |
} |
| 717 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch