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

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

revision 1124 by dpavlin, Tue Jun 30 13:58:38 2009 UTC revision 1165 by dpavlin, Thu Jul 2 18:28:17 2009 UTC
# Line 431  sub error { Line 431  sub error {
431          my $self = shift;          my $self = shift;
432          my $error = join(" ", @_);          my $error = join(" ", @_);
433    
434            if ( $error =~ m{<error>(.+)</error>}s ) {
435                    return qq|<div class="frey-error frey-fatal">$1</div>|;
436            }
437    
438          my $fatal = '';          my $fatal = '';
439          my $backtrace = '';          my $backtrace = '';
440    
# Line 478  sub add_status { Line 482  sub add_status {
482    
483  Called at beginning of each request  Called at beginning of each request
484    
485    $self->clean_status;    $self->setup_request;
486    
487  =cut  =cut
488    
489  sub clean_status {  sub setup_request {
490          my ($self) = shift;          my ($self) = shift;
491          warn "## clean_status";          warn "## clean_status";
492          @head = ( 'static/frey.css' );          @head = ( 'static/frey.css' );
# Line 714  sub strip { Line 718  sub strip {
718          return $t;          return $t;
719  }  }
720    
721    no Moose::Role;
722    
723  1;  1;
Legend:
Removed from v.1124  
changed lines
  Added in v.1165
  ViewVC Help
Powered by ViewVC 1.1.26