36 |
and _canceled is false |
and _canceled is false |
37 |
}); |
}); |
38 |
|
|
39 |
$sth->execute( $self->token ); |
my $token = $self->token; |
40 |
|
|
41 |
|
$sth->execute( $token ); |
42 |
|
|
43 |
if ( $sth->rows == 0 ) { |
if ( $sth->rows == 0 ) { |
44 |
warn "can't confirm ", $self->token, " check if it's allready confirmed"; |
warn "can't confirm ", $self->token, " check if it's allready confirmed"; |
49 |
md5(id||email) = ? |
md5(id||email) = ? |
50 |
and _confirmed is true |
and _confirmed is true |
51 |
}); |
}); |
52 |
$sth->execute( $self->token ); |
$sth->execute( $token ); |
53 |
} |
} |
54 |
|
|
55 |
if ( $sth->rows == 1 ) { |
if ( $sth->rows == 1 ) { |
56 |
|
|
57 |
die "can't find account associated with ", $self->token unless $sth->rows == 1; |
die qq|<error>can't find account associated with $token</error>| unless $sth->rows == 1; |
58 |
|
|
59 |
return $self->seat_confirmation_message( token => $self->token ); |
return $self->seat_confirmation_message( token => $token ); |
60 |
|
|
61 |
} else { |
} else { |
62 |
die "Problem with confirmation.\n"; |
die qq|<error>Can't find confirmation $token<br> |
63 |
|
Did you copy-pasted whole URL in your browser?</error>|; |
64 |
} |
} |
65 |
} |
} |
66 |
|
|
82 |
|
|
83 |
if ( $sth->rows == 1 ) { |
if ( $sth->rows == 1 ) { |
84 |
qq| |
qq| |
85 |
Your <em>reservation is canceled</em>, thanks for your effort to provide seat to somebody else |
Vaš <em>dolazak je odjavljen</em>. |
86 |
|
|
87 |
|
Hvala što ste omogućili dolazak nekom drugom! |
88 |
|; |
|; |
89 |
} else { |
} else { |
90 |
die "Problem with cancelation.\n"; |
die qq|<error>Can't find reservation which you are trying to cancel.<br> |
91 |
|
Did you copy-pasted whole URL in your browser?</error>|; |
92 |
} |
} |
93 |
} |
} |
94 |
|
|