body<=
{'user'};
my $u = LJ::get_authas_user($authas);
return LJ::bad_input($ML{'error.invalidauth'})
unless $u;
my $getextra = $u->{'userid'} == $remote->{'userid'} ? '' : "?authas=$u->{'user'}";
# need stylesys prop for error checking
LJ::load_user_props($u, "stylesys");
my $ret;
# authas switcher form
$ret .= "\n\n";
# require S2
unless ($u->{'stylesys'} == 2) {
my $link = "$ML{'/customize/index.bml.title'}";
$ret .= "$link}) . " p?>";
return $ret;
}
# build link object, either from db or form
my $linkobj;
if (LJ::did_post()) {
$linkobj = LJ::Links::make_linkobj_from_form($u, \%POST);
} else {
$linkobj = LJ::Links::load_linkobj($u, "master");
}
# save any changes to the database
if ($POST{'action:savelinks'}) {
LJ::Links::save_linkobj($u, $linkobj);
$ret .= "$ML{'.success'}
";
}
# intro paragraph
$ret .= "";
$ret .= "- $ML{'.about.reorder'}
";
$ret .= "- $ML{'.about.blank'}
";
$ret .= "- $ML{'.about.heading'}
";
# link modify form
$ret .= "";
return $ret;
}
_code?>
<=body
page?>