LMU/musrfit
LMU/musrfit
5
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases 3 Activity

Release shared parameters when requested.

Browse Source
This commit is contained in:
salman 2009-11-04 12:50:56 +00:00
parent 15ddd28644
commit e6f62ff445
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/external/MuSRFitGUI/musrfit.cgi vendored
View File

@ -51,7 +51,7 @@ $dumpascii =
# TODO: Replace this with a call to $TABLE=MSR::ExportParams # TODO: Replace this with a call to $TABLE=MSR::ExportParams
$AllParameters{"Header"}=1; $AllParameters{"Header"}=1;
$TABLE=MSR::ExportParams(\%AllParameters); $TABLE=MSR::ExportParams(\%AllParameters);
$msr2dat = "$MSR2DAT < FILENAME.msr > $OUTPUT_REAL/FILENAME_par.dat"; $msr2dat = "$MSR2DAT FILENAME.msr > $OUTPUT_REAL/FILENAME_par.dat";
# "Smart" default value of the fit parameters. # "Smart" default value of the fit parameters.
%Defaults = ( %Defaults = (
@ -528,8 +528,8 @@ sub StepShared {
Choose the shared parameters<br> Choose the shared parameters<br>
<form enctype=\"multipart/form-data\" action=\"$MAINPAGE\" <form enctype=\"multipart/form-data\" action=\"$MAINPAGE\"
method=\"post\"><br> method=\"post\"><br>
INSERT_PARAMETERS_TABLE_HERE
PASS_ON_HTML_CODE PASS_ON_HTML_CODE
INSERT_PARAMETERS_TABLE_HERE
<input type=\"hidden\" name=\"go\" value=\"2\"><br> <input type=\"hidden\" name=\"go\" value=\"2\"><br>
<input type=\"reset\" value=\"Reset\"> <input type=\"reset\" value=\"Reset\">
<input type=\"submit\" value=\"Next>\"> <input type=\"submit\" value=\"Next>\">
@ -1004,8 +1004,7 @@ sub PassOn {
$One = $All[$i]; $One = $All[$i];
if ( $One ne $EMPTY && $One ne "go" ) { if ( $One ne $EMPTY && $One ne "go" ) {
# if ($Step == 1 && substr($One,0,3) ne "Sh\_") { if ( $$One ne $EMPTY ) {
if ( $$One ne $EMPTY ) {
$OneValue = $$One; $OneValue = $$One;
} }
else { else {
@ -1015,12 +1014,13 @@ sub PassOn {
# Exclude logx logy ltx # Exclude logx logy ltx
# if ($One ne "ltc" && $One ne "logx" && $One ne "logy") { # if ($One ne "ltc" && $One ne "logx" && $One ne "logy") {
$PassOn = $PassOn $skip=0;
. "<input type=\"hidden\" name=\"$One\" value=\"$OneValue\">\n"; # Skip Sh_ variables during shared skip
if ($Step == 1 && substr($One,0,3) eq "Sh\_") { $skip=1 }
# } if ($skip != 1) {
# } $PassOn = $PassOn
# } . "<input type=\"hidden\" name=\"$One\" value=\"$OneValue\">\n";
}
} }
++$i; ++$i;
} }