Changeset 1150 for trunk/src/series.m

Timestamp:

Jun 24, 2024, 6:38:26 PM (3 months ago)

Author:

sommeria

Message:

browse_data improved

File:

• trunk/src/series.m (modified) (1 diff)

trunk/src/series.m

@@ -1420 +1420 @@
 %% create the Action fct handle if RunMode option = 'local'
 if strcmp(RunMode,'local')
-    if ~isequal(ActionPath,path_series)
-        eval(['spath=which(''' ActionName ''');']) %spath = current path of the selected function ACTION
-        if ~exist(ActionPath,'dir')
-            errormsg=['The prescribed function path ' ActionPath ' does not exist'];
-            return
-        end
-        if ~isequal(spath,ActionPath)
-            addpath(ActionPath)% add the prescribed path if not the current one
-        end
-    end
-    eval(['h_fun=@' ActionName ';'])%create a function handle for ACTION
-    if ~isequal(ActionPath,path_series)
-        rmpath(ActionPath)% add the prescribed path if not the current one
-    end
-end
+    current_dir=pwd; % current working dir
+cd(ActionPath)
+h_fun=str2func(ActionName);% create the function handle for the function ActionName
+cd(current_dir)
+    % if ~isequal(ActionPath,path_series)
+    % 
+    %     %eval(['spath=which(''' ActionName ''');']) %spath = current path of the selected function ACTION
+    %     if ~exist(ActionPath,'dir')
+    %         errormsg=['The prescribed function path ' ActionPath ' does not exist'];
+    %         return
+    %     end
+    %     spath=fileparts(which(ActionName));
+    %     if ~strcmp(spath,ActionPath)
+    %         addpath(ActionPath)% add the prescribed path if not the current one
+    %     end
+    % end
+    % eval(['h_fun=@' ActionName ';'])%create a function handle for ACTION
+    % if ~isequal(ActionPath,path_series)
+    %     rmpath(ActionPath)% add the prescribed path if not the current one
+    % end
+ end
 
 %% Get  parameters from series.xml