diff options
| author | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-10 19:52:24 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-10 19:52:24 +0000 |
| commit | 73c9ca597e083354d0ea9843ebea319096ce5111 (patch) | |
| tree | 4fa5864b35365e3a8dd5df7cc438b9530827abd5 /perllib/Page.pm | |
| parent | 4ebfa74ad83b23c253090f682d9bbfa36e2c63f6 (diff) | |
| parent | cf347f8fbce0fefa4f8da01a867bfe523bbe5dc0 (diff) | |
Merge commit 'remotes/origin/migrate_from_osgb36_to_wgs84'
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index b3f320f5d..fc7127a78 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -80,6 +80,9 @@ sub report_error { my $trylater = sprintf(_('Please try again later, or <a href="mailto:%s">email us</a> to let us know.'), $contact_email); my $somethingwrong = _("Sorry! Something's gone wrong."); my $errortext = _("The text of the error was:"); + + my $msg_br = join '<br><br>', split m{\n}, $msg; + print "Status: 500\nContent-Type: text/html; charset=iso-8859-1\n\n", qq(<html><head><title>$somethingwrong</title></head></html>), q(<body>), @@ -87,7 +90,7 @@ sub report_error { qq(<p>$trylater</p>), q(<hr>), qq(<p>$errortext</p>), - qq(<blockquote class="errortext">$msg</blockquote>), + qq(<blockquote class="errortext">$msg_br</blockquote>), q(</body></html>); } |