Changeset 1412 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web

Timestamp:

10/07/15 15:08:00 (9 years ago)

Author:

nanardon

Message:

Improve statistic view

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/Stat.pm (modified) (2 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Json/Stat.pm

@@ -36 +36 @@
     }
 
-    $c->stash->{data} = \@results;
+    $c->stash->{data} = [ sort { $b->[1] <=> $a->[1] } @results ];
 }
 
@@ -53 +53 @@
     }
 
+    $c->stash->{data} = [ sort { $b->[1] <=> $a->[1] } @results ];
+}
+
+sub manager :Local :Args(0) {
+    my ( $self, $c ) = @_;
+
+    my $base = $c->model('Accounts')->db;
+
+    my @results = ();
+
+    my %active = map { $_ => 1 } $base->search_objects('user', 'active=1', 'givenName=*');
+
+    my %managed = $base->attributes_summary_by_object('user', 'managerContact');
+
+    my %managers = ();
+
+    my $total = 0;
+
+    foreach my $user (sort keys %managed) {
+        $active{$user} or next;
+        foreach (@{ $managed{ $user } }) {
+            $active{$_} or next;
+            $managers{$_} ||= 0;
+            $managers{$_} ++;
+            $total++;
+        }
+    }
+
+    my $minreport = $c->req->param('min');
+    my $others = 0;
+
+    foreach my $user (sort { $managers{$b} <=> $managers{$a} } keys %managers) {
+        if ($minreport && $managers{$user} / $total * 100 < $minreport) {
+            $others++;
+            next;
+        }
+        push(@results, [ $user, $managers{$user} ]);
+    }
+
+    push(@results, [ 'Others', $others ]) if ($others); 
+
     $c->stash->{data} = \@results;
 }
+