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("'Aberdeenshire', 'Angus', 'Argyll', 'Clackmannanshire', 'Dundee City', 'Fife', 'Kinross', 'Moray', 'Perthshire'"); 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 - Central Scotland

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

 
 
   
 
 

Hotels by County

Aberdeenshire, Angus, Argyll, Clackmannanshire, Dundee City, Fife, Kinross, Moray, Perthshire

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;