diff options
| author | matthew <matthew> | 2010-01-15 16:55:25 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2010-01-15 16:55:25 +0000 |
| commit | 7056a095ea4baa4e0d9fcf8e65a36e2ffc218337 (patch) | |
| tree | c13160997cbfbd63874afa2c998f6c2a3e886935 /perllib/Page.pm | |
| parent | 3c19c24c52acc46d134d608bac8e5f9060f8c5f4 (diff) | |
Return 410 for removed reports.
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 58c30dcae..0d22ed5dd 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.228 2009-12-22 11:54:50 matthew Exp $ +# $Id: Page.pm,v 1.229 2010-01-15 16:55:25 matthew Exp $ # package Page; @@ -290,6 +290,7 @@ sub header ($%) { $head{'-last-modified'} = time2str($params{lastmodified}) if $params{lastmodified}; $head{'-last-modified'} = time2str($lastmodified) if $lastmodified; $head{'-Cache-Control'} = $params{cachecontrol} if $params{cachecontrol}; + $head{'-status'} = $params{status_code} if $params{status_code}; print $q->header(%head); $params{title} ||= ''; |