my ( $dbh,$cgi,$session ) = @_; my $sessiondata=$session->data; $sessiondata->{style}='default' unless $sessiondata->{style}; $sessiondata->{abta}=0 unless $sessiondata->{abta}; my $zp=$cgi->param("z_pagecount") || 1; if ( $zp == -1 ) { $sessiondata->{pagecount}=0; } $session->data($sessiondata); use VB::Featured; my $search=new VB::Featured($dbh,$cgi,$session); $search->country("'Bedfordshire', 'Berkshire', 'Buckinghamshire', 'Cambridgeshire', 'East Sussex', 'Essex', 'Hampshire', 'Kent', 'London', 'Norfolk', 'Herfordshire', 'Oxfordshire', 'Suffolk', 'Surrey', 'West Sussex'"); my $sessiontemp=$session->temp; my @rv = (); return join "\n",@rv; <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>

The Hotel Register - Free Phone 0800 007 5600

Trade Guide to UK Hotels - South East England

You can search the site either by clicking on the maps or by using the search button

   
 
     

Hotels by County

Bedfordshire, Berkshire, Buckinghamshire, Cambridgeshire, East Sussex , Essex, Hampshire, Kent, London, Norfolk, Hertfordshire, Oxfordshire, Suffolk, Surrey, West Sussex, Channel Islands
Search
Town / City
Name of Hotel
Name of Group
my ( $dbh,$cgi,$session ) = @_; my $sessiondata=$session->data; my $sessiontemp=$session->temp; my @rv = (); my $hotel=$sessiontemp->{countryhotel}; my $url="hoteldetail.html?hotel=".md5_hex($hotel->{refID}).".xml"; my $image='hotelimages/'.$hotel->{image0}->{filename}; my $hotelname=$hotel->{hotelname}; my $text=substr($hotel->{amadeouslocationdescription},0,255); push @rv,qq{
$text
}; my $trackurl='../syzygy.xp/H='.$hotel->{refID} if $hotel->{refID}; push @rv, qq{}; push @rv, qq{
}; return join "\n",@rv;