diff options
| author | matthew <matthew> | 2007-05-11 09:47:10 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2007-05-11 09:47:10 +0000 |
| commit | 7c7b2a621d6d951decaab938e3734604badb131c (patch) | |
| tree | 900ed94328c9137920f946b71dfc3d9d24b87bcc | |
| parent | 399799b0932ba64e8fb2c056ea32a78384ed0cc8 (diff) | |
Obviously missing bit has to be optional, dur.
| -rwxr-xr-x | web/report.cgi | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/web/report.cgi b/web/report.cgi index 228374be2..e89bc4b61 100755 --- a/web/report.cgi +++ b/web/report.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: report.cgi,v 1.23 2007-05-11 09:45:03 matthew Exp $ +# $Id: report.cgi,v 1.24 2007-05-11 09:47:10 matthew Exp $ use strict; require 5.8.0; @@ -57,10 +57,7 @@ sub main { ", @params); my $fourweeks = 4*7*24*60*60; foreach my $row (@$problem) { - my $council = $row->{council}; - $council =~ s/\|.*//; - my $missing; - # my ($council, $missing) = $row->{council} =~ /^(.*?)\|(.*)$/; + my ($council, $missing) = $row->{council} =~ /^(.*?)(?:\|(.*))?$/; my @council = split /,/, $council; my $type = ($row->{duration} > 2 * $fourweeks) ? 'unknown' |