--- trunk/lib/Frey/Web.pm	2008/11/19 19:28:09	467
+++ trunk/lib/Frey/Web.pm	2008/11/19 19:59:52	468
@@ -180,6 +180,12 @@
 		$body = '<!-- no body -->';
 	}
 
+	$status_line
+		.= qq|<span class="frey-popup">warn<code>|
+		. $self->editor_links( join("", $self->warnings ) )
+		. qq|</code></span>|
+		if $self->warnings;
+
 	my $html = join("\n",
 		qq|<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"><html><head>|,
 		$self->_head_html,
@@ -203,6 +209,18 @@
 	return $html;
 }
 
+sub editor_links {
+	my ( $self, $error ) = @_;
+
+	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}
+		{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm;
+
+	$error =~ s{(via package ")([\w:]+)(")}
+		{$1<a target="editor" href="/editor+$2+1">$2</a>$3}gsm;
+
+	return $error;
+}
+
 sub error {
 	my $self = shift;
 	my $error = join(" ", @_);
@@ -211,12 +229,11 @@
 	$error .= "\n\t" . join( "\n\t", @backtrace ) if @backtrace;
 
 	warn "ERROR: $error\n";
-	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}
-		{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm;
-	$error =~ s{(via package ")([\w:]+)(")}
-		{$1<a target="editor" href="/editor+$2+1">$2</a>$3}gsm;
-
-	return qq|<pre class="frey-error">$error</pre>|;
+	return
+		qq|<pre class="frey-error">|
+		. $self->editor_links( $error ) .
+		qq|</pre>|
+		;
 }
 
 1;
