{user}) if $sty; # if $sty so we don't auto-vivify!
return "Style $styleid does not exist or is not public."
unless $sty &&
($sty->{is_public} eq 'Y' || # straight up public
LJ::u_equals($remote, $styu) || # is this your account?
LJ::can_manage($remote, $styu) || # how about your community?
LJ::check_priv($remote, 'canview', 'styles') || # can you see private styles?
LJ::check_priv($remote, 'canview', '*')); # or maybe you can see everything
my $ret = "";
$ret .= "Style Info
\n";
$ret .= "\n";
$ret .= "- Author
- {'user'}\">$sty->{'user'}\n";
$ret .= "
- Style Description
- $sty->{'styledes'}
\n";
$ret .= " - Last Updated
- $sty->{'lastupdate'}
\n";
$ret .= " - View Type
- $sty->{'type'}
\n";
$ret .= " - Public?
- $sty->{'is_public'}
\n";
$ret .= " - Embeddable?
- $sty->{'is_embedded'}
\n";
$ret .= " - Color-free? (only uses color themes, not fixed colors)
- $sty->{'is_colorfree'}
\n";
$ret .= "
";
my %vars;
LJ::parse_vars(\$sty->{'formatdata'}, \%vars);
$ret .= "Style Variables
\n";
foreach my $v (sort keys %vars) {
$ret .= "$v
\n";
my $val = LJ::ehtml($vars{$v});
$val =~ s/\n/
\n/g;
$ret .= $val;
}
return $ret;
_code?>
link: htdocs/userinfo.bml
_c?>