Add support to *.DCM and *.ima

sandywang · Mar 9, 2017 · ac3b3be · ac3b3be
1 parent 03369fc
commit ac3b3be
Showing 1 changed file with 22 additions and 2 deletions.
diff --git a/GUI/gretna_GUI_PreprocessInterface.m b/GUI/gretna_GUI_PreprocessInterface.m
@@ -1929,6 +1929,26 @@ function ChangedAction(hObject)
     return
 end
 
+D=dir(fullfile(Path, [Prefix, '.DCM'])); % DCM
+if ~isempty(D)
+    C={D.name}';
+    S.Num=numel(C);
+    S.FileList={fullfile(Path, C{1})};
+    S.Alias='DCM';
+    S.Lab=SPath;
+    return
+end
+
+D=dir(fullfile(Path, [Prefix, '*.ima'])); % DCM
+if ~isempty(D)
+    C={D.name}';
+    S.Num=numel(C);
+    S.FileList={fullfile(Path, C{1})};
+    S.Alias='IMA';
+    S.Lab=SPath;
+    return
+end
+
 D=dir(fullfile(Path, [Prefix, '*.IMA'])); % DCM
 if ~isempty(D)
     C={D.name}';
@@ -1941,8 +1961,8 @@ function ChangedAction(hObject)
 
 D=dir(fullfile(Path, Prefix)); % Unknown
 Ind=cellfun(...
-    @(IsDir, NotDot) IsDir && (~strcmpi(NotDot, '.') && ~strcmpi(NotDot, '..') && ~strcmpi(NotDot, '.DS_Store')),...
-    {D.isdir}, {D.name});
+    @(IsDir, IsDot) ~IsDir && (~strcmpi(IsDot, '.') && ~strcmpi(IsDot, '..') && ~strcmpi(IsDot, '.DS_Store')),...
+    {D.isdir}', {D.name}');
 D=D(Ind);
 if ~isempty(D)
     C={D.name}';