Subversion Repositories DevTools

Rev

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

Rev 129 Rev 145
Line 53... Line 53...
53 
'--------------------------------------------------------------------------------------------------
 53 
'--------------------------------------------------------------------------------------------------
54 
Function SearchAndReplace(s, Str1, Str2)
 54 
Function SearchAndReplace(s, Str1, Str2)
55 
   Dim pos
 55 
   Dim pos
56 
   s = s & "" 'Fix Null
 56 
   s = s & "" 'Fix Null
57 
   pos = InStr(s, Str1)
 57 
   pos = InStr(s, Str1)
58 
   While pos > 0
 58 
   If pos > 0 Then
59 
      s = Mid(s, 1, pos - 1) & Str2 & Mid(s, pos + Len(Str1))
 59 
      s = Mid(s, 1, pos - 1) & Str2 & Mid(s, pos + Len(Str1))
60 
       pos = InStr(pos, s, Str1)
 - 
 
61 
   Wend
 60 
   End If
62 
   SearchAndReplace = s
 61 
   SearchAndReplace = s
63 
End Function
 62 
End Function
64 
'--------------------------------------------------------------------------------------------------
 63 
'--------------------------------------------------------------------------------------------------
65 
Sub Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
 64 
Sub Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
66 
   On Error Resume Next
 65 
   On Error Resume Next
Line 191... Line 190...
191 
Sub Auto_Patch (NNpv_id, SSpatchversions)
 190 
Sub Auto_Patch (NNpv_id, SSpatchversions)
192 
 
 191 
 
193 
   On Error Resume Next
 192 
   On Error Resume Next
194 
   Dim posComma, posUnderscore, patchId, sspatchversion, value
 193 
   Dim posComma, posUnderscore, patchId, sspatchversion, value
195 
 
 194 
 
196 
   value = SSpatchversions
 195 
   If IsNull(SSpatchversions) OR SSpatchversions = "" Then
197 
   posComma = InStr(SSpatchversions, ",")
 196 
      Call RaiseMsg(enum_WMSG_ERROR, "Must select at least one Auto Package to perform AutoFill")
198 
 
 - 
 
199 
   While posComma <> 0
 197 
   Else
200 
      value = Mid(SSpatchversions, 1, posComma-1)
 198 
      value = SSpatchversions
201 
      posUnderscore = Instr(value, "_")
 - 
 
202 
      patchId = Mid(value, 1, posUnderscore - 1)
 - 
 
203 
      sspatchversion = Mid(value, posUnderscore + 1, posComma-1)
 - 
 
204 
      Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
 - 
 
205 
      Call AutoWrite_Reason (patchId, newPatchId)
 - 
 
206 
      Call Insert_NOT_DONE_Unit_Test (newPatchId)
 - 
 
207 
      SSpatchversions = Mid(SSpatchversions, posComma + 1, Len(SSpatchversions))
 - 
 
208 
      posComma = InStr(SSpatchversions, ",")
 199 
      posComma = InStr(SSpatchversions, ",")
209 
   Wend
 - 
 
210 
 
 200 
 
- 
 
 201 
      While posComma <> 0
- 
 
 202 
         value = Mid(SSpatchversions, 1, posComma-1)
- 
 
 203 
         posUnderscore = Instr(value, "_")
- 
 
 204 
         If (posUnderscore > 1) Then
- 
 
 205 
            patchId = Mid(value, 1, posUnderscore - 1)
- 
 
 206 
            sspatchversion = Mid(value, posUnderscore + 1, posComma-1)
- 
 
 207 
            Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
- 
 
 208 
            Call AutoWrite_Reason (patchId, newPatchId)
- 
 
 209 
            Call Insert_NOT_DONE_Unit_Test (newPatchId)
- 
 
 210 
         End If
- 
 
 211 
         SSpatchversions = Mid(SSpatchversions, posComma + 1, Len(SSpatchversions))
- 
 
 212 
         posComma = InStr(SSpatchversions, ",")
- 
 
 213 
      Wend
- 
 
 214 
 
211 
   If posComma = 0 Then
 215 
      If posComma = 0 Then
212 
      posUnderscore = Instr(SSpatchversions, "_")
 216 
         posUnderscore = Instr(SSpatchversions, "_")
- 
 
 217 
         If posUnderscore > 1 Then
213 
      patchId = Mid(SSpatchversions, 1, posUnderscore - 1)
 218 
            patchId = Mid(SSpatchversions, 1, posUnderscore - 1)
214 
      sspatchversion = Mid(SSpatchversions, posUnderscore + 1)
 219 
            sspatchversion = Mid(SSpatchversions, posUnderscore + 1)
215 
      Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
 220 
            Call Auto_Add_Patch (NNpv_id, patchId, sspatchversion, newPatchId)
216 
      Call AutoWrite_Reason(patchId, newPatchId)
 221 
            Call AutoWrite_Reason(patchId, newPatchId)
217 
      Call Insert_NOT_DONE_Unit_Test (newPatchId)
 222 
            Call Insert_NOT_DONE_Unit_Test (newPatchId)
- 
 
 223 
         End If
- 
 
 224 
      End if
218 
   End if
 225 
   End if
219 
 
 226 
 
220 
End Sub
 227 
End Sub
221 
'-----------------------------------------------------------------------------------------
 228 
'-----------------------------------------------------------------------------------------
222 
Sub Get_Parent_Details ( NNpv_id, nRtagId, outPkg_name, outDefPatchVersion, outViewId )
 229 
Sub Get_Parent_Details ( NNpv_id, nRtagId, outPkg_name, outDefPatchVersion, outViewId )
Line 374... Line 381...
374 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 381 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
375 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 382 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
376 
<script language="JavaScript" src="images/common.js"></script>
 383 
<script language="JavaScript" src="images/common.js"></script>
377 
</head>
 384 
</head>
378 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.ptch.FRversion.focus();">
 385 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.ptch.FRversion.focus();">
379 
<form name="ptch" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRversion','Patch Version','RisVersionStr');return document.MM_returnValue;">
 386 
<form name="ptch" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRversion','Patch Version','RisPatchVersionStr');return document.MM_returnValue;">
380 
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
 387 
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
381 
    <tr>
 388 
      <%
382 
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td>
 389 
      OraDatabase.Parameters.Add "PV_ID",    parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
383 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;New Patch</td>
 390 
      OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
384 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 391 
      Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPatches.sql"), cint(0))
385 
      <input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
 392 
      %>
386 
        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
 393 
 
387 
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
 394 
      <tr>
388 
      </td>
 395 
         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5" border="0"></td>
389 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
 396 
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;New Patch</td>
390 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 397 
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
391 
    </tr>
 398 
            <%If rsQry.RecordCount > 0 Then%>
392 
    <tr>
 399 
               <input type="submit" name="btn" value="AutoFill" class="form_btn_comp">
393 
      <td height="100%" width="1%">&nbsp;</td>
 400 
            <%End If%>
394 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 401 
            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
395 
        <table width="100%" border="0" cellspacing="1" cellpadding="3">
 402 
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
396 
          <tr>
 403 
         </td>
397 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
 404 
         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
398 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=pkg_name%></td>
 405 
            <img src="images/h_trsp_dot.gif" width="5" height="22">
399 
          </tr>
 406 
         </td>
400 
          <tr>
 407 
      </tr>
401 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
 408 
      <tr>
402 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
 409 
         <td height="100%" width="1%">&nbsp;</td>
403 
              <input name="FRversion" type="text" class="form_item"  size="30" maxlength="50" value="<%=patch_version%>">
 410 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
404 
            </td>
 411 
            <table width="100%" border="0" cellspacing="1" cellpadding="3">
405 
          </tr>
 412 
               <tr>
406 
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 413 
                  <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Package</td>
407 
          <%If NOT objEH.Finally Then%>
 414 
                  <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=pkg_name%></td>
408 
          <tr>
 415 
               </tr>
409 
            <td class="form_iname" colspan="2">&nbsp;</td>
 416 
               <tr>
410 
            <td>
 417 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field" colspan="2">Patch Version</td>
411 
              <%objEH.DisplayMessage()%>
 418 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
412 
            </td>
 419 
                  <input name="FRversion" type="text" class="form_item"  size="30" maxlength="50" value="<%=patch_version%>">
413 
          </tr>
 420 
                  </td>
414 
          <%End If%>
 421 
               </tr>
415 
          <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 422 
               <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
416 
        <!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
 423 
               <%If NOT objEH.Finally Then%>
417 
        <%
 424 
                  <tr>
418 
        OraDatabase.Parameters.Add "PV_ID",    parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 425 
                     <td class="form_iname" colspan="2">&nbsp;</td>
419 
        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 426 
                     <td>
420 
        %>
 427 
                        <%objEH.DisplayMessage()%>
421 
        <%
 428 
                     </td>
422 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPatches.sql"), cint(0))
 429 
                  </tr>
423 
        %>
 430 
               <%End If%>
424 
        <%If rsQry.RecordCount > 0 Then%>
 431 
               <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
425 
        <tr>
 432 
               <!-- INCLUDE DEPENDENCY PATCHES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
426 
            <td nowrap class="body_colb" colspan="3"><br><br>Include Dependency Patches</td>
 433 
               <%If rsQry.RecordCount > 0 Then%>
427 
          </tr>
 434 
                  <tr>
428 
        <tr>
 435 
                     <td nowrap class="body_colb" colspan="3"><br><br>Include Dependency Patches</td>
429 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
 436 
                  </tr>
430 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 437 
                  <tr>
431 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
 438 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Manual</td>
432 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Auto</td>
 439 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
433 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 440 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
434 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
 441 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Auto</td>
435 
          </tr>
 442 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
436 
        <tr>
 443 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
437 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallmanual"   value="Check All"
 444 
                  </tr>
438 
            onClick="checkAllManual('auto_patch_id_list', 'checkallauto');"></td>
 445 
                  <tr>
439 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 446 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallmanual"   value="Check All"
440 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 447 
                        onClick="checkAllManual('auto_patch_id_list', 'checkallauto');">
441 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallauto"   value="Check All"
 448 
                     </td>
442 
            onClick="checkAllAuto('patch_id_list', 'checkallmanual');"></td>
 449 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
443 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 450 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
444 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 451 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkallauto"   value="Check All"
445 
          </tr>
 452 
                        onClick="checkAllAuto('patch_id_list', 'checkallmanual');">
446 
        <%End If%>
 453 
                     </td>
447 
        <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 454 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
448 
 
 455 
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"></td>
449 
        newPatch_version = patch_version
 456 
                  </tr>
450 
        pos = InStr(rsQry("pkg_version"), "p")
 457 
               <%End If%>
451 
 
 458 
               <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
452 
        patch_number = Mid(rsQry("pkg_version"), pos+1, 3)
 459 
 
453 
 
 460 
                  newPatch_version = patch_version
454 
        newPatch_version = SearchAndReplace(newPatch_version, "XXX", patch_number)
 461 
                  pos = InStr(rsQry("pkg_version"), "p")
455 
        %>
 462 
 
456 
          <tr>
 463 
                  patch_number = Mid(rsQry("pkg_version"), pos+1, 3)
457 
            <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("patch_id")%>"></td>
 464 
 
458 
            <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
 465 
                  newPatch_version = SearchAndReplace(newPatch_version, "XXX", patch_number)
459 
            <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
 466 
                  %>
460 
            <td><input type="checkbox" name="auto_patch_id_list" value="<%=rsQry("patch_id")%>_<%=newPatch_version%>"></td>
 467 
                  <tr>
461 
            <td nowrap class="form_txt"><font color="#808080"><b><%=pkg_name%></b></font></td>
 468 
                     <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("patch_id")%>"></td>
462 
            <td nowrap class="form_txt"><font color="#808080"><b><%=newPatch_version%></b></font></td>
 469 
                     <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
463 
          </tr>
 470 
                     <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
464 
        <%rsQry.MoveNext
 471 
                     <td><input type="checkbox" name="auto_patch_id_list" value="<%=rsQry("patch_id")%>_<%=newPatch_version%>"></td>
465 
        WEnd
 472 
                     <td nowrap class="form_txt"><font color="#808080"><b><%=pkg_name%></b></font></td>
466 
 
 473 
                     <td nowrap class="form_txt"><font color="#808080"><b><%=newPatch_version%></b></font></td>
467 
        rsQry.Close
 474 
                  </tr>
468 
        Set rsQry = nothing
 475 
                  <%
469 
        %>
 476 
                  rsQry.MoveNext
470 
 
 477 
               WEnd
471 
        <!-- INCLUDE PACKAGES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
 478 
 
472 
        <%
 479 
               rsQry.Close
473 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPackages.sql"), cint(0))
 480 
               Set rsQry = nothing
474 
        %>
 481 
               %>
475 
        <%If rsQry.RecordCount > 0 Then%>
 482 
 
476 
        <tr>
 483 
               <!-- INCLUDE PACKAGES +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  -->
477 
            <td nowrap class="body_colb" colspan="3"><br><br>Include Latest Packages</td>
 484 
               <%
478 
          </tr>
 485 
               Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("UnusedPackages.sql"), cint(0))
479 
        <tr>
 486 
               %>
480 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 487 
               <%If rsQry.RecordCount > 0 Then%>
481 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
 488 
                  <tr>
482 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
 489 
                     <td nowrap class="body_colb" colspan="3"><br><br>Include Latest Packages</td>
483 
          </tr>
 490 
                  </tr>
484 
        <%End If%>
 491 
                  <tr>
485 
        <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
 492 
                     <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
486 
          <tr>
 493 
                     <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package</td>
487 
            <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("latest_pv_id")%>"></td>
 494 
                     <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Patch Version</td>
488 
            <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
 495 
                  </tr>
489 
            <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
 496 
               <%End If%>
490 
          </tr>
 497 
               <%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
491 
        <%rsQry.MoveNext
 498 
                  <tr>
492 
        WEnd
 499 
                     <td><input type="checkbox" name="patch_id_list" value="<%=rsQry("latest_pv_id")%>"></td>
493 
 
 500 
                     <td nowrap class="form_txt"><%=rsQry("pkg_name")%></td>
494 
        rsQry.Close
 501 
                     <td nowrap class="form_txt"><%=rsQry("pkg_version")%></td>
495 
        Set rsQry = nothing
 502 
                  </tr>
496 
        %>
 503 
                  <%rsQry.MoveNext
497 
        <%
 504 
               WEnd
498 
        OraDatabase.Parameters.Remove "PV_ID"
 505 
 
499 
        OraDatabase.Parameters.Remove "RTAG_ID"
 506 
 
500 
        %>
 507 
               rsQry.Close
501 
        </table> </td>
 508 
               Set rsQry = nothing
502 
    </tr>
 509 
               %>
503 
    <tr>
 510 
               <%
504 
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 511 
               OraDatabase.Parameters.Remove "PV_ID"
505 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 512 
               OraDatabase.Parameters.Remove "RTAG_ID"
506 
    </tr>
 513 
               %>
507 
  </table>
 514 
            </table>
508 
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
 515 
         </td>
509 
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 516 
      </tr>
510 
<input type="hidden" name="action" value="true">
 517 
      <tr>
- 
 
 518 
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
- 
 
 519 
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
- 
 
 520 
      </tr>
- 
 
 521 
   </table>
- 
 
 522 
   <input type="hidden" name="pv_id" value="<%=parPv_id%>">
- 
 
 523 
   <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
- 
 
 524 
   <input type="hidden" name="action" value="true">
511 
</form>
 525 
</form>
512 
</body>
 526 
</body>
513 
</html>
 527 
</html>
514 
 
 528 
 
515 
 
 529