Subversion Repositories DevTools

Rev

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

Rev 5053 Rev 5055
Line 73... Line 73...
73
    getSdkVersions
73
    getSdkVersions
74
 
74
 
75
ElseIf (parOpr = "getSdkVersionDetails") Then
75
ElseIf (parOpr = "getSdkVersionDetails") Then
76
    getSdkVersionDetails
76
    getSdkVersionDetails
77
 
77
 
-
 
78
ElseIf (parOpr = "updateSdkVersionDetails") Then
-
 
79
    updateSdkVersionDetails
-
 
80
    
78
ElseIf (parOpr = "getProjectList") Then
81
ElseIf (parOpr = "getProjectList") Then
79
    getProjectList
82
    getProjectList
80
 
83
 
81
ElseIf (parOpr = "getReleaseList") Then
84
ElseIf (parOpr = "getReleaseList") Then
82
    getReleaseList
85
    getReleaseList
Line 448... Line 451...
448
 
451
 
449
    OraDatabase.Parameters.Remove "SDKTAG_ID"
452
    OraDatabase.Parameters.Remove "SDKTAG_ID"
450
End Sub
453
End Sub
451
 
454
 
452
'-------------------------------------------------
455
'-------------------------------------------------
-
 
456
' Function:    updateSdkVersionDetails
-
 
457
' Description: Update specific parts of the SDK Version Meta Data
-
 
458
'
-
 
459
' Options:      sdktag_id       - SDK Version to update
-
 
460
'               sdkTagName     -
-
 
461
'               sdkTagComment  -
-
 
462
 
-
 
463
Sub updateSdkVersionDetails
-
 
464
    '   Get Data for an existing entry
-
 
465
    '   Setup for the database access
-
 
466
    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")
-
 
467
    Dim sdkTagName : sdkTagName = QStrPar("sdkTagName")
-
 
468
    Dim sdkTagComment : sdkTagComment = QStrPar("sdkTagComment")
-
 
469
    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER
-
 
470
    OraDatabase.Parameters.Add "SDKTAG_NAME",      sdkTagName, ORAPARM_INPUT, ORATYPE_VARCHAR2
-
 
471
    OraDatabase.Parameters.Add "DESCRIPTION",      sdkTagComment, ORAPARM_INPUT, ORATYPE_VARCHAR2
-
 
472
 
-
 
473
    '   Update an existing entry
-
 
474
    SqlQry = "UPDATE SDK_TAGS SET SDKTAG_NAME = :SDKTAG_NAME, DESCRIPTION = :DESCRIPTION WHERE SDKTAG_ID = :SDKTAG_ID"
-
 
475
    objEH.ErrorRedirect = FALSE
-
 
476
    objEH.TryORA ( OraSession )
-
 
477
    On Error Resume Next
-
 
478
    OraDatabase.ExecuteSQL SqlQry
-
 
479
    objEH.CatchORA ( OraSession )
-
 
480
    On Error GoTo 0
-
 
481
    result = 0
-
 
482
 
-
 
483
    OraDatabase.Parameters.Remove "DESCRIPTION"
-
 
484
    OraDatabase.Parameters.Remove "SDKTAG_NAME"
-
 
485
    OraDatabase.Parameters.Remove "SDKTAG_ID"
-
 
486
End Sub
-
 
487
 
-
 
488
'-------------------------------------------------
453
' Function:    getProjectList
489
' Function:    getProjectList
454
' Description: Get Project information
490
' Description: Get Project information
455
'              Array of:
491
'              Array of:
456
'               proj_id
492
'               proj_id
457
'               proj_name
493
'               proj_name