Subversion Repositories DevTools

Rev

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

Rev 7468 Rev 7568
Line 57... Line 57...
57
 
57
 
58
ElseIf (parOpr = "setInManifest") Then
58
ElseIf (parOpr = "setInManifest") Then
59
    setInManifest
59
    setInManifest
60
 
60
 
61
ElseIf (parOpr = "clearAllInManifest") Then
61
ElseIf (parOpr = "clearAllInManifest") Then
62
	clearAllInManifest
62
    clearAllInManifest
63
 
63
 
64
Else
64
Else
65
    oJSON.data("error") = 1
65
    oJSON.data("error") = 1
66
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
66
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
67
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
67
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
Line 346... Line 346...
346
'                   rtag_id
346
'                   rtag_id
347
'                   pv_id
347
'                   pv_id
348
'                   mfState
348
'                   mfState
349
'
349
'
350
Sub setInManifest
350
Sub setInManifest
-
 
351
    Dim sComments
-
 
352
    sComments = "Set: " & IIF (QStrPar("mfState") = "Y" , "Y", "N")
-
 
353
 
351
    OraDatabase.Parameters.Add "RTAG_ID",       QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
354
    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
355
    OraDatabase.Parameters.Add "PV_ID",         QStrPar("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
353
    OraDatabase.Parameters.Add "MFSTATE",       QStrPar("mfState"), ORAPARM_INPUT, ORATYPE_CHAR
356
    OraDatabase.Parameters.Add "MFSTATE",       QStrPar("mfState"), ORAPARM_INPUT, ORATYPE_CHAR
354
 
357
 
355
        '   Set/Reset IS_DEPLOYABLE flag
358
    '   Set/Reset IS_DEPLOYABLE flag
356
        SqlQry = _
359
    SqlQry = _
357
            "UPDATE RELEASE_CONTENT " &_
360
        "UPDATE RELEASE_CONTENT " &_
358
            "  SET IN_MANIFEST = DECODE(:MFSTATE, 'Y', 'Y', NULL)" &_
361
        "  SET IN_MANIFEST = DECODE(:MFSTATE, 'Y', 'Y', NULL)" &_
359
            "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
362
        "  WHERE PV_ID =  :PV_ID AND RTAG_ID = :RTAG_ID"
360
        objEH.ErrorRedirect = FALSE
363
    objEH.ErrorRedirect = FALSE
-
 
364
    objEH.TryORA ( OraSession )
-
 
365
    On Error Resume Next
-
 
366
    OraDatabase.ExecuteSQL SqlQry
-
 
367
    objEH.CatchORA ( OraSession )
-
 
368
 
-
 
369
    If NOT objEH.LastOraFailed Then
361
        objEH.TryORA ( OraSession )
370
        objEH.TryORA ( OraSession )
362
        On Error Resume Next
-
 
363
        OraDatabase.ExecuteSQL SqlQry
371
        OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
364
        objEH.CatchORA ( OraSession )
372
        objEH.CatchORA ( OraSession )
365
 
373
 
366
        If NOT objEH.LastOraFailed Then
-
 
367
            objEH.TryORA ( OraSession )
-
 
368
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
-
 
369
            objEH.CatchORA ( OraSession )
374
        call Log_Action ( QStrPar("pv_id"), "inManifest", sComments )
370
        End If
375
    End If
371
 
376
 
372
        On Error GoTo 0
377
    On Error GoTo 0
373
        result = 0
378
    result = 0
374
 
379
 
375
    OraDatabase.Parameters.Remove "RTAG_ID"
380
    OraDatabase.Parameters.Remove "RTAG_ID"
376
    OraDatabase.Parameters.Remove "PV_ID"
381
    OraDatabase.Parameters.Remove "PV_ID"
377
    OraDatabase.Parameters.Remove "MFSTATE"
382
    OraDatabase.Parameters.Remove "MFSTATE"
378
 
383
 
Line 402... Line 407...
402
 
407
 
403
        If NOT objEH.LastOraFailed Then
408
        If NOT objEH.LastOraFailed Then
404
            objEH.TryORA ( OraSession )
409
            objEH.TryORA ( OraSession )
405
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
410
            OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
406
            objEH.CatchORA ( OraSession )
411
            objEH.CatchORA ( OraSession )
-
 
412
 
-
 
413
            ' Action is not logged - yet
407
        End If
414
        End If
408
 
415
 
409
        On Error GoTo 0
416
        On Error GoTo 0
410
        result = 0
417
        result = 0
411
 
418