From 40fa72eefc47cf5356d719d6b3b85d22c6937fb8 Mon Sep 17 00:00:00 2001 From: Matthew Somerville Date: Thu, 13 Dec 2012 21:19:20 +0000 Subject: Rename a few more less important variables. --- perllib/FixMyStreet/DB/Result/User.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'perllib/FixMyStreet/DB/Result/User.pm') diff --git a/perllib/FixMyStreet/DB/Result/User.pm b/perllib/FixMyStreet/DB/Result/User.pm index 62bea1dd4..997577b69 100644 --- a/perllib/FixMyStreet/DB/Result/User.pm +++ b/perllib/FixMyStreet/DB/Result/User.pm @@ -164,19 +164,19 @@ sub body { =head2 belongs_to_body - $belongs_to_body = $user->belongs_to_body( $council_list ); + $belongs_to_body = $user->belongs_to_body( $bodies ); -Returns true if the user belongs to the comma seperated list of council ids passed in +Returns true if the user belongs to the comma seperated list of body ids passed in =cut sub belongs_to_body { my $self = shift; - my $council = shift; + my $bodies = shift; - my %councils = map { $_ => 1 } split ',', $council; + my %bodies = map { $_ => 1 } split ',', $bodies; - return 1 if $self->from_body && $councils{ $self->from_body }; + return 1 if $self->from_body && $bodies{ $self->from_body }; return 0; } -- cgit v1.2.3