Name:
	WikiResource
FullName:
	WikiResource interface
URI:
	IW:SuikaWiki:"Wiki//Resource"
Initialize:
	my $HAS_XML = SuikaWiki::Plugin->feature ('SuikaWiki::Markup::XML');

{
Name:
	wikiform_input/res
FullName:
	Get text from resource
Format:
	$r = $o->resource ($p->{name},escape=>1);
}
{
Name:
	wikiview/res
	wikiview-resource/res
	wikipage_list_item/res
FullName:
	Get text from resource
Format:
	if ($HAS_XML) {
	  $r = $o->formatter('view-resource')->replace ($o->resource ($p->{name}), $o);
	  unless (ref $r) {
	    $r = SuikaWiki::Markup::XML->new (type => '#text', value => $r);
	  }
	} else {
	  $r = $o->formatter('view-resource')->replace ($o->resource ($p->{name}), $o);
	}
}

{
Name:
	wikiview-resource/-bare_text
FullName:
	HTML escape for bare text
Format:
	if ($HAS_XML) {
	  $r = SuikaWiki::Markup::XML->new (type => '#text', value => $p->{-bare_text});
	} else {
	  $r = $o->escape ($p->{-bare_text});
	}
}
{
Name:
	wikiview-resource/span
FullName:
	Give class name
Format:
	$r = qq(<span class="@{[$o->escape($p->{class})]}">) . $o->escape($p->{content}) . '</span>';
}

POD:LICENSE:
	Copyright 2002-2003 Wakaba <w@suika.fam.cx>
	
	%%GNUGPL2%%