Corrected regression in parameters export routine.

This commit is contained in:
2011-09-27 08:23:32 +00:00
parent 1650271548
commit 4ba15e49f8
2 changed files with 6 additions and 6 deletions

View File

@@ -1497,7 +1497,7 @@ sub ExportParams {
} }
elsif ($Shared==1) { elsif ($Shared==1) {
# The parameter is shared, take the value from the first run # The parameter is shared, take the value from the first run
$Param=$Param."_1"; $Param=$Param;
$value = $All{"$Param"}; $value = $All{"$Param"};
$error = $All{"$erradd$Param"}; $error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error); $line=join("\t",$line,$value,$error);

View File

@@ -1497,7 +1497,7 @@ sub ExportParams {
} }
elsif ($Shared==1) { elsif ($Shared==1) {
# The parameter is shared, take the value from the first run # The parameter is shared, take the value from the first run
$Param=$Param."_1"; $Param=$Param;
$value = $All{"$Param"}; $value = $All{"$Param"};
$error = $All{"$erradd$Param"}; $error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error); $line=join("\t",$line,$value,$error);