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 = _
42 
		" SELECT dbid AS iss_id, new_num AS iss_num, headline AS summary, notes_log"&_
 41 
        "SELECT dbid AS iss_id, new_num AS iss_num, headline AS summary, dbms_lob.substr( notes_log, 4000, 1 ) as notes_log"&_
43 
    "   FROM cq_devi.admin.software_issue si"&_
 42 
        " FROM release_manager.CQ_software_issue si"&_
44 
		"  WHERE si.dbid = "& NNiss_id
 43 
        " WHERE si.dbid = "& NNiss_id
45 
	End If
 44 
    End If
46 
	OOrsCQ.ActiveConnection = CQ_conn
 45 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
47 
	OOrsCQ.Source = SQLstr
 - 
 
48 
	OOrsCQ.CursorType = 0
 - 
 
49 
	OOrsCQ.CursorLocation = 2
 - 
 
50 
	OOrsCQ.LockType = 3
 - 
 
51 
	OOrsCQ.Open()
 - 
 
52 
End Sub
 46 
End Sub
53 
%>
 47 
%>
54 
<%
 48 
<%
55 
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
 49 
Call Get_Issue_Notes ( parIss_db, parIss_id, rsCQ )
56 
%>
 50 
%>