Paid Account Status body<= {'user'}; my $u = LJ::get_authas_user($authas); return LJ::bad_input("You could not be authenticated as the specified user.") unless $u; return LJ::bad_input("Account has been deleted") if $u->{'statusvis'} eq 'D' || $u->{'statusvis'} eq 'X'; my $ret; # authas switcher form $ret .= "

\n"; $ret .= LJ::make_authas_select($remote, { 'authas' => $GET{'authas'}, 'cap' => 'paid' }) . "\n"; $ret .= "

\n\n"; my $getextra = "?authas=$authas" unless $authas eq $remote->{'user'}; $ret .= ""; # render account summary $ret .= LJ::Pay::account_summary($u); # disk quota summary my $qsummary = LJ::Pay::quota_summary($u); return $ret unless $qsummary; $ret .= ""; $ret .= ""; $ret .= $qsummary; return $ret; } _code?> <=body page?>