/[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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1153 - (hide annotations)
Wed Jul 1 22:39:34 2009 UTC (14 years, 9 months ago) by dpavlin
File size: 2225 byte(s)
fix typo errors
1 dpavlin 1086 package App::RoomReservation::Reservation;
2     use Moose;
3    
4 dpavlin 1118 use Moose::Util::TypeConstraints;
5     use Regexp::Common qw[Email::Address];
6    
7     subtype 'Email',
8     as 'Str',
9     where { /^$RE{Email}{Address}$/ },
10     message { "$_ is not valid e-mail" };
11    
12 dpavlin 1098 extends 'App::RoomReservation';
13 dpavlin 1086
14 dpavlin 1152 with 'App::RoomReservation::Email', 'App::RoomReservation::Messages';
15 dpavlin 1134
16 dpavlin 1095 use lib 'lib';
17     use Frey::PPI;
18    
19 dpavlin 1086 has ime => (
20     is => 'rw',
21     isa => 'Str',
22     required => 1,
23     );
24    
25     has prezime => (
26     is => 'rw',
27     isa => 'Str',
28     required => 1,
29     );
30    
31     has institucija => (
32     is => 'rw',
33     isa => 'Str',
34     required => 1,
35     );
36    
37     has zanimanje => (
38     is => 'rw',
39     isa => 'Str',
40     required => 1,
41     );
42    
43     has grad => (
44     is => 'rw',
45     isa => 'Str',
46     required => 1,
47     );
48    
49     has drzava => (
50     is => 'rw',
51     isa => 'Str',
52     required => 1,
53     );
54    
55     has telefon => (
56     is => 'rw',
57     isa => 'Str',
58     required => 1,
59     );
60    
61     has mobitel => (
62     is => 'rw',
63     isa => 'Str',
64     required => 1,
65     );
66    
67     has email => (
68     is => 'rw',
69 dpavlin 1118 isa => 'Email',
70 dpavlin 1086 required => 1,
71     );
72    
73     has email_verify => (
74     is => 'rw',
75 dpavlin 1118 isa => 'Email',
76 dpavlin 1086 required => 1,
77     );
78    
79     has _confirmed => (
80     is => 'rw',
81     isa => 'Bool',
82 dpavlin 1118 # required => 1,
83 dpavlin 1086 default => sub { 0 },
84     );
85    
86 dpavlin 1121 has _seat_number => (
87     is => 'rw',
88     isa => 'Int',
89     );
90    
91 dpavlin 1104 sub BUILD {
92     my $self = shift;
93 dpavlin 1152 my $email = $self->email;
94     die "e-mail not verified\n" unless $email eq $self->email_verify;
95 dpavlin 1120 my $sth = $self->dbh->prepare(qq{
96     select count(*) from reservation where email = ?
97     });
98 dpavlin 1152 $sth->execute( $email );
99 dpavlin 1120 my ($registred) = $sth->fetchrow_array;
100 dpavlin 1152 if ( $registred ) {
101     die qq|
102     <big>e-mail address $email allready registred</big>
103     | . $self->seat_confirmation_message( email => $email )
104     ;
105     }
106 dpavlin 1104 }
107    
108 dpavlin 1095 my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order;
109     warn "# cols = ",join(',', @cols), $/;
110    
111     sub create_as_markup {
112 dpavlin 1086 my ($self) = @_;
113    
114 dpavlin 1095 my @vals;
115     my @p;
116    
117     map {
118     push @vals, $self->$_;
119     push @p, '?';
120     } @cols;
121    
122     my $n = $#cols + 1;
123    
124     my $sql
125     = 'insert into reservation ('
126     . join(',', @cols)
127     . ') values ('
128     . join(',', map { '?' } @cols )
129     . ')'
130     ;
131    
132     warn "sql: $sql\n";
133    
134 dpavlin 1098 my $sth = $self->dbh->prepare( $sql );
135 dpavlin 1095 $sth->execute( @vals );
136    
137 dpavlin 1153 return $self->seat_confirmation_message( email => $self->email );
138 dpavlin 1147
139 dpavlin 1086 }
140    
141 dpavlin 1133 __PACKAGE__->meta->make_immutable;
142     no Moose;
143     no Moose::Util::TypeConstraints;
144 dpavlin 1098
145 dpavlin 1086 1;

  ViewVC Help
Powered by ViewVC 1.1.26