" unless $remote;
my $authas = $GET{authas} || $remote->user;
my $u = LJ::get_authas_user($authas);
return LJ::bad_input($ML{'error.invalidauth'})
unless $u;
$title = $u->is_community ? $ML{'.title.comm'} : $ML{'.title'};
# extra arguments for get requests
my $getextra = $authas ne $remote->user ? "?authas=$authas" : "";
# if using s1, switch them to s2
unless ($u->prop('stylesys') == 2) {
$u->set_prop( stylesys => 2 );
}
my $group = $GET{group} ? $GET{group} : "presentation";
# make sure there's a style set and load it
my $style = LJ::Customize->verify_and_load_style($u);
# lazy migration of style name
LJ::Customize->migrate_current_style($u);
my $ret;
if (LJ::did_post()) {
my @errors = LJ::Widget->handle_post(\%POST, qw(CustomizeTheme CustomTextModule JournalTitles MoodThemeChooser NavStripChooser S2PropGroup LinksList LayoutChooser));
$ret .= LJ::bad_input(@errors) if @errors;
}
$ret .= "";
if ($GET{authas}) {
$ret .= LJ::html_hidden(
{ name => "authas", value => $GET{authas}, id => "_widget_authas" } );
}
my $current_theme = LJ::Widget::CurrentTheme->new;
$headextra .= $current_theme->wrapped_js( page_js_obj => "Customize" );
$ret .= "";
$ret .= $current_theme->render( no_theme_chooser => 1 );
$ret .= "
";
my $journal_titles = LJ::Widget::JournalTitles->new;
$headextra .= $journal_titles->wrapped_js;
$ret .= "";
$ret .= $journal_titles->render( no_theme_chooser => 1 );
$ret .= "
";
$ret .= "
";
my $customize_theme = LJ::Widget::CustomizeTheme->new;
$headextra .= $customize_theme->wrapped_js( page_js_obj => "Customize" );
$ret .= "";
$ret .= $customize_theme->render(
group => $group,
headextra => \$headextra,
post => \%POST,
);
$ret .= "
";
my $layout_chooser = LJ::Widget::LayoutChooser->new;
$headextra .= $layout_chooser->wrapped_js( page_js_obj => "Customize" );
$ret .= "";
$ret .= "";
$ret .= $layout_chooser->render(
headextra => \$headextra,
no_theme_chooser => 1,
);
$ret .= "
";
$ret .= "";
$ret .= "";
return $ret;
}
_code?>
<=body
title=>
head<=
<=head
page?>