--- trunk/lib/App/RoomReservation/Messages.pm	2009/07/01 22:25:11	1152
+++ trunk/lib/App/RoomReservation/Messages.pm	2009/07/01 22:39:34	1153
@@ -4,7 +4,9 @@
 sub seat_confirmation_message {
 	my ( $self, $col, $value ) = @_;
 
-	$col =~ s{token}{md5(id||email};
+	die "wrong column name $col = $value" unless $col =~ m{^(token|email)$};
+
+	$col =~ s{token}{md5(id||email)};
 
 	my $sth = $self->dbh->prepare(qq{
 		select