84 |
sub BUILD { |
sub BUILD { |
85 |
my $self = shift; |
my $self = shift; |
86 |
die "e-mail not verified\n" unless $self->email eq $self->email_verify; |
die "e-mail not verified\n" unless $self->email eq $self->email_verify; |
87 |
|
my $sth = $self->dbh->prepare(qq{ |
88 |
|
select count(*) from reservation where email = ? |
89 |
|
}); |
90 |
|
$sth->execute( $self->email ); |
91 |
|
my ($registred) = $sth->fetchrow_array; |
92 |
|
die "e-mail address ", $self->email, " allready registred\n" if $registred; |
93 |
} |
} |
94 |
|
|
95 |
my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order; |
my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order; |