<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| ProdDefault | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim nOldProdID Dim rsQry Dim sMessage Dim QueryString Dim CreatorModifier 'Dim objOldProdCollector '------------ CONSTANTS DECLARATION ----------- Const LIMG_NOTE_NEW = "" Const LIMG_NOTE_EDIT = "" '------------ VARIABLE INIT ------------------- 'Set objOldProdCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------- Sub GetOldProdDetails ( nProd_id, ByRef outobjDetails ) Dim rsQry, query OraDatabase.Parameters.Add "PROD_ID", nProd_id, ORAPARM_INPUT, ORATYPE_NUMBER query = _ " SELECT pkg.pkg_name, cpv.pkg_version, ppv.pkg_version AS previous_version, cpv.last_pv_id AS old_prod_id"&_ " FROM PACKAGE_VERSIONS cpv,"&_ " PACKAGE_VERSIONS ppv,"&_ " PACKAGES pkg"&_ " WHERE cpv.LAST_PV_ID = ppv.pv_id"&_ " AND cpv.pkg_id = pkg.pkg_id"&_ " AND cpv.pv_id = :PROD_ID" Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("old_prod_id") = rsQry("old_prod_id") outobjDetails.Item ("pkg_name") = rsQry("pkg_name").Value outobjDetails.Item ("pkg_version") = rsQry("pkg_version").Value outobjDetails.Item ("previous_version") = rsQry("previous_version").Value End If OraDatabase.Parameters.Remove "PROD_ID" rsQry.Close Set rsQry = Nothing End Sub '----------------------------------------------------------------------------------------------------------------- Sub RowStyle ( nStatus, ByRef outIcon, ByRef outStyle ) Select Case CInt( nStatus ) Case enumDB_DIFF_NO_CHANGE outStyle = "body_rowg" outIcon = NULL Case enumDB_DIFF_UPDATED outStyle = "body_rowbold" outIcon = LIMG_UPDATED Case enumDB_DIFF_NEW outStyle = "body_rowbold" outIcon = LIMG_ADDED Case enumDB_DIFF_REMOVED outStyle = "body_rowthru" outIcon = LIMG_REMOVED End Select End Sub '----------------------------------------------------------------------------------------------------------------- Function UserName (nUserId) If nUserId <> "" Then Dim rsTemp, user_name Set rsTemp = OraDatabase.DbCreateDynaset( "select * from users where user_id ="&nUserId , ORADYN_DEFAULT ) user_name = rsTemp("full_name") rsTemp.Close() Set rsTemp = Nothing UserName = user_name Else UserName = NULL End If End Function '----------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %>

		<%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.Render () %>     <%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) = "hide" Then%><%End If%> <% QueryString = "select * from product_notes pn, product_trail pt"&_ " where pn.prod_id = "&dbPARprod_id&_ " and pt.prod_id = pn.prod_id"&_ " order by date_time_stamp desc" Set rsQry = OraDatabase.DbCreateDynaset( QueryString, ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then If rsQry.RecordCount = 1 Then CreatorModifier = "Created by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp") Else CreatorModifier = "Last Modified by "&GetUsername(rsQry("user_id"))&" on "&rsQry("date_time_stamp") End If End If sMessage = "" sMessage = sMessage &"" sMessage = sMessage &"" If rsQry.RecordCount = 0 Then sMessage = sMessage &"" Else sMessage = sMessage &"" End If sMessage = sMessage &"" sMessage = sMessage &" PRODUCT NOTES "&objFormater.TextToHTML( rsQry("notes") ) &" "& CreatorModifier &" Create Product Note"& LIMG_NOTE_NEW &" Edit Product Note"& LIMG_NOTE_NEW &" " Call Messenger ( sMessage, "bi_accepted.gif", "100%" ) Response.write " " rsQry.Close() Set rsQry = Nothing %> <% OraDatabase.Parameters.Add "PROD_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER %> Changes since version  <% nOldProdID = Request("old_prod_id") If nOldProdID = "" Then nOldProdID = objProdCollector.Item ("last_pv_id") OraDatabase.Parameters.Add "PKG_ID", objProdCollector.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "V_EXT", objProdCollector.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OLD_PROD_ID", nOldProdID, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductVersionsCombo.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> " <%=rsQry("selected")%>><%=rsQry("pkg_version")%> <% rsQry.MoveNext WEnd rsQry.Close %> <%=objPMod.ComposeHiddenTags()%> <% If objProdCollector.Item ("is_rejected") = enumDB_YES Then OraDatabase.Parameters.Add "ENTITY_ID", dbPARprod_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "ENUM_ENTITY_TYPE", "enumENTITY_TYPE_PRODUCT", ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RejectionTrail.sql"), ORADYN_DEFAULT ) sMessage = "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" While (NOT rsQry.BOF) AND (NOT rsQry.EOF) sMessage = sMessage & "" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" sMessage = sMessage &"" rsQry.MoveNext WEnd rsQry.Close sMessage = sMessage &" Product is REJECTED! Create Note"& LIMG_NOTE_NEW &" " If rsQry("is_rejected") = enumDB_YES Then sMessage = sMessage &"Product is REJECTED! " Else sMessage = sMessage &"Product is Accepted! " End If sMessage = sMessage & objFormater.TextToHTML( rsQry("comments") ) &" "& rsQry("creator") &" Edit Note"& LIMG_NOTE_EDIT &" " Call Messenger ( sMessage, "i_product_rejected.gif", "100%" ) Response.write " " OraDatabase.Parameters.Remove "ENTITY_ID" OraDatabase.Parameters.Remove "ENUM_ENTITY_TYPE" End If %> Module Changes <% Dim style, icon Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProductsDiff.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Call RowStyle ( rsQry("status"), icon, style ) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd %> Module Name Current Version Previous Version Owner <%=icon%> <%=rsQry("pkg_name").Value%> <%=rsQry("pkg_version").Value%> <%=rsQry("previous_version").Value%> " class="body_link" title="Send Email to <%=rsQry("user_email")%>"><%=LIMG_EMAIL & rsQry("full_name").Value%> &pv_id=<%=rsQry("pv_id")%>" class="body_link" target="_blank" title="Open in Release Manager..."> NOTE: <%=LIMG_UPDATED%> Updated, <%=LIMG_ADDED%> Added, <%=LIMG_REMOVED%> Removed, [Blank] No change Reasons For This Version <% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReasonsForVersionList.sql"), ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) %> <%rsQry.MoveNext%> <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%> <%End If%> <% WEnd %> &pv_id=<%=rsQry("pv_id")%>" class="body_link" target="_blank" title="Open in Release Manager..."><%=rsQry("pkg_name").Value &" "& rsQry("pkg_version").Value%> <% If IsNull(rsQry("comments")) OR rsQry("comments") = "" Then Response.write "Not specified. Check Issues list." Else Response.write objFormater.TextToHtml( rsQry("comments") ) End If %> <% OraDatabase.Parameters.Remove "PROD_ID" OraDatabase.Parameters.Remove "OLD_PROD_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" %> Release Authorisation <% Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_authorisation where pv_id="&dbPARprod_id, ORADYN_DEFAULT ) If rsQry.RecordCount > 0 Then %> <%'objRepeater.RenderDataGrid ()%> Date Regional Tester Tester Comments <%=rsQry("tester_datestamp")%> <%=UserName(rsQry("tester_id"))%> <%=rsQry("tester_comments")%> <%'objRepeater.RenderDataGrid ()%> Date Regional Manager Manager Comments <%=rsQry("manager_datestamp")%> <%=UserName(rsQry("manager_id"))%> <%=rsQry("manager_comments")%> <% Else %> No Information <% End If rsQry.Close() Set rsQry = Nothing %>	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%> <%=GetNodeImage ( dbPARnode_id )%> Reason for release Fixed Issues <%End If%>