WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/common/common_subs.asp

    Dim rsQry,query
    ' Set defaults
    nProjId    = -1
    nRtagId    = -1
-   nPvId       = -1
+   nPvId      = -1
    ' Get parameters from database
    OraDatabase.Parameters.Add "ProjId",        Request("proj_id"),   ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "Rtag_id",       Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "results",       NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR
    If rsQry.RecordCount > 0 Then
       nProjId    = CDbl(rsQry("PROJ_ID"))
       nRtagId    = CDbl(rsQry("RTAG_ID"))
    End If
    rsQry.Close()
    Set rsQry = nothing
    ' Set pv_id parameter
    If Request("pv_id") <> "" Then nPvId = CDbl(Request("pv_id"))
 End Function
 '-----------------------------------------------------------------------------------------------------------------------------
 Function GetEnvName ( nEnvTab )
    Select Case CInt( nEnvTab )
       Case enumENVTAB_WORK_IN_PROGRESS
 	objEH.CatchORA ( OraSession )
 	OraDatabase.Parameters.Remove "RETURN_CODE"
 	OraDatabase.Parameters.Remove "RTAG_ID"
 	OraDatabase.Parameters.Remove "PV_ID"
+End Function
+'--------------------------------------------------------------------------------------------------------------------------
+'   Returns either the value of the Request('tag') or the default value
+Function RequestDefault(stag, sdefault)
+   If Request(stag) <> "" Then
+       RequestDefault = Request(stag)
+   Else
+       RequestDefault = sdefault
+   End If
 End Function
 %>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/common/common_subs.asp @ 5177 – Rev 5175 → 5177