/[Frey]/trunk/lib/App/RoomReservation/Reservation.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/App/RoomReservation/Reservation.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1120 by dpavlin, Tue Jun 30 10:26:49 2009 UTC revision 1134 by dpavlin, Tue Jun 30 15:59:41 2009 UTC
# Line 11  subtype 'Email', Line 11  subtype 'Email',
11    
12  extends 'App::RoomReservation';  extends 'App::RoomReservation';
13    
14    with 'App::RoomReservation::Email';
15    
16  use lib 'lib';  use lib 'lib';
17  use Frey::PPI;  use Frey::PPI;
18    
# Line 81  has _confirmed => ( Line 83  has _confirmed => (
83          default => sub { 0 },          default => sub { 0 },
84  );  );
85    
86    has _seat_number => (
87            is => 'rw',
88            isa => 'Int',
89    );
90    
91  sub BUILD {  sub BUILD {
92          my $self = shift;          my $self = shift;
93          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;
# Line 130  sub create_as_markup { Line 137  sub create_as_markup {
137          my $sth = $self->dbh->prepare( $sql );          my $sth = $self->dbh->prepare( $sql );
138          $sth->execute( @vals );          $sth->execute( @vals );
139    
140            my $token = $self->token;
141            $self->send( $self->email,
142                    'Confirm your reservation for lecture', <<__EMAIL__
143    Please click following link to confirm your reservation for lecture
144    and get seat assigned to you.
145    
146    http://FREY_HOSTNAME/App::RoomReservation::Confirmation/verify_as_markup?token=$token
147    __EMAIL__
148            );
149    
150          return          return
151                  $self->ime . ' ' . $self->prezime                  $self->ime . ' ' . $self->prezime
152                  . qq| we have accepted your registration!|                  . qq| we have accepted your registration!|
# Line 139  sub create_as_markup { Line 156  sub create_as_markup {
156                          by clicking on link which should be in your e-mail INBOX shortly                          by clicking on link which should be in your e-mail INBOX shortly
157                          </div>                          </div>
158                  |                  |
                 . qq|<a href="/App::RoomReservation::Reservation::Confirmation/verify_as_markup?token=|  
                 . $self->token  
                 . qq|">verify</a>|  
                 . ' or '  
                 . qq|<a href="/App::RoomReservation::Reservation::Confirmation/cancel_as_markup?token=|  
                 . $self->token  
                 . qq|">cancel</a>|  
159                  ;                  ;
160  }  }
161    
162    __PACKAGE__->meta->make_immutable;
163    no Moose;
164    no Moose::Util::TypeConstraints;
165    
166  1;  1;
Legend:
Removed from v.1120  
changed lines
  Added in v.1134
  ViewVC Help
Powered by ViewVC 1.1.26