/[Frey]/branches/no-pager/lib/Frey/Designer.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 /branches/no-pager/lib/Frey/Designer.pm

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

revision 196 by dpavlin, Tue Oct 28 19:34:10 2008 UTC revision 203 by dpavlin, Thu Oct 30 17:53:09 2008 UTC
# Line 43  use HTML::ResolveLink; Line 43  use HTML::ResolveLink;
43    
44  sub path {  sub path {
45          my $self = shift;          my $self = shift;
46          my $path = 'templates/www.carnet.hr/' . $self->uri->path;          my $path = join('/', ( 'templates', $self->uri->host, $self->uri->path ) );
47          $path .= '.html' if $path !~ m/\.\w+$/;          $path .= '.html' if $path !~ m/\.\w+$/;
48          return $path;          return $path;
49  }  }
# Line 84  sub get_page { Line 84  sub get_page {
84  sub html {  sub html {
85      my ( $self, $req ) = @_;      my ( $self, $req ) = @_;
86    
87      my $body;          my $body = $self->get_page;
   
         if ( $self->uri->path =~ m{/__bookmarklet} ) {  
                 my $js = read_file( 'static/xpath.js' );  
                 $js =~ s{//.*}{}gm;     # remove comments so that compaction below doesn't screw code  
                 $js =~ s/\s\s+/ /gs;  
         $req->print(qq{  
                         Drag this <a href="javascript:void($js);">bookmarklet</a> to bookmark toolbar or menu to install XPATH inspector  
                 });  
                 return;  
         }  
   
         $body .= $self->get_page;  
88    
89          # strip full hostname          # strip full hostname
90          my $url = $self->uri;          my $url = $self->uri;
Legend:
Removed from v.196  
changed lines
  Added in v.203
  ViewVC Help
Powered by ViewVC 1.1.26