--- trunk/lib/Frey/Web.pm	2008/11/05 21:40:02	316
+++ trunk/lib/Frey/Web.pm	2008/11/17 16:59:06	375
@@ -125,4 +125,11 @@
 	return $html;
 }
 
+sub error {
+	my ( $self, $error ) = @_;
+	warn $error;
+	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
+	return qq|<pre class="frey-error">$error</pre>|;
+}
+
 1;