Subversion Repositories DevTools

<%
'===================================================================================
'                                                               CQ common subs
'===================================================================================
%>
<%
'------------------------------------------------------------------------------------------------------------------------------------
'   ClearQuest support
'   Converts a DEVI Number in a ClearQuest ID
'   Appears to the reverse of common_dbedit.asp::GetIssueNumber()
'
'   Arguments are passed in via the environment Requests
'   Results are exported via argumements
'
'   Dpurdie: I have a deep suspicion that the databse lookup is never used
'            and that the data is extracted from the iss_db and iss_id requests 
'
Sub Get_Iss_Parameters ( nIss_db, nIss_id )
        Dim SQLstr, rsQry
    ' If the required info is being persisted in the query then use it
    '
        If Request("iss_db") <> "" AND Request("iss_id") <> "" Then
                nIss_db = Cint(Request("iss_db"))
                nIss_id = Request("iss_id")

    '
    ' Request contains info that must be converted
    '
        ElseIf Request("iss_db_name") <> "" AND Request("iss_id_num") <> "" Then
                If Ucase(Request("iss_db_name")) = "DEVI" Then
                        nIss_db = enumCLEARQUEST_DEVI_ID
                        SQLstr = _
                        " SELECT si.dbid"&_
            "   FROM release_manager.cq_software_issue si"&_
                        "   WHERE si.new_num = '"& Request("iss_id_num") &"'"
                Else
                        ' Database name unknown!
                        ' Error message...
                        Call RaiseMsg ( enum_WMSG_ERROR, "Database name "& Request("iss_db_name") &" is unknown!" )
                End If

                ' Get Iss ID
        Set rsQry = OraDatabase.DbCreateDynaset( SQLstr, cint(0))

                If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
                        nIss_id = rsQry("dbid")
                Else
                        ' Iss number is not found!
                        ' Error message...
                        Call RaiseMsg ( enum_WMSG_ERROR, "Issue number "& Request("iss_id_num") &" is not found in "& Request("iss_db_name") &" database!" )
                End If

                rsQry.Close
                Set rsQry = nothing
        Else
                ' Not enought parameters
                ' Error message...
                Call RaiseMsg ( enum_WMSG_ERROR, "This page requires more parameters to run!" )

        End If
End Sub
'------------------------------------------------------------------------------------------------------------------------------------
%>