Subversion Repositories DevTools

<%
'=====================================================
'                                               QSTR
'=====================================================
' List all your query string parameters which need to be persistant
%>
<%
Sub Store_QSTR_parameter ( SScookie, SSpar, SSQSTR )
        If NOT IsEmpty(Request( SSpar )) Then
                'SSQSTR = SSQSTR &"&"& SSpar &"=" & Request(SSpar)(1)
                'Store to cookie
                If SScookie = "Y" Then
                        Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar) = Request(SSpar)(1)
                ElseIf SScookie = "N" Then
                        Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar) = ""
                End If
                
        End If
End Sub

Function QStrPar ( SSpar )
        If NOT IsEmpty(Request( SSpar )) Then
                QStrPar = Request(SSpar)(1)
        Else
                If NOT IsEmpty(Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)) Then
                        QStrPar = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)(SSpar)
                End If
        End If
End Function

Function QSTR_All
        'QSTR_All = "&" & Request.ServerVariables("QUERY_STRING") 
        QSTR_All = "&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") 
End Function

Function QSTR_FullQuery
        QSTR_FullQuery = Request.ServerVariables("QUERY_STRING") 
    If QSTR_FullQuery <> "" Then
        QSTR_FullQuery = "&" & QSTR_FullQuery
    End If
End Function

Function Persists_Query_String ( sNewParamVals )
        Dim aParameters, sParam, tempSTR
        tempSTR = ""
        If NOT IsEmpty(sNewParamVals) Then
                For Each sParam In Request.QueryString
                        If InStr ( sNewParamVals, sParam &"=") < 1 Then
                                tempSTR = tempSTR & sParam &"="& Request( sParam ) &"&"
                        End If
                Next
                Persists_Query_String = tempSTR & sNewParamVals
                
        Else
                Persists_Query_String = Request.ServerVariables("QUERY_STRING")
                
        End If
        
End Function
%>
<%
Dim QSTR
QSTR = ""

'Call Store_QSTR_parameter ( "hidelocal", QSTR )
'Call Store_QSTR_parameter ( "showext", QSTR )
Call Store_QSTR_parameter ( "N", "tab", QSTR )
'Call Store_QSTR_parameter ( "N", "pv_id", QSTR )
'Call Store_QSTR_parameter ( "N", "group_id", QSTR )
'Call Store_QSTR_parameter ( "N", "rtag_id", QSTR )
Call Store_QSTR_parameter ( "Y", "Bshow", QSTR )
Call Store_QSTR_parameter ( "Y", "Pshow", QSTR )
'Call Store_QSTR_parameter ( "Y", "OLshow", QSTR )
Call Store_QSTR_parameter ( "Y", "Pview", QSTR )
Call Store_QSTR_parameter ( "Y", "Dview", QSTR )
'Call Store_QSTR_parameter ( "N", "localscript", QSTR )
'Call Store_QSTR_parameter ( "extpkg", QSTR )
'Call Store_QSTR_parameter ( "extrtag_id", QSTR )
%>