strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

INTEGRATION: CWS licensing1 (1.7.58); FILE MERGED

Browse source 
2005/03/04 17:46:46 is 1.7.58.1: #119700# setup for eval version
This commit is contained in:
Rüdiger Timm 2005-03-29 14:36:55 +00:00
parent 265666b227
commit baa0d985cc
1 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
solenv/bin/modules/installer/ziplist.pm
View file

@ -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;