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; The Wedding Register 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 Wedding Register - Free Phone 0800 007 5600

Edit your Venue Details


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

To start please enter your venue 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 Venue Reference Number is not valid

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