From baa0d985cce6ea0afc0f8dae55cbfecc8ddcc756 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=BCdiger=20Timm?= <rt@openoffice.org>
Date: Tue, 29 Mar 2005 14:36:55 +0000
Subject: [PATCH] INTEGRATION: CWS licensing1 (1.7.58); FILE MERGED 2005/03/04
 17:46:46 is 1.7.58.1: #119700# setup for eval version

---
 solenv/bin/modules/installer/ziplist.pm | 25 +++++++++++++++++++++++--
 1 file 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;