Subversion Repositories DevTools

Rev

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

Rev 165 Rev 167
Line 39... Line 39...
39 
   Dim nPvId
 39 
   Dim nPvId
40 
   nPvId=Request("pv_id")
 40 
   nPvId=Request("pv_id")
41 
 
 41 
 
42 
   Dim objRC: Set objRC = New ReleaseChanged
 42 
   Dim objRC: Set objRC = New ReleaseChanged
43 
   Call objRC.Get_Package_Info (Request("rtag_id"),nPvId)
 43 
   Call objRC.Get_Package_Info (Request("rtag_id"),nPvId)
- 
 
 44 
   Dim bReleased: bReleased = objRC.IsReleased(Request("rtag_id"),nPvId)
44 
 
 45
45 
   OraDatabase.Parameters.Add "PV_ID",       nPvId,                  ORAPARM_INPUT, ORATYPE_NUMBER
 46 
   OraDatabase.Parameters.Add "PV_ID",       nPvId,                  ORAPARM_INPUT, ORATYPE_NUMBER
46 
   OraDatabase.Parameters.Add "RTAG_ID",     Request("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
 47 
   OraDatabase.Parameters.Add "RTAG_ID",     Request("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
47 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
 48 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
48 
   OraDatabase.Parameters.Add "RETURN_CODE", NULL,                   ORAPARM_OUTPUT, ORATYPE_NUMBER
 49 
   OraDatabase.Parameters.Add "RETURN_CODE", NULL,                   ORAPARM_OUTPUT, ORATYPE_NUMBER
49 
 
 50 
 
Line 85... Line 86...
85 
   OraDatabase.Parameters.Remove "USER_ID"
 86 
   OraDatabase.Parameters.Remove "USER_ID"
86 
   OraDatabase.Parameters.Remove "FORCE_REMOVE"
 87 
   OraDatabase.Parameters.Remove "FORCE_REMOVE"
87 
   OraDatabase.Parameters.Remove "RETURN_CODE"
 88 
   OraDatabase.Parameters.Remove "RETURN_CODE"
88
89
89 
   If Not objEH.LastOraFailed Then
 90 
   If Not objEH.LastOraFailed Then
- 
 
 91 
     If bReleased Then
90 
     Call objRC.Run_ReleaseChanged(Request("rtag_id"),nPvId,enumRELEASE_CHANGE_MODE_PKG_REMOVED,false)
 92 
       Call objRC.Run_ReleaseChanged(Request("rtag_id"),nPvId,enumRELEASE_CHANGE_MODE_PKG_REMOVED,false)
- 
 
 93 
     End If
91 
   End If
94 
   End If
92
95
93 
   Set objRC = Nothing
 96 
   Set objRC = Nothing
94
97
95 
End Sub
 98 
End Sub