body<= {'user'}; my $getextra = $authas ne $remote->{'user'} ? "?authas=$authas" : ""; # no authentication needs to be done on this page, it's just a form anyway # user switcher $ret .= "
\n"; $ret .= LJ::make_authas_select($remote, { 'authas' => $GET{'authas'} }); $ret .= "
\n\n"; $ret .= "
\n"; # main form $ret .= "\n"; $ret .= ""; $ret .= "\n"; $ret .= "\n"; my $pubstyles = LJ::S1::get_public_styles(); my %styles; push @{$styles{$_->{'type'}}}, $_ foreach values %$pubstyles; foreach my $view (@LJ::views) { $ret .= "

" . LJ::html_check({ 'type' => 'radio', 'name' => 'type', 'id' => "type-$view", 'value' => $view }); $ret .= "

\n"; $ret .= "
$ML{'.choosebase'}
\n"; $ret .= LJ::html_select({ 'name' => "base_$view" }, '', $ML{'.noneorother'}, map { $_->{'styleid'}, $_->{'styledes'} } sort { $a->{'styledes'} cmp $b->{'styledes'} } @{$styles{$view}} ); $ret .= "
$ML{'.enterstyleid'} "; $ret .= LJ::html_text({ 'name' => "basenum_$view", 'size' => '5', 'maxlength' => '10' }) . "
\n"; } $ret .= "\n"; $ret .= "
\n"; return $ret; } _code?> <=body page?> link: htdocs/developer/embedding.bml, htdocs/developer/views.bml link: htdocs/paidaccounts/index.bml post: htdocs/styles/create_do.bml _c?>