Michael I apologize its actually the following, I mixed around the files:
--- a/usr/lib/perl5/vendor_perl/5.8.8/RHN/DB/Token.pm 2011-08-05
11:58:59.000000000 -0700
+++ b/usr/lib/perl5/vendor_perl/5.8.8/RHN/DB/Token.pm 2011-08-05
12:18:52.000000000 -0700
@@ -426,7 +426,7 @@
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')");
$sth->execute;
my ($id) = $sth->fetchrow;
die "No new token id from seq rhn_reg_token_seq (possible error:
" . $sth->errstr . ")" unless $id;
_______________________________________________
Spacewalk-devel mailing list
Spacewalk-devel@redhat.com
https://www.redhat.com/mailman/listinfo/spacewalk-devel
