Subversion Repositories DevTools

Rev

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

Rev 127 Rev 129
Line 20... Line 20...
20 
Dim retVal
 20 
Dim retVal
21 
Dim baseURL
 21 
Dim baseURL
22 
Dim rsProjId
 22 
Dim rsProjId
23 
Dim rsPkgMetrics
 23 
Dim rsPkgMetrics
24 
Dim rsCodeReviewURL
 24 
Dim rsCodeReviewURL
- 
 
 25 
Dim vcsInfoCollector
25 
'------------ Constants Declaration -----------
 26 
'------------ Constants Declaration -----------
26 
Const enumLoc_iss_db = 0
 27 
Const enumLoc_iss_db = 0
27 
Const enumLoc_iss_id = 1
 28 
Const enumLoc_iss_id = 1
28 
Const enumLoc_iss_num = 2
 29 
Const enumLoc_iss_num = 2
29 
Const enumLoc_summary = 3
 30 
Const enumLoc_summary = 3
Line 33... Line 34...
33 
'------------ Variable Init -------------------
 34 
'------------ Variable Init -------------------
34 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 35 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
35 
Set fixedIssDict = CreateObject("Scripting.Dictionary")
 36 
Set fixedIssDict = CreateObject("Scripting.Dictionary")
36 
Set notesIssDict = CreateObject("Scripting.Dictionary")
 37 
Set notesIssDict = CreateObject("Scripting.Dictionary")
37 
Set depIssDict = CreateObject("Scripting.Dictionary")
 38 
Set depIssDict = CreateObject("Scripting.Dictionary")
- 
 
 39 
Set vcsInfoCollector = CreateObject("Scripting.Dictionary")
38 
'----------------------------------------------
 40 
'----------------------------------------------
39 
%>
 41 
%>
40 
<%
 42 
<%
41 
'----------------------------------------------------------------------------------------------------------------------------------------
 43 
'----------------------------------------------------------------------------------------------------------------------------------------
42 
Function asDepIss ( SSiss_db_id, SScolumn )
 44 
Function asDepIss ( SSiss_db_id, SScolumn )
Line 434... Line 436...
434 
 
 436 
 
435 
   OraDatabase.Parameters.Remove "PV_ID"
 437 
   OraDatabase.Parameters.Remove "PV_ID"
436 
 
 438 
 
437 
End Sub
 439 
End Sub
438 
'----------------------------------------------------------------------------------------------------------------------------------------
 440 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 441 
 
- 
 
 442 
 
- 
 
 443 
'----------------------------------------------------------------------------------------------------------------------------------------
439 
%>
 444 
%>
440 
<%
 445 
<%
441 
'------------------ MAIN LINE --------------------
 446 
'------------------ MAIN LINE --------------------
442 
'-------------------------------------------------
 447 
'-------------------------------------------------
443 
%>
 448 
%>
Line 452... Line 457...
452 
            <%End If%>
 457 
            <%End If%>
453 
         </td>
 458 
         </td>
454 
      </tr>
 459 
      </tr>
455 
   </table>
 460 
   </table>
456 
   <table width="100%" border="0" cellspacing="1" cellpadding="2">
 461 
   <table width="100%" border="0" cellspacing="1" cellpadding="2">
- 
 
 462 
      <%
457 
      <%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))%>
 463 
      Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
- 
 
 464 
 
- 
 
 465 
      Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), vcsInfoCollector )
- 
 
 466 
 
- 
 
 467 
      %>
458 
      <tr>
 468 
      <tr>
459 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Deployable:</b></td>
 469 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Deployable:</b></td>
460 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 470 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
461 
            <%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%>
 471 
            <%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%>
462 
         </td>
 472 
         </td>
463 
      </tr>
 473 
      </tr>
- 
 
 474 
 
- 
 
 475 
      <%If vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG Then%>
464 
      <tr>
 476 
         <tr>
- 
 
 477 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
- 
 
 478 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 479 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
- 
 
 480 
            </td>
- 
 
 481 
         </tr>
- 
 
 482 
         <tr>
465 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Label:</b></td>
 483 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Label:</b></td>
466 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 484 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
467 
            <%If IsNull( rsQry("pkg_label") ) Then%>
 485 
               <%If IsNull( rsQry("pkg_label") ) Then%>
468 
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
 486 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
- 
 
 487 
               <%End If%>
- 
 
 488 
            </td>
- 
 
 489 
         </tr>
- 
 
 490 
         <tr>
- 
 
 491 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
- 
 
 492 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 493 
               <%If IsNull( rsQry("src_path") ) Then%>
- 
 
 494 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
469 
            <%End If%>
 495 
               <%End If%>
- 
 
 496 
            </td>
470 
         </td>
 497 
         </tr>
- 
 
 498 
      <%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG Then%>
- 
 
 499 
         <tr>
- 
 
 500 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
- 
 
 501 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 502 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
- 
 
 503 
            </td>
471 
      </tr>
 504 
         </tr>
472 
      <tr>
 505 
         <tr>
473 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
 506 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>SubVersion Tag:</b> </td>
474 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 507 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
475 
            <%If IsNull( rsQry("src_path") ) Then%>
 508 
               <%If IsNull( rsQry("src_path") ) Then%>
476 
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
 509 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
477 
            <%End If%>
 510 
               <%End If%>
- 
 
 511 
            </td>
478 
         </td>
 512 
         </tr>
- 
 
 513 
      <%ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG Then%>
- 
 
 514 
         <tr>
- 
 
 515 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
- 
 
 516 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 517 
               <%=NewLine_To_BR ( To_HTML( vcsInfoCollector.Item("vcs_name") ) )%>
- 
 
 518 
            </td>
- 
 
 519 
         </tr>
- 
 
 520 
      <%Else%>
- 
 
 521 
         <tr>
- 
 
 522 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Version Control System:</b></td>
- 
 
 523 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 524 
               <span class='err_alert'>Required!</span>
- 
 
 525 
            </td>
479 
      </tr>
 526 
         </tr>
- 
 
 527 
      <%End If%>
- 
 
 528 
 
480 
      <tr>
 529 
      <tr>
481 
         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Short Description:</b></td>
 530 
         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Short Description:</b></td>
482 
         <td witdh="100%" background="images/bg_form_lightgray.gif" class="sublbox_txt">
 531 
         <td witdh="100%" background="images/bg_form_lightgray.gif" class="sublbox_txt">
483 
            <%If IsNull( rsQry("pv_description") ) Then%>
 532 
            <%If IsNull( rsQry("pv_description") ) Then%>
484 
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%>
 533 
               <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%>
Line 494... Line 543...
494 
         </td>
 543 
         </td>
495 
      </tr>
 544 
      </tr>
496 
      <tr>
 545 
      <tr>
497 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top">
 546 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top">
498 
            <b>Build Standard:</b>
 547 
            <b>Build Standard:</b>
499 
            <%If pageIsEditable Then%>
 - 
 
500 
               <a href='javascript:;' onClick="MM_openBrWindow('_wform_build_standard.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','BuildStandard','resizable=yes,width=400,height=300')" class="txt_linked">
 - 
 
501 
                  <img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
 - 
 
502 
               </a>
 - 
 
503 
            <%Else%>
 - 
 
504 
               <img src="images/i_edit_disable.gif" width="12" height="12" hspace="2" border="0" align="absmiddle">
 - 
 
505 
            <%End If%>
 - 
 
506 
         </td>
 548 
         </td>
507 
         <%
 549 
         <%
508 
         If pkgInfoHash.Item ("bs_id") <> "" Then
 550 
         If pkgInfoHash.Item ("bs_id") <> "" Then
509 
            If pkgInfoHash.Item ("bs_id") = "1" Then
 551 
            If pkgInfoHash.Item ("bs_id") = "1" Then
510 
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>JATS<br></td>"
 552 
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>JATS<br></td>"
Line 514... Line 556...
514 
 
 556 
 
515 
            ElseIf pkgInfoHash.Item ("bs_id") = "3" Then
 557 
            ElseIf pkgInfoHash.Item ("bs_id") = "3" Then
516 
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>NONE<br></td>"
 558 
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>NONE<br></td>"
517 
            End If
 559 
            End If
518 
         Else
 560 
         Else
- 
 
 561 
            If vcsInfoCollector.Item("vcs_tag") <> enum_VCS_UNCONTROLLED_TAG Then
519 
            Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'><span class='err_alert'>Required!</span><br></td>"
 562 
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'><span class='err_alert'>Required!</span><br></td>"
- 
 
 563 
            Else
- 
 
 564 
               Response.write "<td background='images/bg_form_lightgray.gif' class='sublbox_txt'>Unspecified<br></td>"
- 
 
 565 
            End If
520 
         End If
 566 
         End If
521 
         %>
 567 
         %>
522 
      </tr>
 568 
      </tr>
- 
 
 569 
      <%If (NOT IsNull(pkgInfoHash.Item ("bs_id"))) AND (pkgInfoHash.Item ("bs_id") <> "3") Then%>
523 
      <tr>
 570 
         <tr>
524 
         <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Build Environment:</b> </td>
 571 
            <td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><b>Build Environment:</b> </td>
525 
         <%
 572 
            <%
526 
         '--- Get Build Env Details
 573 
            '--- Get Build Env Details
527 
         Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
 574 
            Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
528 
         %>
 575 
            %>
529 
 
 - 
 
530 
         <%If rsTemp.RecordCount = 0 Then%>
 - 
 
531 
            <%If rsQry("is_build_env_required") = enumDB_NO Then%>
 - 
 
532 
               <td background="images/bg_form_lightgray.gif" class="sublbox_txt">Not Required.
 - 
 
533 
            <%Else%>
 - 
 
534 
               <td background="images/bg_form_lightgray.gif" class="sublbox_txt"><span class='err_alert'>Required!</span>
 - 
 
535 
            <%End If%>
 - 
 
536 
         <%Else%>
 - 
 
537 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 576 
            <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 577 
               <%If rsTemp.RecordCount = 0 Then%>
- 
 
 578 
                  <%If rsQry("is_build_env_required") = enumDB_NO Then%>
- 
 
 579 
                     Not Required
- 
 
 580 
                  <%Else%>
- 
 
 581 
                     <span class='err_alert'>Required!</span>
- 
 
 582 
                  <%End If%>
- 
 
 583 
               <%Else%>
538 
               <%If (IsNull( rsQry("is_build_env_required") ) AND (rsQry("comments") <> "Rippled Build.")) Then%>
 584 
                  <%If (IsNull( rsQry("is_build_env_required") ) AND (rsQry("comments") <> "Rippled Build.")) Then%>
- 
 
 585 
                     <span class='err_alert'>Required!</span>
539 
                  <span class='err_alert'>Required!</span><%ElseIf rsQry("is_build_env_required") = enumDB_NO Then%>Not Required.
 586 
                  <%ElseIf rsQry("is_build_env_required") = enumDB_NO Then%>
- 
 
 587 
                     Not Required.
- 
 
 588 
                  <%Else%>
- 
 
 589 
                     <table width="40%"  border="0" cellspacing="3" cellpadding="2">
- 
 
 590 
                        <%
- 
 
 591 
                        currG1 = 0
- 
 
 592 
                        While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
- 
 
 593 
                           'retVal = Lookup_Document ( rsQry("doc_num"), sDocTitle, NULL, NULL, NULL  )
- 
 
 594 
                        %>
- 
 
 595 
                           <%If currG1 <> CInt(rsTemp("bm_id")) Then%>
- 
 
 596 
                              <tr>
- 
 
 597 
                                 <td colspan="2" nowrap class="sublbox_txt" background="images/bg_form_lightbluedark.gif">
- 
 
 598 
                                    <%=rsTemp("bm_name")%>&nbsp;<%=GetBuildType( rsTemp("bsa_id") )%>
- 
 
 599 
                                 </td>
- 
 
 600 
                              </tr>
- 
 
 601 
                              <%currG1 = CInt(rsTemp("bm_id"))
- 
 
 602 
                           End If
- 
 
 603 
                           rsTemp.MoveNext
- 
 
 604 
                        WEnd
- 
 
 605 
                        %>
- 
 
 606 
                        <tr>
- 
 
 607 
                           <td width="5%"></td>
- 
 
 608 
                           <td width="95%"></td>
- 
 
 609 
                        </tr>
- 
 
 610 
                     </table>
- 
 
 611 
                  <%End If%>
540 
               <%End If%>
 612 
               <%End If%>
541 
         <%End If%>
 613 
            </td>
542 
         <%If rsTemp.RecordCount > 0 Then%>
 614 
         </tr>
543 
            <table width="40%"  border="0" cellspacing="3" cellpadding="2">
 - 
 
544 
               <%
 615 
      <%End If%>
- 
 
 616 
 
545 
               currG1 = 0
 617 
      <%
546 
               While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 - 
 
547 
                  'retVal = Lookup_Document ( rsQry("doc_num"), sDocTitle, NULL, NULL, NULL  )
 618 
      ' Previous Label/Tag, Codestriker and Beyond Compare differencing commands
548 
               %>
 619 
      Dim oldLabel
549 
                  <%If currG1 <> CInt(rsTemp("bm_id")) Then%>
 620 
      Dim old_vcs_tag
550 
                     <tr>
 621 
      Dim oldSrcPath
- 
 
 622 
      Dim lastSignificantPVID
- 
 
 623 
 
551 
                        <td colspan="2" nowrap class="sublbox_txt" background="images/bg_form_lightbluedark.gif">
 624 
      If vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG Then
- 
 
 625 
 
552 
                           <%=rsTemp("bm_name")%>&nbsp;<%=GetBuildType( rsTemp("bsa_id") )%>
 626 
         lastSignificantPVID = getLastSignificantPVID(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
553 
                        </td>
 627 
         If (lastSignificantPVID <> "") Then
554 
                     </tr>
 628 
            old_vcs_tag = get_vcs_tag(lastSignificantPVID)
555 
                     <%currG1 = CInt(rsTemp("bm_id"))
 629 
            If (old_vcs_tag = enum_VCS_CLEARCASE_TAG) Then
556 
                  End If
 - 
 
557 
                  rsTemp.MoveNext
 630 
               oldLabel = get_Pkg_Label(lastSignificantPVID)
558 
               WEnd
 - 
 
559 
               %>
 631 
               %>
560 
               <tr>
 632 
               <tr>
- 
 
 633 
                  <%
- 
 
 634 
                  ' Previous Label
561 
                   <td width="5%"></td>
 635 
                  Dim rsQry2, rsQry3
- 
 
 636 
                  Set rsQry2 = OraDatabase.DbCreateDynaset( "SELECT * from package_versions where pv_id ="&parPv_id , cint(0))
- 
 
 637 
                  Set rsQry3 = OraDatabase.DbCreateDynaset( "SELECT pkg_label from package_versions where pv_id ="&rsQry2("last_pv_id") , cint(0))
- 
 
 638 
                  %>
- 
 
 639 
                  <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Previous Label:</strong><%=Quick_Help ( "PreviousLabel" )%></td>
- 
 
 640 
                  <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 641 
                     <%=NewLine_To_BR ( To_HTML( rsQry3("pkg_label") ) )%>
562 
                  <td width="95%"></td>
 642 
                  </td>
563 
               </tr>
 643 
               </tr>
564 
            </table>
 - 
 
565 
         <%End If%>
 - 
 
566 
         <!-- The following tag completes the scope of one of the 3 opening tags setup by vbscript code 30 or so lines earlier in this file -------->
 - 
 
567 
         </td>
 - 
 
568 
      </tr>
 - 
 
569 
      <tr>
 - 
 
570 
         <%
 - 
 
571 
         ' Previous Label
 - 
 
572 
         Dim rsQry2, rsQry3
 - 
 
573 
         Set rsQry2 = OraDatabase.DbCreateDynaset( "SELECT * from package_versions where pv_id ="&parPv_id , cint(0))
 - 
 
574 
         Set rsQry3 = OraDatabase.DbCreateDynaset( "SELECT pkg_label from package_versions where pv_id ="&rsQry2("last_pv_id") , cint(0))
 - 
 
575 
         %>
 - 
 
576 
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Previous Label:</strong><%=Quick_Help ( "PreviousLabel" )%></td>
 - 
 
577 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 - 
 
578 
            <%=NewLine_To_BR ( To_HTML( rsQry3("pkg_label") ) )%>
 - 
 
579 
         </td>
 - 
 
580 
      </tr>
 - 
 
581 
 
 644 
 
582 
      <%
 645 
               <tr>
583 
      ' Codestriker and Beyond Compare differencing commands
 646 
                  <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
- 
 
 647 
                     <strong>Previous Significant Label:</strong><%=Quick_Help ( "PreviousSignificantLabel" )%>
584 
      Dim oldLabel
 648 
                  </td>
585 
      oldLabel = getOldLabel(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
 649 
                  <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
- 
 
 650 
                     <%=NewLine_To_BR ( To_HTML( oldLabel ) )%>
- 
 
 651 
                  </td>
586 
      %>
 652 
               </tr>
- 
 
 653 
 
587 
      <tr>
 654 
               <tr>
588 
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
 655 
                  <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Codestriker command:
589 
            <strong>Previous Significant Label:</strong><%=Quick_Help ( "PreviousSignificantLabel" )%>
 656 
                     </strong><%=Quick_Help ( "Codestriker" )%>
590 
         </td>
 657 
                  </td>
591 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 658 
                  <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
592 
            <%=NewLine_To_BR ( To_HTML( oldLabel ) )%>
 659 
                     <%=NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%>
593 
         </td>
 660 
                  </td>
594 
      </tr>
 661 
               </tr>
595 
      <tr>
 662 
               <tr>
596 
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt"><strong>Codestriker command:
 663 
                  <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
597 
            </strong><%=Quick_Help ( "Codestriker" )%>
 664 
                     <strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%>
598 
         </td>
 665 
                  </td>
599 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 666 
                  <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
600 
            <%=NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%>
 667 
                     <%=NewLine_To_BR ( To_HTML( BeyondCompare_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%>
601 
         </td>
 668 
                  </td>
602 
      </tr>
 669 
               </tr>
- 
 
 670 
               <%
- 
 
 671 
            End If
- 
 
 672 
         End If
- 
 
 673 
 
- 
 
 674 
      ElseIf vcsInfoCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG Then
- 
 
 675 
 
- 
 
 676 
         lastSignificantPVID = getLastSignificantPVID(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
- 
 
 677 
         If (lastSignificantPVID <> "") Then
- 
 
 678 
            old_vcs_tag = get_vcs_tag(lastSignificantPVID)
- 
 
 679 
            If (old_vcs_tag = enum_VCS_SUBVERSION_TAG) Then
- 
 
 680 
               oldSrcPath = get_Src_Path(lastSignificantPVID)
- 
 
 681 
               %>
603 
      <tr>
 682 
               <tr>
604 
         <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
 683 
                  <td width="20%" background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
605 
            <strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%>
 684 
                     <strong>Previous Significant SVN Tag:</strong><%=Quick_Help ( "PreviousSignificantLabel" )%>
606 
         </td>
 685 
                  </td>
607 
         <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
 686 
                  <td background="images/bg_form_lightgray.gif" class="sublbox_txt">
608 
            <%=NewLine_To_BR ( To_HTML( BeyondCompare_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )%>
 687 
                     <%=NewLine_To_BR ( To_HTML( oldSrcPath ) )%>
- 
 
 688 
                  </td>
- 
 
 689 
               </tr>
- 
 
 690 
               <%
- 
 
 691 
            End If
609 
         </td>
 692 
         End If
610 
      </tr>
 693 
      End If%>
611 
 
 694 
 
612 
      <%If pkgInfoHash.Item("is_deployable") = "Y" Then
 695 
      <%If pkgInfoHash.Item("is_deployable") = "Y" Then
613 
         OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 696 
         OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
614 
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DeploymentManagerReference.sql"), cint(0))
 697 
         Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DeploymentManagerReference.sql"), cint(0))
615 
         If rsTemp.RecordCount = 0 Then%>
 698 
         If rsTemp.RecordCount = 0 Then%>