INTEGRATION: CWS nativefixer8 (1.19.34); FILE MERGED

2005/05/12 11:35:51 is 1.19.34.1: #122686# new subdirs for license and readme

solenv/bin/modules/installer/scriptitems.pm

@@ -1228,11 +1228,22 @@ sub change_keys_of_scpactions
     {
         my $oneitem = ${$itemsarrayref}[$i];
 
-        $oneitem->{'DestinationName'} = $oneitem->{'Name'};     # Name cannot be multilingual (!?)
-        delete($oneitem->{'Name'});
-
         my $key;
 
+        # First Name to DestinationName, then deleting Name
+        foreach $key (keys %{$oneitem})
+        {
+            if ( $key =~ /\bName\b/ )
+            {
+                my $value = $oneitem->{$key};
+                my $oldkey = $key;
+                $key =~ s/Name/DestinationName/;
+                $oneitem->{$key} = $value;
+                delete($oneitem->{$oldkey});
+            }
+        }
+
+        # Second Copy to Name, then deleting Copy
         foreach $key (keys %{$oneitem})
         {
             if ( $key =~ /\bCopy\b/ )