From 24986d615be0383dcaa9cd093a5ba1c7948c610f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 26 Aug 2003 14:15:28 +0000 Subject: adapt to new flag [selected=...] --- perl-install/share/po/i18n_compssUsers | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/share/po/i18n_compssUsers b/perl-install/share/po/i18n_compssUsers index f6dc1ef7d..9d4fc7b84 100644 --- a/perl-install/share/po/i18n_compssUsers +++ b/perl-install/share/po/i18n_compssUsers @@ -12,10 +12,11 @@ sub get { /^\s*$/ || /^#/ and next; if (/^(\S.*)/) { - my ($icon, $path, $descr); + my ($icon, $path, $descr, $selected); /^(.*?)\s*\[icon=(.*?)\](.*)/ and $_ = "$1$3", $icon = $2; /^(.*?)\s*\[path=(.*?)\](.*)/ and $_ = "$1$3", $path = $2; /^(.*?)\s*\[descr=(.*?)\](.*)/ and $_ = "$1$3", $descr = $2; + /^(.*?)\s*\[selected=(.*?)\](.*)/ and $_ = "$1$3", $selected = $2; push @l, $_, $descr, $path; } } -- cgit v1.2.1