backlink is just the reverse of link, so..
parent
895da646a8
commit
413ac79a99
|
@ -586,14 +586,7 @@ sub match_link ($$) { #{{{
|
|||
} #}}}
|
||||
|
||||
sub match_backlink ($$) { #{{{
|
||||
my $page=shift;
|
||||
my $linkto=shift;
|
||||
|
||||
my $links = $links{$linkto} or return undef;
|
||||
foreach my $p (@$links) {
|
||||
return 1 if lc $p eq $page;
|
||||
}
|
||||
return 0;
|
||||
match_link(reverse @_);
|
||||
} #}}}
|
||||
|
||||
sub match_creation_day ($$) { #{{{
|
||||
|
|
Loading…
Reference in New Issue