INTEGRATION: CWS sb31 (1.8.8); FILE MERGED

2005/06/02 13:24:56 sb 1.8.8.2: RESYNC: (1.8-1.9); FILE MERGED
2005/06/02 09:56:28 sb 1.8.8.1: #121932# Changes for URE wntmsci10.
This commit is contained in:
Oliver Bolte 2005-06-17 08:49:25 +00:00
parent abbcaa2a90
commit 4d160a78ad

View file

@ -2,9 +2,9 @@
#
# $RCSfile: directory.pm,v $
#
# $Revision: 1.9 $
# $Revision: 1.10 $
#
# last change: $Author: rt $ $Date: 2005-05-13 09:42:38 $
# last change: $Author: obo $ $Date: 2005-06-17 09:49:25 $
#
# The Contents of this file are made available subject to the terms of
# either of the following licenses
@ -187,6 +187,9 @@ sub add_root_directories
my $productname = $allvariableshashref->{'PRODUCTNAME'};
my $productversion = $allvariableshashref->{'PRODUCTVERSION'};
my $productkey = $productname . " " . $productversion;
if ( $allvariableshashref->{'NOVERSIONINDIRNAME'} ) { $productkey = $productname; }
my $shortproductkey = installer::windows::idtglobal::make_eight_three_conform($productkey, "dir"); # third parameter not used
$shortproductkey =~ s/\s/\_/g; # changing empty space to underline