/[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 397 by dpavlin, Tue Nov 18 01:45:44 2008 UTC revision 398 by dpavlin, Tue Nov 18 02:14:40 2008 UTC
# Line 126  sub page { Line 126  sub page {
126    
127          my $status_line = '';          my $status_line = '';
128          foreach my $part ( @{ $self->status } ) {          foreach my $part ( @{ $self->status } ) {
129                    confess "part not hash ",dump( $part ) unless ref($part) eq 'HASH';
130                  foreach my $name ( keys %$part ) {                  foreach my $name ( keys %$part ) {
131                          my $content = $part->{$name};                          my $content = $part->{$name};
132                          if ( ref($content) ) {                          if ( ref($content) ) {
# Line 167  sub error { Line 168  sub error {
168          my $self = shift;          my $self = shift;
169          my $error = join(" ", @_);          my $error = join(" ", @_);
170          my ($package, $filename, $line) = caller;          my ($package, $filename, $line) = caller;
171          $error .= " at $filename line $line";          $error .= " at $filename line $line" if $error !~ m{ at };
172          warn "WARN: $error\n";          warn "WARN: $error\n";
173          $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;          $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
174          return qq|<pre class="frey-error">$error</pre>|;          return qq|<pre class="frey-error">$error</pre>|;
Legend:
Removed from v.397  
changed lines
  Added in v.398
  ViewVC Help
Powered by ViewVC 1.1.26