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 } ##

##

<[

if page.args.submitted 
{
	assert(page.post.un ne "", "username is blank
");
	assert(page.post.pw ne "", "password is blank
");
	unless (assert_error()) {
		login(page.args.un, page.args.pw, check_active => "yes", redirect => "/index.html", history => 1)
		loginfailed = 1
	}
}  

	buffer "bodytagopen"
{
clearbuffer]>


<[}]>