diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2006-04-19 14:08:57 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2006-04-19 14:08:57 +0000 |
| commit | 5b282e16296ca56950757b699b2e1f9d98bd201f (patch) | |
| tree | 377a5390d9d9e66c09afd99812e77f78bb149870 /solenv/bin/modules | |
| parent | ccbc19c10dac3beb0e0590d09025a60ec3f031ac (diff) | |
INTEGRATION: CWS systemjava (1.5.266); FILE MERGED
2006/03/22 13:49:20 cmc 1.5.266.1: #i61189# allow a valuelist for profile entries
Diffstat (limited to 'solenv/bin/modules')
| -rw-r--r-- | solenv/bin/modules/installer/profiles.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/solenv/bin/modules/installer/profiles.pm b/solenv/bin/modules/installer/profiles.pm index fc5f5dd15fa8..451a834f8337 100644 --- a/solenv/bin/modules/installer/profiles.pm +++ b/solenv/bin/modules/installer/profiles.pm @@ -4,9 +4,9 @@ # # $RCSfile: profiles.pm,v $ # -# $Revision: 1.5 $ +# $Revision: 1.6 $ # -# last change: $Author: rt $ $Date: 2005-09-08 09:08:48 $ +# last change: $Author: hr $ $Date: 2006-04-19 15:08:57 $ # # The Contents of this file are made available subject to # the terms of GNU Lesser General Public License Version 2.1. @@ -187,6 +187,12 @@ sub create_profiles my $section = $oneprofileitem->{'Section'}; my $key = $oneprofileitem->{'Key'}; my $value = $oneprofileitem->{'Value'}; + for (my $pk = 1; $pk <= 50; $pk++) + { + my $key = "ValueList" . $pk; + if ( $oneprofileitem->{$key} ) + { $value = $value . " " . $oneprofileitem->{$key} } + } my $order = $oneprofileitem->{'Order'}; # ignoring order at the moment my $line = "[" . $section . "]" . "\n"; |