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

Newsletter Signup Form

Please register me to receive your email newsletter:
Name
Email address
Hotel Name / Company (if applicable)
Position (if applicable)
Telephone