($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;
# authas switcher form
$body .= "\n\n";
$body .= "";
$body .= "";
$body .= "$LJ::SITENAMESHORT Store. Used coupons are marked out, but ";
$body .= "still appear in the table. p?>";
my $tbl;
$tbl .= "
";
$tbl .= "
Item
Amount
";
$tbl .= "
Code
";
# print dollars
my $damt = sub { sprintf("\$%.02f", shift()) };
my $dbh = LJ::get_db_writer();
my $sth = $dbh->prepare("SELECT * FROM coupon WHERE rcptid=?");
$sth->execute($u->{'userid'});
my $ct = 0;
while (my $row = $sth->fetchrow_hashref) {
my $str = sub { $row->{'payid'} ? "$_[0]" : $_[0] };
$tbl .= "