Subversion Repositories DevTools

Rev

Rev 5080 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5080 Rev 5087
Line 351... Line 351...
351 
'               sdktag_id
 351 
'               sdktag_id
352 
'               sdktag_name
 352 
'               sdktag_name
353 
'               sdktag_state
 353 
'               sdktag_state
354 
'
 354 
'
355 
' Options:      sdk_id  - Get versions for given sdk family
 355 
' Options:      sdk_id  - Get versions for given sdk family
- 
 
 356 
'               active  - true: Only active Releases, else use mode
356 
'               mode    - true: All Releases, otherwise only non-closed releases
 357 
'               mode    - true: All Releases, otherwise only non-closed releases
357 
 
 358 
 
358 
Sub getSdkVersions
 359 
Sub getSdkVersions
359 
    '   Get Data for an existing entry
 360 
    '   Get Data for an existing entry
360 
    '   Setup for the database access
 361 
    '   Setup for the database access
Line 367... Line 368...
367 
    Dim limit
 368 
    Dim limit
368 
    If NOT QStrPar("mode") Then
 369 
    If NOT QStrPar("mode") Then
369 
        limit = " AND SDK_STATE NOT IN ('D')"
 370 
        limit = " AND SDK_STATE NOT IN ('D')"
370 
    End If
 371 
    End If
371 
 
 372 
 
- 
 
 373 
    If QStrPar("active") Then
- 
 
 374 
        limit = " AND SDK_STATE NOT IN ('D','U')"
- 
 
 375 
    End If
- 
 
 376 
 
372 
    SqlQry = "SELECT SDKTAG_ID,SDKTAG_NAME,SDK_STATE as SDKTAG_STATE from SDK_TAGS" &_
 377 
    SqlQry = "SELECT SDKTAG_ID,SDKTAG_NAME,SDK_STATE as SDKTAG_STATE from SDK_TAGS" &_
373 
             " WHERE SDK_ID = :SDK_ID" & limit &_
 378 
             " WHERE SDK_ID = :SDK_ID" & limit &_
374 
             " ORDER BY UPPER(SDKTAG_NAME) ASC"
 379 
             " ORDER BY UPPER(SDKTAG_NAME) ASC"
375 
 
 380 
 
376 
    ' Perform Query
 381 
    ' Perform Query