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->specialoffer; my $sessiontemp=$session->temp; my @rv = (); return join "\n",@rv; The Register

The Hotel Register - Free Phone 0800 007 5600

Special Offers

This section of the wesbite is currently being updated, please call 01608 648855 for details my ( $dbh,$cgi,$session ) = @_; my $sessiondata=$session->data; my $sessiontemp=$session->temp; return ''; my @rv = (); my $hotels=$sessiontemp->{specialhotel}; if ( scalar @{$hotels} ) { push @rv,qq{}; } foreach my $hotel ( @{$hotels} ) { my $url="hoteldetail.html?hotel=".md5_hex($hotel->{refID}).".xml"; my $image='hotelimages/'.$hotel->{image0}->{filename}; my $hotelname=$hotel->{hotelname}; my $strap=$hotel->{so_strapline}; my $details=$hotel->{so_details}; push @rv,qq{ }; } if ( scalar @{$hotels} ) { push @rv,qq{
Special Offer
$hotelname $strap
$details }; my $trackurl='../syzygy.xp/O='.$hotel->{refID} if $hotel->{refID}; push @rv, qq{}; push @rv, qq{
}; } return join "\n",@rv;

 

Site last updated on: my ( $dbh,$cgi,$session ) = @_; my @rv = (); my $utils=new VB::Utilities; push @rv,$utils->lastUpdate; return join "\n",@rv;