Ignore:
Timestamp:
Mar 19, 2010 11:55:53 AM (13 years ago)
Author:
srkline
Message:

Tweaks for the installer.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/Dev/trunk/NCNR_User_Procedures/Analysis/Packages/ModelPicker/SANSModelPicker_v40.ipf

    r619 r644  
    479479// fails miserably if there are aliases in the UP folder, although 
    480480// the #include doesn't mind 
     481// 
     482// SRK -2010- I need to look in the special directory too (look there first) 
     483// 
    481484Function CheckFileInUPFolder(fileStr) 
    482485        String fileStr 
     
    490493        fileStr = RemoveExten(fileStr)+fileVerExt 
    491494         
     495        // the Igor 6.1 User Procedure Path, same sub-folders as in Igor App Folder 
     496        // the installer MOVES items here, so no troubles with aliases 
     497        String userPathStr=RemoveEnding(SpecialDirPath("Igor Pro User Files",0,0,0),":")+":" 
     498        String UPStr=userPathStr+"User Procedures:" 
     499        NewPath /O/Q/Z UPPath ,UPStr 
     500        ListAllFilesAndFolders("UPPath",1,1,0)  //this sets the global string allFiles 
     501        String list = allFiles 
     502        err = strsearch(list, fileStr, 0,2)             //this is not case-sensitive, but Igor 5! 
     503        if(err != -1) 
     504                return(1)               //name was found somewhere 
     505        endif 
     506         
     507        // name not found, try looking in the Igor Pro/ folder 
     508        // this will still fail if aliases are present here 
    492509        PathInfo Igor 
    493         String UPStr=S_path+"User Procedures:" 
     510        UPStr=S_path+"User Procedures:" 
    494511        NewPath /O/Q/Z UPPath ,UPStr 
    495         ListAllFilesAndFolders("UPPath",1,1,0)  //this sets allFiles 
    496         String list = allFiles 
     512        ListAllFilesAndFolders("UPPath",1,1,0)  //this sets the global string allFiles 
     513        list = allFiles 
    497514//      err = FindListItem(fileStr, list ,";" ,0) 
    498515        err = strsearch(list, fileStr, 0,2)             //this is not case-sensitive, but Igor 5! 
Note: See TracChangeset for help on using the changeset viewer.