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("'Cheshire', 'Derbyshire', 'Herefordshire', 'Leicestershire', 'Lincolnshire', 'Northamptonshire', 'Nottinghamshire', 'Rutland', 'Shropshire', 'South Yorkshire', 'Staffordshire', 'Warwickshire', 'West Midlands', 'Worcestershire'"); 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 - Midlands

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

 
 
 
 

Hotels by County

Cheshire, Derbyshire, Herefordshire, Leicestershire, Lincolnshire, Northamptonshire, Nottinghamshire, Rutland, Shropshire, South Yorkshire, Staffordshire, Warwickshire, West Midlands, Worcestershire,

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;