Subversion Repositories DevTools

Rev

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

Rev 6122 Rev 6123
Line 50... Line 50...
50 
    updateVersion
 50 
    updateVersion
51 
 
 51 
 
52 
ElseIf (parOpr = "setDeployable") Then
 52 
ElseIf (parOpr = "setDeployable") Then
53 
    setDeployable
 53 
    setDeployable
54 
 
 54 
 
- 
 
 55 
ElseIf (parOpr = "clearAllDeployable") Then
- 
 
 56 
    clearAllDeployable
- 
 
 57 
 
55 
Else
 58 
Else
56 
    oJSON.data("error") = 1
 59 
    oJSON.data("error") = 1
57 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
 60 
    oJSON.data("emsgSummary") = "Unknown JSON Operation"
58 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
 61 
    oJSON.data("emsgDetails") = "The Requested JSON operation is not supported: " & parOpr
59 
End If
 62 
End If
Line 233... Line 236...
233 
    OraDatabase.Parameters.Remove "PV_ID"
 236 
    OraDatabase.Parameters.Remove "PV_ID"
234 
    OraDatabase.Parameters.Remove "DEPLOYABLE_STATE"
 237 
    OraDatabase.Parameters.Remove "DEPLOYABLE_STATE"
235 
 
 238 
 
236 
End Sub
 239 
End Sub
237 
 
 240 
 
- 
 
 241 
'-------------------------------------------------
- 
 
 242 
' Function:    clearAllDeployable
- 
 
 243 
' Description: Clear the is_deployable flag on all packages in the Release
- 
 
 244 
'              Request Parameters
- 
 
 245 
'                   rtag_id
- 
 
 246 
'
- 
 
 247 
Sub clearAllDeployable
- 
 
 248 
    OraDatabase.Parameters.Add "RTAG_ID",     QStrPar("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 249 
 
- 
 
 250 
        '   Reset IS_DEPLOYABLE flag
- 
 
 251 
        SqlQry = _
- 
 
 252 
            "update package_versions pv " &_
- 
 
 253 
            " set pv.IS_DEPLOYABLE = null" &_
- 
 
 254 
            " Where pv.pv_id in ( SELECT pv.pv_id" &_
- 
 
 255 
            " FROM package_versions pv," &_
- 
 
 256 
            "      RELEASE_CONTENT rc" &_
- 
 
 257 
            " WHERE rc.rtag_id = :RTAG_ID" &_
- 
 
 258 
            "   AND rc.pv_id     = pv.pv_id" &_
- 
 
 259 
            "   AND pv.IS_DEPLOYABLE is not null )"
- 
 
 260 
 
- 
 
 261 
        objEH.ErrorRedirect = FALSE
- 
 
 262 
        objEH.TryORA ( OraSession )
- 
 
 263 
        On Error Resume Next
- 
 
 264 
        OraDatabase.ExecuteSQL SqlQry
- 
 
 265 
        objEH.CatchORA ( OraSession )
- 
 
 266 
        On Error GoTo 0
- 
 
 267 
        result = 0
- 
 
 268 
 
- 
 
 269 
    OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 270 
 
- 
 
 271 
End Sub
- 
 
 272 
 
238 
%>
 273 
%>