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"