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 bCanInsertPkg

'------------ 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")
bCanInsertPkg = FALSE
bIsPatch = FALSE
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------------------
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

'----------------------------------------------------------------
'   Get some details of the base page
'   In particular, can it be replaced/edited. The calculation needs to be based on
'   The original pv_id, not the pv_id being selected
'
If parOLDpv_id <> "" Then
    Call Get_Pkg_Info ( parOLDpv_id, Request("rtag_id") )
    If pkgInfoHash.Item("can_edit_in_project") Then
        bCanInsertPkg = TRUE
    End If

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

    pkgInfoHash.RemoveAll
End If

'------------------------------------------------------------------------------------------
'   Get details of the selected package version
Call Get_Pkg_Info ( parPv_id, Request("rtag_id") )

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