/[pub]/suikawiki/script/misc/plugins/link/map.wp2
Suika

Diff of /suikawiki/script/misc/plugins/link/map.wp2

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by wakaba, Sun Feb 8 08:46:47 2004 UTC revision 1.3 by wakaba, Sat Feb 14 10:52:27 2004 UTC
# Line 6  Plugin: Line 6  Plugin:
6      @@@:      @@@:
7        Visualization of page to page relatinships        Visualization of page to page relatinships
8      @@lang:en      @@lang:en
9    @License: %%GPL%%    @License: %%Perl%%
10    @Author:    @Author:
11      @@Name:      @@Name:
12        @@@@: Wakaba        @@@@: Wakaba
# Line 136  FormattingRule: Line 136  FormattingRule:
136      $p->{template} ||= $WIKIRESOURCE->get      $p->{template} ||= $WIKIRESOURCE->get
137          (name => 'Link:toWikiPage:SourceLabelLong:PageList',          (name => 'Link:toWikiPage:SourceLabelLong:PageList',
138           wiki => $o->{wiki}, o => $o);           wiki => $o->{wiki}, o => $o);
139        __ATTRTEXT:%match__; ## WARNING: This parameter might be dangerous!
140        my $reg = $p->{match} ? qr/$p->{match}/ : qr/./;
141      __ATTRTEXT:%mode__;      __ATTRTEXT:%mode__;
142      try {      try {
143        for (sort {$a->[1] cmp $b->[1]}        for (sort {$a->[1] cmp $b->[1]}
144               grep {$_->[1] =~ /$reg/}
145             map {[$_, join '//', @{$_}]} # make sort key             map {[$_, join '//', @{$_}]} # make sort key
146             $o->{wiki}->{db}->keys ('content',             $o->{wiki}->{db}->keys ('content',
147                                     -ns => $ns,                                     -ns => $ns,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24