Fix more bugs with white spaces.
This commit is contained in:
@ -245,8 +245,9 @@ void TrimSPGUI::CollectValues()
|
||||
$All{"IPOTR"}=sprintf("%3d",$All{"IPOTR"});
|
||||
$All{"IRL"}=sprintf("%2d",$All{"IRL"});
|
||||
|
||||
# Filenames etc.
|
||||
# Filenames etc. The filename should not have white spaces
|
||||
$All{"FNPre"}=FNPre->text();
|
||||
$All{"FNPre"}=~ s/\s+//g;
|
||||
$All{"Path"}=Path->text();
|
||||
|
||||
# Scan parameters only if selected
|
||||
@ -257,13 +258,20 @@ void TrimSPGUI::CollectValues()
|
||||
$All{"NProjRadio"}=NProjRadio->isChecked();
|
||||
$All{"dRadio"}=dRadio->isChecked();
|
||||
$All{"ScandL"}=ScandL->text();
|
||||
# Remove any white spaces
|
||||
$All{"ScandL"} =~ s/\s+//g;
|
||||
$All{"ListRadio"}=ListRadio->isChecked();
|
||||
$All{"LoopRadio"}=LoopRadio->isChecked();
|
||||
$All{"ScanList"}=ScanList->text();
|
||||
# Remove any white spaces
|
||||
$All{"ScanList"} =~ s/\s+//g;
|
||||
$All{"ScanListdz"}=ScanListdz->text();
|
||||
$All{"SFrom"}=SFrom->text();
|
||||
$All{"STo"}=STo->text();
|
||||
$All{"SStep"}=SStep->text();
|
||||
# Remove any white spaces
|
||||
$All{"ScanListdz"} =~ s/\s+//g;
|
||||
# These should be numeric
|
||||
$All{"SFrom"}=1*SFrom->text();
|
||||
$All{"STo"}=1*STo->text();
|
||||
$All{"SStep"}=1*SStep->text();
|
||||
# }
|
||||
|
||||
# Return values to caller
|
||||
@ -485,14 +493,21 @@ void TrimSPGUI::StartSequenceOne()
|
||||
$All{"NProjRadio"}=NProjRadio->isChecked();
|
||||
$All{"dRadio"}=dRadio->isChecked();
|
||||
$All{"ScandL"}=ScandL->text();
|
||||
# Remove any white spaces
|
||||
$All{"ScandL"} =~ s/\s+//g;
|
||||
$All{"ListRadio"}=ListRadio->isChecked();
|
||||
$All{"LoopRadio"}=LoopRadio->isChecked();
|
||||
$All{"ScanList"}=ScanList->text();
|
||||
# Remove any white spaces
|
||||
$All{"ScanList"} =~ s/\s+//g;
|
||||
$All{"ScanListdz"}=ScanListdz->text();
|
||||
$All{"SFrom"}=SFrom->text();
|
||||
$All{"STo"}=STo->text();
|
||||
$All{"SStep"}=SStep->text();
|
||||
|
||||
# Remove any white spaces
|
||||
$All{"ScanListdz"} =~ s/\s+//g;
|
||||
# These should be numeric
|
||||
$All{"SFrom"}=1*SFrom->text();
|
||||
$All{"STo"}=1*STo->text();
|
||||
$All{"SStep"}=1*SStep->text();
|
||||
|
||||
if ($All{"ListRadio"}) {
|
||||
@SValues=split(/,/,$All{"ScanList"});
|
||||
@SdzValues=split(/,/,$All{"ScanListdz"});
|
||||
|
Reference in New Issue
Block a user