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

INTEGRATION: CWS sb31 (1.8.8); FILE MERGED

Browse source 
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
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
solenv/bin/modules/installer/windows/directory.pm
View file

@ -2,9 +2,9 @@
# #
# $RCSfile: directory.pm,v $ # $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 # The Contents of this file are made available subject to the terms of
# either of the following licenses # either of the following licenses
@ -187,6 +187,9 @@ sub add_root_directories
my $productname = $allvariableshashref->{'PRODUCTNAME'}; my $productname = $allvariableshashref->{'PRODUCTNAME'};
my $productversion = $allvariableshashref->{'PRODUCTVERSION'}; my $productversion = $allvariableshashref->{'PRODUCTVERSION'};
my $productkey = $productname . " " . $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 my $shortproductkey = installer::windows::idtglobal::make_eight_three_conform($productkey, "dir"); # third parameter not used
$shortproductkey =~ s/\s/\_/g; # changing empty space to underline $shortproductkey =~ s/\s/\_/g; # changing empty space to underline