--- trunk/lib/App/RoomReservation.pm 2009/07/02 15:56:40 1160 +++ trunk/lib/App/RoomReservation.pm 2009/07/02 16:53:39 1161 @@ -7,6 +7,23 @@ use lib 'lib'; use App::RoomReservation::Room; +sub room { + App::RoomReservation::Room->new; +} + +sub form_header { + my $self = shift; + $self->room->description; +} + +sub form_footer { + qq| +