Changeset 741 for trunk/src/browse_data.m

Timestamp:

Apr 15, 2014, 9:06:46 AM (11 years ago)

Author:

sommeria

Message:

bugs corrected in browse_data and mouse_motion (z display)

File:

• trunk/src/browse_data.m (modified) (7 diffs)

trunk/src/browse_data.m

@@ -72 +72 @@
 set(hObject, 'Units', OldUnits);
 if exist('Campaign','var')
-    [CampaignPath,CampaignName]=fileparts(Campaign);
+    [tild,CampaignName]=fileparts(Campaign);
     RootXml=fullfile(Campaign,[CampaignName '.xml']);
     s=[];
@@ -125 +125 @@
     if isempty(MirrorRoot)
         return
+    elseif strcmp(MirrorRoot,SourcePath)
+        msgbox_uvmat('ERROR','The mirror folder must be different from the source')
+        return
     else
         MirrorDir=fullfile(MirrorRoot,ProjectName);
     end
-    if ~exist(MirrorDir,'dir')
-        mkdir(MirrorDir)
+    if exist(MirrorDir,'dir')
+        msgbox_uvmat('ERROR',['The folder ' MirrorDir ' chosen as new mirror campaign already exists']) 
+        return
+    else
+        [s,errormsg]=mkdir(MirrorDir)% create the mirror dir
+        if s~=1
+            msgbox_uvmat('ERROR',['error in creating ' MirrorDir ': ' errormsg]) 
+            return
+        end
     end
     MirrorDoc.SourceDir=SourceDir;
     t=struct2xml(MirrorDoc);
     set(t,1,'name','DataTree');
-    save(t,fullfile(MirrorDir,[ProjectName '.xml']))
+    save(t,fullfile(MirrorDir,[ProjectName '.xml']))% create an xml file in the mirror folder to indicate its source folder
     set(handles.MirrorDir,'String',MirrorDir)
     set(handles.MirrorDir,'Visible','on')
+    set(handles.CreateMirror,'String','update_mirror')
 end
 ExpName={''};
@@ -206 +217 @@
  function ListExperiments_Callback(hObject, eventdata, handles)
 
-MirrorPath='';
-CampaignPath=get(handles.SourceDir,'String');
 if strcmp(get(handles.MirrorDir,'Visible'),'on')
     MirrorPath=get(handles.MirrorDir,'String');
+else
+    MirrorPath=get(handles.SourceDir,'String');
 end
 ListExperiments=get(handles.ListExperiments,'String');
@@ -229 +240 @@
 for iexp=1:numel(ListExperiments)
     if strcmp(ListExperiments{iexp}(1),'+')% if the item is a directory
-        ListExperiments{iexp}(1)=[];
+        ListExperiments{iexp}(1)=[];%remove the first char '+' used to mark folders
         ListStruct=dir(fullfile(MirrorPath,ListExperiments{iexp})); %list files and dir in the source experiment directory
         ListCells=struct2cell(ListStruct);%transform dir struct to a cell arrray
@@ -279 +290 @@
                 if ~isempty(MirrorPath)
                     mirror=fullfile(MirrorPath,ListExperiments{iexp},ListFiles{ilist});
-                    if exist(mirror,'dir')||exist(mirror,'file')
+                    if exist(mirror,'file')% if mirror already exists as a file or folder
                         [tild,msg]=fileattrib(mirror);
                         if strcmp(msg.Name,mirror)%if the mirror name already exists as a local file or dir
-                            if msg.directory% case of a f
+                            if msg.directory% case of a folder
                                 answer=msgbox_uvmat('INPUT_Y-N',['replace local folder ' msg.Name ' by a link to the source dir']);
                                 if strcmp(answer,'Yes')
@@ -292 +303 @@
                                     end
                                 end
-                            else
+                            else % case of an existing mirror file
                                 answer=msgbox_uvmat('INPUT_Y-N',['replace local file ' msg.Name ' by a link to the source file']);
                                 if strcmp(answer,'Yes')
                                     delete(mirror);
-                                    system(['ln -s ' DataSeries ' ' mirror]); % create the link to the source folder
-                                    
+                                    system(['ln -s ' DataSeries ' ' mirror]); % create the link to the source folder                                  
                                 end
                             end
-                        else% create mirror to the data series if needed
-                            system(['ln -s ' DataSeries ' ' mirror]); % create the link to the source folder
                         end
+                    else% create mirror to the data series if needed
+                        system(['ln -s ' DataSeries ' ' mirror]); % create the link to the source folder                     
                     end
                     if isempty(find(strcmp(ListFiles{ilist},ListDevices), 1))% if the item is not already in ListDevices
@@ -586 +596 @@
 Device=Device(Value);
 Device=regexprep(Device,'^\+/','');% remove the +/ used to mark dir
+Device=regexprep(Device,'^~','');% remove the ~ used to mark symbolic link
 handles.output.Experiment=Experiment;
 handles.output.DataSeries=Device;