Subversion Repositories DevTools

Rev

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

Rev 5050 Rev 5052
Line 67... Line 67...
67
    getSdkNames
67
    getSdkNames
68
 
68
 
69
ElseIf (parOpr = "getSdkVersions") Then
69
ElseIf (parOpr = "getSdkVersions") Then
70
    getSdkVersions
70
    getSdkVersions
71
 
71
 
-
 
72
ElseIf (parOpr = "getSdkVersionDetails") Then
-
 
73
    getSdkVersionDetails
-
 
74
 
72
ElseIf (parOpr = "getProjectList") Then
75
ElseIf (parOpr = "getProjectList") Then
73
    getProjectList
76
    getProjectList
74
 
77
 
75
ElseIf (parOpr = "getReleaseList") Then
78
ElseIf (parOpr = "getReleaseList") Then
76
    getReleaseList
79
    getReleaseList
77
 
80
 
78
ElseIf (parOpr = "addNewSdkVersion") Then
81
ElseIf (parOpr = "addNewSdkVersion") Then
79
    addNewSdkVersion
82
    addNewSdkVersion
80
 
83
 
-
 
84
ElseIf (parOpr = "setSdkState") Then
-
 
85
    setSdkState
-
 
86
 
81
ElseIf (parOpr = "setSdkContentState") Then
87
ElseIf (parOpr = "setSdkContentState") Then
82
    setSdkContentState
88
    setSdkContentState
83
 
89
 
84
Else
90
Else
85
    oJSON.data("error") = 1
91
    oJSON.data("error") = 1
Line 104... Line 110...
104
    oJSON.data("errnum") = Err.number
110
    oJSON.data("errnum") = Err.number
105
    oJSON.data("errtxt") = Err.description
111
    oJSON.data("errtxt") = Err.description
106
    oJSON.data("errsrc") = Err.source
112
    oJSON.data("errsrc") = Err.source
107
    oJSON.data("emsgSummary") = "Internal VBScript Error:" & Err.number &  ":" & Err.description
113
    oJSON.data("emsgSummary") = "Internal VBScript Error:" & Err.number &  ":" & Err.description
108
End If
114
End If
109
 
115
On error goto 0
110
'Write single value
116
'Write single value
111
oJSON.data("result") = result
117
oJSON.data("result") = result
112
 
118
 
113
'function Sleep(seconds)
119
'function Sleep(seconds)
114
'    dim oshell, cmd
120
'    dim oshell, cmd
Line 339... Line 345...
339
 
345
 
340
    OraDatabase.Parameters.Remove "SDK_ID"
346
    OraDatabase.Parameters.Remove "SDK_ID"
341
End Sub
347
End Sub
342
 
348
 
343
'-------------------------------------------------
349
'-------------------------------------------------
-
 
350
' Function:    getSdkVersionDetails
-
 
351
' Description: Get Details for a specific SDK Version
-
 
352
'              Hash of:
-
 
353
'               Lots of stuff
-
 
354
'
-
 
355
' Options:      sdktag_id  - SDK Version to get
-
 
356
 
-
 
357
Sub getSdkVersionDetails
-
 
358
    '   Get Data for an existing entry
-
 
359
    '   Setup for the database access
-
 
360
    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")
-
 
361
    OraDatabase.Parameters.Add "SDKTAG_ID",      sdktag_id, ORAPARM_INPUT, ORATYPE_NUMBER
-
 
362
    SqlQry = "SELECT st.SDKTAG_ID, " &_
-
 
363
             "  SDKTAG_NAME, " &_
-
 
364
             "  DESCRIPTION, " &_
-
 
365
             "  st.SDK_ID, " &_
-
 
366
             "  TO_CHAR(CREATED_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as CREATED_STAMP , " &_
-
 
367
             "  CREATOR_ID, " &_
-
 
368
             "  TO_CHAR(STATE_STAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as STATE_STAMP , " &_
-
 
369
             "  STATE_ID, " &_
-
 
370
             "  SDK_STATE, " &_
-
 
371
             "  SDK_NAME, " &_
-
 
372
             "  SDK_COMMENT " &_
-
 
373
             "FROM SDK_TAGS st, " &_
-
 
374
             "  SDK_NAMES sn " &_
-
 
375
             "WHERE st.SDKTAG_ID = :SDKTAG_ID " &_
-
 
376
             "AND st.SDK_ID = sn.SDK_ID "
-
 
377
 
-
 
378
    ' Perform Query
-
 
379
    objEH.ErrorRedirect = FALSE
-
 
380
    objEH.TryORA ( OraSession )
-
 
381
    On Error Resume Next
-
 
382
    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
-
 
383
    objEH.CatchORA ( OraSession )
-
 
384
on error goto 0
-
 
385
    ' Process Results
-
 
386
    Dim resultSet : Set resultSet = oJSON.Collection()
-
 
387
    If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
-
 
388
        Dim ii
-
 
389
        for ii = 0 to rsQry.Fields.Count - 1
-
 
390
            resultSet (rsQry.FieldName(ii)) = rsQry.Fields(ii)
-
 
391
        Next
-
 
392
        Set oJSON.data("aaData") = resultSet
-
 
393
        result = 0
-
 
394
    End If
-
 
395
 
-
 
396
    result = 0
-
 
397
    rsQry.Close
-
 
398
    Set rsQry = Nothing
-
 
399
 
-
 
400
    OraDatabase.Parameters.Remove "SDKTAG_ID"
-
 
401
End Sub
-
 
402
 
-
 
403
'-------------------------------------------------
344
' Function:    getProjectList
404
' Function:    getProjectList
345
' Description: Get Project information
405
' Description: Get Project information
346
'              Array of:
406
'              Array of:
347
'               proj_id
407
'               proj_id
348
'               proj_name
408
'               proj_name
Line 513... Line 573...
513
    OraDatabase.Parameters.Remove "SDKTAG_ID"   
573
    OraDatabase.Parameters.Remove "SDKTAG_ID"   
514
 
574
 
515
End Sub
575
End Sub
516
 
576
 
517
'-------------------------------------------------
577
'-------------------------------------------------
-
 
578
' Function:     setSdkState
-
 
579
' Description:  Update the state of the SDK Release
-
 
580
'               Request Parameters
-
 
581
'                   sdktag_id
-
 
582
'                   sdk_state
-
 
583
Sub setSdkState
-
 
584
    Dim userId : userId = objAccessControl.UserId()
-
 
585
    '
-
 
586
    '
-
 
587
    OraDatabase.Parameters.Add "SDKTAG_ID", QStrPar("sdktagId"),  ORAPARM_INPUT, ORATYPE_NUMBER
-
 
588
    OraDatabase.Parameters.Add "SDK_STATE", QStrPar("sdk_state"), ORAPARM_INPUT, ORATYPE_CHAR
-
 
589
    OraDatabase.Parameters.Add "STATE_ID",  userId,               ORAPARM_INPUT, ORATYPE_NUMBER
-
 
590
 
-
 
591
        '   Update an existing entry
-
 
592
        SqlQry = "UPDATE SDK_TAGS SET SDK_STATE = :SDK_STATE, STATE_ID = :STATE_ID, STATE_STAMP = SYSTIMESTAMP WHERE SDKTAG_ID = :SDKTAG_ID"
-
 
593
        objEH.ErrorRedirect = FALSE
-
 
594
        objEH.TryORA ( OraSession )
-
 
595
        On Error Resume Next
-
 
596
        OraDatabase.ExecuteSQL SqlQry
-
 
597
        objEH.CatchORA ( OraSession )
-
 
598
        On Error GoTo 0
-
 
599
        result = 0
-
 
600
 
-
 
601
    OraDatabase.Parameters.Remove "STATE_ID"
-
 
602
    OraDatabase.Parameters.Remove "SDK_STATE"
-
 
603
    OraDatabase.Parameters.Remove "SDKTAG_ID"
-
 
604
 
-
 
605
End Sub
-
 
606
 
-
 
607
'-------------------------------------------------
518
' Function:     setSdkContentState
608
' Function:     setSdkContentState
519
' Description:  Update the state of a SDK conent item
609
' Description:  Update the state of a SDK conent item
520
'               Request Parameters
610
'               Request Parameters
521
'                   sdktag_id
611
'                   sdktag_id
522
'                   pv_id
612
'                   pv_id