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

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

revision 1166 by dpavlin, Thu Jul 2 18:28:17 2009 UTC revision 1167 by dpavlin, Thu Jul 2 18:56:17 2009 UTC
# Line 312  sub html_page { Line 312  sub html_page {
312          my $revision = $svk->info->{Revision} || '';          my $revision = $svk->info->{Revision} || '';
313          $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)};          $revision = $1 if $info->{'Mirrored From'} =~ m{Rev\.\s+(\d+)};
314    
315            $status_line = $ENV{FREY_DEV} ? qq|
316                    <div class="frey-status-line">
317                            <a href="/">Frey</a> $Frey::VERSION $revision
318                            $status_line
319                            $right
320                    </div>
321            | : '';
322    
323          $self->add_icon;          $self->add_icon;
324    
325          my $title = undef          my $title = undef
# Line 338  sub html_page { Line 346  sub html_page {
346                  qq|                  qq|
347                  </head><body>                  </head><body>
348                  $body                  $body
349                  <div class="frey-status-line">                  $status_line
                         <a href="/">Frey</a> $Frey::VERSION $revision  
                         $status_line  
                         $right  
                 </div>  
350              </body></html>              </body></html>
351                  |,                  |,
352          );          );
Legend:
Removed from v.1166  
changed lines
  Added in v.1167
  ViewVC Help
Powered by ViewVC 1.1.26