Parent Directory | Revision Log | Patch
revision 1152 by dpavlin, Wed Jul 1 22:25:11 2009 UTC | revision 1153 by dpavlin, Wed Jul 1 22:39:34 2009 UTC | |
---|---|---|
# | Line 4 use Moose::Role; | Line 4 use Moose::Role; |
4 | sub seat_confirmation_message { | sub seat_confirmation_message { |
5 | my ( $self, $col, $value ) = @_; | my ( $self, $col, $value ) = @_; |
6 | ||
7 | $col =~ s{token}{md5(id||email}; | die "wrong column name $col = $value" unless $col =~ m{^(token|email)$}; |
8 | ||
9 | $col =~ s{token}{md5(id||email)}; | |
10 | ||
11 | my $sth = $self->dbh->prepare(qq{ | my $sth = $self->dbh->prepare(qq{ |
12 | select | select |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |