Ignore:
Timestamp:
02/03/16 04:07:32 (8 years ago)
Author:
nanardon
Message:

Speedup expire page

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Summary/Expire.pm

    r1500 r1703  
    2727        my $base = $c->model('Accounts')->db; 
    2828 
    29         my %exists = map { $_ => 1 } $base->search_objects('user', 'active=1'); 
    30         my %expire = $base->attributes_summary_by_object('user', 'expire'); 
     29        my $users = $base->fetchObjectInfo( 
     30            'user', 
     31            [ qw(sn givenName description expire contratType) ], 
     32            'active=1', 'expire=*', 
     33        ); 
     34 
    3135 
    3236        my %list = (); 
    33         foreach (keys %expire) { 
    34             $exists{$_} or next; 
    35             my $ex = $expire{$_}->[0] or next; 
    36             push(@{ $list{$ex} }, $_); 
     37        foreach (keys %$users) { 
     38            my $ex = $users->{$_}->{expire}->[0] or next; 
     39            push(@{ $list{$ex} }, $users->{$_}); 
    3740        } 
    3841 
Note: See TracChangeset for help on using the changeset viewer.