diff --git a/src/idl/dustem_activate_plugins.pro b/src/idl/dustem_activate_plugins.pro index d193e43..fdce6e8 100755 --- a/src/idl/dustem_activate_plugins.pro +++ b/src/idl/dustem_activate_plugins.pro @@ -109,13 +109,8 @@ FOR i=0L,n_elements(param_descs)-1 DO BEGIN toto=execute(str) ((*!dustem_plugin).(k).paramtag)=ptr_new(paramtag) - if strtrim(strupcase(strmid((*(*!dustem_plugin).(k).scope),0,7)),2) EQ 'REPLACE' then begin - str='((*!dustem_plugin).('+strtrim(k,2)+').spec)=ptr_new('+ftn+'(st,key=index,val=value)'+')' - str=str(0) - endif else begin - str='((*!dustem_plugin).('+strtrim(k,2)+').spec)=ptr_new('+ftn+'(key=index,val=value)'+')' - str=str(0) - endelse + str='((*!dustem_plugin).('+strtrim(k,2)+').spec)=ptr_new('+ftn+'(key=index,val=value)'+')' & str=str(0) + toto=execute(str) & IF !dustem_verbose NE 0 THEN message,strupcase(strmid(ftn,7)),/info f=f+1 & i=i+count-1 ; Incrementing the parameter and same-type plugin indices diff --git a/src/idl/dustem_plugin_modify_dust_pol.pro b/src/idl/dustem_plugin_modify_dust_pol.pro index 0097873..ab9991d 100644 --- a/src/idl/dustem_plugin_modify_dust_pol.pro +++ b/src/idl/dustem_plugin_modify_dust_pol.pro @@ -1,4 +1,4 @@ -FUNCTION dustem_plugin_modify_dust_pol, st, key=key, val=val, scope=scope, paramtag=paramtag, help=help +FUNCTION dustem_plugin_modify_dust_pol, key=key, val=val, scope=scope, paramtag=paramtag, help=help ;+ ; NAME: @@ -37,12 +37,8 @@ IF keyword_set(help) THEN BEGIN out=0. GOTO,the_end ENDIF - -IF not keyword_set(set) THEN BEGIN - st=*!dustem_current - -ENDIF +st=*!dustem_current IF keyword_set(scope) THEN BEGIN out=0. -- libgit2 0.21.2