/[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 1133 by dpavlin, Tue Jun 30 15:10:55 2009 UTC revision 1148 by dpavlin, Wed Jul 1 17:46:35 2009 UTC
# Line 24  sub dbh { Line 24  sub dbh {
24  sub as_markup {  sub as_markup {
25          my ($self) = @_;          my ($self) = @_;
26    
27          App::RoomReservation::Room->new->room_markup  
28          . qq|<a target="App::RoomReservation::Reservation" href="/App::RoomReservation::Reservation/create_as_markup">seat reservation</a>|          my $url = $self->url_for( 'Reservation/create_as_markup' );
29          ;  
30            return
31                    App::RoomReservation::Room->new->room_markup
32                    . qq|<a target="App::RoomReservation::Reservation" href="$url">seat reservation</a>|
33                    ;
34    }
35    
36    # my $url = $self->uri_for( 'Reservation/create_as_makrup' );
37    
38    sub url_for {
39            my ( $self, $to ) = @_;
40            my $app = ref($self);
41            $app =~ s{^(App::[^:]+)::.+$}{$1};
42            $app .= '::' . $to;
43    
44            my ( $class, $method ) = split(m{/}, $app);
45            $method =~ s{\?.+$}{};  # remove arguments
46            Class::MOP::load_class( $class );
47            die "$class doesn't implement $method" unless $class->meta->has_method($method);
48    
49            return
50                    $self->request_url->scheme . '://' . $self->request_url->authority . '/' . $app;
51  }  }
52    
53  __PACKAGE__->meta->make_immutable;  __PACKAGE__->meta->make_immutable;
Legend:
Removed from v.1133  
changed lines
  Added in v.1148
  ViewVC Help
Powered by ViewVC 1.1.26