Subversion Repositories DevTools

Rev

Rev 3975 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3975 Rev 4553
Line 27... Line 27...
27 
Dim parIss_db
 27 
Dim parIss_db
28 
Dim parIss_id
 28 
Dim parIss_id
29 
'------------ Constants Declaration -----------
 29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
 30 
'------------ Variable Init -------------------
31 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 31 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
32 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
33 
Call Get_Iss_Parameters ( parIss_db, parIss_id )
 32 
Call Get_Iss_Parameters ( parIss_db, parIss_id )
34 
ddWidth = 20
 33 
ddWidth = 20
35 
'----------------------------------------------
 34 
'----------------------------------------------
36 
%>
 35 
%>
37 
<%
 36 
<%
38 
Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ )
 37 
Sub Get_Issue_Notes ( NNiss_db, NNiss_id, OOrsCQ )
39 
	Dim SQLstr
 38 
	Dim SQLstr
40 
	If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 39 
	If Cint(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
41 
		SQLstr = _
 40 
		SQLstr = _
- 
 
 41 
		" SELECT si.dbid AS iss_id, " &_
- 
 
 42 
        "        si.new_num AS iss_num," &_
- 
 
 43 
        "        si.headline AS summary," &_
42 
		" SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, his.action_timestamp AS change_stamp, his.user_name, "&_
 44 
        "        his.action_timestamp AS change_stamp," &_
- 
 
 45 
        "        his.user_name, "&_
43 
        "        his.action_name, his.new_state"&_
 46 
        "        his.action_name, " &_
- 
 
 47 
        "        his.new_state"&_
44 
    " FROM cq_devi.admin.software_issue si LEFT OUTER JOIN"&_
 48 
        " FROM release_manager.CQ_software_issue si LEFT OUTER JOIN"&_
45 
      "    cq_devi.admin.history his ON si.dbid = his.entity_dbid"&_
 49 
        "      release_manager.CQ_history his ON si.dbid = his.entity_dbid"&_
46 
		"  WHERE si.dbid =  "& NNiss_id &_
 50 
		"  WHERE si.dbid =  "& NNiss_id &_
47 
		"  ORDER BY his.action_timestamp"
 51 
		"  ORDER BY his.action_timestamp"
48 
 
 52 
 
49 
	OOrsCQ.ActiveConnection = CQ_conn
 53 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
50 
	OOrsCQ.Source = SQLstr
 - 
 
51 
	OOrsCQ.CursorType = 0
 - 
 
52 
	OOrsCQ.CursorLocation = 2
 - 
 
53 
	OOrsCQ.LockType = 3
 - 
 
54 
	OOrsCQ.Open()
 54 
    End If
55 
End Sub
 55 
End Sub
56 
%>
 56 
%>
57 
<%
 57 
<%
58 
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
 58 
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
59 
%>
 59 
%>