Parent Directory
| 
Revision Log
| 
Patch
| revision 1.3 by wakaba, Wed Apr 14 12:17:38 2004 UTC | revision 1.4 by wakaba, Sat Jul 10 06:47:26 2004 UTC | |
|---|---|---|
| # | Line 57 sub replace_percent ($$) { | Line 57 sub replace_percent ($$) { |
| 57 | $s =~ s{%%([^%]+)%%}{ | $s =~ s{%%([^%]+)%%}{ |
| 58 | my ($r, $type) = _get_replacement_text ($1, $l); | my ($r, $type) = _get_replacement_text ($1, $l); |
| 59 | if ($type eq 'list') { | if ($type eq 'list') { |
| 60 | $r = join (', ', map {qq("$_")} @$r); | ## Note: Expansion of list needs more study. |
| 61 | warn "List $1 is expanded\n"; | |
| 62 | if ($opt{type} eq 'xml') { | |
| 63 | $r = join (' ', @$r); | |
| 64 | } else { | |
| 65 | $r = join (', ', map {qq("$_")} @$r); | |
| 66 | } | |
| 67 | } | } |
| 68 | $r; | $r; |
| 69 | }ge; | }ge; |
|
||||||||
| admin@suikawiki.org | ViewVC Help |
| Powered by ViewVC 1.1.24 |