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

Feedback Form

Name
Venue Name
Email address
How do you like the new website?
Is there anything else you would like to see added to the website?
Any other comments or questions?