/[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.13 by wakaba, Sun Jul 25 06:54:29 2004 UTC revision 1.14 by wakaba, Fri Aug 6 03:38:11 2004 UTC
# Line 69  FormattingRule: Line 69  FormattingRule:
69        };        };
70    
71      if ($content_prop) {      if ($content_prop) {
72        for (        for my $rel (
73          {uri => <Q:relrev:prev>, html => 'prev'},          {uri => <Q:relrev:prev>, html => 'prev'},
74          {uri => <Q:relrev:next>, html => 'next'},          {uri => <Q:relrev:next>, html => 'next'},
75          {uri => <Q:relrev:contents>, html => 'contents'},          {uri => <Q:relrev:contents>, html => 'contents'},
76          {uri => <Q:relrev:index>, html => 'index'},          {uri => <Q:relrev:index>, html => 'index'},
77          {uri => <Q:relrev:up>, html => 'up'},          {uri => <Q:relrev:up>, html => 'up'},
78        ) {        ) {
79          if (my $val = $content_prop->get_attribute ($_->{uri})) {          if (my $val = $content_prop->get_attribute ($rel->{uri})) {
80            __FUNCPACK{WikiLinking}__->to_wikipage_in_html (            $val = $val->value;
81            {            for (ref $val eq 'ARRAY' ? @$val : $val) {
82              label           => qq(%html-link (              __FUNCPACK{WikiLinking}__->to_wikipage_in_html (
83                                      description => {%res (name => {Map:LinkNav:$_->{html}:Description});: %page-name;: %page-headline;}p,              {
84                                    );\n),                label           => qq(%html-link (
85            } => {                                        description => {%res (name => {Map:LinkNav:$rel->{html}:Description});: %page-name;: %page-headline;}p,
86              base            => $page,                                      );\n),
87              page_name_relative => $o->{wiki}->name ($val->value),              } => {
88            }, {                base            => $page,
89              o               => $o,                page_name_relative => $o->{wiki}->name ($_),
90              parent          => $p->{-parent},              }, {
91              -rel            => $_->{html},                o               => $o,
92            });                parent          => $p->{-parent},
93                  -rel            => $rel->{html},
94                });
95              }
96          }          }
97        }        }
98      }      }
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24