summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-28 00:38:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-28 00:38:31 +0000
commita2684a39b0328d328fb5fc15443b34f229405583 (patch)
tree90b4c93e38a7c75d664f2651c1a8c86f23540265 /perl-install/pkgs.pm
parentded1296850850b73f27a33eb0259aa6df70a04f1 (diff)
downloaddrakx-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.pm7
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 {