web/modules/rhn/RHN/DB/Token.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
New commits: commit 2cec4e439e2f64a75b5564656c3761d0a85357ce Author: Michael Mraka michael.mraka@redhat.com Date: Mon Aug 8 12:12:17 2011 +0200
fixed re-activation key in PostgreSQL
applied patch from Robert Hernandez
fixing RHN::Exception: DBD::Pg::st execute failed: ERROR: missing FROM-clause entry for table "rhn_reg_token_seq" at character 8 RHN::DB /usr/lib/perl5/vendor_perl/5.8.8/RHN/DB.pm 228 RHN::Exception::DB::throw RHN::DB::Token /usr/lib/perl5/vendor_perl/5.8.8/RHN/DB/Token.pm 430 RHN::DB::handle_error
diff --git a/web/modules/rhn/RHN/DB/Token.pm b/web/modules/rhn/RHN/DB/Token.pm index 9a9fb73..92a8333 100644 --- a/web/modules/rhn/RHN/DB/Token.pm +++ b/web/modules/rhn/RHN/DB/Token.pm @@ -426,7 +426,7 @@ sub commit { my $dbh = $trans || RHN::DB->connect;
if ($self->id == -1) { - my $sth = $dbh->prepare("SELECT rhn_reg_token_seq.nextval FROM DUAL"); + my $sth = $dbh->prepare("SELECT sequence_nextval('rhn_reg_token_seq') FROM DUAL"); $sth->execute; my ($id) = $sth->fetchrow; die "No new token id from seq rhn_reg_token_seq (possible error: " . $sth->errstr . ")" unless $id;