/[Frey]/branches/zimbardo/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 /branches/zimbardo/lib/App/RoomReservation/Reservation.pm

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

revision 1172 by dpavlin, Sun Jul 5 21:40:16 2009 UTC revision 1173 by dpavlin, Sun Jul 5 21:40:54 2009 UTC
# Line 7  use Regexp::Common qw[Email::Address]; Line 7  use Regexp::Common qw[Email::Address];
7  subtype 'Email',  subtype 'Email',
8          as 'Str',          as 'Str',
9          where { /^$RE{Email}{Address}$/ },          where { /^$RE{Email}{Address}$/ },
10          message { qq|<error>$_ is not valid e-mail address</error>| };          message { qq|<error>$_ nije valjana e-mail adresa / $_ is not valid e-mail address</error>| };
11    
12  extends 'App::RoomReservation';  extends 'App::RoomReservation';
13    
# Line 95  has _canceled => ( Line 95  has _canceled => (
95  );  );
96    
97  sub form_labels {{  sub form_labels {{
98          ime => 'Ime',          ime => 'Ime / Name',
99          prezime => 'Prezime',          prezime => 'Prezime / Surname',
100          institucija => 'Institucija',          institucija => 'Institucija / Institution',
101          zanimanje => 'Zanimanje',          zanimanje => 'Zanimanje / Profession',
102          grad => 'Grad',          grad => 'Grad / City',
103          drzava => 'Država',          drzava => 'Država / Country',
104          telefon => 'Telefon',          telefon => 'Telefon / Phone',
105          mobitel => 'Mobitel',          mobitel => 'Mobitel / Cellular phone',
106          email => 'e-mail adresa',          email => 'e-mail',
107          verify => 'unesite ponovo',          verify => 'ponovo / again',
108          submit => 'Pošalji', # submit button          submit => 'Pošalji / Submit', # submit button
109  }}  }}
110    
111  sub BUILD {  sub BUILD {
# Line 121  sub BUILD { Line 121  sub BUILD {
121                  die                  die
122                  qq|                  qq|
123                          <error>                          <error>
124                          <big>e-mail address $email allready registred</big>                          <big>e-mail $email je već registriran / allready registred</big>
125                            <br><br>
126                  |                  |
127                  . $self->seat_confirmation_message( email => $email )                  . $self->seat_confirmation_message( email => $email )
128                  . qq|                  . qq|
Legend:
Removed from v.1172  
changed lines
  Added in v.1173
  ViewVC Help
Powered by ViewVC 1.1.26