prepare("SELECT styleid, user, styledes, type, is_embedded, is_colorfree FROM style WHERE is_public='Y' ORDER BY user"); $sth->execute; my $ret = ""; my $last = ""; while ($sty = $sth->fetchrow_hashref) { if ($last ne $sty->{'user'}) { $last = $sty->{'user'}; $ret .= "$last
\n"; } if ($user) { $ret .= "  - {'styleid'}&user=$user\">$sty->{'styledes'}
\n"; } else { $ret .= "  - {'styleid'}\">$sty->{'styledes'}
\n"; } } return $ret; _code?> link: htdocs/customview.cgi, htdocs/admin/topics/styleinfo.bml _c?>