Subversion Repositories DevTools

Rev

Rev 6181 | Rev 6267 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6181 Rev 6183
Line 123... Line 123...
123 
       masterCount = rsQry("masterCount")
 123 
       masterCount = rsQry("masterCount")
124 
    End If
 124 
    End If
125 
    rsQry.Close
 125 
    rsQry.Close
126 
    Set rsQry = Nothing
 126 
    Set rsQry = Nothing
127 
 
 127 
 
- 
 
 128 
    If bGetApplication("CheckToolset", TRUE) Then
128 
    '
 129 
        '
129 
    '   Check that each GBE_MACHTYPE has exactly one insatnce where the BUILDFILTER contains
 130 
        '   Check that each GBE_MACHTYPE has exactly one instance where the BUILDFILTER contains
130 
    '   a TOOLSET builder. The test is a bit sloppy
 131 
        '   a TOOLSET builder. The test is a bit sloppy
131 
    query = _
 132 
        query = _
132 
        "SELECT * from ( " &_
 133 
            "SELECT * from ( " &_
133 
        "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
 134 
            "SELECT GBE_ID, COUNT(hasToolset) as ToolsetCount " &_
134 
        "FROM  " &_
 135 
            "FROM  " &_
135 
        "  (SELECT bc.GBE_ID, " &_
 136 
            "  (SELECT bc.GBE_ID, " &_
136 
        "    CASE " &_
 137 
            "    CASE " &_
137 
        "      WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
 138 
            "      WHEN INSTR(rc.GBE_BUILDFILTER, 'TOOLSET') > 0 " &_
138 
        "      THEN 1 " &_
 139 
            "      THEN 1 " &_
139 
        "      ELSE NULL " &_
 140 
            "      ELSE NULL " &_
140 
        "    END AS hasToolset " &_
 141 
            "    END AS hasToolset " &_
141 
        "  FROM release_manager.release_config rc, " &_
 142 
            "  FROM release_manager.release_config rc, " &_
142 
        "    BUILD_MACHINE_CONFIG bc " &_
 143 
            "    BUILD_MACHINE_CONFIG bc " &_
143 
        "  WHERE rc.rtag_id = :RTAG_ID " &_
 144 
            "  WHERE rc.rtag_id = :RTAG_ID " &_
144 
        "  AND rc.bmcon_id IS NOT NULL " &_
 145 
            "  AND rc.bmcon_id IS NOT NULL " &_
145 
        "  AND bc.bmcon_id  = rc.bmcon_id " &_
 146 
            "  AND bc.bmcon_id  = rc.bmcon_id " &_
146 
        "  ) " &_
 147 
            "  ) " &_
147 
        "GROUP BY GBE_ID ) " &_
 148 
            "GROUP BY GBE_ID ) " &_
148 
        "Where  ToolsetCount != 1 "
 149 
            "Where  ToolsetCount != 1 "
149 
 
 150 
 
150 
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 151 
        Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
151 
 
 152 
 
152 
    toolsetWarning =  rsQry.RecordCount > 0
153 
        toolsetWarning =  rsQry.RecordCount > 0
153 
    rsQry.Close
 154 
        rsQry.Close
154 
    Set rsQry = Nothing
 155 
        Set rsQry = Nothing
155 
 
 156 
    End If
156 
 
 157 
 
157 
    OraDatabase.Parameters.Remove "RTAG_ID"
 158 
    OraDatabase.Parameters.Remove "RTAG_ID"
158 
 
 159 
 
159 
End Sub
 160 
End Sub
160 
%>
 161 
%>