/[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 350 by dpavlin, Sun Nov 16 00:37:34 2008 UTC revision 385 by dpavlin, Mon Nov 17 20:14:12 2008 UTC
# Line 107  sub page { Line 107  sub page {
107          my $html = qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|          my $html = qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|
108          . $self->_head_html          . $self->_head_html
109          . '<title>' . ( $a->{title} || ref($self) ) . '</title>'          . '<title>' . ( $a->{title} || ref($self) ) . '</title>'
110            . '<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">'
111          . ( $a->{head} || '' )          . ( $a->{head} || '' )
112          . '</head><body>'          . '</head><body>'
113          . ( $a->{body} || '<!-- no body -->' )          . ( $a->{body} || '<!-- no body -->' )
# Line 128  sub page { Line 129  sub page {
129  sub error {  sub error {
130          my ( $self, $error ) = @_;          my ( $self, $error ) = @_;
131          warn $error;          warn $error;
132          $error =~ s{\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;          $error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
133          return qq|<pre class="frey-error">$error</pre>|;          return qq|<pre class="frey-error">$error</pre>|;
134  }  }
135    
Legend:
Removed from v.350  
changed lines
  Added in v.385
  ViewVC Help
Powered by ViewVC 1.1.26