Subversion Repositories DevTools

Rev

Rev 5957 | Rev 6181 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 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
%>
6048 dpurdie 22
<!--#include file="_access_control_login.asp"-->
5357 dpurdie 23
<!--#include file="_access_control_general.asp"-->
24
<%
25
'------------ Variable Definition -------------
26
Dim parPv_id
27
Dim parRfile
28
Dim rsPkgInfo
29
Dim errMessage
30
Dim rsTemp
31
'------------ Constants Declaration -----------
32
'------------ Variable Init -------------------
33
parPv_id = Request("pv_id")
34
parRfile = Request("rfile")
35
'----------------------------------------------
36
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
37
'----------------------------------------------
38
%>
39
<%
40
'--------------------------------------------------------------------------------------------------------------------------------------
41
'--------------------------------------------------------------------------------------------------------------------------------------
42
%>
43
<%
44
If Request("pv_id") <> "" Then
45
	Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
46
End If
47
%>
48
<%
49
'-----------------------  MAIN LINE  ---------------------------
50
'--- Process submition ---
51
If CBool(QStrPar("action")) Then
52
 
53
	'Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
54
 
55
	Call CloseWindow
56
 
57
End If
58
 
59
 
60
If Request("btn") = "Hide" Then
61
	' Store filter in cookie
62
	Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER) = Request("filefilter")
63
End If
64
 
65
If Request("btn2") = "Hide" Then
66
	' Store filter in cookie
67
	Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER) = Request("depfilter")
68
End If
69
'---------------------------------------------------------------
70
%>
71
<html>
72
<head>
73
<title>Release Manager</title>
74
<link rel="shortcut icon" href="<%=FavIcon%>"/>
75
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
76
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
77
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
78
<link rel="stylesheet" href="images/navigation.css" type="text/css">
79
<script language="JavaScript" src="images/common.js"></script>
80
</head>
81
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
82
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
83
<form name="filanform" method="get" action="<%=ScriptName%>">
84
  <tr>
85
    <td background="images/bg_admin_dark.gif" class="lbox_ttl_w"><%= pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%> </td>
86
    <td align="right" background="images/bg_admin_dark.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Close"></td>
87
  </tr>
88
  	<input type="hidden" name="rfile" value="<%=parRFile%>">
89
	<input type="hidden" name="pv_id" value="<%=parPv_id%>">
90
	<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
91
	<input type="hidden" name="action" value="true">
92
</form>	
93
</table>
94
<!--#include file="_mod_dependency_changes.asp"-->
95
</body>
96
</html>
97
<!-- DESTRUCTOR ------->
119 ghuddy 98
<!--#include file="common/destructor.asp"-->