function nextrow:method oracle
{
	if (ServerOption('NoOracle') == 1) {
		return 0;
	}
inline
	my $sth = $tomahawk->globalvars->{'oracle'}->{'sth'};
	my $hashref = $sth->fetchrow_hashref();
	if (defined $hashref)
	{
		while( my ($key, $value) = each %{$hashref})
		{
			$tomahawk->globalvars->{'oracle'}->{'rowval['.lc($key).']'} = $value;
		}
		$return = 1;
	} else {
		$return = 0;
	}
endinline
}