App/RoomReservation/Confirmation.pm

package App::RoomReservation::Reservation::Confirmation;
use Moose;

extends 'App::RoomReservation';

has token => (
        is => 'ro',
        isa => 'Str',
        required => 1,
);

sub verify_as_markup {
        my ($self) = @_;

        my $sth = $self->dbh->prepare(qq{
                update reservation set _confirmed = true
                where md5(id||email) = ? and _confirmed is false
        });
        $sth->execute( $self->token );

        if ( $sth->rows == 1 ) {
                qq|Your <em>reservation has been confirmed</em> and seat is waiting for you|;
        } else {
                qq|We have problem with your confirmation|
        }
}

sub cancel_as_markup {
        my ($self) = @_;

        my $sth = $self->dbh->prepare(qq{
                update reservation set _confirmed = false
                where md5(id||email) = ? and _confirmed is true
        });
        $sth->execute( $self->token );

        if ( $sth->rows == 1 ) {
                qq|Your <em>reservation is canceled</em>, thanks for your effort to provide seat to somebody else|;
        } else {
                qq|We have problem with cancelation|
        }
}

1;
1	dpavlin	1098	package App::RoomReservation::Reservation::Confirmation;
2			use Moose;
3
4			extends 'App::RoomReservation';
5
6			has token => (
7			is => 'ro',
8			isa => 'Str',
9			required => 1,
10			);
11
12			sub verify_as_markup {
13			my ($self) = @_;
14
15			my $sth = $self->dbh->prepare(qq{
16			update reservation set _confirmed = true
17			where md5(id\|\|email) = ? and _confirmed is false
18			});
19			$sth->execute( $self->token );
20
21			if ( $sth->rows == 1 ) {
22			qq\|Your <em>reservation has been confirmed</em> and seat is waiting for you\|;
23			} else {
24			qq\|We have problem with your confirmation\|
25			}
26			}
27
28			sub cancel_as_markup {
29			my ($self) = @_;
30
31			my $sth = $self->dbh->prepare(qq{
32			update reservation set _confirmed = false
33			where md5(id\|\|email) = ? and _confirmed is true
34			});
35			$sth->execute( $self->token );
36
37			if ( $sth->rows == 1 ) {
38			qq\|Your <em>reservation is canceled</em>, thanks for your effort to provide seat to somebody else\|;
39			} else {
40			qq\|We have problem with cancelation\|
41			}
42			}
43
44			1;