body<= " unless $remote; my $ret; my $authas = $GET{'authas'} || $remote->{'user'}; # 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 .= " h1?>\n"; $ret .= " p?>\n"; $ret .= "

\n"; # main form $ret .= <<'HTMLBLOCK'; -

HTMLBLOCK # unicode encoding selection if ($LJ::UNICODE) { my (%encodings, %encnames); LJ::load_codes({ "encoding" => \%encodings } ); LJ::load_codes({ "encname" => \%encnames } ); my $selected = 0; foreach my $id (keys %encodings) { $selected = $id if lc($encodings{$id}) eq 'utf-8'; delete $encnames{$id} if lc($encodings{$id}) eq 'none'; } $ret .= LJ::html_select({'name'=>'encid', 'selected'=>$selected}, map { $_, $encnames{$_} } sort keys %encnames); } else { $ret .= ""; } $ret .= "
\n"; $ret .= <<'HTMLBLOCK';

---

standout?>

h1?> p?> HTMLBLOCK } _code?> <=body page?> post: htdocs/export_do.bml _c?>