web/modules/rhn/RHN/DB/Token.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
New commits:
commit 2cec4e439e2f64a75b5564656c3761d0a85357ce
Author: Michael Mraka <michael.mraka(a)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;
Show replies by date