Subversion Repositories DevTools

Rev

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

Rev 3975 Rev 4553
Line 3... Line 3...
3 
'								CQ common subs
 3 
'								CQ common subs
4 
'===================================================================================
 4 
'===================================================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'------------------------------------------------------------------------------------------------------------------------------------
 7 
'------------------------------------------------------------------------------------------------------------------------------------
- 
 
 8 
'   ClearQuest support
- 
 
 9 
'   Converts a DEVI Number in a ClearQuest ID
- 
 
 10 
'   Appears to the reverse of common_dbedit.asp::GetIssueNumber()
- 
 
 11 
'
- 
 
 12 
'   Arguments are passed in via the environment Requests
- 
 
 13 
'   Results are exported via argumements
- 
 
 14 
'
- 
 
 15 
'   Dpurdie: I have a deep suspicion that the databse lookup is never used
- 
 
 16 
'            and that the data is extracted from the iss_db and iss_id requests
- 
 
 17 
'
8 
Sub Get_Iss_Parameters ( nIss_db, nIss_id )
 18 
Sub Get_Iss_Parameters ( nIss_db, nIss_id )
9 
	Dim SQLstr, rsQry
 19 
	Dim SQLstr, rsQry
10 
	Set rsQry = Server.CreateObject("ADODB.Recordset")
 20 
    ' If the required info is being persisted in the query then use it
11 
 
 21 
    '
12 
	If Request("iss_db") <> "" AND Request("iss_id") <> "" Then
 22 
	If Request("iss_db") <> "" AND Request("iss_id") <> "" Then
13 
		nIss_db = Cint(Request("iss_db"))
 23 
		nIss_db = Cint(Request("iss_db"))
14 
		nIss_id = Request("iss_id")
 24 
		nIss_id = Request("iss_id")
15 
 
 25 
 
- 
 
 26 
    '
- 
 
 27 
    ' Request contains info that must be converted
- 
 
 28 
    '
16 
	ElseIf Request("iss_db_name") <> "" AND Request("iss_id_num") <> "" Then
 29 
	ElseIf Request("iss_db_name") <> "" AND Request("iss_id_num") <> "" Then
17 
		If Ucase(Request("iss_db_name")) = "DEVI" Then
 30 
		If Ucase(Request("iss_db_name")) = "DEVI" Then
18 
			nIss_db = enumCLEARQUEST_DEVI_ID
 31 
			nIss_db = enumCLEARQUEST_DEVI_ID
19 
			SQLstr = _
 32 
			SQLstr = _
20 
			" SELECT si.dbid"&_
 33 
			" SELECT si.dbid"&_
21 
      "   FROM cq_devi.admin.software_issue si"&_
 34 
            "   FROM release_manager.cq_software_issue si"&_
22 
			"  WHERE si.new_num = '"& Request("iss_id_num") &"'"
 35 
			"   WHERE si.new_num = '"& Request("iss_id_num") &"'"
23 
		Else
 36 
		Else
24 
			' Database name unknown!
 37 
			' Database name unknown!
25 
			' Error message...
 38 
			' Error message...
26 
			Call RaiseMsg ( enum_WMSG_ERROR, "Database name "& Request("iss_db_name") &" is unknown!" )
 39 
			Call RaiseMsg ( enum_WMSG_ERROR, "Database name "& Request("iss_db_name") &" is unknown!" )
27 
		End If
 40 
		End If
28 
 
 41 
 
29 
		' Get Iss ID
 42 
		' Get Iss ID
30 
		rsQry.ActiveConnection = CQ_conn
 43 
        Set rsQry = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
31 
		rsQry.Source = SQLstr
 - 
 
32 
		rsQry.CursorType = 0
 - 
 
33 
		rsQry.CursorLocation = 2
 - 
 
34 
		rsQry.LockType = 3
 - 
 
35 
		rsQry.Open()
 - 
 
36 
 
 44 
 
37 
		If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 45 
		If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
38 
			nIss_id = rsQry("dbid")
 46 
			nIss_id = rsQry("dbid")
39 
		Else
 47 
		Else
40 
			' Iss number is not found!
 48 
			' Iss number is not found!