|
|
 |
|
<%Call RenderTitle( objProdCollector )%> |
|
|
<%
Set objTabControl = New TabControl
objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
objTabControl.TabStyle = "StyleWinXP"
objTabControl.AddTabDefnition ( arrProdTabDef )
objTabControl.SelectByName ("Issues")
objTabControl.Render ()
%>
|
|
|
<%
'-- Define Action buttons on this tab
'aTabBtnsDef = Array("btnAddOs", "width=10", "btnCopyOs", "btnPasteOs")
'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
'objBtnControl.Render( aTabBtnsDef )
%>
|
 |
| |
|
<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%> <%End If%> |
<%
OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER
%>
|
|
|
|
|
|
<%
OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "OLD_PROD_ID", objProdCollector.Item("last_pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "OTHER_PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("IssuesList.sql") & outORDER_BY, ORADYN_DEFAULT )
altRowColor = "bgcolor='#F7F7F8'"
currRowColor = ""
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
currRowColor = SetRowColor( currRowColor )
If errNumber <> 0 Then Exit Do
%>
| nowrap valign="top" align="center"><%=Eval(rsQry("icon_fixed"))%> |
nowrap valign="top">&iss_id=<%=rsQry("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="body_link"><%=objIssueCollector.Item ("iss_num")%> |
valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%> |
nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%> |
nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%> |
nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%> |
<%rsQry.MoveNext%>
<%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
|
<%End If%>
<%
Loop
OraDatabase.Parameters.Remove "PROD_ID"
OraDatabase.Parameters.Remove "OLD_PROD_ID"
OraDatabase.Parameters.Remove "OTHER_PROD_ID"
VersionList = "0"
On Error Resume Next
Dim rsQryLast
Set rsQryLast = OraDatabase.DbCreateDynaset( "SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="& Request("prod_id"), cint(0))
If rsQryLast("last_pv_id") <> Request("old_prod_id") Then
Call PreviousVersions( Request("prod_id"), Request("old_prod_id") )
End If
Call GetDependencies(Request("prod_id"), VersionList + ","+ Request("old_prod_id"))
Set rsQry = OraDatabase.DbCreateDynaset( "select * from cq_issues cq, packages pkg, package_versions pv "&_
" where pv.pv_id IN ("&VersionList&") and pv.pkg_id = pkg.pkg_id and cq.pv_id = pv.pv_id order by pv.pv_id desc", ORADYN_DEFAULT )
'Response.Write VersionList
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
Call GetIssueDetails ( rsQry("iss_id"), rsQry("iss_db"), objIssueCollector, errNumber )
currRowColor = SetRowColor( currRowColor )
If errNumber <> 0 Then Exit Do
%>
| nowrap valign="top" align="center"><%=Eval("LIMG_OLD_FIXED")%> |
nowrap valign="top" class="body_link"><%=objIssueCollector.Item ("iss_num")%> |
valign="top" class="body_rowlite"><%=objIssueCollector.Item ("summary")%> |
nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("issue_type")%> |
nowrap valign="top" class="body_rowlite"><%=objIssueCollector.Item ("priority")%> |
<%If IsEmpty(objIssueCollector.Item ("summary")) Then%>
nowrap valign="top" class="body_rowlite"> |
<%Else%>
nowrap valign="top" class="body_rowlite"><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%> |
<%End If%>
<%rsQry.MoveNext%>
<%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
|
<%End If%>
<%
Loop
rsQry.Close()
Set rsQry = Nothing
rsQryLast.Close()
Set rsQryLast = Nothing
%>
<%If errNumber <> 0 Then '--- Handle any errors during data retrieve from MS SQL database (i.e. Cannot connect to DB.)%>
|
<%Response.write enumMSSQL_ERROR%>
|
<%End If%>
|
|
|
|
|
"
Const LIMG_OLD_FIXED = "
"
'------------ VARIABLE INIT -------------------
errNumber = 0
Set objIssueCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'----------------------------------------------------------------------------------------------------------------------------------------
Sub GetIssueDetails ( nIssID, nIssDB, oIssueCollector, nErrNumber )
Dim query, rsCQ
query = GetQuery ("IssuesList_cqDEVI.sql")
query = Replace( query, "/*DEVIiss*/", nIssID )
Set rsCQ = Nothing
nErrNumber = GetCQIssue ( query, rsCQ )
If nErrNumber = 0 Then
If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
oIssueCollector.Item ("iss_id") = CStr( rsCQ("iss_id") )
oIssueCollector.Item ("iss_num") = CStr( rsCQ("iss_num") )
oIssueCollector.Item ("summary") = CStr( rsCQ("summary") )
oIssueCollector.Item ("status") = CStr( rsCQ("status") )
oIssueCollector.Item ("priority") = CStr( rsCQ("priority") )
oIssueCollector.Item ("issue_type") = CStr( rsCQ("issue_type") )
End If
End If
Set rsCQ = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------
Function GetCQIssue ( sSQL, oRsCQ )
On Error Resume Next
Set oRsCQ = OraDatabase.DbCreateDynaset( sSQL, cint(0))
GetCQIssue = Err.Number
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function SetRowColor( cRowColor )
If cRowColor = "" Then
SetRowColor = altRowColor
Else
SetRowColor = ""
End If
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------------------------------------------------------
Sub PreviousVersions(a, b)
If CLng(a) < CLng(b) Then
While CLng(a) < CLng(b)
b = LastPvId(b)
If CLng(a) < CLng(b) Then
VersionList = VersionList + ","& b
End If
Wend
End If
If CLng(b) < CLng(a) Then
While CLng(b) < CLng(a)
a = LastPvId(a)
If CLng(b) < CLng(a) Then
VersionList = VersionList + ","& a
End If
Wend
End If
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------
Sub GetDependencies(pv_id_a, pv_id_b)
VersionList = "0"
Set sqlstrA = OraDatabase.DbCreateDynaset("select distinct dpv_id from package_dependencies where pv_id IN ("& pv_id_b &") and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" ) order by dpv_id desc", cint(0))
If sqlstrA.RecordCount <> 0 Then
While ((NOT sqlstrA.BOF) AND (NOT sqlstrA.EOF))
VersionList = VersionList + ","& sqlstrA("dpv_id")
sqlstrA.MoveNext
Wend
End If
sqlstrA.Close()
Set sqlstrA = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------
Function LastPvId(pvId)
Dim qryA
Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&pvId , cint(0))
LastPvId = pvId
If pvId <> qryA("last_pv_id") Then
LastPvId = qryA("last_pv_id")
Else
errormsg = true
End If
qryA.Close()
Set qryA = Nothing
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
%>