Subversion Repositories DevTools

<%
'=====================================================
'                       VERSIONS HISTORY MAIN
'=====================================================
%>
<%
'------------ Variable Definition -------------
Dim parPkg_id
Dim parPv_id
Dim parOLDpv_id
Dim parRfile
Dim sPkg_Name
Dim sPkg_Version
Dim bIsPatch
Dim outIsPatch
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPkg_id = Request ( "pkg_id" )
parPv_id = Request ( "pv_id" )
parOLDpv_id = Request ( "OLDpv_id" ) 
parRfile = Request ( "rfile" )
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------------------
Function DBGet_Pkg_Name ( nPkg_id )
        Dim rsTemp, Query_String
        If IsEmpty( nPkg_id ) Then Exit Function
        
        Query_String = _
        " SELECT pkg.pkg_name"&_
        "   FROM packages pkg"&_
        "  WHERE pkg.pkg_id = "& nPkg_id
        
        Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
        
        If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
                DBGet_Pkg_Name = rsTemp.Fields("pkg_name")
        End If
        
        rsTemp.Close
        Set rsTemp = nothing
End Function
'-----------------------------------------------------------------------------------------------------------------------------------
Sub DBGet_Pkg_Name_And_Version ( nPv_id, nPkg_id, outPkg_Name, outPkg_Version, outIsPatch )
        Dim rsTemp, Query_String
        outIsPatch = FALSE
        
        If IsEmpty( nPv_id ) Then 
                outPkg_Name = DBGet_Pkg_Name ( nPkg_id )
                Exit Sub
        End If
        
        Query_String = _
        " SELECT pkg.pkg_name, pv.pkg_version, pv.is_patch"&_
        "   FROM PACKAGES pkg, PACKAGE_VERSIONS pv"&_
        "  WHERE pv.pkg_id = pkg.pkg_id"&_
        "    AND pv.pv_id = "& nPv_id
        
        Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
        
        If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
                outPkg_Name = rsTemp.Fields("pkg_name")
                outPkg_Version = rsTemp.Fields("pkg_version")
                If rsTemp("is_patch") = "Y" Then outIsPatch = TRUE
        End If
        
        rsTemp.Close
        Set rsTemp = nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------------------------
Function Set_Row_Style ( sLink )
        Set_Row_Style = "onMouseOver='this.style.cursor=""pointer""' onClick='location.href="""& sLink &"""' "
End Function
'-----------------------------------------------------------------------------------------------------------------------------------
%>
<%
'----------------- Page Requirements ---------------------------
If CBool(QStrPar("action")) AND (objAccessControl.UserLogedIn) Then
        Call OpenInParentWindow ("_new_version.asp?OLDpv_id="& parOLDpv_id &"&rtag_id="& parRtag_id &"&pv_id="& parPv_id )
        Call CloseWindow
Else
        ' ------- Page Parameter Requirements ----------
        If (parPkg_id = "") OR (parRfile = "") Then
                Call RaiseMsg ( enum_WMSG_ERROR, "This page requires more parameters to run!<br>"& Request.ServerVariables("QUERY_STRING") )
        End If
        
End If

'Call DBGet_Pkg_Name_And_Version ( parPv_id, parPkg_id, sPkg_Name, sPkg_Version, bIsPatch )
'------------------------------------------------------------------------------------------
Call Get_Pkg_Info ( parPv_id, Request("rtag_id") )

sPkg_Name = pkgInfoHash.Item("pkg_name")
sPkg_Version = pkgInfoHash.Item("pkg_version")

bIsPatch = FALSE
If pkgInfoHash.Item("is_patch") = "Y" Then outIsPatch = TRUE

%>