\n";
$ret .= "| view types: | ";
foreach (split (/\s*\,\s*/, $v->{'props'}->{'scope'}))
{
$ret .= "$_, ";
}
chop $ret; chop $ret;
$ret .= " |
\n";
$ret .= "| description: | $v->{'props'}->{'des'} |
\n";
# overrideable?
$ret .= "| can override: | ";
if ($v->{'props'}->{'override'} eq "yes") {
$ret .= "Yes; users of this style may override this";
} elsif ($v->{'props'}->{'override'} eq "only") {
$ret .= "Only; Only users of this style may override this, it cannot be defined in a style.";
} else {
$ret .= "No; users of the style cannot override this. It may only be defined in the style.";
}
$ret .= " |
\n";
if (defined $v->{'props'}->{'type'})
{
$ret .= "| variable type: | $v->{'props'}->{'type'} |
\n";
}
if (defined $v->{'props'}->{'default'})
{
$ret .= "| default value: | $v->{'props'}->{'default'} |
\n";
}
if (defined $v->{'props'}->{'props'})
{
$ret .= "| properties: | \n";
$ret .= "\n";
foreach my $p (@{$v->{'props'}->{'props'}})
{
LJ::xlinkify(\$p->{'props'}->{'des'});
$ret .= "| $p->{'name'} | \n";
$ret .= "$p->{'props'}->{'des'} ";
if ($p->{'props'}->{'min'} > 0)
{
$ret .= "[required]";
}
$ret .= " | \n";
}
$ret .= " |
\n";
}
$ret .= "
\n";
}
return $ret;
_code?>
Back to