diff options
author | Rüdiger Timm <rt@openoffice.org> | 2005-03-29 14:36:55 +0000 |
---|---|---|
committer | Rüdiger Timm <rt@openoffice.org> | 2005-03-29 14:36:55 +0000 |
commit | baa0d985cce6ea0afc0f8dae55cbfecc8ddcc756 (patch) | |
tree | 6496c945ae0ad43a8b321110ecb3abba1315082f /solenv/bin/modules/installer/ziplist.pm | |
parent | 265666b22763bc44028e469e087f4fe235d89172 (diff) |
INTEGRATION: CWS licensing1 (1.7.58); FILE MERGED
2005/03/04 17:46:46 is 1.7.58.1: #119700# setup for eval version
Diffstat (limited to 'solenv/bin/modules/installer/ziplist.pm')
-rw-r--r-- | solenv/bin/modules/installer/ziplist.pm | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/solenv/bin/modules/installer/ziplist.pm b/solenv/bin/modules/installer/ziplist.pm index 6d34ee766893..15809f234ca6 100644 --- a/solenv/bin/modules/installer/ziplist.pm +++ b/solenv/bin/modules/installer/ziplist.pm @@ -2,9 +2,9 @@ # # $RCSfile: ziplist.pm,v $ # -# $Revision: 1.7 $ +# $Revision: 1.8 $ # -# last change: $Author: rt $ $Date: 2005-01-31 10:48:16 $ +# last change: $Author: rt $ $Date: 2005-03-29 15:36:55 $ # # The Contents of this file are made available subject to the terms of # either of the following licenses @@ -755,4 +755,25 @@ sub replace_variables_in_ziplist_variables } } +########################################################### +# Adding the lowercase variables into the variableshashref +########################################################### + +sub add_variables_to_allvariableshashref +{ + my ($variableshashref) = @_; + + my $lcvariable = lc($variableshashref->{'PRODUCTNAME'}); + $variableshashref->{'LCPRODUCTNAME'} = $lcvariable; + + if ($variableshashref->{'SHORT_PRODUCTEXTENSION'}) + { + $variableshashref->{'LCPRODUCTEXTENSION'} = "\-" . lc($variableshashref->{'SHORT_PRODUCTEXTENSION'}); # including the "-" ! + } + else + { + $variableshashref->{'LCPRODUCTEXTENSION'} = ""; + } +} + 1; |