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) {
# The parameter is shared, take the value from the first run
$Param=$Param."_1";
$Param=$Param;
$value = $All{"$Param"};
$error = $All{"$erradd$Param"};
$line=join("\t",$line,$value,$error);

View File

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