Parent Directory | Revision Log | Patch
revision 1170 by dpavlin, Thu Jul 2 21:55:44 2009 UTC | revision 1171 by dpavlin, Sun Jul 5 21:25:25 2009 UTC | |
---|---|---|
# | Line 11 sub room { | Line 11 sub room { |
11 | App::RoomReservation::Room->new; | App::RoomReservation::Room->new; |
12 | } | } |
13 | ||
14 | around 'title' => sub { | |
15 | my ( $real_title, $self ) = @_; | |
16 | return ( 'Seat Reservation' ); | |
17 | }; | |
18 | ||
19 | sub form_header { | sub form_header { |
20 | my $self = shift; | my $self = shift; |
21 | $self->room->description; | $self->room->description; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |