diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-28 00:38:31 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-28 00:38:31 +0000 |
| commit | a2684a39b0328d328fb5fc15443b34f229405583 (patch) | |
| tree | 90b4c93e38a7c75d664f2651c1a8c86f23540265 /perl-install/pkgs.pm | |
| parent | ded1296850850b73f27a33eb0259aa6df70a04f1 (diff) | |
| download | drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar.gz drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar.bz2 drakx-a2684a39b0328d328fb5fc15443b34f229405583.tar.xz drakx-a2684a39b0328d328fb5fc15443b34f229405583.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index d0d4954da..846f4330e 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -664,7 +664,7 @@ sub readCompssList { sub readCompssUsers { my ($packages, $compss, $meta_class) = @_; - my (%compssUsers, %compssUsersIcons, @sorted, $l); + my (%compssUsers, %compssUsersIcons, , %compssUsersDescr, @sorted, $l); my (%compss); foreach (@$compss) { local ($_, $a) = m|(.*)/(.*)|; @@ -683,7 +683,8 @@ sub readCompssUsers { if (/^(\S.*)/) { &$map; - /^(.*?)\s*\[icon=(.*?)\]/ and $_ = $1, $compssUsersIcons{$_} = $2; + /^(.*?)\s*\[icon=(.*?)\]/ and $_ = $1, $compssUsersIcons{$_} = $2; + /^(.*?)\s*\[descr=(.*?)\]/ and $_ = $1, $compssUsersDescr{$_} = $2; push @sorted, $_; $compssUsers{$_} = $l = []; } elsif (/\s+\+(\S+)/) { @@ -693,7 +694,7 @@ sub readCompssUsers { } } &$map; - \%compssUsers, \@sorted, \%compssUsersIcons; + \%compssUsers, \@sorted, \%compssUsersIcons, \%compssUsersDescr; } sub setSelectedFromCompssList { |