Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
Option explicit
121 hknight 4 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 5 
%>
6 
<%
7 
'=====================================================
121 hknight 8 
'               Ripple Properties
119 ghuddy 9 
'=====================================================
10 
%>
11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
14 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="common/_popup_window_common.asp"-->
18 
<%
19 
' Set rfile parameter. This is a return page after Login
20 
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
21 
'------------ ACCESS CONTROL ------------------
22 
%>
23 
<!--#include file="_access_control_login.asp"-->
24 
<!--#include file="_access_control_general.asp"-->
25 
<!--#include file="_access_control_project.asp"-->
26 
<%
27 
'------------ Variable Definition -------------
28 
Dim parPv_id
29 
Dim query
30 
Dim rsQry, rsTemp
31 
Dim checked
32 
Dim FRripplebuildYES, FRripplebuildNO
33 
Dim objFormCollector
121 hknight 34 
Dim Query_String
119 ghuddy 35 
Dim isDLocked
5086 dpurdie 36 
Dim isNotSdk
119 ghuddy 37 
'------------ Constants Declaration -----------
38 
'------------ Variable Init -------------------
39 
Set objFormCollector = CreateObject("Scripting.Dictionary")
40 
parPv_id = QStrPar("pv_id")
41 
'----------------------------------------------
42 
%>
43 
<%
44 
'------------------------------------------------------------------------------------------------------------------------------------
45 
Sub UpdateRippleType ( )
121 hknight 46 
   Dim rsTemp, Query_String
127 ghuddy 47 
   Dim storedRippleType
48 
   Dim storedMajorLimit
49 
   Dim storedMinorLimit
50 
   Dim storedPatchLimit
51 
   Dim storedBuildNumberLimit
52 
   Dim selectedRippleType
53 
   selectedRippleType = Request("ripple_type_combo")
54 
   Dim enteredMajorLimit
55 
   ' enteredMajorLimit is a string of digits
56 
   ' it will be compared with a string representing a NUMBER in the db
57 
   ' use CInt to at least strip leading zeros
58 
   enteredMajorLimit = CInt(Request("Major"))
59 
   Dim enteredMinorLimit
60 
   enteredMinorLimit = CInt(Request("Minor"))
61 
   Dim enteredPatchLimit
62 
   enteredPatchLimit = CInt(Request("Patch"))
63 
   Dim enteredBuildLimit
64 
   enteredBuildLimit = CInt(Request("Build"))
121 hknight 65 
   Query_String = _
127 ghuddy 66 
    " SELECT ripple_field, major_limit, minor_limit, patch_limit, build_number_limit"&_
129 ghuddy 67 
   " FROM package_versions"&_
68 
   " WHERE pv_id = "& Request("pv_id")
121 hknight 69 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
127 ghuddy 70 
   storedRippleType = rsTemp("ripple_field").Value
71 
   storedMajorLimit = rsTemp("major_limit").Value
119 ghuddy 72 
 
127 ghuddy 73 
   If ( IsNull(storedMajorLimit) ) Then
74 
     storedMajorLimit = "0"
75 
   End If
119 ghuddy 76 
 
127 ghuddy 77 
   storedMinorLimit = rsTemp("minor_limit").Value
78 
 
79 
   If ( IsNull(storedMinorLimit) ) Then
80 
     storedMinorLimit = "0"
81 
   End If
82 
 
83 
   storedPatchLimit = rsTemp("patch_limit").Value
84 
 
85 
   If ( IsNull(storedPatchLimit) ) Then
86 
     storedPatchLimit = "0"
87 
   End If
88 
 
89 
   storedBuildNumberLimit = rsTemp("build_number_limit").Value
90 
 
91 
   If ( IsNull(storedBuildNumberLimit) ) Then
92 
     storedBuildNumberLimit = "0"
93 
   End If
94 
 
95 
   'normalise for comparison purposes
96 
   storedMajorLimit = CInt( storedMajorLimit )
97 
   storedMinorLimit = CInt( storedMinorLimit )
98 
   storedPatchlimit = CInt( storedPatchLimit )
99 
   storedBuildNumberLimit = CInt( storedBuildNumberLimit )
100 
 
101 
   If (storedRippleType <> selectedRippleType) OR IsNull(storedRippleType) Then
102 
 
121 hknight 103 
      'update fields
104 
      rsTemp.Edit()
127 ghuddy 105 
      rsTemp.Fields("ripple_field").Value = selectedRippleType
121 hknight 106 
      rsTemp.Update()
119 ghuddy 107 
 
127 ghuddy 108 
      Dim anotherQry
109 
      Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
119 ghuddy 110 
 
127 ghuddy 111 
      '/* Log Action */
112 
      Call Log_Action ( Request("pv_id"), "ripple_type_update", anotherQry.Fields("state_name").Value )
113 
      anotherQry.Close()
114 
      Set anotherQry = nothing
115 
   End If
119 ghuddy 116 
 
127 ghuddy 117 
   If ( storedMajorLimit <> enteredMajorLimit ) Then
118 
 
119 
      'update fields
120 
      rsTemp.Edit()
121 
      If ( enteredMajorLimit <> "0" ) Then
122 
        rsTemp.Fields("major_limit").Value = enteredMajorLimit
123 
      Else
124 
        rsTemp.Fields("major_limit").Value = NULL
125 
      End If
126 
      rsTemp.Update()
127 
 
121 hknight 128 
      '/* Log Action */
127 ghuddy 129 
      Call Log_Action ( Request("pv_id"), "major_limit_update", enteredMajorLimit )
130 
   End If
119 ghuddy 131 
 
127 ghuddy 132 
   If ( storedMinorLimit <> enteredMinorLimit ) Then
119 ghuddy 133 
 
127 ghuddy 134 
      'update fields
135 
      rsTemp.Edit()
136 
      If ( enteredMinorLimit <> "0" ) Then
137 
        rsTemp.Fields("minor_limit").Value = enteredMinorLimit
138 
      Else
139 
        rsTemp.Fields("minor_limit").Value = NULL
140 
      End If
141 
      rsTemp.Update()
119 ghuddy 142 
 
127 ghuddy 143 
      '/* Log Action */
144 
      Call Log_Action ( Request("pv_id"), "minor_limit_update", enteredMinorLimit )
145 
   End If
119 ghuddy 146 
 
127 ghuddy 147 
   If ( storedPatchLimit <> enteredPatchLimit ) Then
148 
 
149 
      'update fields
150 
      rsTemp.Edit()
151 
      If ( enteredPatchLimit <> "0" ) Then
152 
        rsTemp.Fields("patch_limit").Value = enteredPatchLimit
121 hknight 153 
      Else
127 ghuddy 154 
        rsTemp.Fields("patch_limit").Value = NULL
155 
      End If
156 
      rsTemp.Update()
119 ghuddy 157 
 
127 ghuddy 158 
      '/* Log Action */
159 
      Call Log_Action ( Request("pv_id"), "patch_limit_update", enteredPatchLimit )
160 
   End If
161 
 
162 
   If ( storedBuildNumberLimit <> enteredBuildLimit ) Then
163 
 
164 
      'update fields
165 
      rsTemp.Edit()
166 
      If ( enteredBuildLimit <> "0" ) Then
167 
        rsTemp.Fields("build_number_limit").Value = enteredBuildLimit
168 
      Else
169 
        rsTemp.Fields("build_number_limit").Value = NULL
121 hknight 170 
      End If
127 ghuddy 171 
      rsTemp.Update()
119 ghuddy 172 
 
127 ghuddy 173 
      '/* Log Action */
174 
      Call Log_Action ( Request("pv_id"), "build_number_limit_update", enteredBuildLimit )
121 hknight 175 
   End If
176 
 
177 
   rsTemp.Close()
178 
   Set rsTemp = nothing
119 ghuddy 179 
End Sub
180 
'------------------------------------------------------------------------------------------------------------------------------------
181 
Sub RipplePackage (flag)
182 
 
121 hknight 183 
   OraDatabase.Parameters.Add "PV_ID",   parPv_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
184 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                ORAPARM_INPUT, ORATYPE_NUMBER
185 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
119 ghuddy 186 
 
129 ghuddy 187 
   objEH.TryORA ( OraSession )
188 
   On Error Resume Next
119 ghuddy 189 
 
121 hknight 190 
   If flag Then
191 
      OraDatabase.ExecuteSQL _
192 
      "BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
193 
   Else
194 
      OraDatabase.ExecuteSQL _
195 
      "BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
196 
   End If
119 ghuddy 197 
 
129 ghuddy 198 
   objEH.CatchORA ( OraSession )
119 ghuddy 199 
 
121 hknight 200 
   OraDatabase.Parameters.Remove "PV_ID"
201 
   OraDatabase.Parameters.Remove "RTAG_ID"
202 
   OraDatabase.Parameters.Remove "USER_ID"
119 ghuddy 203 
 
204 
End Sub
205 
'------------------------------------------------------------------------------------------------------------------------------------
5086 dpurdie 206 
Sub Get_Form_Details( nRtag_id, nPv_id, ByRef objDetails )
121 hknight 207 
   Dim rsTemp, Query_String
208 
   Query_String = _
209 
   " SELECT * "&_
210 
   "  FROM package_versions pv, packages pkg"&_
211 
   " WHERE pv.pkg_id = pkg.pkg_id"&_
212 
   "   AND pv_id = "& nPv_id
119 ghuddy 213 
 
121 hknight 214 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
215 
   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
216 
      objDetails.Item("pkg_name")              = rsTemp("pkg_name")
217 
      objDetails.Item("pkg_version")           = rsTemp("pkg_version")
218 
      objDetails.Item("pkg_label")             = rsTemp("pkg_label")
219 
      objDetails.Item("src_path")              = rsTemp("src_path")
220 
      objDetails.Item("pv_description")        = rsTemp("pv_description")
221 
      objDetails.Item("pv_overview")           = rsTemp("pv_overview")
222 
      objDetails.Item("v_ext")                 = rsTemp("v_ext")
223 
      objDetails.Item("is_deployable")         = rsTemp("is_deployable")
224 
      objDetails.Item("is_build_env_required") = rsTemp("is_build_env_required")
225 
      objDetails.Item("build_type")            = rsTemp("build_type")
226 
      objDetails.Item("bs_id")                 = rsTemp("bs_id")
227 
      objDetails.Item("ripple_field")          = rsTemp("ripple_field")
5086 dpurdie 228 
      objDetails.Item("dlocked")               = rsTemp("dlocked")
229 
 
127 ghuddy 230 
      If isNull(rsTemp("major_limit")) Then
231 
        objDetails.Item("major_limit")         = "0"
232 
      Else
233 
        objDetails.Item("major_limit")         = rsTemp("major_limit")
234 
      End If
235 
      If isNull(rsTemp("minor_limit")) Then
236 
        objDetails.Item("minor_limit")         = "0"
237 
      Else
238 
        objDetails.Item("minor_limit")         = rsTemp("minor_limit")
239 
      End If
240 
      If isNull(rsTemp("patch_limit")) Then
241 
        objDetails.Item("patch_limit")         = "0"
242 
      Else
243 
        objDetails.Item("patch_limit")         = rsTemp("patch_limit")
244 
      End If
245 
      If isNull(rsTemp("build_number_limit")) Then
246 
        objDetails.Item("build_number_limit")  = "0"
247 
      Else
248 
        objDetails.Item("build_number_limit")  = rsTemp("build_number_limit")
249 
      End If
121 hknight 250 
   End If
119 ghuddy 251 
 
121 hknight 252 
   rsTemp.Close()
253 
   Set rsTemp = Nothing
5086 dpurdie 254 
 
255 
   '
256 
   '    Release Based Properties
257 
   objDetails.Item("is_sdkpkg") = FALSE
258 
   If nRtag_id <> "" Then
259 
       Query_String = _
260 
       " SELECT * "&_
261 
       "  FROM RELEASE_CONTENT rc"&_
262 
       " WHERE rc.rtag_id = " & nRtag_id &_
263 
       " AND pv_id = " & nPv_id
264 
 
265 
       Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
266 
       If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
267 
          objDetails.Item("is_sdkpkg")              = (NOT IsNull(rsTemp("sdktag_id")))
268 
       End If
269 
       rsTemp.Close()
270 
       Set rsTemp = Nothing
271 
   End If
272 
 
119 ghuddy 273 
End Sub
274 
'----------------------------------------------------------------------------------------------------------------------
275 
Sub RenderRippleTypeCombo( cRippleType, cDLocked )
276 
 
121 hknight 277 
   Dim isEditable
119 ghuddy 278 
 
121 hknight 279 
   ' DEVI-49267 - ripple type needs to be changeable by team leaders post release so the permission constraint on
280 
   ' this is relaxed to non-critical info level (See definition of Is_Page_Editable() in common_subs.asp)
281 
   isEditable = Is_Page_Editable ( isDLocked )
119 ghuddy 282 
 
121 hknight 283 
   Query_String = "select * from ripple_field_states"
119 ghuddy 284 
 
121 hknight 285 
   If (isEditable) Then
127 ghuddy 286 
      Response.Write "<select name='ripple_type_combo' id='rtc' class='form_item' onChange='changeToRippleType(this.options[this.selectedIndex].value)'>"
121 hknight 287 
   Else
127 ghuddy 288 
      Response.Write "<select name='ripple_type_combo' id='rtc' class='form_item' disabled>"
121 hknight 289 
   End If
119 ghuddy 290 
 
121 hknight 291 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
119 ghuddy 292 
 
121 hknight 293 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
294 
      If cRippleType = rsTemp.Fields("state_acronym") Then
295 
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") &"</option>"
296 
      ElseIf IsNull(cRippleType) AND rsTemp.Fields("state_acronym") = "b" Then 'If nothing selected, select Build Number
297 
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") & "</option>"
298 
      Else
299 
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"'>"& rsTemp.Fields("state_name") & "</option>"
300 
      End If
301 
      rsTemp.MoveNext
302 
   WEnd
119 ghuddy 303 
 
121 hknight 304 
   rsTemp.Close()
305 
   Set rsTemp = nothing
119 ghuddy 306 
 
121 hknight 307 
   Response.Write "</select>"
119 ghuddy 308 
 
309 
End Sub
131 ghuddy 310 
'------------------------------------------------------------------------------------------------------------------------------------
311 
Sub PegPackageVersion (applyPegging)
312 
 
313 
   objEH.TryORA ( OraSession )
314 
   On Error Resume Next
315 
 
316 
   ' try and clean up the pegged_versions table of any stranded rows (should never happen but this will fix it anyway)
317 
   ' This means, remove any and all pegging rows whose values are not in an existing release somewhere
318 
   OraDatabase.ExecuteSQL _
319 
   " delete from pegged_versions"&_
320 
   " where (rtag_id, pv_id) IN ("&_
321 
   " select rtag_id, pv_id from pegged_versions"&_
322 
   " minus"&_
323 
   " select rtag_id, pv_id from release_content)"
324 
 
325 
   If Err.Number = 0 Then
326 
 
327 
      ' Delete the pegging row for the requested RTAG_ID/PV_ID
328 
      OraDatabase.ExecuteSQL _
329 
      "DELETE FROM PEGGED_VERSIONS WHERE RTAG_ID = " & parRtag_id & " AND PV_ID = " & parPv_id
330 
 
331 
      ' And if the user has requested PEGGING to be turned on then Add the PEGGING
332 
      If applyPegging = True AND Err.Number = 0 Then
333 
         OraDatabase.ExecuteSQL _
334 
         "INSERT INTO PEGGED_VERSIONS VALUES(" & parRtag_id & "," & parPv_id & ")"
335 
      End If
336 
 
337 
      If Err.Number = 0 Then
338 
 
339 
         ' Touch the release so that the state icons are re-evaluated
340 
         OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
341 
 
342 
         OraDatabase.ExecuteSQL "BEGIN Touch_Release( :RTAG_ID ); END;"
343 
 
344 
         OraDatabase.Parameters.Remove "RTAG_ID"
345 
      End If
346 
   End If
347 
 
348 
   objEH.CatchORA ( OraSession )
349 
 
350 
End Sub
151 ghuddy 351 
'------------------------------------------------------------------------------------------------------------------------------------
352 
Sub AdvisoryRipplePackageVersion (applyAdvisoryRipple)
131 ghuddy 353 
 
151 ghuddy 354 
   objEH.TryORA ( OraSession )
355 
   On Error Resume Next
356 
 
357 
   ' Delete the adv. rip. row for the requested RTAG_ID/PV_ID
358 
   OraDatabase.ExecuteSQL _
359 
   "DELETE FROM ADVISORY_RIPPLE WHERE RTAG_ID = " & parRtag_id & " AND PV_ID = " & parPv_id
360 
 
361 
   ' And if the user has requested advisory ripple to be turned on then Add it
362 
   If applyAdvisoryRipple = True AND Err.Number = 0 Then
363 
      OraDatabase.ExecuteSQL _
364 
      "INSERT INTO ADVISORY_RIPPLE VALUES(" & parRtag_id & "," & parPv_id & ")"
365 
   End If
366 
 
367 
   If Err.Number = 0 Then
368 
 
369 
      ' Touch the release so that the state icons are re-evaluated
370 
      OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
371 
 
372 
      OraDatabase.ExecuteSQL "BEGIN Touch_Release( :RTAG_ID ); END;"
373 
 
374 
      OraDatabase.Parameters.Remove "RTAG_ID"
375 
   End If
376 
 
377 
   objEH.CatchORA ( OraSession )
378 
 
379 
End Sub
380 
 
119 ghuddy 381 
'----------------------------------------------------------------------------------------------------------------------
382 
%>
383 
<%
384 
'------------------------------- RUN BEFORE PAGE RENDER ----------------------------
385 
 
5086 dpurdie 386 
Call Get_Form_Details( parRtag_id, parPv_id, objFormCollector )
387 
isDLocked = objFormCollector.Item("dlocked")
388 
isNotSdk = NOT objFormCollector.Item("is_sdkpkg")
119 ghuddy 389 
 
390 
'-------------------------------------
391 
'Start Process Submission
392 
If CBool(QStrPar("action"))  AND  objAccessControl.UserLogedIn Then
393 
 
121 hknight 394 
   Call UpdateRippleType()
119 ghuddy 395 
 
396 
 
151 ghuddy 397 
   ' Changes to DO NOT RIPPLE Status -----------------------------------------
121 hknight 398 
   If NOT CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "1" Then
399 
      Call RipplePackage(True)
400 
   End If
119 ghuddy 401 
 
121 hknight 402 
   If CBool(QStrPar("rippleFlag")) AND Request("FRripplebuild") = "0" Then
403 
      Call RipplePackage(False)
404 
   End If
119 ghuddy 405 
 
151 ghuddy 406 
   ' Changes to PEGGED Status ------------------------------------------------
131 ghuddy 407 
   If NOT CBool(QStrPar("peggedFlag")) AND Request("FRpegged") = "1" Then
408 
      Call PegPackageVersion(True)
409 
   End If
119 ghuddy 410 
 
131 ghuddy 411 
   If CBool(QStrPar("peggedFlag")) AND Request("FRpegged") = "0" Then
412 
      Call PegPackageVersion(False)
413 
   End If
414 
 
151 ghuddy 415 
   ' Changes to ADVISORY RIPPLE Status ---------------------------------------
416 
   If NOT CBool(QStrPar("advRipFlag")) AND Request("FRadvrip") = "1" Then
417 
      Call AdvisoryRipplePackageVersion(True)
418 
   End If
131 ghuddy 419 
 
151 ghuddy 420 
   If CBool(QStrPar("advRipFlag")) AND Request("FRadvrip") = "0" Then
421 
      Call AdvisoryRipplePackageVersion(False)
422 
   End If
423 
 
424 
 
121 hknight 425 
   Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
426 
   Call CloseWindow
119 ghuddy 427 
 
428 
End If
429 
'End Process Submission
430 
'--------------------------------------------------------------------------------------------
431 
%>
432 
<html>
433 
<head>
434 
<title>Release Manager</title>
435 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
436 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
437 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
438 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
439 
<script language="JavaScript" src="images/common.js"></script>
5207 dpurdie 440 
<!--#include file="_jquery_includes.asp"-->
119 ghuddy 441 
<!-- TIPS -->
442 
<script language="JavaScript" src="images/tipster.js"></script>
443 
<script language="JavaScript" src="images/_help_tips.js"></script>
444 
<script language="JavaScript" type="text/JavaScript">
445 
<!--
446 
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
121 hknight 447 
   if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
448 
      document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
449 
   else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
119 ghuddy 450 
}
451 
MM_reloadPage(true);
127 ghuddy 452 
function isNum(passedVal)
453 
{
454 
  if (passedVal == "")
455 
  {
456 
    return false
457 
  }
458 
  for(i=0; i<passedVal.length; i++)
459 
  {
460 
    if (passedVal.charAt(i) < "0")
461 
    {
462 
      return false
463 
    }
464 
    if (passedVal.charAt(i) > "9")
465 
    {
466 
      return false
467 
    }
468 
  }
469 
  return true
470 
}
471 
function valid(form)
472 
{
5207 dpurdie 473 
  if (!isNum(rippleproperties.Major.value)) {
474 
    vixAlert("Invalid major number:" + rippleproperties.Major.value)
127 ghuddy 475 
    return false
476 
  }
5207 dpurdie 477 
  if (!isNum(rippleproperties.Minor.value)) {
478 
    vixAlert("Invalid minor number:" + rippleproperties.Minor.value)
479 
    return false
480 
  }
481 
  if (!isNum(rippleproperties.Patch.value)) {
482 
    vixAlert("Invalid patch number:" + rippleproperties.Patch.value)
483 
    return false
484 
  }
485 
  if (!isNum(rippleproperties.Build.value)) {
486 
    vixAlert("Invalid build number:" + rippleproperties.Build.value)
487 
    return false
488 
  }
489 
 
127 ghuddy 490 
  return true
491 
}
492 
function changeToRippleType(val)
493 
{
494 
  if ( val.match("L") )
495 
  {
496 
    document.getElementById("limits_row").style.visibility="visible"
497 
  }
498 
  else
499 
  {
500 
    document.getElementById("limits_row").style.visibility="hidden"
501 
    document.getElementById("Major").value  = "0"
502 
    document.getElementById("Minor").value  = "0"
503 
    document.getElementById("Patch").value  = "0"
504 
    document.getElementById("Build").value  = "0"
505 
  }
506 
}
507 
function loader()
508 
{
509 
  changeToRippleType(document.getElementById("rtc").options[document.getElementById("rtc").selectedIndex].value)
510 
}
511 
if (window.addEventListener)
512 
{
513 
  window.addEventListener("load", loader, false)
514 
}
515 
else if (window.attachEvent)
516 
{
517 
  window.attachEvent("onload", loader)
518 
}
519 
else if (document.getElementById)
520 
{
521 
  window.onload=loader
522 
}
119 ghuddy 523 
//-->
524 
</script>
525 
</head>
127 ghuddy 526 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
119 ghuddy 527 
<!-- TIPS LAYERS -------------------------------------->
528 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
529 
<!----------------------------------------------------->
127 ghuddy 530 
<form onSubmit="return valid(this)" name="rippleproperties" id="rp" method="post" action="<%=scriptName%>">
121 hknight 531 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
532 
      <tr>
533 
         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="icons/i_pkg_ripple_type.gif" width="21" height="21" hspace="5" border="0"></td>
534 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Ripple Properties </td>
535 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
536 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
537 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
538 
         </td>
539 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
540 
            <img src="images/h_trsp_dot.gif" width="5" height="22">
541 
         </td>
542 
      </tr>
543 
      <tr>
544 
         <td height="100%" width="1%">&nbsp;</td>
545 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
546 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
547 
               <tr>
548 
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
549 
                  <td width="1%" nowrap class="form_group" valign="bottom"></td>
550 
                  <td nowrap width="1%">&nbsp; </td>
551 
                  <td nowrap width="100%">&nbsp;</td>
552 
               </tr>
5086 dpurdie 553 
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" AND isNotSdk Then%>
121 hknight 554 
               <tr>
555 
                  <td>&nbsp;</td>
131 ghuddy 556 
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>
557 
                  <%
151 ghuddy 558 
                  Dim FRpeggedYES, FRpeggedNO, FRpegDisabled
131 ghuddy 559 
 
560 
                  FRpeggedYES = ""
561 
                  FRpeggedNO = ""
151 ghuddy 562 
                  FRpegDisabled = "disabled='disabled'"
131 ghuddy 563 
 
564 
                  ' Allow pegging/un-pegging to occur for locked/released versions only, and by users who have the appropriate permission
5061 dpurdie 565 
                  If (canShowControlInProject( "PegPackageVersions" )) AND isDLocked = "Y" Then
151 ghuddy 566 
                     FRpegDisabled = ""
131 ghuddy 567 
                  End If
568 
 
569 
                  Dim rsQryPegged, peggedFlag
151 ghuddy 570 
                  Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM PEGGED_VERSIONS WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
131 ghuddy 571 
 
151 ghuddy 572 
                  If rsQryPegged("record_count") = 0  Then
131 ghuddy 573 
                     FRpeggedNO = "checked"
574 
                     peggedFlag = False
575 
                  Else
576 
                     FRpeggedYES = "checked"
577 
                     peggedFlag = True
578 
                  End If
579 
 
580 
                  rsQryPegged.Close()
581 
                  Set rsQryPegged = nothing
582 
 
583 
                  %>
584 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
151 ghuddy 585 
                     Yes<input name="FRpegged" type="radio" value="1" <%=FRpegDisabled%> <%=FRpeggedYES%> >&nbsp;&nbsp;
586 
                     No<input name="FRpegged" type="radio" value="0"  <%=FRpegDisabled%> <%=FRpeggedNO%>  >&nbsp;&nbsp;
131 ghuddy 587 
                  </td>
588 
                  <td background="images/bg_form_lightbluedark.gif">
589 
                     <span class='err_alert'><b>WARNING!</span>
590 
                     <font size='1'>
591 
                        <br>
592 
                        When set to Yes, this package version is never rippled in the current release regardless of the other ripple settings below.
593 
                     </font></b>
594 
                  </td>
595 
               </tr>
155 ghuddy 596 
               <%End If%>
597 
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
131 ghuddy 598 
               <tr>
599 
                  <td>&nbsp;</td>
151 ghuddy 600 
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Advisory Ripple Version?<%=Quick_Help ( "advisory_ripple_version" )%></td>
601 
                  <%
602 
                  Dim FRadvripYES, FRadvripNO, FRadvripDisabled
603 
 
604 
                  FRadvripYES = ""
605 
                  FRadvripNO = ""
606 
                  FRadvripDisabled = "disabled='disabled'"
607 
 
608 
                  ' Allow setting of advisory ripple to occur only by users who have the appropriate permission
5061 dpurdie 609 
                  If (canShowControlInProject( "AdvRipPackageVersions" )) AND isDLocked = "Y" Then
151 ghuddy 610 
                     FRadvripDisabled = ""
611 
                  End If
612 
 
613 
                  Dim rsQryAdvRip, advRipFlag
614 
                  Set rsQryAdvRip = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM ADVISORY_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
615 
 
616 
                  If rsQryAdvRip("record_count") = 0  Then
617 
                     FRadvripNO = "checked"
618 
                     advRipFlag = False
619 
                  Else
620 
                     FRadvripYES = "checked"
621 
                     advRipFlag = True
622 
                  End If
623 
 
624 
                  rsQryAdvRip.Close()
625 
                  Set rsQryAdvRip = nothing
626 
 
627 
                  %>
628 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
629 
                     Yes<input name="FRadvrip" type="radio" value="1" <%=FRadvripDisabled%> <%=FRadvripYES%> >&nbsp;&nbsp;
630 
                     No<input name="FRadvrip" type="radio" value="0"  <%=FRadvripDisabled%> <%=FRadvripNO%>  >&nbsp;&nbsp;
631 
                  </td>
632 
                  <td background="images/bg_form_lightbluedark.gif">
633 
                     <span class='err_alert'><b>WARNING!</span>
634 
                     <font size='1'>
635 
                        <br>
636 
                        When set to Yes, a new version of this package will not cause a ripple of higher level packages in the current release.
637 
                     </font></b>
638 
                  </td>
639 
 
640 
               </tr>
155 ghuddy 641 
               <%End If%>
642 
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
151 ghuddy 643 
               <tr>
644 
                  <td>&nbsp;</td>
121 hknight 645 
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td>
646 
                  <%
647 
                  FRripplebuildYES = ""
648 
                  FRripplebuildNO = ""
649 
                  ' disabled="disabled" indicates the pv has been excluded indirectly
650 
                  ' this is due to another pv (the root_pv_id) being excluded directly
651 
                  ' allowing it to be included is somewhat pointless
652 
                  ' fixing the root cause is a somewhat better approach
653 
                  Dim disabled
654 
                  disabled="disabled"
119 ghuddy 655 
 
121 hknight 656 
                  Dim rsQryRipple, rippleFlag
657 
                  Set rsQryRipple = OraDatabase.DbCreateDynaset( "SELECT root_pv_id FROM DO_NOT_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
119 ghuddy 658 
 
121 hknight 659 
                  If rsQryRipple.RecordCount = 0  Then
660 
                     FRripplebuildYES = "checked"
661 
                     rippleFlag = True
662 
                     ' do not disable the default
663 
                     disabled=""
664 
                  Else
665 
                     If isNull(rsQryRipple("root_pv_id")) Then
666 
                        ' pv has been excluded directly
667 
                        ' ie has a null pv_id
668 
                        ' once fixed, pv should be included ie do not disable
669 
                        disabled=""
670 
                     End If
671 
                     FRripplebuildNO = "checked"
672 
                     rippleFlag = False
673 
                  End If
119 ghuddy 674 
 
121 hknight 675 
                  rsQryRipple.Close()
676 
                  Set rsQryRipple = nothing
119 ghuddy 677 
 
121 hknight 678 
                  %>
127 ghuddy 679 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
680 
                     Yes<input name="FRripplebuild" type="radio" value="1" <%=FRripplebuildYES%>  <%=disabled%>>&nbsp;&nbsp;
681 
                     No<input name="FRripplebuild" type="radio" value="0" <%=FRripplebuildNO%>>&nbsp;&nbsp;
121 hknight 682 
                  </td>
683 
                  <td background="images/bg_form_lightbluedark.gif">
684 
                     <span class='err_alert'><b>WARNING!</span>
685 
                     <font size='1'>
127 ghuddy 686 
                        <br>
687 
                        When set to No, this package and <u>all</u> packages which depend on this package, either directly or indirectly,<br>
121 hknight 688 
                        will be excluded from the build. When the Yes option is disabled, indicates this package has been excluded indirectly.
689 
                     </font></b>
690 
                  </td>
691 
               </tr>
155 ghuddy 692 
               <%End If%>
5086 dpurdie 693 
               <%If isNotSdk Then %>
121 hknight 694 
               <tr>
695 
                  <td>&nbsp;</td>
127 ghuddy 696 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td>
121 hknight 697 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
127 ghuddy 698 
                    &nbsp;&nbsp;<% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%>&nbsp;&nbsp;
121 hknight 699 
                  </td>
700 
                  <td background="images/bg_form_lightbluedark.gif">
701 
                     <span class='err_alert'><b>WARNING!</span>
127 ghuddy 702 
                     <font size='1'>
703 
                        <br>
704 
                        This enables a package to advertise how it will be numbered when rippled.<br>
705 
                        THIS IS PRIMARILY INTENDED TO CATER FOR PACKAGES WHICH DO NOT SUPPORT A NON ZERO PATCH/BUILD NUMBER,<br>
121 hknight 706 
                        AND FOR PRODUCTS WHERE CONSTANTLY RIPPLING A PATCH/BUILD NUMBER IS DISLIKED BY A CUSTOMER.
707 
                     </font></b>
708 
                  </td>
709 
               </tr>
5086 dpurdie 710 
               <%End If%>
127 ghuddy 711 
               <tr id="limits_row" style="visibility:hidden; position:static">
712 
                  <td>&nbsp;</td>
713 
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Version Field Limits</td>
714 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
715 
                     Major&nbsp;&nbsp;<input name="Major" id="Major" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("major_limit")%>">&nbsp;&nbsp;<br>
716 
                     Minor&nbsp;&nbsp;<input name="Minor" id="Minor" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("minor_limit")%>">&nbsp;&nbsp;<br>
717 
                     Patch&nbsp;&nbsp;<input name="Patch" id="Patch" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("patch_limit")%>">&nbsp;&nbsp;<br>
718 
                     Build&nbsp;&nbsp;<input name="Build" id="Build" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("build_number_limit")%>">&nbsp;&nbsp;
719 
                  </td>
720 
                  <td background="images/bg_form_lightbluedark.gif">
721 
                     <span class='err_alert'><b>WARNING!</span>
722 
                     <font size='1'>
723 
                        <br>
724 
                        A field (major/minor/patch/build number) may be assigned non zero limits to determine how it will be numbered when rippled.<br>
725 
                        Prior to reaching a limit, the rightmost field able to be incremented will be when rippled.<br>
726 
                        Upon reaching a limit, that rightmost field will be set to zero and the field next left with a non zero limit (if one exists) will be incremented when rippled.<br>
727 
                        A field may be assigned to zero to fix the field (to 0 or 000 for the build number field) when rippled.
728 
                     </font></b>
729 
                  </td>
730 
               </tr>
121 hknight 731 
               <tr>
732 
                  <td>&nbsp;</td>
733 
                  <td nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
734 
                  <td nowrap> <p>&nbsp;</p></td>
735 
                  <td nowrap>&nbsp;</td>
736 
               </tr>
737 
            </table>
738 
        </td>
739 
      </tr>
740 
      <tr>
741 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
742 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
743 
      </tr>
744 
   </table>
119 ghuddy 745 
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
746 
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
747 
<input type="hidden" name="rippleFlag" value="<%=rippleFlag%>">
131 ghuddy 748 
<input type="hidden" name="peggedFlag" value="<%=peggedFlag%>">
151 ghuddy 749 
<input type="hidden" name="advRipFlag" value="<%=advRipFlag%>">
119 ghuddy 750 
<input type="hidden" name="action" value="true">
751 
</form>
752 
</body>
753 
</html>
754 
<%
755 
'------------- RUN AFTER PAGE RENDER ---------------
756 
Set objFormCollector = Nothing
757 
'---------------------------------------------------
758 
%>
759 
 
760 
<!-- DESTRUCTOR ------->
761 
<!--#include file="common/destructor.asp"-->