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("'Highland', 'Western Isles'"); 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 - Northern Scotland

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

     
   
 
 

Hotels by County

Highland, Western Isles

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;