Subversion Repositories DevTools

Rev

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

Rev 127 Rev 129
Line 61... Line 61...
61 
   enteredPatchLimit = CInt(Request("Patch"))
 61 
   enteredPatchLimit = CInt(Request("Patch"))
62 
   Dim enteredBuildLimit
 62 
   Dim enteredBuildLimit
63 
   enteredBuildLimit = CInt(Request("Build"))
 63 
   enteredBuildLimit = CInt(Request("Build"))
64 
   Query_String = _
 64 
   Query_String = _
65 
    " SELECT ripple_field, major_limit, minor_limit, patch_limit, build_number_limit"&_
 65 
    " SELECT ripple_field, major_limit, minor_limit, patch_limit, build_number_limit"&_
66 
    " FROM package_versions"&_
 66 
   " FROM package_versions"&_
67 
    " WHERE pv_id = "& Request("pv_id")
 67 
   " WHERE pv_id = "& Request("pv_id")
68 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 68 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
69 
   storedRippleType = rsTemp("ripple_field").Value
 69 
   storedRippleType = rsTemp("ripple_field").Value
70 
   storedMajorLimit = rsTemp("major_limit").Value
 70 
   storedMajorLimit = rsTemp("major_limit").Value
71 
 
 71 
 
72 
   If ( IsNull(storedMajorLimit) ) Then
 72 
   If ( IsNull(storedMajorLimit) ) Then
Line 181... Line 181...
181 
 
 181 
 
182 
   OraDatabase.Parameters.Add "PV_ID",   parPv_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
 182 
   OraDatabase.Parameters.Add "PV_ID",   parPv_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
183 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                ORAPARM_INPUT, ORATYPE_NUMBER
 183 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                ORAPARM_INPUT, ORATYPE_NUMBER
184 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 184 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
185 
 
 185 
 
186 
 
 - 
 
- 
 
 186 
   objEH.TryORA ( OraSession )
187 
   OraSession.BeginTrans
 187 
   On Error Resume Next
188 
 
 188 
 
189 
   If flag Then
 189 
   If flag Then
190 
      OraDatabase.ExecuteSQL _
 190 
      OraDatabase.ExecuteSQL _
191 
      "BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
 191 
      "BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
192 
   Else
 192 
   Else
193 
      OraDatabase.ExecuteSQL _
 193 
      OraDatabase.ExecuteSQL _
194 
      "BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
 194 
      "BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
195 
   End If
 195 
   End If
196 
 
 196 
 
197 
    OraSession.CommitTrans
 197 
   objEH.CatchORA ( OraSession )
198 
 
 - 
 
199 
 
 198 
 
200 
   OraDatabase.Parameters.Remove "PV_ID"
 199 
   OraDatabase.Parameters.Remove "PV_ID"
201 
   OraDatabase.Parameters.Remove "RTAG_ID"
 200 
   OraDatabase.Parameters.Remove "RTAG_ID"
202 
   OraDatabase.Parameters.Remove "USER_ID"
 201 
   OraDatabase.Parameters.Remove "USER_ID"
203 
 
 202