/[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.1 by wakaba, Fri Mar 19 03:42:06 2004 UTC revision 1.4 by wakaba, Mon Mar 29 03:19:56 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 56  FormattingRule: Line 57  FormattingRule:
57        (index => $o->{wiki}->{config}->{path_to}->{namazu__index_dir},        (index => $o->{wiki}->{config}->{path_to}->{namazu__index_dir},
58         query => $p->{query},         query => $p->{query},
59         sortMethod => NMZ_SORTBYSCORE,         sortMethod => NMZ_SORTBYSCORE,
60         sortOrder => NMZ_ASCENDSORT);         sortOrder => NMZ_ASCENDSORT,
61           lang => 'ja');
62      __ATTRTEXT:%start__;__ATTRTEXT:%number__;      __ATTRTEXT:%start__;__ATTRTEXT:%number__;
63      my $start = length $p->{start} ? $p->{start} :      my $start = length $p->{start} ? $p->{start} :
64                  $o->{wiki}->{input}->parameter ('search--range-start') || 0;                  $o->{wiki}->{input}->parameter ('search--range-start') || 0;
# Line 76  FormattingRule: Line 78  FormattingRule:
78      };      };
79      for my $result (@result[$start..$end]) {      for my $result (@result[$start..$end]) {
80        next unless $result;        next unless $result;
81          my ($reluri, $absuri) = $o->{wiki}->{config}->{nmz__uri_to_uri}
82                                    ->($result->uri, o => $o);
83        $WIKILINKING->to_resource_by_uri_in_html ({        $WIKILINKING->to_resource_by_uri_in_html ({
84          label => $template,          label => $template,
85        } => {        } => {
86          uri => $o->{wiki}->{config}->{nmz__uri_to_uri}->($result->uri, o => $o),          uri => $reluri,
87            absolute_uri => $absuri,
88          nmz__result => $result,          nmz__result => $result,
89        }, {        }, {
90          o => $o,          o => $o,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24