On Mon, Aug 08, 2011 at 01:13:48PM -0700, Robert Hernandez wrote:
> 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;
Michael has already applied it:
http://git.fedorahosted.org/git/?p=spacewalk.git;a=commitdiff;h=2cec4e439e2f64a75b5564656c3761d0a85357ce
Please make sure you keep the "from dual" clause there, otherwise
you'd be breaking Oracle.
--
Jan Pazdziora
Principal Software Engineer, Satellite Engineering, Red Hat
_______________________________________________
Spacewalk-devel mailing list
Spacewalk-devel@redhat.com
https://www.redhat.com/mailman/listinfo/spacewalk-devel
