my ( $dbh,$cgi,$session ) = @_; my $data=$session->data; $data->{style}='default' unless $data->{style}; $data->{abta}=0; $session->data($data); return ''; my ( $dbh,$cgi,$session ) = @_; my $sessiondata=$session->data; my $sessiontemp=$session->temp; my @rv = (); my $refID=$cgi->param("textfield") || undef; if ( $refID ) { my $sql=qq{ select refID from tblHotels where refID = ? }; my $csr=$dbh->prepare($sql); $csr->execute($refID); if ( $csr->rows !=0 ) { $sessiondata->{refID}=$refID; $session->data($sessiondata); $cgi->param("redirect","hoteledit1.html"); } else { $sessiontemp->{editerror}=1; $session->temp($sessiontemp); } $csr->finish; } 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> my ( $dbh,$cgi,$session ) = @_; my $sessiondata=$session->data; my @rv = (); push @rv,qq{ } if $sessiondata->{style} && $sessiondata->{style} eq 'default'; push @rv,qq{} if $sessiondata->{style} && $sessiondata->{style} eq 'amadeus'; return join "\n",@rv;

The Hotel Register - Free Phone 0800 007 5600

                                  

Edit your Hotel Details


Welcome to 'the registers' edit suite. The next pages will allow you to edit and update your hotels listings in the on-line versions and directory.

To start please enter your hotel reference number in the box below and click enter. If you can't remember the number please click here.

my ( $dbh,$cgi,$session ) = @_; my $data=$session->data; my $temp=$session->temp; my @rv = (); push @rv, qq{

* Your Hotel Reference Number is not valid

} if $temp->{editerror}; return join "\n",@rv;
Enter hotel reference number: