Changeset 832
- Timestamp:
- 03/19/10 02:53:05 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/bin/la-web-directory
r831 r832 62 62 =cut 63 63 64 # On recherche les departements en plus de l'attribut "department" 65 # en scrutant l'ensemble des groupes de l'utilisateur 66 67 sub tous_les_depts { 68 my ($ouser) = @_; 69 my $groupes = join(" ",$ouser->get_attributes('memberOf')); 70 my $dept = $ouser->get_attributes('department'); 71 my $res = $dept; 72 my @depts = ('admg', 'tilde', 'manip', 'heppi', 'impec', 'shti', 'space', 'tact', 'ester'); 73 74 if ($dept) { 75 foreach my $g (@depts) { 76 if (($g ne $dept)&&($groupes =~ m/$g/)) { 77 $res .= " $g"; 78 } 79 } 80 } 81 82 return $res; 83 } 84 64 85 my $LA = LATMOS::Accounts->new($config, noacl => 1); 65 86 my $labase = $base ? $LA->base($base) : $LA->default_base; … … 116 137 $department = "EXT"; 117 138 } else { 118 $department = $ouser->get_attributes('department');139 $department = tous_les_depts($ouser); 119 140 } 120 141
Note: See TracChangeset
for help on using the changeset viewer.