($ML{'error.noremote'})
unless $remote;
my $authas = $GET{'authas'} || $remote->{'user'};
my $u = LJ::get_authas_user($authas);
return $err->($ML{'error.invalidauth'})
unless $u;
# extra arguments for get requests
my $getextra = $authas ne $remote->{'user'} ? "?authas=$authas" : '';
# authas switcher form
$body .= "\n\n";
$body .= "";
$body .= "";
$body .= BML::ml('.how_detail', { 'factors_url' => "$LJ::SITEROOT/support/faqbrowse.bml?faqid=103" });
$body .= "
";
$body .= "
";
$body .= "
$ML{'.code'}
$ML{'.redeemed'}
\n";
my $dbh = LJ::get_db_writer();
my $sth = $dbh->prepare("SELECT acid, rcptid, auth FROM acctcode WHERE userid=? ORDER BY rcptid");
$sth->execute($u->{'userid'});
my $ct = 0;
while (my ($acid, $rcptid, $auth) = $sth->fetchrow_array)
{
my $code = LJ::acct_code_encode($acid, $auth);
my $rcpt;
if ($rcptid) {
$rcpt = LJ::get_username($rcptid);
next unless $rcpt;
}
$ct++;
$body .= "