Subversion Repositories DevTools

Rev

Rev 119 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'		 	   		Dependency Changes
5
'               --- PROCESS FORM ---
6
'=====================================================
7
%>
8
<%
9
Option explicit
10
' Good idea to set when using redirect
11
Response.Expires = 0	' always load the page, dont store
12
%>
13
<!--#include file="common/conf.asp"-->
14
<!--#include file="common/globals.asp"-->
15
<!--#include file="common/formating.asp"-->
16
<!--#include file="common/qstr.asp"-->
17
<!--#include file="common/common_subs.asp"-->
18
<!--#include file="common/common_dbedit.asp"-->
19
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
22
<!--#include file="_access_control_general.asp"-->
23
<%
24
'------------ Variable Definition -------------
25
Dim parPv_id
26
Dim parRfile
27
Dim rsPkgInfo
28
Dim errMessage
29
Dim rsTemp
30
'------------ Constants Declaration -----------
31
'------------ Variable Init -------------------
32
parPv_id = Request("pv_id")
33
parRfile = Request("rfile")
34
'----------------------------------------------
35
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
36
'----------------------------------------------
37
%>
38
<%
39
'--------------------------------------------------------------------------------------------------------------------------------------
40
'--------------------------------------------------------------------------------------------------------------------------------------
41
%>
42
<%
43
If Request("pv_id") <> "" Then
44
	Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
45
End If
46
%>
47
<%
48
'-----------------------  MAIN LINE  ---------------------------
49
'--- Process submition ---
50
If CBool(QStrPar("action")) Then
51
 
52
	'Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
53
 
54
	Call CloseWindow
55
 
56
End If
57
 
58
 
59
If Request("btn") = "Hide" Then
60
	' Store filter in cookie
61
	Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER) = Request("filefilter")
62
End If
63
 
64
If Request("btn2") = "Hide" Then
65
	' Store filter in cookie
66
	Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER) = Request("depfilter")
67
End If
68
'---------------------------------------------------------------
69
%>
70
<html>
71
<head>
72
<title>Release Manager</title>
73
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
74
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
75
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
76
<link rel="stylesheet" href="images/navigation.css" type="text/css">
77
<script language="JavaScript" src="images/common.js"></script>
78
</head>
79
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
80
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
81
<form name="filanform" method="get" action="<%=ScriptName%>">
82
  <tr>
83
    <td background="images/bg_admin_dark.gif" class="lbox_ttl_w"><%= pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%> </td>
84
    <td align="right" background="images/bg_admin_dark.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Close"></td>
85
  </tr>
86
  	<input type="hidden" name="rfile" value="<%=parRFile%>">
87
	<input type="hidden" name="pv_id" value="<%=parPv_id%>">
88
	<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
89
	<input type="hidden" name="action" value="true">
90
</form>	
91
</table>
92
<!--#include file="_mod_dependency_changes.asp"-->
93
</body>
94
</html>
95
 
96
 
97
<!-- DESTRUCTOR ------->
98
<!--#include file="common/destructor.asp"-->