Edit Style body<= {'user'}; my $u = LJ::get_authas_user($authas); return LJ::bad_input("You could not be authenticated as the specified user.") unless $u; # authenticated my $ret; # user switcher $ret .= "
\n"; $ret .= LJ::make_authas_select($remote, { 'authas' => $GET{'authas'} }); $ret .= "
\n\n"; my $getextra = $u->{'user'} ne $remote->{'user'} ? "?authas=$authas" : ""; $ret .= "\n"; $ret .= "create a style, you can edit it here. "; $ret .= "To read more about the style system, go here. p?>\n\n"; $ret .= "\n"; $ret .= "
"; $ret .= ""; my $styles = LJ::S1::get_user_styles($u); my @list = map { $_->{'styleid'}, "$_->{'type'}($_->{'styleid'}): $_->{'styledes'}" } sort { $a->{'styledes'} cmp $b->{'styledes'} } values %$styles; @list = @list ? @list : ('', 'no styles'); $ret .= LJ::html_select({ 'name' => 'styleid', 'size' => '10', 'style' => 'width: 100%;' }, @list) . "
\n"; $ret .= "
Action: "; $ret .= LJ::html_select({ 'name' => 'ide' }, 'v2', 'Edit in Easy Mode', 'v1', 'Edit in Raw Mode (Old)', 'delete', 'Delete this style!' ) . "
\n"; $ret .= "
"; $ret .= LJ::html_submit(undef, "Proceed", { 'disabled' => ! @list }); $ret .= "
standout?>\n"; $ret .= "
\n"; return $ret; } _code?> <=body page?> link: htdocs/styles/create.bml, htdocs/developer/styles.bml post: htdocs/styles/edit_do.bml _c?>