Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'|

'|  diff.asp

'|

'=====================================================

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0    ' always load the page, dont store

%>

<%

'To enable the script timeout to 20 mins

Server.ScriptTimeout=1200

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/common_dbedit.asp"-->

<!--#include file="common/_form_window_common.asp"-->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_general.asp"-->

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT>

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/base64encode.vbs"></SCRIPT>

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/jiraIssues.vbs"></SCRIPT>

<%

'------------ Variable Definition -------------

Dim rsQry

Dim objRelCollectorA

Dim objRelCollectorB

Dim parRtagA

Dim parRtagB

Dim dDiffFilter

Dim colorA, colorB, ChangeTypeIcon

Dim btnMerge, btnRemove

Dim rowId

Dim email

Dim genReport

Dim reportPath

Dim FSO

Dim NewTextFile

Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB

Dim SSsql, retVal, rsCQ, DEVIiss

Dim a, b, c, d, pkgversion, errormsg, ChangeASource, ChangeAUpdate, ChangeBSource, ChangeBUpdate, pvCollectionA, pvCollectionB

Dim source_change, scFlag

Dim changeType

Dim pkgSeen

Dim isaSdk                  ' Target is an SDK based package

Dim isMergable              ' Target package can be modified

'------------ Constants Declaration -----------

Const LIMG_PENDING = "<img src='data:image/gif;base64,R0lGODlhAQABAAD/ACwAAAAAAQABAAACADs=' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Merge Pending'>"

Const LIMG_UNCHANGED = "<img src='images/i_unchanged.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Unchanged'>"

Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Updated'>"

Const LIMG_OUTDATED = "<img src='images/i_outdated.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Possibly Outdated'>"

Const LIMG_RIPPLED = "<img src='images/i_rippled.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Rippled'>"

Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Added'>"

Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='5' align='absmiddle' title='Removed'>"

Const LIMG_FILTER_ON = "<img src='images/i_data_table.gif' border='0' align='absmiddle' hspace='0' title='Filter in use.'>"

Const LIMG_FILTER_OFF = "<img src='images/i_data_table_off.gif' border='0' align='absmiddle' hspace='0' title='Filter not in use.'>"

Const LIMG_DROP_DOWN_ARROW = "<img src='images/i_drop_down_arrow.gif' width='5' height='15' hspace='1' border='0' align='absmiddle'>"

Const LCOLOR_NOT_CHANGED = "#F5F5F5"

Const LCOLOR_CHANGED = "#d2f7c9"

Const LCOLOR_OUTDATED = "#ffd292"

Const LCOLOR_RIPPLED = "#D8F8F8"

Const LCOLOR_BLANK = "#FFFFFF"

Const LIMG_MERGE = "<img src='images/bt_move_all_right.gif' title='Click to merge.' border='0'>"

Const LIMG_MERGE_WARN = "<img src='images/bt_move_warn_right.gif' title='Right hand side version is newer.' border='0'>"

Const LIMG_REMOVE = "<img src='images/bt_remove.gif' title='Remove this version from release.' border='0'>"

Const LIMG_UNDO = "<img src='images/bt_undo.gif' title='Undo merge/remove.' border='0'>"

Const LIMG_SDK = "<img src='images/i_sdkpkg.png' width='18' height='18' border='0' title='Package is imported from an SDK and cannot be modified'>"

'------------ Variable Init -------------------

parRtagA = Request("rtagA")

parRtagB = Request("rtagB")

Set objRelCollectorA = CreateObject("Scripting.Dictionary")

Set objRelCollectorB = CreateObject("Scripting.Dictionary")

Set dDiffFilter = CreateObject("Scripting.Dictionary")

Set pkgSeen = CreateObject("Scripting.Dictionary")

'----------------------------------------------

If Request("btn") = "Mail Me Report" Then

    email = true

    genReport = true

End If

If Request("btn") = "Show Me Report" Then

    genReport = true

End If

If genReport Then

    reportPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")

End If

'--------------------------------------------------------------------------------------------------------------------------

Sub GetDiffFilterValues ( outDepFilter )

    Dim FilterVal, aFilterValues

    If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) <> "" Then

        aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER), " ", ""), ",")

        For Each FilterVal In aFilterValues

            outDepFilter.Item (CStr( FilterVal )) = ""

        Next

    End If

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub Javascript()

    NewTextFile.WriteLine("<script language=""JavaScript"" type=""text/javascript"">")

    NewTextFile.WriteLine("function MM_findObj(n, d) { //v4.0")

    NewTextFile.WriteLine("  var p,i,x;")

    NewTextFile.WriteLine("  if(!d) d=document; ")

    NewTextFile.WriteLine("  if((p=n.indexOf(""?""))>0&&parent.frames.length) {")

    NewTextFile.WriteLine("    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);")

    NewTextFile.WriteLine("  }")

    NewTextFile.WriteLine("  if(!(x=d[n])&&d.all) x=d.all[n]; ")

    NewTextFile.WriteLine("  for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];")

    NewTextFile.WriteLine("  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);")

    NewTextFile.WriteLine("  if(!x && document.getElementById) x=document.getElementById(n); ")

    NewTextFile.WriteLine("  return x;")

    NewTextFile.WriteLine("}")

    NewTextFile.WriteLine("function toggleSPAN(x) {")

    NewTextFile.WriteLine("    var el = MM_findObj('spanPkgInfo' + x);")

    NewTextFile.WriteLine("    if (el.style.display != ""block"") {")

    NewTextFile.WriteLine("        el.style.display = ""block"";")

    NewTextFile.WriteLine("    } else {")

    NewTextFile.WriteLine("        el.style.display = ""none"";")

    NewTextFile.WriteLine("    }")

    NewTextFile.WriteLine("}")

    NewTextFile.WriteLine("function MM_getElementsByClassName(cn) {")

    NewTextFile.WriteLine("    var allT=document.getElementsByTagName('*'), allCN=[], i=0, a;")

    NewTextFile.WriteLine("    while(a=allT[i++]) {")

    NewTextFile.WriteLine("        a.className==cn ? allCN[allCN.length]=a : null;")

    NewTextFile.WriteLine("    }")

    NewTextFile.WriteLine("    return allCN")

    NewTextFile.WriteLine("}")

    NewTextFile.WriteLine("    function MM_toggleAll(cn, show){")

    NewTextFile.WriteLine("        var allEl = MM_getElementsByClassName(cn);")

    NewTextFile.WriteLine("        for (var ii=0; ii<allEl.length;ii++){")

    NewTextFile.WriteLine("            var el = allEl[ii];")

    NewTextFile.WriteLine("            if(show) {")

    NewTextFile.WriteLine("                el.style.display = ""block"";")

    NewTextFile.WriteLine("            } else {")

    NewTextFile.WriteLine("                el.style.display = ""none"";")

    NewTextFile.WriteLine("            }")

    NewTextFile.WriteLine("        }")

    NewTextFile.WriteLine("    }")

    NewTextFile.WriteLine("</script>")

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub GetFixedIssues(pv_id)

    '

    ' Clearcase issues

    '

    Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &"  AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))

    If sqlstrA.RecordCount <> 0 Then

        NewTextFile.WriteLine()

        NewTextFile.WriteLine("<blockquote><blockquote>Fixed ClearQuest Issues:</blockquote></blockquote>")

        NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table class='fixed_issues' width='100%'>")

        NewTextFile.WriteLine("<tr>")

        NewTextFile.WriteLine("<td width='10%' class='form_field'>Issue Id</td>")

        NewTextFile.WriteLine("<td width='55%' class='form_field'>Summary</td>")

        NewTextFile.WriteLine("<td width='10%' class='form_field'>Issue Type</td>")

        NewTextFile.WriteLine("<td width='15%' class='form_field'>Priority</td>")

        NewTextFile.WriteLine("<td width='10%' class='form_field'>Status</td>")

        NewTextFile.WriteLine("</tr>")

        For counterA=1 to sqlstrA.RecordCount

            DEVIiss = "-1"

            If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then

                DEVIiss = DEVIiss &","& sqlstrA("iss_id")

            End If

            SSsql = ReadFile( rootPath & "queries\cq_issues.sql" )

            SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)

            SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)

            retVal = Get_CQ_Issues ( SSsql, rsCQ )

            NewTextFile.WriteLine("<tr>")

            NewTextFile.WriteLine("<td nowrap class='form_item'>"&rsCQ("iss_num")&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("issue_type")&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("priority")&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&rsCQ("Status")&"</td>")

            NewTextFile.WriteLine("</tr>")

            sqlstrA.MoveNext

        Next

        sqlstrA.Close()

        NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote>")

    End If

    ' Must also handle Jira Issues

    On Error Resume Next

    Dim issueInfo, el, key

    Set issueInfo = CreateObject( "Scripting.Dictionary" )

    Call getJiraIssueDetails(pv_id, issueInfo, 1)

    If issueInfo.Count > 0 Then

        ' Table Header

        NewTextFile.WriteLine()

        NewTextFile.WriteLine("<blockquote><blockquote>Jira Issues:</blockquote></blockquote>")

        NewTextFile.WriteLine("<blockquote><blockquote><blockquote><table class='fixed_issues' width='100%'>")

        NewTextFile.WriteLine("<tr>")

        NewTextFile.WriteLine("<td width='8%' class='form_field'>Issue Id</td>")

        NewTextFile.WriteLine("<td width='58%' class='form_field'>Summary</td>")

        NewTextFile.WriteLine("<td width='8%' class='form_field'>Issue Type</td>")

        NewTextFile.WriteLine("<td width='10%' class='form_field'>Priority</td>")

        NewTextFile.WriteLine("<td width='8%' class='form_field'>Status</td>")

        NewTextFile.WriteLine("<td width='8%' class='form_field'>Resolution</td>")

        NewTextFile.WriteLine("</tr>")

        ' Table Body

        For Each key In issueInfo

            Set el = issueInfo.item(key)

            NewTextFile.WriteLine("<tr>")

            NewTextFile.WriteLine("<td nowrap class='form_item'>"&key&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&NewLine_To_BR ( To_HTML ( el.item("summary") ) )&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&el.item("issuetype")&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&el.item("priority")&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&el.item("status")&"</td>")

            NewTextFile.WriteLine("<td class='form_item'>"&el.item("resolution")&"</td>")

            NewTextFile.WriteLine("</tr>")

        Next

        NewTextFile.WriteLine( "                        </table></blockquote></blockquote></blockquote>")

    Set issueInfo = nothing

    End If

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub LastPvIdA(a)

    Dim qryA

    Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))

    'If a <> qryA("last_pv_id") Then

        a = qryA("last_pv_id")

    'Else

    '    errormsg = true

    'End If

    If pvCollectionA.Exists(CStr(a)) Then

        errormsg = true

        Exit Sub

    End If

    qryA.Close()

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub LastPvIdB(b)

    Dim qryB

    Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))

    'If b <> qryB("last_pv_id") Then

        b = qryB("last_pv_id")

    'Else

    '    errormsg = true

    'End If

    If pvCollectionB.Exists(CStr(b)) Then

        errormsg = true

        Exit Sub

    End If

    qryB.Close()

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub pkg_Version(pv)

    Dim qry

    Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv, cint(0))

    pkgversion = qry("pkg_version")

    qry.Close()

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub LastPvIdAa(a)

    Dim qryA

    Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a, cint(0))

    c = qryA("last_pv_id")

    qryA.Close()

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub LastPvIdBb(b)

    Dim qryB

    Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b, cint(0))

    d = qryB("last_pv_id")

    qryB.Close()

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub Comments(Pv_Id)

    Dim comments

    Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id, cint(0))

    scFlag = false

    If comments("comments") <> "Rippled Build." Then

        NewTextFile.WriteLine("<blockquote><blockquote><font color="&chr(34)&"blue"&chr(34)&">Version: "& comments("pkg_version")&"</font></blockquote></blockquote>")

        If comments("comments") <> "" Then

            NewTextFile.WriteLine("<blockquote><blockquote>Comments: </blockquote></blockquote>")

            NewTextFile.WriteLine("<blockquote><blockquote><blockquote>"& TextToHTML(comments("comments")) &"</blockquote></blockquote></blockquote>")

            source_change = true

            scFlag = true

        End If

    End If

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub Release(pvId)

    Dim release

    Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId, cint(0))

    If release("insert_stamp") <> "" Then

        NewTextFile.Write(release("insert_stamp"))

    Else

        NewTextFile.Write("Version Not Used.")

    End If

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub Header()

    NewTextFile.WriteLine("<html>")

    NewTextFile.WriteLine("<head>")

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub Footer()

    NewTextFile.WriteLine("</body>")

    NewTextFile.WriteLine("</html>")

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub Styles()

  NewTextFile.WriteLine("<style type="&chr(34)&"text/css"&chr(34)&">")

  NewTextFile.WriteLine("body { font-family:Verdana,Arial,Helvetica,sans-serif; }")

  NewTextFile.WriteLine("table { border-collapse:collapse; }")

  NewTextFile.WriteLine("table.fixed_issues td { border-width:1; border-style:solid; border-color:black; padding:3 5 3 5; }")

  NewTextFile.WriteLine(".fixed_issues { border-width:1; border-style:solid; border-color:black; }")

  NewTextFile.WriteLine(".page_title { color:red; font-size:110%; text-align:center; }")

  NewTextFile.WriteLine(".highlight_text { color:blue; }")

  NewTextFile.WriteLine(".form_field { background-color:#EAE5D7; font:bold 70% Tahoma,sans-serif; }")

  NewTextFile.WriteLine(".form_item { background-color:#EAE5D7; color:red; font:bold 70% Tahoma,sans-serif; vertical-align:top; }")

  NewTextFile.WriteLine(".changesa { background-color:red; }")

  NewTextFile.WriteLine(".changesb { background-color:#FF9933; }")

  NewTextFile.WriteLine(".changesnone { color:#999999; }")

  NewTextFile.WriteLine(".texta { color:red; }")

  NewTextFile.WriteLine(".textb { color:#FF9933; }")

  NewTextFile.WriteLine(".textnone { color:#999999; }")

  NewTextFile.WriteLine("</style>")

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Function GetIsDiffFilterInUseIcon()

    GetIsDiffFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW

    If dDiffFilter.Count > 0 Then

        GetIsDiffFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW

    End If

End Function

'--------------------------------------------------------------------------------------------------------------------------

Function GetIsDiffFilterChecked( nFilterId )

    If dDiffFilter.Exists ( CStr(nFilterId)  ) Then

        GetIsDiffFilterChecked = "checked"

    End If

End Function

'---------------------------------------------------------------------------------------------------------------------------

Function  Get_CQ_Issues ( SSsql, OOrsCQ )

    On Error Resume Next

    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))

    Get_CQ_Issues = Err.Number

End Function

'--------------------------------------------------------------------------------------------------------------------------

Public Function TextToHTML ( sString )

    Dim mString

    If (sString = "") OR IsNull(sString) Then Exit Function

    mString = Server.HTMLEncode( sString )

    mString = Replace(mString, VBNewLine, "<br>")

    TextToHTML = mString

End Function

'--------------------------------------------------------------------------------------------------------------------------

Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )

    Dim rsQry, query

    ' Exit if nSourceRtagId is empty

    If nSourceRtagId = "" Then Exit Sub

    OraDatabase.Parameters.Add "SOURCE_RTAG_ID",     nSourceRtagId,        ORAPARM_INPUT, ORATYPE_NUMBER

    query = _

    " SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME    AS LOCATION, "&_

    "          rt.OFFICIAL, pr.PROJ_ID, rt.RTAG_ID"&_

    "  FROM RELEASE_TAGS rt,"&_

    "            PROJECTS pr"&_

    " WHERE rt.PROJ_ID = pr.PROJ_ID"&_

    "    AND rt.RTAG_ID = :SOURCE_RTAG_ID"

    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )

    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"

    If rsQry.RecordCount > 0 Then

        outobjDetails.Item ("location") = rsQry("location")

        outobjDetails.Item ("official") = rsQry("official")

        outobjDetails.Item ("proj_id") = rsQry("proj_id")

        outobjDetails.Item ("rtag_id") = rsQry("rtag_id")

    Else

        Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId

    End If

    rsQry.Close

    Set rsQry = Nothing

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Sub GetDiffStateIcon( nDiffState, outIcon )

    Select Case nDiffState

        Case "U"

            outIcon  = LIMG_UPDATED

        Case "UW"

            outIcon  = LIMG_OUTDATED

        Case "A"

            outIcon = LIMG_ADDED

        Case "R"

            outIcon = LIMG_REMOVED

        Case "UR"

            outIcon = LIMG_RIPPLED

        Case "B"

            outIcon = LIMG_UNCHANGED

        Case Else

            outIcon = ""

    End Select

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Function Get_Record_Count ( SSsql )

    Dim rsTemp

    Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM "& SSsql , cint(0))

    If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then

        Get_Record_Count = rsTemp("record_count")

    Else

        Get_Record_Count = 0

    End If

    rsTemp.Close

    Set rsTemp = nothing

End Function

'--------------------------------------------------------------------------------------------------------------------------

Sub MergePackages ()

    Dim aFullList, aAddPkgList, aRemovePkgList, dAddPkgList, dRemovePkgList, PvId

    Dim OraParameter

    Dim rc

    Set dAddPkgList = CreateObject("Scripting.Dictionary")

    Set dRemovePkgList = CreateObject("Scripting.Dictionary")

    '--- Get Add Packages ---

    ' Get full list of "addpkg" parameter

    aFullList = Split ( Replace( Request("addpkg"), " ", "" ), "," )

    ' Clean empty parameters

    For Each PvId In aFullList

        If PvId <> "" Then

            dAddPkgList.Add CStr( PvId ), Empty

        End If

    Next

    aFullList = NULL

    aAddPkgList = dAddPkgList.Keys

    '--- Get Remove Packages ---

    ' Get full list of "removepkg" parameter

    aFullList = Split ( Replace( Request("removepkg"), " ", "" ), "," )

    ' Clean empty parameters

    For Each PvId In aFullList

        If PvId <> "" Then

            dRemovePkgList.Add CStr( PvId ), Empty

        End If

    Next

    aFullList = NULL

    aRemovePkgList = dRemovePkgList.Keys

    '-- Add package List to release --

    OraDatabase.Parameters.Add "PV_ID",     NULL, ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "VIEW_ID",  NULL, ORAPARM_BOTH, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "RTAG_A",    Request("rtagA"), ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "RTAG_B",    Request("rtagB"), ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "PROJB",     objRelCollectorB.Item("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "COMMENTS", "Merging from "& objRelCollectorA.Item("location") &" to "& objRelCollectorB.Item("location"), ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER

    OraDatabase.Parameters.Add "OPERATION",NULL, ORAPARM_INPUT, ORATYPE_CHAR

    Set OraParameter = OraDatabase.Parameters

    On Error Resume Next

    ' Begin Database entry

    objEH.TryORA ( OraSession )

    '-- Add Packages --

    OraParameter("OPERATION").Value = "A"

    For Each PvId In aAddPkgList

        OraParameter("PV_ID").Value = PvId

        ' DEVI-45275, Merge into Planned (pending) table instead of release_content table.

        If Err.Number = 0 Then

            OraDatabase.ExecuteSQL _

            "BEGIN  "&_

            "  :VIEW_ID := PK_RELEASE.GET_PACKAGE_VIEW ( :PV_ID, :RTAG_A ); "&_

            "  PK_PLANNED.MERGE_PACKAGE ( :PV_ID, :VIEW_ID, :RTAG_B, :USER_ID, :OPERATION );  "&_

            "END;"

        End If

    Next

    '-- Remove Packages --

    If Err.Number = 0 Then

        OraParameter("OPERATION").Value = "S"

        For Each PvId In aRemovePkgList

            OraParameter("PV_ID").Value = PvId

            If Err.Number = 0 Then

                ' Does this PV_ID exist in the destination release's planned table?

                rc = Get_Record_Count ("PLANNED pl WHERE pl.pv_id = " & PvId & " AND pl.rtag_id = " & Request("rtagB") )

                If  rc > 0 Then

                    ' Given that merging now merges into pending, the merge page may be used to remove items that have

                    ' previously been merged but have not yet been committed to the destination release.

                    OraDatabase.ExecuteSQL _

                   "BEGIN "&_

                   " PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_B, :USER_ID ); "&_

                   "END; "

                Else

                    ' DEVI-45275, Merge into Planned (pending) table instead of release_content table.

                    OraDatabase.ExecuteSQL _

                    "BEGIN  "&_

                    "  :VIEW_ID := PK_RELEASE.GET_PACKAGE_VIEW ( :PV_ID, :RTAG_B ); "&_

                    "  PK_PLANNED.MERGE_PACKAGE ( :PV_ID, :VIEW_ID, :RTAG_B, :USER_ID, :OPERATION );  "&_

                    "END;"

                End If

            End If

        Next

        '-- Log Project Merge Action

        If Err.Number = 0 Then

            OraDatabase.ExecuteSQL _

            "BEGIN  LOG_PROJECT_ACTION ( :PROJB, 'merge_release', :USER_ID, :COMMENTS, :RTAG_B );  END;"

        End If

    End If

    objEH.CatchORA ( OraSession )     ' sets up LastOraFailed as appropriate

    ' NOTE, The Touch_Release stored procedure does a commit itself, so we should not do it unless all the ExecuteSQL's we

    ' have just performed, were successful

    If objEH.LastOraFailed = FALSE Then

        '-- Force package state recalculate

        objEH.TryORA ( OraSession )

        OraDatabase.ExecuteSQL _

            "BEGIN  "&_

            "  TOUCH_RELEASE ( :RTAG_B );  "&_

            "END;"

        objEH.CatchORA ( OraSession )

    End If

    Set OraParameter = Nothing

    OraDatabase.Parameters.Remove "PV_ID"

    OraDatabase.Parameters.Remove "VIEW_ID"

    OraDatabase.Parameters.Remove "RTAG_A"

    OraDatabase.Parameters.Remove "RTAG_B"

    OraDatabase.Parameters.Remove "USER_ID"

    OraDatabase.Parameters.Remove "PROJB"

    OraDatabase.Parameters.Remove "COMMENTS"

    OraDatabase.Parameters.Remove "OPERATION"

    'Response.write "<br>"& sAddPkgList &"-"& dAddPkgList.Count &"-"& UBound( aFullList )

End Sub

'--------------------------------------------------------------------------------------------------------------------------

Function AddTrailingZeros(byval n, byval count)

    if len(n) >= count then

        AddTrailingZeros = n

        exit function

    end if

    dim c, s, i

    c = count - len(n)

    for i = 1 to c

        s = s & "0"

    next

    s = cstr(n) & s

    AddTrailingZeros = s

End function

'--------------------------------------------------------------------------------------------------------------------------

'------------ RUN BEFORE PAGE RENDER ----------

If Request("btn") = "Exit" Then

    Call OpenInWindow ( "index.asp" )

End If

' Get release details

Call GetFormDetails ( parRtagA, objRelCollectorA )

Call GetFormDetails ( parRtagB, objRelCollectorB )

setActiveProject (objRelCollectorB.Item("proj_id"))

isMergable = releaseIsMergable(objRelCollectorB.Item("official"))

If (Request("btn") = "Merge") AND isMergable Then

    Call MergePackages ()

End If

If Request("btn") = "Swap Compare" Then

    Call OpenInWindow ( ScriptName &"?rtagA="& parRtagB &"&rtagB="& parRtagA )

End If

If Request("btn") = "Refresh" Then

    ' Store filter in cookie

    Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) = Request("difilter")

End If

Call GetDiffFilterValues ( dDiffFilter )

'----------------------------------------------

%>

<html>

<head>

<title>Release Manager</title>

<link rel="shortcut icon" href="<%=FavIcon%>"/>

<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">

<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">

<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>

<script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>

<!--#include file="_menu_def.asp"-->

<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>

<!-- TIPS -->

<script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>

<script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>

<script language="JavaScript" type="text/javascript">

<!--

function RequestReleaseCombo( paramString, rowId )

{

    var requestURL = 'RequestReleaseCombo.asp';

    // Set ajax divname

    ajaxdivname = rowId;

    //Append the name to search for to the requestURL

    var url = requestURL + paramString;

    //Progress

    //alert(MM_findObj( rowId ));

    //MM_findObj( rowId ).options[0] = new Option('Loading...','');

    //MM_findObj( rowId ).selectedIndex = 0;

    rowId.options[0] = new Option('Loading...','');

    rowId.selectedIndex = 0;

    //Create the xmlHttp object to use in the request

    //stateChangeHandler will fire when the state has changed, i.e. data is received back

    // This is non-blocking (asynchronous)

    xmlHttp = GetXmlHttpObject(stateComboChangeHandler);

    //Send the xmlHttp get to the specified url

    xmlHttp_Get(xmlHttp, url);

}

function SetDisplay(name, mode)

{

    var o;

    if (o = MM_findObj(name))

    {

        o.style.display = mode;

    }

}

function MergePackage ( pkga, pkgb, rowId )

{

    // Set merge hidden field with new value

    MM_findObj( 'ADDPKG_' + rowId ).value = pkga;

    MM_findObj( 'ADDPKG_' + rowId ).removeAttribute("disabled");

    var divA = MM_findObj( 'PVA' + rowId );

    var divB = MM_findObj( 'PVB' + rowId );

    // Set text equal

    divB.innerHTML = divA.innerHTML;

    // Set highlight to blank

    divA.style.backgroundColor = '<%=LCOLOR_NOT_CHANGED%>';

    divB.style.backgroundColor = '<%=LCOLOR_NOT_CHANGED%>';

     // Set Change state icon to blank

    SetDisplay( 'IMGSTATE' + rowId, 'none');

    // Remove Merge Button

    SetDisplay( 'IMGMERGE' + rowId, 'none');

    SetDisplay( 'IMGREMOVE' + rowId, 'none');

    // Show undo button

    SetDisplay( 'IMGUNDO' + rowId, 'block');

}

function RemovePackage ( pkga, pkgb, rowId )

{

    // Set remove hidden field with new value

    MM_findObj( 'REMOVEPKG_' + rowId ).value = pkgb;

    MM_findObj( 'REMOVEPKG_' + rowId ).removeAttribute("disabled");

    var divA = MM_findObj( 'PVA' + rowId );

    var divB = MM_findObj( 'PVB' + rowId );

    // Set text equal

    divB.style.textDecoration = 'line-through';

    // Set highlight to blank

    if (GetChangeType(rowId) != "A")

    {

        divA.style.backgroundColor = '<%=LCOLOR_NOT_CHANGED%>';

    }

    divB.style.backgroundColor = '<%=LCOLOR_NOT_CHANGED%>';

     // Set Change state icon to blank

    SetDisplay( 'IMGSTATE' + rowId , 'none');

    // Remove Merge Button

    SetDisplay( 'IMGMERGE' + rowId , 'none');

    SetDisplay( 'IMGREMOVE' + rowId , 'none');

    // Show undo button

    SetDisplay( 'IMGUNDO' + rowId ,'block');

}

function GetChangeType(rowId)

{

    var cht = MM_findObj( 'IMGSTATE' + rowId );

    var chd = '?';

    if (cht) {

       chd = cht.getAttribute('data_ct');

    }

    return chd;

}

function UndoPackage ( rowId )

{

    // Set merge/remove hidden field with new value

    MM_findObj( 'ADDPKG_' + rowId ).value = '';

    MM_findObj( 'ADDPKG_' + rowId ).setAttribute("disabled", "disabled" );

    MM_findObj( 'REMOVEPKG_' + rowId ).value = '';

    MM_findObj( 'REMOVEPKG_' + rowId ).setAttribute("disabled", "disabled" );

    var divA = MM_findObj( 'PVA' + rowId );

    var divB = MM_findObj( 'PVB' + rowId );

    // Set text equal

    //divB.innerHTML = divB.getAttribute('data_pkg');

    divB.style.textDecoration = 'none';

    // Set highlight to blank

    divA.style.backgroundColor = divA.getAttribute('data_color');

    divB.style.backgroundColor = divB.getAttribute('data_color');

     // Set Change state icon to blank

    SetDisplay( 'IMGSTATE' + rowId, 'block');

    // Remove Merge Button

    var chd = GetChangeType(rowId);

    if (chd == "R")

    {

        SetDisplay( 'IMGMERGE' + rowId, 'block');

    }

    else if ( (chd == "A") || (chd == "") )

    {

        SetDisplay( 'IMGREMOVE' + rowId, 'block');

    }

    else

    {

        SetDisplay( 'IMGMERGE' + rowId, 'block');

        SetDisplay( 'IMGREMOVE' + rowId,'block');

    }

    // Show undo button

    SetDisplay( 'IMGUNDO' + rowId, 'none');

}

function MergeAll()

{

    var elem

    if (document.all)

    {

        // Run this for IE

        elem = document.all;

    } else {

        // Run this for other browsers

        elem = document.getElementsByTagName('div');

    }

    for (i in elem)

    {

        if (elem[i].id)

        {

            if (elem[i].id.indexOf('SHORT_') == 0) elem[i].style.display = 'none';

            if (elem[i].id.indexOf('LONG_') == 0) elem[i].style.display = 'block';

        }

    }

}

//  An object to contain the filter data

var filter;

// Flip the current state of each Filter check boxes

function initFilter() {

    filter = new Object();

    filter.btn = document.getElementById("difilterBtn");

    filter.x = document.getElementsByName("difilter");

    filter.len = filter.x.length;

    saveFilterState();

    filter.oValues = filter.Values.slice(0);

    setFilterTitle();

}

function toggleFilters()

{

    switch ( filter.State )

    {

    case 'Flip':

        for (var i = 0; i < filter.len; i++) {

            filter.x[i].checked = !filter.x[i].checked;

        }

        filter.State = 'On';

        break;

    case 'On':

        for (var i = 0; i < filter.len; i++) {

            filter.x[i].checked = true;

        }

        filter.State = 'Off';

        break;

    case 'Off':

        for (var i = 0; i < filter.len; i++) {

            filter.x[i].checked = false;

        }

        filter.State = 'Restore';

        break;

    case 'Restore':

        for (var i = 0; i < filter.len; i++) {

            filter.x[i].checked = filter.Values[i];

        }

        filter.State = 'Reset';

        break;

    default:

        for (var i = 0; i < filter.len; i++) {

            filter.x[i].checked = filter.oValues[i];

        }

        filter.State = 'Flip';

        break;

    }

    setFilterTitle();

    EnableRefresh();

}

// Enable the "Refresh" button - when filter is changed

function EnableRefresh(state)

{

    if ( filter.btn ) {

        // Check if shown values match the initial values

        var btnState = true;

        for (var i = 1; i < filter.len; i++) {

            console.log ( filter.x[i].checked,filter.oValues[i],  filter.x[i].checked != filter.oValues[i] )

            if ( filter.x[i].checked != filter.oValues[i] ) {

                btnState = false;

                break;

            }

        }

        filter.btn.disabled = btnState; 

    }

}

// One of the filter buttons has been clicked

//  First one is special (and we don't want to know about its click)

function filterClicked(e)

{

    if ( ! e.target.id ) {

        saveFilterState();

        setFilterTitle();

        EnableRefresh();

    }

}

function saveFilterState()

{

    filter.State = 'Flip';

    filter.Title = filter.x[0];

    filter.Values = new Array(filter.len);

    for (var i = 0; i < filter.len; i++) {

        filter.Values[i] = filter.x[i].checked;

    }

}

function setFilterTitle()

{

    filter.Title.checked = false;

    filter.Title.title = "Toggle filters: Flip, On, Off, Restore, Reset - " + filter.State;

}

//-->

</script>

<style>

#filterTable td { background-color:#E4E9EC }

}

</style>

</head>

<!-- HEADER -->

<!--#include file="_header.asp"-->

<form name="FormName" method="post" action="<%=ScriptName%>">

    <!-- BODY ---->

    <table width="100%" border="0" cellspacing="0" cellpadding="0">

        <tr>

            <td width="20%">

            <td width="60%">

            <td width="20%">

        </tr>

        <tr>

            <td background="images/bg_home_orange.gif" valign="top">

                <!-- SELECT RELEASE A ---------------------------------------------->

                <br>

                <table width="100%"  border="0" cellspacing="10" cellpadding="0">

                    <tr>

                        <td align="left" class="body_col"><img src="images/i_rtag_open_mode.gif" border="0" align="absmiddle" width="15" height="13">&nbsp;Select Release A<hr size="1px" color="Olive" noshade></td>

                    </tr>

                    <tr>

                        <td align="left">

                            <select name="projA" class="form_item" onChange="RequestReleaseCombo( '?proj_id='+ this.value, FormName.rtagA );">

                                <option value="">-- Select Project --</option>

                                <%

                                OraDatabase.Parameters.Add "PROJ_ID",     objRelCollectorA.Item("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER

                                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), cint(0))

                                OraDatabase.Parameters.Remove "PROJ_ID"

                                While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>

                                    <option value="<%=rsQry("proj_id")%>" <%=rsQry("selected")%>><%=rsQry("proj_name")%></option>

                                    <%rsQry.MoveNext

                                WEnd

                                rsQry.Close

                                Set rsQry = Nothing

                                %>

                            </select>

                        </td>

                    </tr>

                    <tr>

                        <td align="left">

                            <select name="rtagA" id="rtagA" class="form_item">

                                <%

                                OraDatabase.Parameters.Add "PROJ_ID",     objRelCollectorA.Item("proj_id"),    ORAPARM_INPUT,  ORATYPE_NUMBER

                                OraDatabase.Parameters.Add "RTAG_ID",     objRelCollectorA.Item("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER

                                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), cint(0))

                                OraDatabase.Parameters.Remove "PROJ_ID"

                                OraDatabase.Parameters.Remove "RTAG_ID"

                                While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>

                                        <option value="<%=rsQry("rtag_id")%>" <%=rsQry("selected")%>><%=rsQry("rtag_name")%></option>

                                    <%rsQry.MoveNext

                                WEnd