Added badge on organisations showing if they are a user or not

lib/Pear/LocalLoop/Schema/Result/Organisation.pm

@@ -123,4 +123,10 @@ sub to_bool {
   }
 }
 
+sub user {
+  my $self = shift;
+
+  return $self->entity->user;
+}
+
 1;

templates/admin/organisations/list.html.ep

@@ -28,6 +28,9 @@
             % if ( $org_result->pending ) {
             <span class="badge badge-warning">Unvalidated</span>
             % }
+            % if ( defined $org_result->user ) {
+            <span class="badge badge-info">User</span>
+            % }
             % if ( !defined $org_result->is_local ) {
             <span class="badge badge-danger">Locality Not Set</span>
             % } elsif ( $org_result->is_local ) {