my ( $dbh,$cgi,$session ) = @_;
my $data=$session->data;
my $temp=$session->temp;
if ( $cgi->param("textfield") )
{
my $abta=$cgi->param("textfield") || undef;
my $sql=qq{ SELECT * FROM tblABTANOS WHERE ABTANo = ? };
my $csr=$dbh->prepare($sql);
$csr->execute($abta);
$abta=undef unless $csr->rows!=0;
$csr->finish;
if ( $abta )
{
my $sql=qq{ SELECT * FROM tblABTA WHERE ABTARef = ? };
my $csr=$dbh->prepare($sql);
$csr->execute($abta);
my $abtasession=( $csr->rows != 0 ) ? 1 : undef;
$csr->finish;
if ( $abtasession )
{
# update login information
my $sqlu=qq{ update tblABTA set NoLogons = NoLogons + 1 where ABTARef = ? };
my $csru=$dbh->prepare($sqlu);
$csru->execute($abta);
$csru->finish;
}
else
{
# insert login information
my $sqli=qq{ insert into tblABTA values ( ? , NOW(), DATE_ADD(NOW(), INTERVAL '3' MONTH) , 1 ) };
my $csri=$dbh->prepare($sqli);
$csri->execute($abta);
$csri->finish;
}
$data->{abta}=$abta;
$session->data($data);
$cgi->param("redirect","abta_member.html");
}
else
{
$temp->{abtaerror}=1;
$session->temp($temp);
}
}
return '';
<perl>
my @rv=();
if ( $ENV{REQUEST_URI} =~ m/international/i )
{
push @rv, qq{theregister.net - International Hotel Guide};
}
else
{
push @rv,qq{theregister.net - Trade Guide to UK hotels};
}
return join '',@rv;
</perl>
my ( $dbh,$cgi,$session ) = @_;
my $sessiondata=$session->data;
my @rv = ();
push @rv,qq{
} if $sessiondata->{style} && $sessiondata->{style} eq 'default';
push @rv,qq{} if $sessiondata->{style} && $sessiondata->{style} eq 'amadeus';
return join "\n",@rv;
The Hotel Register - Free Phone 0800 007 5600
