diff options
author | Struan Donald <struan@exo.org.uk> | 2011-06-15 16:55:06 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2011-06-15 16:55:06 +0100 |
commit | 7ef671b3177a69177f1412d1ece46b3e3d92f425 (patch) | |
tree | f1cda5aced13911f3245ff8f313d24e9f0597c4f | |
parent | 7b2fb6cd9934fae59d89cfeabf5260a54713c26f (diff) |
docs and formatting
-rw-r--r-- | perllib/FixMyStreet/DB/Result/Problem.pm | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/perllib/FixMyStreet/DB/Result/Problem.pm b/perllib/FixMyStreet/DB/Result/Problem.pm index 3e82e3784..daedf5577 100644 --- a/perllib/FixMyStreet/DB/Result/Problem.pm +++ b/perllib/FixMyStreet/DB/Result/Problem.pm @@ -284,16 +284,22 @@ sub get_photo_params { return $photo; } +=head2 is_open + +Returns 1 if the problem is in a open state otherwise 0; + +=cut + sub is_open { my $self = shift; my %open_states = ( - unconfirmed => 1, - partial => 1, - confirmed => 1, - 'planned' => 1, + unconfirmed => 1, + partial => 1, + confirmed => 1, + 'planned' => 1, 'investigating' => 1, - 'in progress' => 1, + 'in progress' => 1, ); return exists $open_states{ $self->state } ? 1 : 0; |