log in."; } } $sth = $dbh->prepare("SELECT p.payid, a.acid, ac.auth FROM acctcode ac, acctpay a, payments p WHERE p.userid=0 AND a.payid=p.payid AND ac.acid=a.acid"); $sth->execute; while (my ($payid, $acid, $auth) = $sth->fetchrow_array) { my $code = LJ::acct_code_encode($acid, $auth); $ret .= "

#$payid - $code\n"; } return $ret; _code?>