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

Contents of /suikawiki/script/misc/plugins/link/map.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations) (download)
Sun May 16 23:05:49 2010 UTC (15 years, 1 month ago) by wakaba
Branch: MAIN
CVS Tags: suikawiki3-redirect, HEAD
Branch point for: helowiki-2005
Error occurred while calculating annotation data.
added latest .pm files

1 use strict;
2 package SuikaWiki::Plugin::Registry;
3
4
5 our %Info;
6 $Info{q#Map#}->{Name} = q#Map#;
7 $Info{q#Map#}->{q#Version#} = q#2004.0921.0308#;
8 $Info{q#Map#}->{q#InterfaceVersion#} = q#2.9.1#;
9 $Info{q#Map#}->{q#mkpluginVersion#} = q#2.1.19#;
10 $Info{q#Map#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Map10408210308494g2v#;
11 $Info{q#Map#}->{q#Date.RCS#} = q#$Date: 2004/08/06 03:38:11 $#;
12 $Info{q#Map#}->{RequiredPlugin} = [q#Search#, q#WikiLinking#, q#WikiNamespace#];
13 $Info{q#Map#}->{Description} = [[q#Visualization of page to page relatinships#, q#en#, q##]];
14 $Info{q#Map#}->{License} = [[q#%%Perl%%#, q##, q##]];
15 $Info{q#Map#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]];
16 package SuikaWiki::Plugin::plugin::Map10408210308494g2v;
17
18
19 #line 1 "(WikiPlugin module source map.wp2, block Plugin/Use)"
20 use Message::Util::Error;
21 my $WIKILINKING;
22 my $WIKIRESOURCE;
23 #line 1 "(WikiPlugin module Map, chunk 1)"
24
25 $SuikaWiki::Plugin::Rule{view}->{m__wikipage_obsolete} = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(current)#, q#Description#, [[q#The WikiPage that might be obsoleted.#, q#en#, q##]]}, q#desc_before#, {q#Type#, q#template#, q#Default#, q#(none)#, q#Description#, [[q#The description should be located before WikiPage names if any.#, q#en#, q##]]}, q#desc_after#, {q#Type#, q#template#, q#Default#, q#(none)#, q#Description#, [[q#The description should be located after WikiPage names if any.#, q#en#, q##]]}}, q#Description#, [[q#The navigation notify that this WikiPage is obsolete and
26 should refer the other WikiPages.#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
27
28 #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#view#]/m__wikipage_obsolete']/Formatting)"
29 my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
30 my $content_prop;
31 try {
32 $content_prop = $o->{wiki}->{db}->get (content_prop => $page);
33 } catch SuikaWiki::DB::Util::Error with {
34 my $err = shift;
35 $err->throw if $err->{-type} eq 'ERROR_REPORTED';
36 } catch SuikaWiki::Format::Definition::error with {
37 };
38 if ($content_prop) {
39 my $obs = $content_prop->get_attribute_value
40 (q#http://suika.fam.cx/~wakaba/archive/2004/7/20/sw\#obsolete#, as_array => 1,
41 default => []);
42 if (@$obs) {
43 my $pp = $p->{-parent}->append_new_node
44 (type => '#element',
45 namespace_uri => q#http://www.w3.org/1999/xhtml#,
46 local_name => 'p');
47 $pp->set_attribute (class => 'm--wikipage-obsolete');
48 $f->parse_attr ($p=>q#desc_before#, $o, -parent => $pp, -non_parsed_to_node => 1, %opt);
49 my $i = 0;
50 for (@$obs) {
51 $pp->append_text (', ') if $i++;
52 ($SuikaWiki::Plugin::Registry::Info{q#WikiLinking#}->{module_name} || SuikaWiki::Plugin->module_package (q#WikiLinking#))->to_wikipage_in_html (
53 {
54 } => {
55 base => $page,
56 page_name_relative => $o->{wiki}->name ($_),
57 }, {
58 o => $o,
59 parent => $pp,
60 });
61 }
62 $f->parse_attr ($p=>q#desc_after#, $o, -parent => $pp, -non_parsed_to_node => 1, %opt);
63 }
64 }}}
65 #line 1 "(WikiPlugin module Map, chunk 2)"
66 ;
67
68 $SuikaWiki::Plugin::Rule{view}->{m__html_link_navigation} = {q#Parameter#, {q#page#, {q#Type#, q#WikiName#, q#Default#, q#(current)#, q#Description#, [[q#Target WikiPage#, q#en#, q##]]}}, q#Description#, [[q#Navigation links (HTML link elements) made from content properties#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
69
70 #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#view#]/m__html_link_navigation']/Formatting)"
71 my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
72 my $content_prop;
73 try {
74 $content_prop = $o->{wiki}->{db}->get (content_prop => $page);
75 } catch SuikaWiki::DB::Util::Error with {
76 my $err = shift;
77 $err->throw if $err->{-type} eq 'ERROR_REPORTED';
78 } catch SuikaWiki::Format::Definition::error with {
79 };
80 if ($content_prop) {
81 for my $rel (
82 {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#prev#, html => 'prev'},
83 {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#next#, html => 'next'},
84 {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#contents#, html => 'contents'},
85 {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#index#, html => 'index'},
86 {uri => q#http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev\#up#, html => 'up'},
87 ) {
88 if (my $val = $content_prop->get_attribute ($rel->{uri})) {
89 $val = $val->value;
90 for (ref $val eq 'ARRAY' ? @$val : $val) {
91 ($SuikaWiki::Plugin::Registry::Info{q#WikiLinking#}->{module_name} || SuikaWiki::Plugin->module_package (q#WikiLinking#))->to_wikipage_in_html (
92 {
93 label => qq(%html-link (
94 description => {%res (name => {Map:LinkNav:$rel->{html}:Description});: %page-name;: %page-headline;}p,
95 );\n),
96 } => {
97 base => $page,
98 page_name_relative => $o->{wiki}->name ($_),
99 }, {
100 o => $o,
101 parent => $p->{-parent},
102 -rel => $rel->{html},
103 });
104 }
105 }
106 }
107 }}}
108 #line 1 "(WikiPlugin module Map, chunk 4)"
109 ;
110
111 {my $def = {q#Parameter#, {q#ns#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiNamespace name to which listed WikiPages belong#, q#en#, q##]]}}, q#Description#, [[q#Recently changed WikiPage list#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
112
113 #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/recent_change_list']/Formatting)"
114 my $list = $p->{-parent}->append_new_node
115 (type => '#element',
116 namespace_uri => q#http://www.w3.org/1999/xhtml#,
117 local_name => 'ol');
118 $list->set_attribute (class => 'm--recent-changes');
119 $p->{q#ns#} = do { my $r = $f->parse_attr ($p=>q#ns#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};$p->{q#recursive#} = do { my $r = $f->parse_attr ($p=>q#recursive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
120 $p->{recursive} = 1 unless length $p->{recursive};
121 my $ns = $o->{wiki}->name ($p->{ns});
122 my @target = map { try { [$_, $o->{wiki}->{db}->get (lastmodified => $_)] }
123 catch SuikaWiki::DB::Util::Error with {
124 my $err = shift;
125 $err->throw if $err->{-type} eq 'ERROR_REPORTED';
126 [$_, undef]} }
127 $o->{wiki}->{db}->keys ('lastmodified',
128 -ns => $ns,
129 -type => 'key',
130 -recursive => $p->{recursive});
131 try {
132 my $nsmodified = $o->{wiki}->{db}->get (lastmodified => $ns);
133 push @target, [$ns, $nsmodified] if $nsmodified;
134 } catch SuikaWiki::DB::Util::Error with {
135 my $err = shift;
136 $err->throw if $err->{-type} eq 'ERROR_REPORTED';
137 };
138 @target = sort {$b->[1] <=> $a->[1]} @target;
139 $p->{q#start#} = do { my $r = $f->parse_attr ($p=>q#start#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
140 $p->{q#n#} = do { my $r = $f->parse_attr ($p=>q#n#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
141 my $start = length $p->{start} ? $p->{start} :
142 $o->{wiki}->{input}->parameter ('m--change--range-start') || 0;
143 $p->{n} = $o->{wiki}->{input}->parameter ('m--change--range-number')
144 unless length $p->{n};
145 my $end = $p->{n} ? $start + $p->{n} - 1 : $start + 29;
146 $start = 0 if $start > $#target or $start < 0;
147 $end = $#target if $end < $start or $end > $#target;
148 $end = $start + 255 if $end > $start + 255;
149 local $o->{var}->{search__result} = {
150 min => 0,
151 max => $#target,
152 start => $start,
153 end => $end,
154 number => $p->{n} || 30,
155 query => $p->{query},
156 param_prefix => 'm--change',
157 };
158 $p->{q#template#} = do { my $r = $f->parse_attr ($p=>q#template#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
159 $p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get
160 (name => 'Link:toWikiPage:SourceLabelLong:RecentChangeItem',
161 wiki => $o->{wiki}, o => $o);
162 $p->{q#mode#} = do { my $r = $f->parse_attr ($p=>q#mode#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
163 for my $target (@target[$start..$end]) {
164 ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
165 label => $p->{template},
166 } => {
167 base => $o->{wiki}->{var}->{page},
168 page_name_relative => $o->{wiki}->name ($target->[0]),
169 wiki_mode => $p->{mode},
170 _with_lm => 1,
171 page_lastmodified => $target->[1],
172 }, {
173 o => $o,
174 parent => $list->append_new_node
175 (type => '#element',
176 namespace_uri => q#http://www.w3.org/1999/xhtml#,
177 local_name => 'li'),
178 });
179 }
180 if ($list->count) {
181 $list->set_attribute (start => $start + 1);
182 $f->parse_attr ($p=>q#post_list#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
183 } else {
184 $p->{-parent}->remove_child_node ($list);
185 }}}
186 #line 1 "(WikiPlugin module Map, chunk 6)"
187 ;
188 $SuikaWiki::Plugin::Rule{form_input}->{recent_change_list} = $def;
189 $SuikaWiki::Plugin::Rule{view}->{recent_change_list} = $def;
190 $SuikaWiki::Plugin::Rule{view_resource}->{recent_change_list} = $def;
191 };
192
193 push @SuikaWiki::View::Implementation::CommonViewDefs, {
194 condition => {q#mode#, q#m__change#, q#http_method#, [q#GET#, q#HEAD#, q#POST#]},
195 object_class => q#SuikaWiki::Plugin::plugin::Map10408210308494g2v::m__change10408210308496E6R#,
196 };
197 package SuikaWiki::Plugin::plugin::Map10408210308494g2v::m__change10408210308496E6R;
198
199
200 our @ISA = q#SuikaWiki::View::template#;
201
202 sub main ($$$) {
203 my ($self, $opt, $opt2) = @_;
204 require SuikaWiki::Output::HTTP;
205 $opt2->{output} = SuikaWiki::Output::HTTP->new
206 (wiki => $self->{view}->{wiki},
207 view => $self->{view}, viewobj => $self);
208 for (@{$self->{view}->{wiki}->{var}->{client}->{used_for_negotiate}},
209 'Accept-Language') {
210 $opt2->{output}->add_negotiate_header_field ($_);
211 }
212
213 $opt2->{template} = q#%html-document (
214 title => {%res (name => {Map:Change:WebPageTitle});}p,
215 link-meta => {%template (name => links);}p,
216 content => {
217 %block (
218 id => tools1, class => tools,
219 content => {%template (name => navbar);}p,
220 );
221 %section (
222 title => {%res (name => {Map:Change:Title});}p,
223 heading,
224 id => WEBPAGE--M--CHANGE,
225 content => {%recent-change-list (
226 n => 50,
227 ns => {%page-name;}p,
228 post-list => {%search--result-navigation (
229 fragment => WEBPAGE--M--CHANGE,
230 );}p,
231 );}p,
232 );
233 %block (
234 id => footer,
235 content => {%template (name => ws--footer);}p,
236 );
237 }p,
238 );#;
239 $opt2->{o} = bless {
240 ## SuikaWiki 3 WikiPlugin interface
241 wiki => $self->{view}->{wiki},
242 plugin => $self->{view}->{wiki}->{plugin},
243 var => {},
244 }, 'SuikaWiki::Plugin';
245 $opt2->{output}->{status_code} = 200;
246
247 $opt2->{output}->{entity}->{media_type} = q#text/html#;
248
249 $opt2->{output}->{entity}->{charset} = $self->{view}->{wiki}->{config}->{charset}->{output};
250 $opt2->{output}->set_expires (%{$self->{view}->{wiki}->{config}->{entity}->{expires}->{q#list#}});
251 $opt2->{output}->{entity}->{body_is_octet_stream} = 0;
252
253 $self->{view}->{wiki}->init_db;
254 $self->main_pre ($opt, $opt2);
255
256 require Message::Markup::XML::Serialize::HTML;
257 use Message::Util::Error;
258 try {
259 $opt2->{output}->{entity}->{body}
260 = Message::Markup::XML::Serialize::HTML::html_simple
261 (SuikaWiki::Plugin->formatter ('view')
262 ->replace ($opt2->{template}, param => $opt2->{o}));
263 } $self->{view}->{wiki}->{config}->{catch}->{ formatter_view };
264 $opt2->{output}->output (output => 'http-cgi');
265
266 $self->main_post ($opt, $opt2);
267 }
268
269 package SuikaWiki::Plugin::plugin::Map10408210308494g2v;
270
271 {my $def = {q#Parameter#, {q#ns#, {q#Type#, q#WikiName#, q#Default#, q#(auto)#, q#Description#, [[q#WikiNamespace name to which listed WikiPages belong#, q#en#, q##]]}}, q#Description#, [[q#WikiPage list#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
272
273 #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#form-input#, q#view#, q#view-resource#]/page_list']/Formatting)"
274 my $list = $p->{-parent}->append_new_node
275 (type => '#element',
276 namespace_uri => q#http://www.w3.org/1999/xhtml#,
277 local_name => 'ul');
278 $p->{q#ns#} = do { my $r = $f->parse_attr ($p=>q#ns#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};$p->{q#recursive#} = do { my $r = $f->parse_attr ($p=>q#recursive#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
279 $p->{recursive} = 1 unless length $p->{recursive};
280 my $ns = $o->{wiki}->name ($p->{ns});
281 my @target = sort {$a->[1] cmp $b->[1]}
282 map {[$_, join "\t", @{$_}]} # make sort key
283 $o->{wiki}->{db}->keys ('content',
284 -ns => $ns,
285 -type => 'key',
286 -recursive => $p->{recursive});
287 $p->{q#start#} = do { my $r = $f->parse_attr ($p=>q#start#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
288 $p->{q#n#} = do { my $r = $f->parse_attr ($p=>q#n#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
289 my $start = length $p->{start} ? $p->{start} :
290 $o->{wiki}->{input}->parameter ('m--list--range-start') || 0;
291 $p->{n} = $o->{wiki}->{input}->parameter ('m--list--range-number')
292 unless length $p->{n};
293 my $end = $p->{n} ? $start + $p->{n} - 1 : $start + 29;
294 $start = 0 if $start > $#target or $start < 0;
295 $end = $#target if $end < $start or $end > $#target;
296 $end = $start + 255 if $end > $start + 255;
297 local $o->{var}->{search__result} = {
298 min => 0,
299 max => $#target,
300 start => $start,
301 end => $end,
302 number => $p->{n} || 30,
303 query => $p->{query},
304 param_prefix => 'm--list',
305 };
306 $p->{q#template#} = do { my $r = $f->parse_attr ($p=>q#template#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
307 $p->{template} ||= ($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))->get
308 (name => 'Link:toWikiPage:SourceLabelLong:PageList',
309 wiki => $o->{wiki}, o => $o);
310 $p->{q#mode#} = do { my $r = $f->parse_attr ($p=>q#mode#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r};
311 try {
312 for (@target[$start..$end]) {
313 ($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))->to_wikipage_in_html ({
314 label => $p->{template},
315 } => {
316 base => $o->{wiki}->{var}->{page},
317 page_name_relative => $o->{wiki}->name ($_->[0]),
318 wiki_mode => $p->{mode},
319 }, {
320 o => $o,
321 parent => $list->append_new_node
322 (type => '#element',
323 namespace_uri => q#http://www.w3.org/1999/xhtml#,
324 local_name => 'li'),
325 });
326 }
327 } catch SuikaWiki::DB::Util::Error with {
328 my $err = shift;
329 $err->throw if $err->{-type} eq 'ERROR_REPORTED';
330 };
331 if ($list->count) {
332 $list->set_attribute (start => $start + 1);
333 $f->parse_attr ($p=>q#post_list#, $o, -parent => $p->{-parent}, -non_parsed_to_node => 1, %opt);
334 } else {
335 $p->{-parent}->remove_child_node ($list);
336 }}}
337 #line 1 "(WikiPlugin module Map, chunk 8)"
338 ;
339 $SuikaWiki::Plugin::Rule{form_input}->{page_list} = $def;
340 $SuikaWiki::Plugin::Rule{view}->{page_list} = $def;
341 $SuikaWiki::Plugin::Rule{view_resource}->{page_list} = $def;
342 };
343
344 $SuikaWiki::Plugin::Rule{page_link}->{m__link_weight} = {q#Parameter#, {}, q#Description#, [], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_;
345
346 #line 1 "(WikiPlugin module source map.wp2, block FormattingRule[name()='[q#page-link#]/m__link_weight']/Formatting)"
347 $p->{-parent}->append_text ($o->{link}->{option}->{-m__weight}+0);}}
348 #line 1 "(WikiPlugin module Map, chunk 10)"
349 ;
350
351 push @{$SuikaWiki::View::Implementation::TemplateFragment{q#ws__post_content#}}, {
352 Main => q#%section (
353 id => children,
354 title => {%res(name=>{Children:Title});}p, heading,
355 content => {%page-list (
356 ns => {%page-name;}p, recursive => 0,
357 type => both,
358 template => {%resource-as-plain-text (name => {Children:Item});}p,
359 post-list => {%search--result-navigation (
360 fragment => children,
361 );}p,
362 );}p,
363 );#,
364 Order => 100,
365 Description => [[q#After content body -- children and backward links#, q#en#, q##]],
366 };
367
368 push @{$SuikaWiki::View::Implementation::TemplateFragment{q#navbar#}}, {
369 Main => q#%link-to-wikipage (
370 page => {%ns--root-wikiname;}p,
371 mode => m--change,
372 label => {%link-to-it (
373 label => {%res (name => GoToRecentChanges);}p,
374 description => {%res (name => GoToRecentChangesLong);}p,
375 );},
376 rel => news,
377 ); #,
378 Order => 21,
379 Description => [],
380 };
381
382 push @{$SuikaWiki::View::Implementation::TemplateFragment{q#links#}}, {
383 Main => q#%m--html-link-navigation;
384 %link-to-wikipage (
385 page => {%ns--root-wikiname;}p,
386 rel => news,
387 mode => m--change,
388 label => {%html-link (
389 description => {%res(name=>GoToRecentChangesLink);}p,
390 );},
391 );
392 %link-to-wikipage (
393 page => {%ns-page-path-name;}p,
394 rel => news,
395 mode => m--change,
396 label => {%html-link (
397 description => {%res(name=> {Map:Change:Link:Parent:Description});}p,
398 );},
399 );
400 %link-to-wikipage (
401 rel => news,
402 mode => m--change,
403 label => {%html-link (
404 description => {%res(name=> {Map:Change:Link:Local:Description});}p,
405 );},
406 ); #,
407 Order => 0,
408 Description => [],
409 };
410
411 package SuikaWiki::Plugin::Resource;
412
413 our $BaseResource;
414 $BaseResource->{q#und#}->{q##}->{q#Children:Title#} = q#%link-to-it(label=>{%ns-short-page-name;}p, description=>{%page-name(absolute);}p, ); %span(class=>headline, content=>{%page-headline;}p);#;
415 $BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:PageList#} = q#%link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
416 $BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:RecentChangeItem#} = q#%last-modified; %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
417 $BaseResource->{q#und#}->{q##}->{q#Link:toWikiPage:SourceLabelLong:SearchResult#} = q#{%m--link-weight;} %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p);#;
418 $BaseResource->{q#en#}->{q##}->{q#GoToRecentChanges#} = q#Recent#;
419 $BaseResource->{q#en#}->{q##}->{q#GoToRecentChangesLink#} = q#Recently modified WikiPages list#;
420 $BaseResource->{q#en#}->{q##}->{q#GoToRecentChangesLong#} = q#Review recently modified WikiPages list#;
421 $BaseResource->{q#en#}->{q##}->{q#Map:Change:Link:Local:Description#} = q#List of recently modified WikiPages in this namespace (%page-name;)#;
422 $BaseResource->{q#en#}->{q##}->{q#Map:Change:Link:Parent:Description#} = q#List of recently modified WikiPages in parent namespace (%ns-page-path-name;)#;
423 $BaseResource->{q#en#}->{q##}->{q#Map:Change:Title#} = q#Recent Changes#;
424 $BaseResource->{q#en#}->{q##}->{q#Map:Change:WebPageTitle#} = q#Recent Changes (%page-name;)#;
425 $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:prev:Description#} = q#Previous WikiPage#;
426 $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:next:Description#} = q#Next WikiPage#;
427 $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:contents:Description#} = q#Table of Contents#;
428 $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:index:Description#} = q#Index#;
429 $BaseResource->{q#en#}->{q##}->{q#Map:LinkNav:up:Description#} = q#Up#;
430 package SuikaWiki::Plugin::Registry;
431
432 $Info{q#Map#}->{provide} = {q#rule#, {q#form_input#, [q#recent_change_list#, q#page_list#], q#view#, [q#m__wikipage_obsolete#, q#m__html_link_navigation#, q#recent_change_list#, q#page_list#], q#view_resource#, [q#recent_change_list#, q#page_list#], q#page_link#, [q#m__link_weight#]}, q#viewfragment#, [{q#Name#, q#ws__post_content#}, {q#Name#, q#navbar#}, {q#Name#, q#links#}], q#viewdef#, [{q#Description#, [q#Show recently changed WikiPages list#, q#en#, q##], q#Name#, q#m__change#}]};
433
434 1;

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24