Changeset 682 for LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller

Timestamp:

01/20/10 23:13:02 (14 years ago)

Author:

nanardon

Message:

• on user list page, use initials instead page number

File:

• LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm (modified) (1 diff)

LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Users.pm

@@ -26 +26 @@
 
     $c->stash->{ofilter} = $c->model('AttrFilter', 'user');
-    my $start = ($c->req->param('start') || '0') * 20 ;
+    my $start = $c->req->param('start');
     $c->stash->{uparams} = { %{ $c->req->params || {} } };
-    my @userlist = map { $_->id } @{ $c->stash->{objectslist} };
-    $c->stash->{pagecount} = int(@userlist / 20);
-    splice(@userlist, 0, $start) if($start);
-    $c->stash->{userslist} = [
-        @userlist[0 .. ($#userlist > 19 ? 19 : $#userlist)]
-    ];
+    my %initials;
+    my @userlist;
+    foreach (map { $_->id } @{ $c->stash->{objectslist} }) {
+        $initials{substr($_, 0, 1)} = 1;
+        if ($start) {
+            if (index($_, $start) == 0) {
+                push(@userlist, $_);
+            }
+        }
+    }
+    if (@{ $c->stash->{objectslist} } < 20) {
+        @userlist = map { $_->id } @{ $c->stash->{objectslist} };
+    } else {
+        $c->stash->{initials} = [ sort keys %initials ];
+    }
+    $c->stash->{userslist} = \@userlist;
 }