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

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

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

revision 1.3 by wakaba, Sat Mar 20 04:08:11 2004 UTC revision 1.6 by wakaba, Sun Apr 25 07:06:50 2004 UTC
# Line 42  FormattingRule: Line 42  FormattingRule:
42    @Formatting:    @Formatting:
43      __ATTRTEXT:%query__;      __ATTRTEXT:%query__;
44      $p->{query} ||= ($o->{wiki}->{input} ?      $p->{query} ||= ($o->{wiki}->{input} ?
45                       $o->{wiki}->{input}->parameter ('search__query') : undef)                       $o->{wiki}->{input}->parameter ('search__query') : undef);
46                  || $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});      unless (defined $p->{query} or length $p->{query}) {
47          $p->{query} = join ' ',
48                        map {my $s = '*'.$_.'*';
49                             $s =~ s/^\*\*+//; $s =~ s/\**$/*/; $s}
50                        @{$o->{wiki}->{var}->{page}};
51        }
52      my $list = $p->{-parent}->append_new_node      my $list = $p->{-parent}->append_new_node
53                       (type => '#element',                       (type => '#element',
54                        namespace_uri => $NS_XHTML1,                        namespace_uri => $NS_XHTML1,
# Line 74  FormattingRule: Line 79  FormattingRule:
79        end => $end,        end => $end,
80        number => $p->{number} || 30,        number => $p->{number} || 30,
81        query => $p->{query},        query => $p->{query},
82          param_prefix => 'search',
83      };      };
84      for my $result (@result[$start..$end]) {      for my $result (@result[$start..$end]) {
85        next unless $result;        next unless $result;
# Line 120  FormattingRule: Line 126  FormattingRule:
126      link-to-resource      link-to-resource
127    @Name: nmz--title    @Name: nmz--title
128    @Formatting:    @Formatting:
129      $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->title);  #    $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->title);
130    
131      ## TODO: Remove this code after SuikaWiki/0.9 filter for Namazu available    
132        my $title = $o->{link}->{dest}->{nmz__result}->title;
133        $title =~ s/([0-9A-F][0-9A-F])/pack 'C', hex $1/ge and $title =~ s/\.txt$//
134          if $title =~ /^(?:[0-9A-F][0-9A-F])+\.txt$/;
135        $p->{-parent}->append_text ($title);
136    
137  FormattingRule:  FormattingRule:
138    @Category[list]:    @Category[list]:
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24