Blame | Last modification | View Log | RSS feed
<%'====================================================='| |'| ARCHIVED RELEASE NOTES |'| |'=====================================================%><%'------------ Variable Definition -------------Dim rsCQDim rsDepIssDim SQLstrDim fixedIssDictDim notesIssDictDim issArr()Dim depIssDictDim sDocTitleDim rsQry, rsTempDim iss_db_id, G1_template, G1_style, currG1Dim retValDim tempProjId'------------ Constants Declaration -----------Const enumLoc_iss_db = 0Const enumLoc_iss_id = 1Const enumLoc_iss_num = 2Const enumLoc_summary = 3Const enumLoc_status = 4Const enumLoc_priority = 5Const enumLoc_issue_type = 6'Const enumLoc_Fixed_Issue = 1'Const enumLoc_NotFixed_Issue = 0'------------ Variable Init -------------------Set rsCQ = Server.CreateObject("ADODB.Recordset")Set fixedIssDict = CreateObject("Scripting.Dictionary")Set notesIssDict = CreateObject("Scripting.Dictionary")Set depIssDict = CreateObject("Scripting.Dictionary")'----------------------------------------------%><%'----------------------------------------------------------------------------------------------------------------------------------------Function asDepIss ( SSiss_db_id, SScolumn )If NOT depIssDict.Exists (SSiss_db_id) Then Exit FunctionasDepIss = issArr ( SScolumn, CInt( depIssDict.Item (SSiss_db_id) ) )End Function'----------------------------------------------------------------------------------------------------------------------------------------Function FixedIssues ( parPv_id )Dim sqlstr, rsTempsqlstr = "SELECT pv_id FROM archive_manager.cq_issues WHERE pv_id = "& parPv_id &" AND iss_state = "& enumISSUES_STATE_FIXEDSet rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) ThenFixedIssues = TRUEElseFixedIssues = FALSEEnd IfrsTemp.CloseSet rsTemp = nothingEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function SQL_Package_Information ( nPv_id )SQL_Package_Information = _" SELECT *"&_" FROM archive_manager.PACKAGE_VERSIONS pv"&_" WHERE pv.pv_id = "& nPv_idEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function SQL_Dependency_Issues ( NNpv_id )SQL_Dependency_Issues = _" SELECT pkg.pkg_name, pv.pkg_version, pv.pv_id, cqi.iss_db, cqi.iss_id, cqi.iss_state, pv.comments AS reasons"&_" FROM archive_manager.cq_issues cqi,"&_" archive_manager.package_dependencies dep,"&_" archive_manager.packages pkg,"&_" archive_manager.package_versions pv"&_" WHERE dep.pv_id = "& NNpv_id &_" AND dep.dpv_id = cqi.pv_id(+)"&_" AND dep.dpv_id = pv.pv_id(+)"&_" AND pv.pkg_id = pkg.pkg_id"&_" ORDER BY UPPER(pkg.pkg_name) ASC, cqi.iss_state DESC"End Function'----------------------------------------------------------------------------------------------------------------------------------------Function SQL_Additional_Notes ( nPv_id )SQL_Additional_Notes = ReadFile( rootPath & "queries\additional_notes.sql" )SQL_Additional_Notes = Replace( SQL_Additional_Notes, ":PV_ID", nPv_id )End Function'----------------------------------------------------------------------------------------------------------------------------------------Function SQL_Unit_Tests ( nPv_id )SQL_Unit_Tests = ReadFile( rootPath & "queries\unit_tests.sql" )SQL_Unit_Tests = Replace( SQL_Unit_Tests, ":PV_ID", nPv_id )End Function'----------------------------------------------------------------------------------------------------------------------------------------Sub Get_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )Dim rsTemp, sqlstr, DEVIiss, TDSEiss, VT5DMiss, VTSUPissIf IsObject(DDfixedIss) Then' Find this package issuessqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM archive_manager.CQ_ISSUES WHERE pv_id="& NNpv_id &" AND iss_state = "& nIssStateElse' Find dependency issuessqlstr = "SELECT iss_db, iss_id, iss_state, notes FROM archive_manager.CQ_ISSUES WHERE pv_id IN ( "&_" SELECT dpv_id FROM archive_manager.package_dependencies WHERE pv_id = "& NNpv_id &_" )"End IfSet rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))DEVIiss = "-1"TDSEiss = "-1"VT5DMiss = "-1"VTSUPiss = "-1"While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) ThenDEVIiss = DEVIiss &","& rsTemp("iss_id")ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) ThenTDSEiss = TDSEiss &","& rsTemp("iss_id")ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VT5DM_ID) ThenVT5DMiss = VT5DMiss &","& rsTemp("iss_id")ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_VTSUP_ID) ThenVTSUPiss = VTSUPiss &","& rsTemp("iss_id")End IfIf IsObject(DDfixedIss) Then' Store only Fixed IssuesIf CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""End IfIf IsObject(DDnotesIssDict) Then' Store NotesIf Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "")Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))End IfrsTemp.MoveNextWEnd' Construct SQL statement for CQ databaseIf Len(DEVIiss) <> 1 OR Len(TDSEiss) <> 1 ThenSSsql = ReadFile( rootPath & "queries\cq_issues.sql" )SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)SSsql = Replace( SSsql, "/*enumCLEARQUEST_VTSUP_ID*/", enumCLEARQUEST_VTSUP_ID)SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)SSsql = Replace( SSsql, "/*VTSUPiss*/", VTSUPiss)End IfrsTemp.CloseSet rsTemp = nothingEnd Sub'----------------------------------------------------------------------------------------------------------------------------------------Sub Get_JIRA_Package_Issues ( NNpv_id, SSsql, DDfixedIss, DDnotesIssDict, nIssState )Dim rsTemp, sqlstr, JIRAIssJIRAIss = "'-1'"sqlstr = "SELECT iss_key FROM archive_manager.JIRA_ISSUES WHERE pv_id="& NNpv_idSet rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))JIRAIss = JIRAIss &",'"& rsTemp("iss_key")&"'"rsTemp.MoveNextWEnd'Response.Write(rsTemp.RecordCount)' Construct SQL statement for CQ databaseIf Len(JIRAIss) <> 1 ThenSSsql = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state, IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_" WHERE I.pkey IN ("& JIRAIss &") "&_" AND I.issuestatus = ISS.ID "&_" AND IT.ID = I.issuetype "&_" AND PR.ID = I.PRIORITY "End If' SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)' SSsql = Replace( SSsql, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)' SSsql = Replace( SSsql, "/*enumCLEARQUEST_VT5DM_ID*/", enumCLEARQUEST_VT5DM_ID)' SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)' SSsql = Replace( SSsql, "/*TDSEiss*/", TDSEiss)' SSsql = Replace( SSsql, "/*VT5DMiss*/", VT5DMiss)'Response.Write(SSsql)rsTemp.CloseSet rsTemp = nothingEnd Sub'----------------------------------------------------------------------------------------------------------------------------------------Sub LastPvId (PvId)Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM archive_manager.PACKAGE_VERSIONS WHERE PV_ID= "& PvId &"", cint(0))End Sub'----------------------------------------------------------------------------------------------------------------------------------------Function Get_JIRA_Issues ( SSsql, OOrsCQ )If OOrsCQ.State = 1 ThenOOrsCQ.CloseEnd IfOn Error Resume NextOOrsCQ.ActiveConnection = JIRA_connOOrsCQ.Source = SSsqlOOrsCQ.CursorType = 0OOrsCQ.CursorLocation = 3OOrsCQ.LockType = 3OOrsCQ.Open()Get_JIRA_Issues = Err.NumberEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function Get_CQ_Issues ( SSsql, OOrsCQ )If OOrsCQ.State = 1 ThenOOrsCQ.CloseEnd IfOn Error Resume NextOOrsCQ.ActiveConnection = CQ_connOOrsCQ.Source = SSsqlOOrsCQ.CursorType = 0OOrsCQ.CursorLocation = 2OOrsCQ.LockType = 3OOrsCQ.Open()Get_CQ_Issues = Err.NumberEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )Dim recCntIf OOrsCQ.State = 1 ThenOOrsCQ.CloseEnd IfOOrsCQ.ActiveConnection = CQ_connOOrsCQ.Source = SSsqlOOrsCQ.CursorType = 0OOrsCQ.CursorLocation = 2OOrsCQ.LockType = 3On Error Resume NextOOrsCQ.Open()' Exit with error if error occursGet_Dependency_CQ_Issues = Err.NumberIf Err.Number <> 0 Then Exit FunctionrecCnt = 1While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))ReDim Preserve AAiss( 6, recCnt )'If NOT DDdepIss.Exists Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")) ThenDDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)'End IfAAiss( enumLoc_iss_db, recCnt ) = OOrsCQ("iss_db")AAiss( enumLoc_iss_id, recCnt ) = OOrsCQ("iss_id")AAiss( enumLoc_iss_num, recCnt ) = OOrsCQ("iss_num")AAiss( enumLoc_summary, recCnt ) = OOrsCQ("summary")AAiss( enumLoc_status, recCnt ) = OOrsCQ("status")AAiss( enumLoc_priority, recCnt ) = OOrsCQ("priority")AAiss( enumLoc_issue_type, recCnt ) = OOrsCQ("issue_type")recCnt = recCnt + 1OOrsCQ.MoveNextWEndOOrsCQ.CloseEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function FormatPath ( SSpath )If (SSpath = "") ThenFormatPath = ""Exit FunctionEnd IfIf (InStr(1, LCase(SSpath), "http") = 1) OR (InStr(1, LCase(SSpath), "www") = 1) Then' Source path is URLFormatPath = "<a href='"& SSpath &"' class='txt_linked'>"& SSpath &"</a>"ElseFormatPath = SSpathEnd IfEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Sub Group_By ( rsG, styleG, currG )If rsG = currG Then Exit SubResponse.write styleG'currG = rsGEnd Sub'----------------------------------------------------------------------------------------------------------------------------------------Sub CheckUnitTestsState ( nPv_id, outMSG, outMSG_ID, outNote, outTestsFound )Dim sqlstr, rsTempsqlstr = ReadFile( rootPath & "queries\unit_test_entries_check.sql" )sqlstr = Replace( sqlstr, ":PV_ID", nPv_id)sqlstr = Replace( sqlstr, ":enumTEST_TYPE_NOT_DONE", enumTEST_TYPE_NOT_DONE)Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) ThenoutMSG = rsTemp("msg")outMSG_ID = CInt(rsTemp("msg_id"))outNote = rsTemp("test_summary")outTestsFound = FALSEIf IsNull(rsTemp("msg")) Then outTestsFound = TRUEEnd IfrsTemp.CloseSet rsTemp = nothingEnd Sub'----------------------------------------------------------------------------------------------------------------------------------------Function FormatAccepted ( sAccepted, nTest_id )Dim tempSTRIf IsNull(nTest_id) Then Exit FunctiontempSTR = ""tempSTR = "<select name='acc"& nTest_id &"' class='form_item'>"If sAccepted = enumUNIT_TEST_ACCEPTED ThentempSTR = tempSTR &"<option></option>"&_"<option value='"& enumUNIT_TEST_ACCEPTED &"' SELECTED>Yes</option>"&_"<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"ElseIf sAccepted = enumUNIT_TEST_NOTACCEPTED ThentempSTR = tempSTR &"<option></option>"&_"<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_"<option value='"& enumUNIT_TEST_NOTACCEPTED &"' SELECTED>No</option>"ElsetempSTR = tempSTR &"<option SELECTED></option>"&_"<option value='"& enumUNIT_TEST_ACCEPTED &"'>Yes</option>"&_"<option value='"& enumUNIT_TEST_NOTACCEPTED &"'>No</option>"End IftempSTR = tempSTR & "</select>"FormatAccepted = tempSTREnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function SQL_CodeReview ( nPv_id )SQL_CodeReview = _" SELECT cr.date_of_review, cr.time_spent, cr.review_reason, cr.rteam_domain_expert,"&_" cr.rteam_language_expert, cr.rteam_peer_developer, cr.rteam_author,"&_" cr.files_reviewed, cr.review_results, cr.issues_raised,"&_" cr.review_comments, cr.fnc_s_meets_functionality,"&_" cr.fnc_c_meets_functionality"&_" FROM archive_manager.code_reviews cr"&_" WHERE cr.pv_id = "& nPv_idEnd Function'----------------------------------------------------------------------------------------------------------------------------------------Function SQL_Build_Env ( nPv_id )SQL_Build_Env = _" SELECT pv.*, bm.BM_ID,"&_" bm.BM_NAME,"&_" pkgbinfo.BSA_ID"&_" FROM archive_manager.PACKAGE_BUILD_INFO pkgbinfo,"&_" archive_manager.BUILD_MACHINES bm,"&_" archive_manager.PACKAGE_VERSIONS pv"&_" WHERE pkgbinfo.BM_ID = bm.BM_ID"&_" AND pv.PV_ID = pkgbinfo.PV_ID"&_" AND pkgbinfo.PV_ID = "& nPv_id &_" ORDER BY UPPER(bm.BM_NAME) "End Function'----------------------------------------------------------------------------------------------------------------------------------------Function DecodeOverallResult ( ByVal cCheck )If cCheck = "" OR IsNull(cCheck) Then cCheck = 0Select Case CInt( cCheck )Case enumCODE_REVIEW_ACCEPTEDDecodeOverallResult = "Accepted"Case enumCODE_REVIEW_MINOR_UPDATESDecodeOverallResult = "Minor updates required"Case enumCODE_REVIEW_MAJOR_REWORKDecodeOverallResult = "Major rework required"Case ElseDecodeOverallResult = ""End SelectEnd Function'-----------------------------------------------------------------------------------------------------------------------------------Function GetBuildType ( nBuildType )If (NOT IsNull(nBuildType)) OR (NOT nBuildType = "") ThenIf ( CInt(nBuildType) = enumDB_BUILD_TYPE_NONE ) ThenGetBuildType = "Build type not specified!"ElseGetBuildType = GetBuildTypeString( nBuildType )End IfElseGetBuildType = GetBuildTypeString( nBuildType )End If'' Wrap around bracketsGetBuildType = "("& GetBuildType &")"End Function'-----------------------------------------------------------------------------------------------------------------------------------%><%'------------------ MAIN LINE --------------------'-------------------------------------------------%><!-- PACKAGE INFORMATION ---------------------------------------------------------------------------------------------------------------><a name="PACKAGE_INFORMATION"></a><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td class="body_colb"><img src="images/s_info.gif" width="22" height="22" hspace="4" border="0" align="absmiddle">Package Information</td><td align="right" valign="bottom"><%If pageIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','PackageInfo','resizable=yes,width=650,height=690')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td></tr></table><table width="100%" border="0" cellspacing="1" cellpadding="2"><%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))%><%If rsQry.RecordCount > 0 Then%><tr><td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Deployable:</strong></td><td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%></td></tr><tr><td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Label:</strong></td><td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("pkg_label") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%><%End If%></td></tr><tr><td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td><td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("src_path") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%><%End If%></td></tr><tr><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td><td witdh="100%" background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("pv_description") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_description") ) )%><%End If%></td></tr><tr><td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td><td background="images/bg_form_lightgray.gif" class="sublbox_txt"><%If IsNull( rsQry("pv_overview") ) Then%><span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pv_overview") ) )%><%End If%></td></tr></td></tr></table><br><br><!-- CHANGE TYPE -----------------------------------------------------------------------------------------------------------------------><%If rsQry("build_type") = "A" Then%><fieldset class="fset"><legend class="body_colb"><img src='icons/i_pkg_change_type.gif' hspace='4' border='0' align='absmiddle'>Change Type</legend><a name="CHANGE_TYPE"></a><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightgray.gif"><%If rsQry("change_type") <> "" ThenResponse.write "<table border='0' cellspacing='0' cellpadding='0'>"Response.write "<tr>"If rsQry("change_type") = "M" ThenResponse.write "<td class='sublbox_txt'>Major Change.<br></td>"ElseIf rsQry("change_type") = "N" ThenResponse.write "<td class='sublbox_txt'>Minor Change.<br></td>"ElseIf rsQry("change_type") = "P" ThenResponse.write "<td class='sublbox_txt'>Patch Change.<br></td>"End IfResponse.write "</tr>"Response.write "</table>"ElseResponse.write "<span class='err_alert'>Required!</span><br>"End If%></td></tr></table></fieldset><br><br><%End If%><!-- REASON FOR RELEASE -----------------------------------------------------------------------------------------------------------------><fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for this version</legend><a name="REASON_FOR_THIS_RELEASE"></a><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td align="right" valign="bottom"><%If pageIsEditable Then%><form name="updateversions" method="post" action="_update_versions.asp"><input type="submit" name="btn" value="Update Dependencies" class="form_btn" onClick="return confirmAction('Current comments would be deleted. Do you wish to continue?')"><a href='javascript:;' onClick="MM_openBrWindow('_wform_reason_for_version.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','ReasonForRelease','resizable=yes,width=400,height=250')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><span class="form_field"><input name="pv_id" type="hidden" value="<%=parPv_id%>"><input name="rtag_id" type="hidden" value="<%=parRtag_id%>"></span></form><%End If%></td></tr></table><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightgray.gif"><%If rsQry("comments") <> "" ThenResponse.write "<table border='0' cellspacing='0' cellpadding='0'>"Response.write "<tr>"Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry("comments") ) ) &"<br></td>"Response.write "</tr>"Response.write "</table>"ElseIf FixedIssues ( parPv_id ) ThenResponse.write "<span class='sublbox_txt'>Not specified.</span><br>"ElseResponse.write "<span class='err_alert'>Required!</span><br>"End IfEnd If%></td></tr></table></fieldset><br><br><!-- REASON FOR NON_RIPPLE RELEASE -----------------------------------------------------------------------------------------------------------------><%If rsQry("comments") = "Rippled Build." Then%><fieldset class="fset"><legend class="body_colb"><img src='images/s_notes.gif' width='21' height='24' hspace='4' border='0' align='absmiddle'>Reason for last non-ripple build</legend><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightgray.gif"><%'Dim rsQryCall LastPvId(rsQry("pv_id"))While rsQry("comments") = "Rippled Build."Call LastPvId(rsQry("last_pv_id"))WendIf rsQry("comments") <> "" ThenResponse.write "<table border='0' cellspacing='0' cellpadding='0'>"Response.write "<tr>"Response.write "<td class='sublbox_txt'><b>Package Version:</b> <b>"& NewLine_To_BR(( rsQry ("pkg_version") ) ) &"</b><br></td>"Response.write "</tr>"Response.write "<tr>"Response.write "<td class='sublbox_txt'>"& NewLine_To_BR(( rsQry ("comments") ) ) &"<br></td>"Response.write "</tr>"Response.write "</table>"ElseIf FixedIssues ( parPv_id ) ThenResponse.write "<span class='sublbox_txt'>Not specified.</span><br>"ElseResponse.write "<span class='err_alert'>Required!</span><br>"End IfEnd IfrsQry.CloseSet rsQry = nothing%></td></tr></table></fieldset><br><br><%End If%><!-- FIXED ISSUES -----------------------------------------------------------------------------------------------------------------------><fieldset class="fset"><legend class="body_colb"><img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">Issues</legend><p class="body_colb"><a name="ISSUES"></a></p><%If Request("rtag_id") <> "" ThenDim rsProjIdSet rsProjId = OraDatabase.DbCreateDynaset("SELECT PROJ_ID FROM archive_manager.RELEASE_TAGS WHERE RTAG_ID ="& Request("rtag_id") &"", cint(0))tempProjId = rsProjId("proj_id")rsProjId.Close()Set rsProjId = nothingEnd IfIf tempProjId = 42 OR tempProjId = 202 Then%><table width="100%" border="0" cellpadding="2" cellspacing="1"><tr><td valign="top" class="body_colb">JIRA Issues</td><td align="right" valign="top"><%If pageIsEditable Then%><a href="javascript:;" onClick="MM_openBrWindow('_wform_import_jira_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import JIRA issues <img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td><%End If%><%Call Get_JIRA_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%><%retVal = Get_JIRA_Issues ( SQLstr, rsCQ )%><%If (retVal = 0 And rsCQ.RecordCount > 0) Or (tempProjId = 42 OR tempProjId = 202) ThenIf Request("rtag_id") = 0 Then%><table width="100%" border="0" cellpadding="2" cellspacing="1"><tr><td valign="top" class="body_colb">JIRA Issues</td><% End if%><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue Id </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue DB </td><td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue Type </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"> </td></tr><%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%><%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%><tr><%If rsCQ("resolution") = 1 Then %><td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td><%Else%><td align="center" nowrap background="images/bg_form_lightbluedark.gif"></td><%End If%><td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="http://auperajir01:8080/browse/<%=rsCQ("iss_num")%>" target="_blank" class="txt_linked"><%=rsCQ("iss_num")%></a></td><td background="images/bg_form_lightgray.gif" class="form_item">JIRA</td><td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issuetype")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("state")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"></td><%If NOT pageIsEditable Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_jira_issue.asp?iss_link=<%=rsCQ("iss_num")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td><%End If%></tr><%rsCQ.MoveNextWEndrsCQ.Close%><%Else%><tr><td background="images/bg_form_lightbluedark.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td></tr><%End If%></table><%End If%><%If retVal <> 0 Then Response.write enumMSSQL_ERROR%><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td valign="top" class="body_colb">Fixed Issues</td><td align="right" valign="top"><%If pageIsEditable Then%><a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&skip_open=true','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import Fixed Issues from ClearQuest<img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%></td></tr></table><%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_FIXED )%><%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%><%If retVal = 0 Then%><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field" align="center">Fixed</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue Id </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue DB </td><td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Issue Type </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Priority</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Status</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field">Note</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1" class="form_field"> </td></tr><%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%><%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%><tr><td align="center" nowrap background="images/bg_form_lightbluedark.gif"><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"></td><td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td><td background="images/bg_form_lightgray.gif" class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td><td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td><%If sectionIsEditable Then%><%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></a></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_off.gif" width="11" height="12" border="0" title="Add Note"></a></td><%End If%><%Else%><%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_on.gif" width="11" height="12" border="0" title="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td><%End If%><%End If%><%If NOT pageIsEditable Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td><%End If%></tr><%rsCQ.MoveNextWEndrsCQ.Close%><%Else%><tr><td background="images/bg_form_lightbluedark.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td></tr><%End If%></table><%End If%><%If retVal <> 0 Then Response.write enumMSSQL_ERROR%><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td valign="top" class="body_colb">Outstanding Issues</td><td align="right" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_import_issues.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','FindIssue','scrollbars=yes,resizable=yes,width=750,height=600')" class="txt_linked">Import Outstanding Issues from ClearQuest<img src="images/i_download.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a></td></tr></table><%Call Get_Package_Issues ( parPv_id, SQLstr, fixedIssDict, notesIssDict, enumISSUES_STATE_IMPORTED )%><%retVal = Get_CQ_Issues ( SQLstr, rsCQ )%><%If retVal = 0 Then%><table width="100%" border="0" cellspacing="1" cellpadding="2"><form name="fixedissues" method="get" action="_update_issues_state.asp"><tr><%If pageIsEditable Then%><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field" align="center">Fixed</td><%End If%><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue Id </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB </td><td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Summary</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue Type </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Priority</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Status</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Note</td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"> </td></tr><%If ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF)) Then%><%While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF))%><tr><%If pageIsEditable Then%><td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="checkbox" name="FRfixed" value="<%=rsCQ("iss_db") &"."& rsCQ("iss_id")%>"></td><%End If%><td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=rsCQ("iss_num")%></a></td><td background="images/bg_form_lightgray.gif" class="form_item"><%If rsCQ("iss_db") = enumCLEARQUEST_DEVI_ID Then%>DEVI<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_TDSE_ID Then%>TDSE<%ElseIf rsCQ("iss_db") = enumCLEARQUEST_VT5DM_ID Then%>VT5DM<%Else%>VTSUP<%End If%></td><td background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR ( To_HTML ( rsCQ("summary") ) )%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("issue_type")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("priority")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=rsCQ("Status")%></td><%If sectionIsEditable Then%><%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></a></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issue_notes.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>&iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>','IssueNotes','resizable=yes,width=400,height=250')"><img src="images/i_note_off.gif" width="11" height="12" border="0" alt="Add Note"></a></td><%End If%><%Else%><%If notesIssDict.Exists (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id"))) Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_on.gif" width="11" height="12" border="0" alt="<%=notesIssDict.Item (Cstr(rsCQ("iss_db") &"."& rsCQ("iss_id")))%>"></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_note_off.gif" width="11" height="12" border="0"></td><%End If%><%End If%><%If NOT objAccessControl.IsActive("DeleteOutstandingIssues") Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><img src="images/i_delete_disable.gif" width="13" height="12" hspace="2" border="0"></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item"><a href="_remove_issue.asp?iss_db=<%=rsCQ("iss_db")%>&iss_id=<%=rsCQ("iss_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this issue from Release Manager');"><img src="images/i_delete.gif" width="13" height="12" hspace="2" border="0" alt="Delete this issue from the list"></a></td><%End If%></tr><%rsCQ.MoveNextWEndrsCQ.Close%><%If pageIsEditable Then%><tr><td align="center" nowrap background="images/bg_form_lightbluedark.gif"><input type="submit" name="Apply" value="Apply" class="form_btn"></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr><%End If%><%Else%><tr><%If pageIsEditable Then%><td background="images/bg_form_lightbluedark.gif" nowrap> </td><%End If%><td background="images/bg_form_lightgray.gif" nowrap></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td align="center" background="images/bg_form_lightgray.gif" class="form_item"></td></tr><%End If%><input name="pv_id" type="hidden" value="<%=parPv_id%>"><input name="rtag_id" type="hidden" value="<%=parRtag_id%>"></form></table><%End If%><%If retVal <> 0 Then Response.write enumMSSQL_ERROR%></fieldset><br><br><!-- DEPENDENCY ISSUES (NOT FOR PATCHES!) -------------------------------------------------------------------------------------------------------><%If IsNull(pkgInfoHash.Item ("is_patch")) Then%><fieldset class="fset"><legend class="body_colb"><img src="images/s_bugs.gif" width="21" height="18" border="0" hspace="4" align="absmiddle">Dependency Issues</legend><table width="100%" border="0" cellspacing="1" cellpadding="2"><%Call Get_Package_Issues ( parPv_id, SQLstr, NULL, NULL, NULL )%><%retVal = Get_Dependency_CQ_Issues ( SQLstr, rsCQ, depIssDict, issArr )%><%If retVal = 0 Then%><%currG1 = 0G1_template = _"<tr>"&_" <td colspan='7'><img src='images/spacer.gif' width='2' height='2'></td>"&_"</tr>"&_"<tr>"&_" <td colspan='7' background='images/bg_form_lightbluedark.gif' class='form_item'>/*DEP_NAME_VERSION*//*REASONS*/</td>"&_"</tr>"Set rsDepIss = OraDatabase.DbCreateDynaset( SQL_Dependency_Issues( parPv_id ), cint(0))%><%If ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF)) Then%><%While ((NOT rsDepIss.BOF) AND (NOT rsDepIss.EOF))%><%iss_db_id = Cstr(rsDepIss("iss_db") &"."& rsDepIss("iss_id"))G1_style = Replace(G1_template, "/*DEP_NAME_VERSION*/", "<SPAN class='envolPkg'><b>"& rsDepIss("pkg_name") &" "& rsDepIss("pkg_version") &"</b></SPAN>")If IsNull(rsDepIss("iss_id")) ThenIf IsNull(rsDepIss("reasons")) ThenG1_style = Replace(G1_style, "/*REASONS*/", "<br>Reason for this version is not specified.")ElseG1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )End IfElseIf IsNull(rsDepIss("reasons")) ThenG1_style = Replace(G1_style, "/*REASONS*/", "")ElseG1_style = Replace(G1_style, "/*REASONS*/", "<br>"& NewLine_To_BR ( To_HTML ( rsDepIss("reasons") ) ) )End IfEnd IfCall Group_By ( rsDepIss("pv_id"), G1_style, currG1 )%><%If NOT IsNull(rsDepIss("iss_id")) Then%><%If rsDepIss("pv_id") <> currG1 ThencurrG1 = rsDepIss("pv_id")%><tr><td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field' align='center'></td><td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field' align='center'>Fixed</td><td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Issue Id </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Issue DB </td><td background='images/bg_form_lightbluedark.gif' nowrap width='100%' class='form_field'>Summary</td><td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Issue Type </td><td background='images/bg_form_lightbluedark.gif' nowrap width='1%' class='form_field'>Priority</td></tr><%End If%><tr><td background="images/bg_form_lightbluedark.gif"></td><td align="center" nowrap background="images/bg_form_lightgray.gif"><%If CInt(rsDepIss("iss_state")) = enumISSUES_STATE_FIXED Then%><img src="images/i_tick_black.gif" width="7" height="7" vspace="2"><%Else%><img src="images/spacer.gif" width="7" height="7" vspace="2"><%End If%></td><td background="images/bg_form_lightgray.gif" nowrap class="form_item"><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=asDepIss( iss_db_id, enumLoc_iss_db )%>&iss_id=<%=asDepIss( iss_db_id, enumLoc_iss_id )%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked"><%=asDepIss( iss_db_id, enumLoc_iss_num )%></a></td><td background="images/bg_form_lightgray.gif" class="form_item"><%If asDepIss( iss_db_id, enumLoc_iss_db ) = enumCLEARQUEST_DEVI_ID Then%>DEVI<%Else%>TDSE<%End If%></td><td background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_summary)%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_issue_type)%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=asDepIss( iss_db_id, enumLoc_priority)%></td></tr><%End If%><%rsDepIss.MoveNextWEndrsDepIss.CloseSet rsDepIss = nothing%><%Else%><tr><td background="images/bg_form_lightbluedark.gif" nowrap> </td><td background="images/bg_form_lightgray.gif"></td><td background="images/bg_form_lightgray.gif"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td><td background="images/bg_form_lightgray.gif" class="form_item"></td></tr><%End If%></table><%End If%><%If retVal <> 0 Then Response.write enumMSSQL_ERROR%></fieldset><br><br><%End If%><!-- UNIT TESTS ---------------------------------------------------------------------------------------------------------------------><%Dim testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFoundCall CheckUnitTestsState ( parPv_id, testCheckMSG, testCheckMSG_ID, testCheckNote, testCheckTestsFound )Set rsQry = OraDatabase.DbCreateDynaset( SQL_Unit_Tests ( parPv_id ), cint(0))%><fieldset class="fset"><legend class="body_colb"><img src="images/i_unit_test.gif" width="18" height="25" hspace="4" border="0" align="absmiddle" alt="">Unit Tests<%If testCheckMSG_ID = 0 Then%> <%=testCheckMSG%><%End If%></legend><a name="UNIT_TESTS"></a><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td align="right" valign="bottom"><%If pageIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_unit_test.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UnitTest','resizable=yes,width=700,height=550')" class="txt_linked">New Test<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new test."></a><%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = 0) Then%><a href='_not_done_unit_test.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>¬done=Y' class='txt_linked'>Click here if Not Done!<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new test."></a><%End If%><%End If%></td></tr></table><%If (NOT testCheckTestsFound) AND (testCheckMSG_ID = -1) Then%><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightgray.gif" class="form_item"><%Call DisplayInfo ( "UNIT_TEST_NOT_DONE", 300 )%><span class="rep_small">Last Modified: <%=testCheckMSG%></span><br><%=NewLine_To_BR( To_HTML ( testCheckNote ) )%></td></tr></table><%End If%><table width="100%" border="0" cellspacing="1" cellpadding="2"><form name="review" method="get" action="_update_unit_test_accepted_state.asp"><tr><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><img src='images/spacer.gif' width='16' height='16' hspace="3" align="absmiddle">Test</td><td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Test Summary</td><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">Test<br>Completed</td><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center"> Passed<br># / Total </td><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center"> Results </td><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center"> Accepted </td><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field" align="center">Review<br>Completed</td><td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Comments /<br>Issue#</td><td width="1%" background="images/bg_form_lightbluedark.gif"></td></tr><%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF) )%><tr><%If NOT pageIsEditable Then%><%If NOT IsNull(rsQry("test_id")) AND ( scriptName = "fixed_issues.asp") Then%><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_update_unit_test.asp?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UpdateUT','resizable=yes,width=700,height=550')" class="txt_linked"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle" border="0"><%=rsQry("test_type_name")%></a></td><%Else%><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle"><%=rsQry("test_type_name")%></td><%End If%><%Else%><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="javascript:;" onClick="MM_openBrWindow('<%If Not IsNull(rsQry("test_id")) Then%>_wform_update_unit_test.asp<%Else%>_wform_unit_test.asp<%End If%>?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&test_type_id=<%=rsQry("test_type_id")%>','UpdateUT','resizable=yes,width=700,height=550')" class="txt_linked"><img src="images/i_test.gif" width="16" height="16" hspace="3" align="absmiddle" border="0"><%=rsQry("test_type_name")%></a></td><%End If%><td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("test_summary") ))%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%If ( NOT IsNull(rsQry("tester")) ) Then%><%=EuroDate ( rsQry("completion_date") )%><br>by <a href="mailto:<%=rsQry("tester_email")%>" class="txt_linked"><%=rsQry("tester")%></a><%End If%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top" align="center"><%=rsQry("numof_test")%></td><%If CInt(rsQry("test_type_id")) = enumTEST_TYPE_AUTOMATIC Then%><td background="images/bg_form_lightgray.gif" class="form_item" align="center" valign="top"><%If NOT IsNull( rsQry("results_url") ) Then%><%If InStr( rsQry("results_url"), "http://" ) = 1 Then%><a href="<%=rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a><%Else%><%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%><a href="<%=deploy_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") & rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a><%Else%><a href="<%=dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") & rsQry("results_url")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a><%End If%><%End If%><%End If%></td><%Else%><td background="images/bg_form_lightgray.gif" class="form_item" align="center" valign="top"><%If NOT IsNull( rsQry("results_attachment_name") ) Then%><%If pkgInfoHash.Item ("dlocked") = "Y" Then%><%If pkgInfoHash.Item ("base_view_id") = CStr(enumBASE_VIEW_PRODUCTS) Then%><a href="<%=deploy_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a><%Else%><a href="<%=dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a><%End If%><%Else%><a href="<%=TEMP_FOLDER &"/"& pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& rsQry("results_attachment_name")%>" target="_blank"><img src="images/i_results.gif" width="15" height="16" border="0" alt="View test results"></a><%End If%><%End If%></td><%End If%><td nowrap background="images/bg_form_lightbluedark.gif" class="sublbox_txt" valign="top" align="center"><%=FormatAccepted( rsQry("test_accepted"), rsQry("test_id") )%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%If NOT IsNull(rsQry("reviewee")) Then%><%=EuroDate ( rsQry("acceptance_date") )%><br>by <a href="mailto:<%=rsQry("reviewee_email")%>" class="txt_linked"><%=rsQry("reviewee")%></a><%End If%></td><td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=NewLine_To_BR( To_HTML( rsQry("review_comments") ))%></td><%If NOT pageIsEditable Then%><td background="images/bg_form_lightgray.gif" valign="top"></td><%Else%><td background="images/bg_form_lightgray.gif" valign="top"><%If NOT IsNull(rsQry("test_id")) Then%><a href="_remove_unit_test.asp?test_id=<%=rsQry("test_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this unit test');"><img src="images/i_delete.gif" alt="Remove this test." width="13" height="12" hspace="3" border="0"></a><%End If%></td><%End If%></tr><%rsQry.MoveNextWEnd%><tr><td class="form_field"></td><td class="form_field"></td><td class="form_field"></td><td class="form_field"></td><td class="form_field"></td><td class="form_field" align="center"><%If (testCheckTestsFound) AND (testCheckMSG_ID = 0) AND ( scriptName = "fixed_issues.asp" ) Then%><input type="submit" name="Apply" value="Apply" class="form_btn"><%End If%></td><td class="form_field"></td><td class="form_field"></td><td class="form_field"></td></tr><input name="pv_id" type="hidden" value="<%=parPv_id%>"><input name="rtag_id" type="hidden" value="<%=parRtag_id%>"></form></table></fieldset><br><br><!-- CODE REVIEW -------------------------------------------------------------------------------------------------------------------><fieldset class="fset"><legend class="body_colb"><img src='images/s_code_review.gif' width='21' height='23' hspace='4' border='0' align='absmiddle'>Code Review</legend><a name="CODE_REVIEW" id="CODE_REVIEW"></a><%Set rsQry = OraDatabase.DbCreateDynaset( SQL_CodeReview ( parPv_id ), cint(0))%><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td align="right" valign="bottom"><%If ( scriptName = "fixed_issues.asp" ) Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_update_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewEdit','scrollbars=yes,resizable=yes,width=950,height='+ ( screen.height - 100 ) +',top=0,left=0')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%If rsQry.RecordCount > 0 Then%><%If NOT IsNull(rsQry("date_of_review")) Then%> <a href='javascript:;' onClick="MM_openBrWindow('_wform_code_review.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','CodeReviewView','scrollbars=yes,resizable=yes,width=950,height='+ ( screen.height - 100 ) +',top=0,left=0')" class="txt_linked">View<img src="images/i_open.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a><%End If%><%End If%><%End If%></td></tr></table><%If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then%><%If NOT IsNull(rsQry("date_of_review")) Then%><table width="100%" border="0" cellspacing="1" cellpadding="4"><tr><td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Date of Review</td><td width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item"><%=EuroDate ( rsQry("date_of_review") )%> </td><td width="1%" align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field"> Time Spent:</td><td width="100%" background="images/bg_form_lightgray.gif" class="form_item"><%=rsQry("time_spent")%> hrs </td></tr><tr><td align="right" valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Reason for Review</td><td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("review_reason") ))%></td></tr><tr><td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Review Results </td><td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=DecodeOverallResult( rsQry("review_results") )%></td></tr><tr><td align="right" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issues Raised </td><td colspan="3" background="images/bg_form_lightgray.gif" class="form_item"><%=NewLine_To_BR( To_HTML( rsQry("issues_raised") ))%></td></tr></table><%Else%><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td></tr></table><%End If%><%Else%><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td background="images/bg_form_lightgray.gif"><span class='sublbox_txt'>No details found.</span></td></tr></table><%End If%></fieldset><br><br><!-- ADDITIONAL NOTES -------------------------------------------------------------------------------------------------------------------><fieldset class="fset"><legend class="body_colb"><img src="images/i_additional_notes.gif" width="26" height="20" hspace="4" border="0" align="absmiddle" alt="">Additional Notes</legend><a name="ADDITIONAL_NOTES"></a><table width="100%" border="0" cellspacing="1" cellpadding="2"><tr><td align="right" valign="bottom"><%If pageIsEditable Then%><a href='javascript:;' onClick="MM_openBrWindow('_wform_additional_note.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','AdditionalNotes','resizable=yes,width=600,height=400')" class="txt_linked">New Note<img src="images/i_new.gif" width="13" height="13" hspace="2" border="0" align="absmiddle" alt="Add new note."></a><%End If%></td></tr></table><table width="100%" border="0" cellspacing="1" cellpadding="2"><%Set rsQry = OraDatabase.DbCreateDynaset( SQL_Additional_Notes ( parPv_id ), cint(0))%><%If rsQry.RecordCount < 1 Then%><tr><td class="form_field" width="100%" background="images/bg_form_lightgray.gif"> </td></tr><%End If%><%While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%><tr><td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="body_col"><%If pageIsEditable Then%><a href="javascript:;" onClick="MM_openBrWindow('_wform_update_additional_note.asp?note_id=<%=rsQry("note_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','UpdateAN','resizable=yes,width=600,height=400')" class="body_col"><img src="images/i_edit.gif" alt="Edit" width="12" height="12" hspace="3" vspace="3" border="0" align="absmiddle"><%=To_HTML (rsQry("note_title"))%></a><%Else%><%=To_HTML (rsQry("note_title"))%><%End If%></td><td width="1" background="images/bg_form_lightbluedark.gif"><%If pageIsEditable Then%><a href="_remove_additional_note.asp?note_id=<%=rsQry("note_id")%>&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>" onClick="return confirmDelete('this note');"><img src="images/i_delete.gif" alt="Remove this note." width="13" height="12" hspace="3" border="0"></a><%End If%></td></tr><tr><td colspan="2" background="images/bg_form_lightgray.gif" class="sublbox_txt"><%=NewLine_To_BR( To_HTML ( rsQry("note_body") ) )%><br><br><span class="rep_small">Last Modified: <%=rsQry("lastmod")%></span></td></tr><tr><td colspan="2"><img src='images/spacer.gif' width='2' height='2'></td></tr><%rsQry.MoveNextWEnd%></table></fieldset><br><br><%End If%>