Revision 8540
Added by Jing Tao almost 11 years ago
| src/perl/ldapweb.cgi | ||
|---|---|---|
| 269 | 269 |
my %orgNamesHash = %$orgNames; |
| 270 | 270 |
foreach my $element (@displayOrgList) {
|
| 271 | 271 |
if(exists $orgNamesHash{$element}) {
|
| 272 |
debug("push the organization " . $element . " into the dispaly array");
|
|
| 272 |
my $label = $ldapConfig->{$element}{'label'};
|
|
| 273 |
my %displayHash; |
|
| 274 |
$displayHash{$element} = $label;
|
|
| 275 |
debug("push a hash containing the key " . $element . "with the value label" . $label . " into the display array");
|
|
| 273 | 276 |
#if the name is found in the organization part of metacat.properties, put it into the valid array |
| 274 |
push(@validDisplayOrgList, $element);
|
|
| 277 |
push(@validDisplayOrgList, \%displayHash);
|
|
| 275 | 278 |
} |
| 276 | 279 |
|
| 277 | 280 |
} |
Also available in: Unified diff
Use an array of a hash to keep the orgName/orgLabel pair.