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
%>