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

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

revision 1148 by dpavlin, Wed Jul 1 17:46:35 2009 UTC revision 1155 by dpavlin, Thu Jul 2 10:12:54 2009 UTC
# Line 9  use App::RoomReservation::Room; Line 9  use App::RoomReservation::Room;
9    
10  sub dsn { 'DBI:Pg:dbname=room-reservation' }  sub dsn { 'DBI:Pg:dbname=room-reservation' }
11    
12    =head1 DEPLOY
13    
14     createdb --encoding=utf-8 room-reservation
15    
16     perl -Ilib -MFrey::Class::Schematize \
17            -e 'print Frey::Class::Schematize->new( class => "App::RoomReservation::Reservation" )->create_table,$/;' \
18            | psql room-reservation
19    
20    =cut
21    
22  our $dbh;  our $dbh;
23  sub dbh {  sub dbh {
24          my ($self) = @_;          my ($self) = @_;
# Line 28  sub as_markup { Line 38  sub as_markup {
38          my $url = $self->url_for( 'Reservation/create_as_markup' );          my $url = $self->url_for( 'Reservation/create_as_markup' );
39    
40          return          return
41                  App::RoomReservation::Room->new->room_markup                  App::RoomReservation::Room->new->room_as_markup
42                  . qq|<a target="App::RoomReservation::Reservation" href="$url">seat reservation</a>|                  . qq|<a target="App::RoomReservation::Reservation" href="$url">seat reservation</a>|
43                  ;                  ;
44  }  }

Legend:
Removed from v.1148  
changed lines
  Added in v.1155

  ViewVC Help
Powered by ViewVC 1.1.26