Subversion Repositories DevTools

Rev

Rev 6370 | Rev 7417 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6370 Rev 7395
Line 53... Line 53...
53
    setDeployable
53
    setDeployable
54
 
54
 
55
ElseIf (parOpr = "clearAllDeployable") Then
55
ElseIf (parOpr = "clearAllDeployable") Then
56
    clearAllDeployable
56
    clearAllDeployable
57
 
57
 
-
 
58
ElseIf (parOpr = "setS3Sync") Then
-
 
59
    setS3Sync
-
 
60
 
-
 
61
ElseIf (parOpr = "clearAllS3Sync") Then
-
 
62
	clearAllS3Sync
-
 
63
 
58
Else
64
Else
59
    oJSON.data("error") = 1
65
    oJSON.data("error") = 1
60
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
66
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
61
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
67
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
62
End If
68
End If
Line 323... Line 329...
323
 
329
 
324
        objEH.ErrorRedirect = FALSE
330
        objEH.ErrorRedirect = FALSE
325
        objEH.TryORA ( OraSession )
331
        objEH.TryORA ( OraSession )
326
        On Error Resume Next
332
        On Error Resume Next
327
        OraDatabase.ExecuteSQL SqlQry
333
        OraDatabase.ExecuteSQL SqlQry
-
 
334
        objEH.CatchORA ( OraSession )
-
 
335
        On Error GoTo 0
-
 
336
        result = 0
-
 
337
 
-
 
338
    OraDatabase.Parameters.Remove "RTAG_ID"
-
 
339
 
-
 
340
End Sub
-
 
341
 
-
 
342
'-------------------------------------------------
-
 
343
' Function:    setS3Sync
-
 
344
' Description: Set the state of the S3SYNC flag
-
 
345
'              Request Parameters
-
 
346
'					rtag_id
-
 
347
'                   pv_id
-
 
348
'                   s3sync_state
-
 
349
'
-
 
350
Sub setS3Sync
-
 
351
    OraDatabase.Parameters.Add "RTAG_ID",   	QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
-
 
352
    OraDatabase.Parameters.Add "PV_ID",     	QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
-
 
353
    OraDatabase.Parameters.Add "S3SYNC_STATE",  QStrPar("s3sync_state"), ORAPARM_INPUT, ORATYPE_CHAR
-
 
354
 
-
 
355
        '   Set/Reset IS_DEPLOYABLE flag
-
 
356
        SqlQry = _
-
 
357
            "UPDATE RELEASE_CONTENT " &_
-
 
358
            "  SET S3SYNC = DECODE(:S3SYNC_STATE, 'Y', 'Y', NULL)" &_
-
 
359
            "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
-
 
360
        objEH.ErrorRedirect = FALSE
-
 
361
        objEH.TryORA ( OraSession )
-
 
362
        On Error Resume Next
-
 
363
        OraDatabase.ExecuteSQL SqlQry
-
 
364
        objEH.CatchORA ( OraSession )
-
 
365
        On Error GoTo 0
-
 
366
        result = 0
-
 
367
 
-
 
368
    OraDatabase.Parameters.Remove "RTAG_ID"
-
 
369
    OraDatabase.Parameters.Remove "PV_ID"
-
 
370
    OraDatabase.Parameters.Remove "S3SYNC_STATE"
-
 
371
 
-
 
372
End Sub
-
 
373
 
-
 
374
'-------------------------------------------------
-
 
375
' Function:    clearAllS3Sync
-
 
376
' Description: Clear the S3SYNC flag on all packages in the Release
-
 
377
'              Request Parameters
-
 
378
'                   rtag_id
-
 
379
'
-
 
380
Sub clearAllS3Sync
-
 
381
    OraDatabase.Parameters.Add "RTAG_ID", QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
-
 
382
 
-
 
383
        '   Reset S3SYNC flag
-
 
384
        SqlQry = _
-
 
385
            "update release_content rc " &_
-
 
386
            " set rc.S3SYNC = null" &_
-
 
387
            " WHERE rc.rtag_id = :RTAG_ID" &_
-
 
388
            "   AND rc.S3SYNC is not null"
-
 
389
 
-
 
390
        objEH.ErrorRedirect = FALSE
-
 
391
        objEH.TryORA ( OraSession )
-
 
392
        On Error Resume Next
-
 
393
        OraDatabase.ExecuteSQL SqlQry
328
        objEH.CatchORA ( OraSession )
394
        objEH.CatchORA ( OraSession )
329
        On Error GoTo 0
395
        On Error GoTo 0
330
        result = 0
396
        result = 0
331
 
397
 
332
    OraDatabase.Parameters.Remove "RTAG_ID"
398
    OraDatabase.Parameters.Remove "RTAG_ID"