Subversion Repositories DevTools

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'                                       Dependency Changes
'               --- PROCESS FORM ---
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0    ' always load the page, dont store
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parRfile
Dim rsPkgInfo
Dim errMessage
Dim rsTemp
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = Request("pv_id")
parRfile = Request("rfile")
'----------------------------------------------
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------------------------------------
%>
<%
If Request("pv_id") <> "" Then
        Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
End If
%>
<%
'-----------------------  MAIN LINE  ---------------------------
'--- Process submition ---
If CBool(QStrPar("action")) Then
        
        'Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
        
        Call CloseWindow
        
End If


If Request("btn") = "Hide" Then
        ' Store filter in cookie
        Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER) = Request("filefilter")
End If

If Request("btn2") = "Hide" Then
        ' Store filter in cookie
        Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER) = Request("depfilter")
End If
'---------------------------------------------------------------
%>
<html>
<head>
<title>Release Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
<link rel="stylesheet" href="images/navigation.css" type="text/css">
<script language="JavaScript" src="images/common.js"></script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
<form name="filanform" method="get" action="<%=ScriptName%>">
  <tr>
    <td background="images/bg_admin_dark.gif" class="lbox_ttl_w"><%= pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%> </td>
    <td align="right" background="images/bg_admin_dark.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Close"></td>
  </tr>
        <input type="hidden" name="rfile" value="<%=parRFile%>">
        <input type="hidden" name="pv_id" value="<%=parPv_id%>">
        <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
        <input type="hidden" name="action" value="true">
</form> 
</table>
<!--#include file="_mod_dependency_changes.asp"-->
</body>
</html>


<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->