/[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.5 by wakaba, Tue Mar 30 04:04:44 2004 UTC
# Line 43  FormattingRule: Line 43  FormattingRule:
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});                  || $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki},
47                                                             delimiter => ' ');
48      my $list = $p->{-parent}->append_new_node      my $list = $p->{-parent}->append_new_node
49                       (type => '#element',                       (type => '#element',
50                        namespace_uri => $NS_XHTML1,                        namespace_uri => $NS_XHTML1,
# Line 74  FormattingRule: Line 75  FormattingRule:
75        end => $end,        end => $end,
76        number => $p->{number} || 30,        number => $p->{number} || 30,
77        query => $p->{query},        query => $p->{query},
78          param_prefix => 'search',
79      };      };
80      for my $result (@result[$start..$end]) {      for my $result (@result[$start..$end]) {
81        next unless $result;        next unless $result;
# Line 120  FormattingRule: Line 122  FormattingRule:
122      link-to-resource      link-to-resource
123    @Name: nmz--title    @Name: nmz--title
124    @Formatting:    @Formatting:
125      $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->title);  #    $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->title);
126    
127      ## TODO: Remove this code after SuikaWiki/0.9 filter for Namazu available    
128        my $title = $o->{link}->{dest}->{nmz__result}->title;
129        $title =~ s/([0-9A-F][0-9A-F])/pack 'C', hex $1/ge and $title =~ s/\.txt$//
130          if $title =~ /^(?:[0-9A-F][0-9A-F])+\.txt$/;
131        $p->{-parent}->append_text ($title);
132    
133  FormattingRule:  FormattingRule:
134    @Category[list]:    @Category[list]:
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24