WebSVN – DevTools – Blame – /ManagerSuite/Release_Manager/trunk/_wform_issues

Rev	Author	Line No.	Line
119	ghuddy	1	`<%@LANGUAGE="VBSCRIPT"%>`
		2	`<%`
		3	`Option explicit`
159	ghuddy	4	`Response.Expires = 0 ' always load the page, dont store`
119	ghuddy	5	`%>`
		6	`<%`
		7	`'=====================================================`
159	ghuddy	8	`' ISSUE DETAILS`
119	ghuddy	9	`'=====================================================`
		10	`%>`
		11	`<!--#include file="common/conf.asp"-->`
		12	`<!--#include file="common/globals.asp"-->`
		13	`<!--#include file="common/formating.asp"-->`
		14	`<!--#include file="common/qstr.asp"-->`
		15	`<!--#include file="common/common_subs.asp"-->`
		16	`<!--#include file="_tabs.asp"-->`
		17	`<!--#include file="common/cq_common_subs.asp"-->`
		18	`<!--#include file="common/_popup_window_common.asp"-->`
		19	`<%`
		20	`'------------ ACCESS CONTROL ------------------`
		21	`%>`
		22	`<!--#include file="_access_control_general.asp"-->`
		23	`<%`
		24	`'------------ Variable Definition -------------`
		25	`Dim rsCQ`
		26	`Dim ddWidth`
		27	`Dim parIss_db`
		28	`Dim parIss_id`
159	ghuddy	29	`Dim childDevis()`
		30	`Dim numChildDevis`
		31	`Dim i`
119	ghuddy	32	`'------------ Constants Declaration -----------`
		33	`'------------ Variable Init -------------------`
		34	`Set pkgInfoHash = CreateObject("Scripting.Dictionary")`
		35	`Call Get_Iss_Parameters ( parIss_db, parIss_id )`
		36	`ddWidth = 20`
159	ghuddy	37
		38	`numChildDevis = 0`
119	ghuddy	39	`'----------------------------------------------`
		40	`%>`
		41	`<%`
		42	`Sub Get_Issue_Details ( NNiss_db, NNiss_id, OOrsCQ )`
159	ghuddy	43	`Dim SQLstr`
4553	dpurdie	44	`Dim SQLstr2`
159	ghuddy	45	`Dim objRegEx`
		46	`Dim objMatches`
		47	`Dim match`
		48	`Dim rsCQ2`
		49
4553	dpurdie	50	`' NOTE si.dependant_devis - not in table - at the moment !!!`
		51	`'`
159	ghuddy	52	`If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then`
		53	`SQLstr = _`
		54	`" SELECT si.dbid, si.new_num AS iss_num, si.headline AS summary, sdef.name AS status, si.priority AS priority, si.issue_type, si.release_part1, "&_`
4553	dpurdie	55	`" si.release_part2, si.release_part3, si.project, si.product AS product, si.package_ref AS package, sb.fullname AS submitter, si.submit_date, ow.fullname AS owner, "&_`
		56	`" ap.fullname AS approver, dbms_lob.substr( si.description, 4000, 1 ) as description, si.dependant_devis"&_`
		57	`" FROM release_manager.CQ_software_issue si INNER JOIN"&_`
		58	`" release_manager.CQ_statedef sdef ON si.state = sdef.id INNER JOIN"&_`
		59	`" release_manager.CQ_users sb ON si.submitter = sb.dbid INNER JOIN"&_`
		60	`" release_manager.CQ_users ow ON si.owner = ow.dbid INNER JOIN"&_`
		61	`" release_manager.CQ_users ap ON si.approver = ap.dbid"&_`
159	ghuddy	62	`" WHERE si.dbid = "& NNiss_id`
		63
4553	dpurdie	64	`Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))`
159	ghuddy	65
		66	`' Experimental code to obtain parent and child DEVIs for the currently displaying DEVI`
		67	`If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then`
		68	`Set objRegEx = New RegExp`
		69	`objRegEx.IgnoreCase = True`
		70	`objRegEx.Pattern = "[1-9][0-9]+"`
		71
		72	`If NOT IsNull(OOrsCQ("iss_num") ) Then`
		73	`set objMatches = objRegEx.Execute(OOrsCQ("iss_num") )`
		74	`For each match in objMatches`
4553	dpurdie	75	`SQLstr2 = " SELECT si.new_num AS iss_num"&_`
		76	`" FROM release_manager.CQ_software_issue si"&_`
		77	`" WHERE si.dependant_devis like '%" & match & "%'"`
		78	`Set rsCQ2 = OraDatabase.DbCreateDynaset( SQLstr2, cint(0))`
		79
159	ghuddy	80	`While (NOT rsCQ2.BOF) AND (NOT rsCQ2.EOF)`
		81	`numChildDevis = numChildDevis + 1`
		82	`ReDim Preserve childDevis(numChildDevis)`
		83	`childDevis(numChildDevis-1) = rsCQ2("iss_num")`
		84	`rsCQ2.MoveNext`
		85	`Wend`
		86	`rsCQ2.Close()`
		87	`Next`
		88	`set objMatches = Nothing`
		89	`Set rsCQ2 = Nothing`
		90	`End If`
		91	`Set objRegEx = Nothing`
		92	`End If`
4028	dpurdie	93	`End If`
159	ghuddy	94	`End Sub`
119	ghuddy	95	`%>`
3975	dpurdie	96	`<%If parIss_db <> enumCLEARQUEST_DEVI_ID Then Call RaiseMsg ( enum_WMSG_ERROR, "This option is not available for this issue's database!" )%>`
119	ghuddy	97	`<%Call Get_Issue_Details ( parIss_db, parIss_id, rsCQ )%>`
		98	`<!--#include file="_menu_def.asp"-->`
		99	`<html>`
		100	`<head>`
		101	`<title><%=rsCQ("iss_num")%> - <%=rsCQ("summary")%></title>`
		102	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`
		103	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`
		104	`<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">`
		105	`<link rel="stylesheet" href="images/navigation.css" type="text/css">`
		106	`<script language="JavaScript" src="images/common.js"></script>`
		107	`<script language="JavaScript">`
		108	`<!--`
		109	`function height()`
159	ghuddy	110	`{`
		111	`if( typeof( window.innerWidth ) == 'number' )`
		112	`{`
		113	`h = window.innerHeight;`
		114	`}`
		115	`else if(document.documentElement&&(document.documentElement.clientHeight ))`
		116	`{`
		117	`h = document.documentElement.clientHeight;`
		118	`}`
		119	`else if( document.body && ( document.body.clientWidth \|\| document.body.clientHeight ) )`
		120	`{`
		121	`h = document.body.clientHeight;`
		122	`}`
		123
		124	`var e = document.getElementById("LayerDescription");`
		125
		126	`if (navigator.userAgent.indexOf('Internet Explorer'))`
		127	`{`
		128	`e.style.height = h - 350 + "px";`
		129	`e.style.overflow = "auto";`
		130	`}`
		131	`else`
		132	`{`
		133	`// This line shouldn't be run by IE; it doesn't seem to work. It gets run in Firefox, etc.`
		134	`e.style.minHeight= h - 350 + "px";`
		135	`e.style.overflow = "auto";`
		136	`}`
119	ghuddy	137	`}`
		138	`//-->`
		139	`</script>`
		140	`</head>`
		141	`<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();height();" onresize="height();" >`
		142	`<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">`
159	ghuddy	143	`<tr>`
		144	`<td width="1%" background="images/bg_lght_gray.gif"> </td>`
		145	`<td width="100%" background="images/bg_lght_gray.gif"><span class="form_field"><br> Issue</span>`
		146	`<input name="FRpname" type="text" class="form_item" size="12" value="<%=rsCQ("iss_num")%>" readonly>`
		147	`<input name="FRpname2" type="text" class="form_item" size="80" value="<%=HTMLEncode(rsCQ("summary"))%>" readonly>`
		148	`</td>`
		149	`</tr>`
		150	`<tr>`
		151	`<td background="images/bg_lght_gray.gif"><img src="images/h_trsp_dot.gif" width="1" height="400"></td>`
		152	`<td valign="top" background="images/bg_form_lightbluedark.gif">`
		153	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		154	`<tr>`
		155	`<td align="right" background="images/bg_lght_gray.gif"><br>`
		156	`<!-- TABS ------------------------------------------->`
		157	`<%Call Generate_Tab_Menu ( TABarray4, "Details", "blue" )%>`
		158	`<!------------------------------------------------------------->`
		159	`</td>`
		160	`</tr>`
		161	`<tr>`
		162	`<td background="images/lbox_bg_blue.gif"> </td>`
		163	`</tr>`
		164	`</table><br>`
		165	`<table width="100%" border="0" cellspacing="5" cellpadding="1">`
		166	`<tr>`
		167	`<td background="images/bg_vtree_h1.gif">`
		168	`<table width="100%" border="0" cellspacing="0" cellpadding="2">`
		169	`<tr>`
		170	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Issue Type</td>`
		171	`<td background="images/bg_lght_gray.gif">`
		172	`<select name="group_id" class="form_item" disabled>`
		173	`<option selected><%=rsCQ("issue_type")%></option>`
		174	`<option><%=String(ddWidth, "_")%></option>`
		175	`</select>`
		176	`</td>`
		177	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Submitter</td>`
		178	`<td background="images/bg_lght_gray.gif">`
		179	`<select name="group_id" class="form_item" disabled>`
		180	`<option selected><%=rsCQ("submitter")%></option>`
		181	`<option><%=String(ddWidth, "_")%></option>`
		182	`</select>`
		183	`</td>`
		184	`</tr>`
		185	`<tr>`
		186	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Detected in Version</td>`
		187	`<td background="images/bg_lght_gray.gif">`
		188	`<select name="group_id" class="form_item" disabled>`
		189	`<option selected><%=rsCQ("release_part1") &"."& rsCQ("release_part2") &"."& rsCQ("release_part3") %></option>`
		190	`<option><%=String(ddWidth, "_")%></option>`
		191	`</select>`
		192	`</td>`
		193	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Submitted on Date</td>`
		194	`<td background="images/bg_lght_gray.gif">`
		195	`<select name="group_id" class="form_item" disabled>`
		196	`<option selected><%=ToLongDate( rsCQ("submit_date")+1 )%></option>`
		197	`<option><%=String(ddWidth, "_")%></option>`
		198	`</select>`
		199	`</td>`
		200	`</tr>`
		201	`<tr>`
		202	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Project</td>`
		203	`<td background="images/bg_lght_gray.gif">`
		204	`<select name="group_id" class="form_item" disabled>`
		205	`<option selected><%=rsCQ("project")%></option>`
		206	`<option><%=String(ddWidth, "_")%></option>`
		207	`</select>`
		208	`</td>`
		209	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Owner</td>`
		210	`<td background="images/bg_lght_gray.gif">`
		211	`<select name="group_id" class="form_item" disabled>`
		212	`<option selected><%=rsCQ("owner")%></option>`
		213	`<option><%=String(ddWidth, "_")%></option>`
		214	`</select>`
		215	`</td>`
		216	`</tr>`
		217	`<tr>`
		218	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Product</td>`
		219	`<td background="images/bg_lght_gray.gif">`
		220	`<select name="group_id" class="form_item" disabled>`
		221	`<option selected><%=rsCQ("product")%></option>`
		222	`<option><%=String(ddWidth, "_")%></option>`
		223	`</select>`
		224	`</td>`
		225	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Approver</td>`
		226	`<td background="images/bg_lght_gray.gif">`
		227	`<select name="group_id" class="form_item" disabled>`
		228	`<option selected><%=rsCQ("approver")%></option>`
		229	`<option><%=String(ddWidth, "_")%></option>`
		230	`</select>`
		231	`</td>`
		232	`</tr>`
		233	`<tr>`
		234	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Package</td>`
		235	`<td background="images/bg_lght_gray.gif">`
		236	`<select name="group_id" class="form_item" disabled>`
		237	`<option selected><%=rsCQ("package")%></option>`
		238	`<option><%=String(ddWidth, "_")%></option>`
		239	`</select>`
		240	`</td>`
		241	`<%If parIss_db = enumCLEARQUEST_DEVI_ID Then%>`
		242	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Parent Devi</td>`
		243	`<td background="images/bg_lght_gray.gif">`
		244	`<select name="group_id" class="form_item" disabled>`
		245	`<option selected><%=rsCQ("dependant_devis")%></option>`
		246	`<option><%=String(ddWidth, "_")%></option>`
		247	`</select>`
		248	`</td>`
		249	`<%else%>`
		250	`<td align="right" background="images/bg_lght_gray.gif" class="form_field"> </td>`
		251	`<td background="images/bg_lght_gray.gif"> </td>`
		252	`<%end if%>`
		253	`</tr>`
		254	`<tr>`
		255	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Priority</td>`
		256	`<td background="images/bg_lght_gray.gif">`
		257	`<select name="group_id" class="form_item" disabled>`
		258	`<option selected><%=rsCQ("priority")%></option>`
		259	`<option><%=String(ddWidth, "_")%></option>`
		260	`</select>`
		261	`</td>`
		262	`<%If parIss_db = enumCLEARQUEST_DEVI_ID AND numChildDevis > 0 Then%>`
		263	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Child Devis</td>`
		264	`<td background="images/bg_lght_gray.gif">`
		265	`<select name="group_id" class="form_item" enabled>`
		266	`<%For i = 0 To numChildDevis - 1%>`
		267	`<%If i = 0 Then%>`
		268	`<option selected><%=childDevis(i)%></option>`
		269	`<%else%>`
		270	`<option><%=childDevis(i)%></option>`
		271	`<%End If%>`
		272	`<%Next%>`
		273	`</select>`
		274	`</td>`
		275
		276	`<%else%>`
		277	`<td align="right" background="images/bg_lght_gray.gif" class="form_field"> </td>`
		278	`<td background="images/bg_lght_gray.gif"> </td>`
		279	`<%end if%>`
		280	`</tr>`
		281	`<tr>`
		282	`<td align="right" background="images/bg_lght_gray.gif" class="form_field">Status</td>`
		283	`<td background="images/bg_lght_gray.gif">`
		284	`<select name="group_id" class="form_item" disabled>`
		285	`<option selected><%=rsCQ("status")%></option>`
		286	`<option><%=String(ddWidth, "_")%></option>`
		287	`</select>`
		288	`</td>`
		289	`<td align="right" background="images/bg_lght_gray.gif" class="form_field"> </td>`
		290	`<td background="images/bg_lght_gray.gif"> </td>`
		291	`</tr>`
		292	`<tr>`
		293	`<td align="right" background="images/bg_lght_gray.gif" class="form_field"><br></td>`
		294	`<td background="images/bg_lght_gray.gif"></td>`
		295	`<td align="right" background="images/bg_lght_gray.gif" class="form_field"></td>`
		296	`<td background="images/bg_lght_gray.gif"></td>`
		297	`</tr>`
		298	`</table>`
		299	`</td>`
		300	`</tr>`
		301	`<tr>`
		302	`<td background="images/bg_vtree_h1.gif">`
		303	`<table width="100%" border="0" cellspacing="0" cellpadding="2">`
		304	`<tr>`
		305	`<td bgcolor="White" class="form_item"><span class="form_field">Description</span><br>`
		306	`<div id="LayerDescription" style="height:height(); overflow: auto;"><%=NewLine_To_BR( Server.HTMLEncode( rsCQ("description") ) )%></div>`
		307	`</td>`
		308	`</tr>`
		309	`</table>`
		310	`</td>`
		311	`</tr>`
		312	`</table>`
		313	`</td>`
		314	`</tr>`
		315	`<tr>`
		316	`<td background="images/bg_lght_gray.gif"> </td>`
		317	`<td background="images/lbox_bg_blue.gif"> </td>`
		318	`</tr>`
119	ghuddy	319	`</table>`
		320	`</body>`
		321	`</html>`
		322
		323
		324	`<!-- DESTRUCTOR ------->`
159	ghuddy	325	`<!--#include file="common/destructor.asp"-->`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_issues_details.asp @ 5116 – Rev