--- trunk/lib/App/RoomReservation/Reservation.pm	2009/06/30 09:42:37	1118
+++ trunk/lib/App/RoomReservation/Reservation.pm	2009/06/30 10:26:49	1120
@@ -84,6 +84,12 @@
 sub BUILD {
 	my $self = shift;
 	die "e-mail not verified\n" unless $self->email eq $self->email_verify;
+	my $sth = $self->dbh->prepare(qq{
+		select count(*) from reservation where email = ?
+	});
+	$sth->execute( $self->email );
+	my ($registred) = $sth->fetchrow_array;
+	die "e-mail address ", $self->email, " allready registred\n" if $registred;
 }
 
 my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order;