--- trunk/lib/App/RoomReservation/Reservation.pm 2009/07/01 22:39:34 1153 +++ trunk/lib/App/RoomReservation/Reservation.pm 2009/07/02 17:59:56 1164 @@ -61,7 +61,7 @@ has mobitel => ( is => 'rw', isa => 'Str', - required => 1, + default => '', # FIXME without this we get undef in form ); has email => ( @@ -88,6 +88,26 @@ isa => 'Int', ); +has _canceled => ( + is => 'rw', + isa => 'Bool', + default => sub { 0 }, +); + +sub form_labels {{ + ime => 'Ime', + prezime => 'Prezime', + institucija => 'Institucija', + zanimanje => 'Zanimanje', + grad => 'Grad', + drzava => 'Država', + telefon => 'Telefon', + mobitel => 'Mobitel', + email => 'e-mail adresa', + verify => 'unesite ponovo', + submit => 'Pošalji', # submit button +}} + sub BUILD { my $self = shift; my $email = $self->email;