<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| DIFF |
'| |
'=====================================================
%>
<%
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
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ 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 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 pendingAdditions
'------------ Constants Declaration -----------
Const LIMG_UPDATED = ""
Const LIMG_RIPPLED = ""
Const LIMG_ADDED = ""
Const LIMG_REMOVED = ""
Const LIMG_FILTER_ON = ""
Const LIMG_FILTER_OFF = ""
Const LIMG_DROP_DOWN_ARROW = ""
Const LCOLOR_NOT_CHANGED = "#F5F5F5"
Const LCOLOR_CHANGED = "#d2f7c9"
Const LCOLOR_RIPPLED = "#D8F8F8"
Const LCOLOR_BLANK = "#FFFFFF"
Const LIMG_MERGE = ""
Const LIMG_MERGE_WARN = ""
Const LIMG_REMOVE = ""
Const LIMG_UNDO = ""
'------------ Variable Init -------------------
Set rsCQ = Server.CreateObject("ADODB.Recordset")
parRtagA = Request("rtagA")
parRtagB = Request("rtagB")
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
Set dDiffFilter = CreateObject("Scripting.Dictionary")
Set pendingAdditions = 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
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
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("")
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("
Fixed ClearQuest Issues:
")
NewTextFile.WriteLine("
")
NewTextFile.WriteLine("
")
NewTextFile.WriteLine("
Issue Id
")
NewTextFile.WriteLine("
Summary
")
NewTextFile.WriteLine("
Issue Type
")
NewTextFile.WriteLine("
Priority
")
NewTextFile.WriteLine("
Status
")
NewTextFile.WriteLine("
")
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("
")
NewTextFile.WriteLine("
"&rsCQ("iss_num")&"
")
NewTextFile.WriteLine("
"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"
")
NewTextFile.WriteLine("
"&rsCQ("issue_type")&"
")
NewTextFile.WriteLine("
"&rsCQ("priority")&"
")
NewTextFile.WriteLine("
"&rsCQ("Status")&"
")
NewTextFile.WriteLine("
")
sqlstrA.MoveNext
Next
sqlstrA.Close()
NewTextFile.WriteLine( "
")
End If
'
' Must also handle Jira Issues
'
Dim SQLstr
retVal = Get_JIRA_Package_Issues ( pv_id, SQLstr )
' Debug ... NewTextFile.WriteLine("
Jira Issues:"&retVal&":"&pv_id&"
")
If retVal > 0 Then
retVal = Get_JIRA_Issues ( SQLstr, rsCQ )
If (retVal = 0 AND rsCQ.RecordCount > 0) Then
NewTextFile.WriteLine()
NewTextFile.WriteLine("
Jira Issues:
")
NewTextFile.WriteLine("
")
NewTextFile.WriteLine("
")
NewTextFile.WriteLine("
Issue Id
")
NewTextFile.WriteLine("
Summary
")
NewTextFile.WriteLine("
Issue Type
")
NewTextFile.WriteLine("
Priority
")
NewTextFile.WriteLine("
Status
")
NewTextFile.WriteLine("
Resolution
")
NewTextFile.WriteLine("
")
While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))
NewTextFile.WriteLine("
")
NewTextFile.WriteLine("
"&rsCQ("iss_num")&"
")
NewTextFile.WriteLine("
"&NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )&"
")
NewTextFile.WriteLine("
"&rsCQ("issue_type")&"
")
NewTextFile.WriteLine("
"&rsCQ("priority")&"
")
NewTextFile.WriteLine("
"&rsCQ("Status")&"
")
NewTextFile.WriteLine("
"&rsCQ("RESOLUTION")&"
")
NewTextFile.WriteLine("
")
rsCQ.MoveNext
Wend
NewTextFile.WriteLine( "
")
End If
rsCQ.Close()
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("
Version: "& comments("pkg_version")&"
")
If comments("comments") <> "" Then
NewTextFile.WriteLine("
Comments:
")
NewTextFile.WriteLine("
"& TextToHTML(comments("comments")) &"
")
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("")
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Footer()
NewTextFile.WriteLine("")
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Styles()
NewTextFile.WriteLine("")
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 )
If OOrsCQ.State = 1 Then
OOrsCQ.Close
End If
On Error Resume Next
OOrsCQ.ActiveConnection = CQ_conn
OOrsCQ.Source = SSsql
OOrsCQ.CursorType = 0
OOrsCQ.CursorLocation = 2
OOrsCQ.LockType = 3
OOrsCQ.Open()
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, " ")
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_UPDATED
Case "A"
outIcon = LIMG_ADDED
Case "R"
outIcon = LIMG_REMOVED
Case "UR"
outIcon = LIMG_RIPPLED
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
'--------------------------------------------------------------------------------------------------------------------------
' We need a way of discriminating between versions in the destination release that are pending, and those that are officially
' in the release. This function allows us to do that on the fly within the VBSCRIPT HTML generating code, indicating specifically
' if the given PV_ID reflects a pending additive merge.
Function Is_Pending_Add(NNrtag_id, NNpv_id)
If IsNull(NNrtag_id) OR IsNull(NNpv_id) Then
Is_Pending_Add = 0
Else
Is_Pending_Add = Get_Record_Count( "PLANNED pl WHERE pl.rtag_id = " & NNrtag_id & " AND pl.pv_id = " & NNpv_id & " AND pl.operation = 'A'" )
End If
End Function
'--------------------------------------------------------------------------------------------------------------------------
' We need a way of discriminating between versions in the destination release that are pending, and those that are officially
' in the release. This function allows us to do that on the fly within the VBSCRIPT HTML generating code, indicating specifically
' if the given PV_ID reflects a pending subtractive merge.
Function Is_Pending_Sub(NNrtag_id, NNpv_id)
If IsNull(NNrtag_id) OR IsNull(NNpv_id) Then
Is_Pending_Sub = 0
Else
Is_Pending_Sub = Get_Record_Count( "PLANNED pl WHERE pl.rtag_id = " & NNrtag_id & " AND pl.pv_id = " & NNpv_id & " AND pl.operation = 'S'" )
End If
End Function
'--------------------------------------------------------------------------------------------------------------------------
Sub MergePackages (releaseMode)
Dim aFullList, aAddPkgList, aRemovePkgList, dAddPkgList, dRemovePkgList, PvId
Dim OraParameter
Dim rc
' Business Rules restricting the use of the merge feature...
' Bypass merge if the destination release is in closed or archive mode, or if user does not have
' merge permissions
If releaseMode <> enumDB_RELEASE_IN_CLOSED_MODE AND releaseMode <> enumDB_RELEASE_IN_ARCHIVE_MODE _
AND (objAccessControl.IsActive("MergeRelease")) THEN
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. For these,
' we cannot call PK_RELEASE.GET_PACKAGE_VIEW(). We have to call PK_PLANNED.GET_PACKAGE_VIEW() instead.
OraDatabase.ExecuteSQL _
"BEGIN "&_
" :VIEW_ID := PK_PLANNED.GET_PACKAGE_VIEW ( :PV_ID, :RTAG_B ); "&_
" PK_PLANNED.MERGE_PACKAGE ( :PV_ID, :VIEW_ID, :RTAG_B, :USER_ID, :OPERATION ); "&_
"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 " "& sAddPkgList &"-"& dAddPkgList.Count &"-"& UBound( aFullList )
End If
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
'----------------------------------------------------------------------------------------------------------------------------------------
' Function returns the number of imported jira issues
' and builds a string suitable for querying the jira issues database
Function Get_JIRA_Package_Issues ( NNpv_id, SSsql )
Dim rsTemp, sqlstr, JIRAIss, retVal
JIRAIss = "'-1'"
sqlstr = "SELECT iss_key FROM JIRA_ISSUES WHERE pv_id="& NNpv_id
Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
retVal = rsTemp.RecordCount
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
JIRAIss = JIRAIss &",'"& rsTemp("iss_key")&"'"
rsTemp.MoveNext
WEnd
SSsql = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS Status, IT.pname as issue_type, PR.pname as Priority, R.PNAME as RESOLUTION"&_
" FROM jiraissue I, issuestatus ISS, issuetype IT, resolution R, priority PR "&_
" WHERE I.pkey IN ("& JIRAIss &") "&_
" AND I.issuestatus = ISS.ID "&_
" AND I.RESOLUTION = R.ID "&_
" AND IT.ID = I.issuetype "&_
" AND PR.ID = I.PRIORITY "
rsTemp.Close()
Set rsTemp = nothing
Get_JIRA_Package_Issues = retVal
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function Get_JIRA_Issues ( SSsql, OOrsCQ )
If OOrsCQ.State = 1 Then
OOrsCQ.Close()
End If
On Error Resume Next
OOrsCQ.ActiveConnection = JIRA_conn
OOrsCQ.Source = SSsql
OOrsCQ.CursorType = 0
OOrsCQ.CursorLocation = 3
OOrsCQ.LockType = 3
OOrsCQ.Open()
Get_JIRA_Issues = Err.Number
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 )
If (Request("btn") = "Merge") Then
Call MergePackages ( objRelCollectorB.Item("official") )
End If
If Request("btn") = "Swap Compare" Then
Call OpenInWindow ( ScriptName &"?rtagA="& parRtagB &"&rtagB="& parRtagA )
End If
If Request("btn") = "Hide" Then
' Store filter in cookie
Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) = Request("difilter")
End If
Call GetDiffFilterValues ( dDiffFilter )
'----------------------------------------------
%>
Release Manager
<%
If email Then
Dim LocalPath
LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
Send_Email "Release Manager Notification",_
adminEmail, _
objAccessControl.UserEmail,_
"Release Comparisons from Release Manager", _
"Your requested report...",_
LocalPath
End If
%>
<%
Call Destroy_All_Objects
%>
"
Const LIMG_RIPPLED = "
"
Const LIMG_ADDED = "
"
Const LIMG_REMOVED = "
"
Const LIMG_FILTER_ON = "
"
Const LIMG_FILTER_OFF = "
"
Const LIMG_DROP_DOWN_ARROW = "
"
Const LCOLOR_NOT_CHANGED = "#F5F5F5"
Const LCOLOR_CHANGED = "#d2f7c9"
Const LCOLOR_RIPPLED = "#D8F8F8"
Const LCOLOR_BLANK = "#FFFFFF"
Const LIMG_MERGE = "
"
Const LIMG_MERGE_WARN = "
"
Const LIMG_REMOVE = "
"
Const LIMG_UNDO = "
"
'------------ Variable Init -------------------
Set rsCQ = Server.CreateObject("ADODB.Recordset")
parRtagA = Request("rtagA")
parRtagB = Request("rtagB")
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
Set dDiffFilter = CreateObject("Scripting.Dictionary")
Set pendingAdditions = 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
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
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("")
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("