Subversion Repositories DevTools

Rev

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

Rev 5049 Rev 5050
Line 64... Line 64...
64 
    If canModify() Then updateEntry
 64 
    If canModify() Then updateEntry
65 
 
 65 
 
66 
ElseIf (parOpr = "getSdkNames") Then
 66 
ElseIf (parOpr = "getSdkNames") Then
67 
    getSdkNames
 67 
    getSdkNames
68 
 
 68 
 
- 
 
 69 
ElseIf (parOpr = "getSdkVersions") Then
- 
 
 70 
    getSdkVersions
- 
 
 71 
 
69 
ElseIf (parOpr = "getProjectList") Then
 72 
ElseIf (parOpr = "getProjectList") Then
70 
    getProjectList
 73 
    getProjectList
71 
 
 74 
 
72 
ElseIf (parOpr = "getReleaseList") Then
 75 
ElseIf (parOpr = "getReleaseList") Then
73 
    getReleaseList
 76 
    getReleaseList
74 
 
 77 
 
75 
ElseIf (parOpr = "addNewSdkVersion") Then
 78 
ElseIf (parOpr = "addNewSdkVersion") Then
76 
    addNewSdkVersion
 79 
    addNewSdkVersion
77 
 
 80 
 
- 
 
 81 
ElseIf (parOpr = "setSdkContentState") Then
- 
 
 82 
    setSdkContentState
- 
 
 83 
 
78 
Else
 84 
Else
79 
    oJSON.data("error") = 1
 85 
    oJSON.data("error") = 1
80 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
 86 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
81 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
 87 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
82 
End If
 88 
End If
Line 278... Line 284...
278 
    rsQry.Close
 284 
    rsQry.Close
279 
    Set rsQry = Nothing
 285 
    Set rsQry = Nothing
280 
 
 286 
 
281 
End Sub
 287 
End Sub
282 
 
 288 
 
- 
 
 289 
'-------------------------------------------------
- 
 
 290 
' Function:    getSdkVersions
- 
 
 291 
' Description: Get SDK Versions information for a given family
- 
 
 292 
'              Array of:
- 
 
 293 
'               sdktag_id
- 
 
 294 
'               sdktag_name
- 
 
 295 
'               sdktag_state
- 
 
 296 
'
- 
 
 297 
' Options:      sdk_id  - Get versions for given sdk family
- 
 
 298 
'               mode    - true: All Releases, otherwise only non-closed releases
- 
 
 299 
 
- 
 
 300 
Sub getSdkVersions
- 
 
 301 
    '   Get Data for an existing entry
- 
 
 302 
    '   Setup for the database access
- 
 
 303 
    Dim sdk_id : sdk_id = QStrPar("sdk_id")
- 
 
 304 
    OraDatabase.Parameters.Add "SDK_ID",      sdk_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 305 
 
- 
 
 306 
    '
- 
 
 307 
    '   Limit Selection to non-closed releases
- 
 
 308 
    '
- 
 
 309 
    Dim limit
- 
 
 310 
    If NOT QStrPar("mode") Then
- 
 
 311 
        limit = " AND SDK_STATE NOT IN ('R')"
- 
 
 312 
    End If
- 
 
 313 
 
- 
 
 314 
    SqlQry = "SELECT SDKTAG_ID,SDKTAG_NAME,SDK_STATE as SDKTAG_STATE from SDK_TAGS" &_
- 
 
 315 
             " WHERE SDK_ID = :SDK_ID" & limit &_
- 
 
 316 
             " ORDER BY UPPER(SDKTAG_NAME) ASC"
- 
 
 317 
 
- 
 
 318 
    ' Perform Query
- 
 
 319 
    objEH.ErrorRedirect = FALSE
- 
 
 320 
    objEH.TryORA ( OraSession )
- 
 
 321 
    On Error Resume Next
- 
 
 322 
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 323 
    objEH.CatchORA ( OraSession )
- 
 
 324 
 
- 
 
 325 
    ' Process Results
- 
 
 326 
    Set oJSON.data("aaData") = oJSON.Collection()
- 
 
 327 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 328 
        Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
- 
 
 329 
        Dim ii
- 
 
 330 
        for ii = 0 to rsQry.Fields.Count - 1
- 
 
 331 
            newitem (rsQry.FieldName(ii)) = rsQry.Fields(ii)
- 
 
 332 
        Next
- 
 
 333 
       rsQry.MoveNext
- 
 
 334 
    Wend
- 
 
 335 
 
- 
 
 336 
    result = 0
- 
 
 337 
    rsQry.Close
- 
 
 338 
    Set rsQry = Nothing
- 
 
 339 
 
- 
 
 340 
    OraDatabase.Parameters.Remove "SDK_ID"
- 
 
 341 
End Sub
283 
 
 342 
 
284 
'-------------------------------------------------
 343 
'-------------------------------------------------
285 
' Function:    getProjectList
 344 
' Function:    getProjectList
286 
' Description: Get Project information
 345 
' Description: Get Project information
287 
'              Array of:
 346 
'              Array of:
Line 386... Line 445...
386 
End Sub
 445 
End Sub
387 
 
 446 
 
388 
'-------------------------------------------------
 447 
'-------------------------------------------------
389 
' Function:     addNewSdkVersion
 448 
' Function:     addNewSdkVersion
390 
' Description:  Add a New Sdk Version
 449 
' Description:  Add a New Sdk Version
- 
 
 450 
'               Returns the SDKTAG_ID if the created entry
391 
Sub addNewSdkVersion
 451 
Sub addNewSdkVersion
392 
    Dim userId : userId = objAccessControl.UserId()
 452 
    Dim userId : userId = objAccessControl.UserId()
- 
 
 453 
    Dim sdkTagId
393 
    '   Add a new entry
 454 
    '   Add a new entry
394 
    '
 455 
    '
395 
    '   Setup for the database access
 456 
    '   Setup for the database access
396 
    '
 457 
    '
397 
    OraDatabase.Parameters.Add "SDKTAG_NAME",   QStrPar("sdkName"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 458 
    OraDatabase.Parameters.Add "SDKTAG_NAME",   QStrPar("sdkName"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
398 
    OraDatabase.Parameters.Add "DESCRIPTION",   QStrPar("sdkComment"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
 459 
    OraDatabase.Parameters.Add "DESCRIPTION",   QStrPar("sdkComment"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
399 
    OraDatabase.Parameters.Add "SDK_ID",        QStrPar("sdk_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
 460 
    OraDatabase.Parameters.Add "SDK_ID",        QStrPar("sdk_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
400 
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
 461 
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
401 
    OraDatabase.Parameters.Add "CREATOR_ID",    userId,                 ORAPARM_INPUT, ORATYPE_NUMBER
 462 
    OraDatabase.Parameters.Add "CREATOR_ID",    userId,                 ORAPARM_INPUT, ORATYPE_NUMBER
402 
    OraDatabase.Parameters.Add "STATE_ID",      userId,                 ORAPARM_INPUT, ORATYPE_NUMBER
 463 
    OraDatabase.Parameters.Add "STATE_ID",      userId,                 ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 464 
    OraDatabase.Parameters.Add "SDKTAG_ID",     NULL,                   ORAPARM_BOTH, ORATYPE_NUMBER
403 
 
 465 
 
404 
     '  Test existance - simply to provide a Nice Error message
 466 
     '  Test existance - simply to provide a Nice Error message
405 
    SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_NAME = :SDKTAG_NAME AND SDK_ID = :SDK_ID"
 467 
    SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_NAME = :SDKTAG_NAME AND SDK_ID = :SDK_ID"
406 
    objEH.ErrorRedirect = FALSE
 468 
    objEH.ErrorRedirect = FALSE
407 
    objEH.TryORA ( OraSession )
 469 
    objEH.TryORA ( OraSession )
Line 414... Line 476...
414 
        result = -3
 476 
        result = -3
415 
        oJSON.data("error") = -1
 477 
        oJSON.data("error") = -1
416 
        oJSON.data("emsgSummary") = "SDK Verion Name already exists in this SDK family"
 478 
        oJSON.data("emsgSummary") = "SDK Verion Name already exists in this SDK family"
417 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
 479 
        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")
418 
    Else
 480 
    Else
- 
 
 481 
        SqlQry = "BEGIN "&_
419 
        SqlQry = "INSERT INTO SDK_TAGS (SDKTAG_NAME, DESCRIPTION, SDK_ID, RTAG_ID, CREATOR_ID, STATE_ID) VALUES (:SDKTAG_NAME, :DESCRIPTION, :SDK_ID, :RTAG_ID, :CREATOR_ID, :STATE_ID)"
 482 
                 " INSERT INTO SDK_TAGS (SDKTAG_NAME, DESCRIPTION, SDK_ID, RTAG_ID, CREATOR_ID, STATE_ID)" &_
- 
 
 483 
                 " VALUES (:SDKTAG_NAME, :DESCRIPTION, :SDK_ID, :RTAG_ID, :CREATOR_ID, :STATE_ID)"&_
- 
 
 484 
                 " RETURNING SDKTAG_ID INTO :SDKTAG_ID;" &_
- 
 
 485 
                 " END;"
420 
        objEH.ErrorRedirect = FALSE
 486 
        objEH.ErrorRedirect = FALSE
421 
        objEH.TryORA ( OraSession )
 487 
        objEH.TryORA ( OraSession )
422 
        On Error Resume Next
 488 
        On Error Resume Next
423 
        OraDatabase.ExecuteSQL SqlQry
 489 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 490 
        sdkTagId = OraDatabase.Parameters("SDKTAG_ID").Value
- 
 
 491 
 
- 
 
 492 
        '
- 
 
 493 
        '   Create the initial SDK_CONTENT
- 
 
 494 
        '
- 
 
 495 
        If Err.Number = 0 Then
- 
 
 496 
            SqlQry = "INSERT INTO SDK_CONTENT ( SDKTAG_ID, PV_ID) SELECT :SDKTAG_ID, pv_id FROM RELEASE_CONTENT WHERE RTAG_ID = :RTAG_ID"
- 
 
 497 
            OraDatabase.ExecuteSQL SqlQry
- 
 
 498 
        End If
- 
 
 499 
 
424 
        objEH.CatchORA ( OraSession )
 500 
        objEH.CatchORA ( OraSession )
425 
        On Error GoTo 0
 501 
        On Error GoTo 0
426 
 
 502 
 
- 
 
 503 
        oJSON.data("SDKTAG_ID") = sdkTagId
427 
        result = 0
 504 
        result = 0
428 
    End If
 505 
    End If
429 
 
 506 
 
430 
    OraDatabase.Parameters.Remove "SDKTAG_NAME"
 507 
    OraDatabase.Parameters.Remove "SDKTAG_NAME"
431 
    OraDatabase.Parameters.Remove "DESCRIPTION"
 508 
    OraDatabase.Parameters.Remove "DESCRIPTION"
432 
    OraDatabase.Parameters.Remove "SDK_ID"
 509 
    OraDatabase.Parameters.Remove "SDK_ID"
433 
    OraDatabase.Parameters.Remove "RTAG_ID"
510 
    OraDatabase.Parameters.Remove "RTAG_ID"
434 
    OraDatabase.Parameters.Remove "CREATOR_ID"
511 
    OraDatabase.Parameters.Remove "CREATOR_ID"
435 
    OraDatabase.Parameters.Remove "STATE_ID"
512 
    OraDatabase.Parameters.Remove "STATE_ID"
- 
 
 513 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
- 
 
 514 
 
- 
 
 515 
End Sub
- 
 
 516 
 
- 
 
 517 
'-------------------------------------------------
- 
 
 518 
' Function:     setSdkContentState
- 
 
 519 
' Description:  Update the state of a SDK conent item
- 
 
 520 
'               Request Parameters
- 
 
 521 
'                   sdktag_id
- 
 
 522 
'                   pv_id
- 
 
 523 
'                   sdkpkg_state
- 
 
 524 
Sub setSdkContentState
- 
 
 525 
    '
- 
 
 526 
    '
- 
 
 527 
    OraDatabase.Parameters.Add "SDKTAG_ID",     QStrPar("sdktagId"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 528 
    OraDatabase.Parameters.Add "PV_ID",         QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 529 
    OraDatabase.Parameters.Add "SDKPKG_STATE",  QStrPar("sdkpkg_state"), ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 530 
 
- 
 
 531 
        '   Update an existing entry
- 
 
 532 
        SqlQry = "UPDATE SDK_CONTENT SET SDKPKG_STATE = :SDKPKG_STATE WHERE SDKTAG_ID = :SDKTAG_ID AND PV_ID = :PV_ID"
- 
 
 533 
        objEH.ErrorRedirect = FALSE
- 
 
 534 
        objEH.TryORA ( OraSession )
- 
 
 535 
        On Error Resume Next
- 
 
 536 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 537 
        objEH.CatchORA ( OraSession )
- 
 
 538 
        On Error GoTo 0
- 
 
 539 
        result = 0
- 
 
 540 
 
- 
 
 541 
    OraDatabase.Parameters.Remove "SDKPKG_STATE"
- 
 
 542 
    OraDatabase.Parameters.Remove "PV_ID"
- 
 
 543 
    OraDatabase.Parameters.Remove "SDKTAG_ID"
436 
 
 544 
 
437 
End Sub
 545 
End Sub
438 
%>
 546 
%>