Changeset 77


Ignore:
Timestamp:
Sep 2, 2009 1:22:57 AM (10 years ago)
Author:
prjemian
Message:

raise version to 1.11, take name of SASdata from @name attribute if available or Title if only one SASdata, otherwise use SASdata_0, SASdata_1, ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 1dwg/trunk/IgorPro/cansasXML.ipf

    r60 r77  
    11#pragma rtGlobals=1             // Use modern global access method. 
    2 #pragma version=1.10 
     2#pragma version=1.11 
    33 
    44// file:        cansasXML.ipf 
     
    209209                ELSE 
    210210                        FOR (j = 0; j < DimSize(M_listXPath, 0); j += 1) 
    211                                 STRING SASdataFolder = CS_cleanFolderName("SASdata_" + num2str(j)) 
     211                                // Could make this new behavior optional 
     212                                STRING SASdata_item = "SASdata_" + num2str(j) 
     213                                STRING SASdata_node = SASentryPath+"/cs:SASdata["+num2str(j+1)+"]" 
     214                                // Preferred name obtained from the SASentry/SASdata/@name attribute, if present 
     215                                STRING SASdata_name = XMLstrFmXpath(fileID,  SASdata_node + "/@name", nsStr, "") 
     216                                IF (strlen(SASdata_name) == 0) 
     217                                        IF (DimSize(M_listXPath, 0) == 1) 
     218                                                // Alternative if only one SASdata block is to use the SASentry/Title 
     219                                                SASdata_name = XMLstrFmXpath(fileID,  SASentryPath+"/cs:Title", nsStr, "") 
     220                                        ELSE 
     221                                                // the original behavior: SASdata_0, SASdata_1, ... 
     222                                                SASdata_name = SASdata_item 
     223                                        ENDIF 
     224                                        // the original behavior: SASdata_0, SASdata_1, ... 
     225                                        SASdata_name = SASdata_item 
     226                                ENDIF 
     227                                STRING SASdataFolder = CS_cleanFolderName(SASdata_name) 
    212228                                NewDataFolder/O/S  $SASdataFolder 
    213                                 CS_1i_getOneSASdata(fileID, Title, SASentryPath+"/cs:SASdata["+num2str(j+1)+"]") 
     229                                CS_1i_getOneSASdata(fileID, Title, SASdata_node) 
    214230                                CS_1i_collectMetadata(fileID, SASentryPath) 
    215231                                SetDataFolder ::                        // back up to parent directory 
Note: See TracChangeset for help on using the changeset viewer.