diff options
Diffstat (limited to 'perllib/Problems.pm')
| -rw-r--r-- | perllib/Problems.pm | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/perllib/Problems.pm b/perllib/Problems.pm index 860ae04a0..76ccdc677 100644 --- a/perllib/Problems.pm +++ b/perllib/Problems.pm @@ -149,37 +149,37 @@ sub recent { return $result; } -sub front_stats { - my ($q) = @_; - my $fixed = Problems::recent_fixed(); - my $updates = Problems::number_comments(); - my $new = Problems::recent_new('1 week'); - (my $new_pretty = $new) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; - my $new_text = sprintf(mySociety::Locale::nget('<big>%s</big> report in past week', - '<big>%s</big> reports in past week', $new), $new_pretty); - if ($q->{site} ne 'emptyhomes' && $new > $fixed) { - $new = Problems::recent_new('3 days'); - ($new_pretty = $new) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; - $new_text = sprintf(mySociety::Locale::nget('<big>%s</big> report recently', '<big>%s</big> reports recently', $new), $new_pretty); - } - (my $fixed_pretty = $fixed) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; - (my $updates_pretty = $updates) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; - - my $out = ''; - $out .= $q->h2(_('FixMyStreet updates')); - my $lastmo = ''; - if ($q->{site} ne 'emptyhomes'){ - $lastmo = $q->div(sprintf(mySociety::Locale::nget("<big>%s</big> fixed in past month", "<big>%s</big> fixed in past month", $fixed), $fixed), $fixed_pretty); - } - $out .= $q->div({-id => 'front_stats'}, - $q->div($new_text), - ($q->{site} ne 'emptyhomes' ? $q->div(sprintf(mySociety::Locale::nget("<big>%s</big> fixed in past month", "<big>%s</big> fixed in past month", $fixed), $fixed_pretty)) : ''), - $q->div(sprintf(mySociety::Locale::nget("<big>%s</big> update on reports", - "<big>%s</big> updates on reports", $updates), $updates_pretty)) - ); - return $out; - -} +# sub front_stats { +# my ($q) = @_; +# my $fixed = Problems::recent_fixed(); +# my $updates = Problems::number_comments(); +# my $new = Problems::recent_new('1 week'); +# (my $new_pretty = $new) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; +# my $new_text = sprintf(mySociety::Locale::nget('<big>%s</big> report in past week', +# '<big>%s</big> reports in past week', $new), $new_pretty); +# if ($q->{site} ne 'emptyhomes' && $new > $fixed) { +# $new = Problems::recent_new('3 days'); +# ($new_pretty = $new) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; +# $new_text = sprintf(mySociety::Locale::nget('<big>%s</big> report recently', '<big>%s</big> reports recently', $new), $new_pretty); +# } +# (my $fixed_pretty = $fixed) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; +# (my $updates_pretty = $updates) =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g; +# +# my $out = ''; +# $out .= $q->h2(_('FixMyStreet updates')); +# my $lastmo = ''; +# if ($q->{site} ne 'emptyhomes'){ +# $lastmo = $q->div(sprintf(mySociety::Locale::nget("<big>%s</big> fixed in past month", "<big>%s</big> fixed in past month", $fixed), $fixed), $fixed_pretty); +# } +# $out .= $q->div({-id => 'front_stats'}, +# $q->div($new_text), +# ($q->{site} ne 'emptyhomes' ? $q->div(sprintf(mySociety::Locale::nget("<big>%s</big> fixed in past month", "<big>%s</big> fixed in past month", $fixed), $fixed_pretty)) : ''), +# $q->div(sprintf(mySociety::Locale::nget("<big>%s</big> update on reports", +# "<big>%s</big> updates on reports", $updates), $updates_pretty)) +# ); +# return $out; +# +# } # Problems around a location |