Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
5356 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|				    	MEMBERS					     |
6
'|                       INDEX                 		 |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
13
%>
14
<!--#include file="common/config.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/common_subs.asp"-->
18
<%'Refresh parent window after the child window is closed
19
'If QStrPar("refresh") = "true" Then
5962 dpurdie 20
'   Call Destroy_All_Objects
5356 dpurdie 21
'	Response.Redirect( scriptName &"?done=done"& QSTR)	' Note: "done" parameter is required as QSTR cannot stant on its own.
22
'End If
23
%>
24
<%
25
'------------ ACCESS CONTROL ------------------
26
%>
27
 
28
<!--#include file="_access_control_general.asp"-->
29
<%
30
'------------ Variable Definition -------------
31
Dim rsTemp
32
'------------ Constants Declaration -----------
33
'------------ Variable Init -------------------
34
'----------------------------------------------
35
%>
36
<%
37
Function Get_Personal_Views ( NNuser_id )
38
	Get_Personal_Views = ReadFile( rootPath & "queries\personal_views_list.qry" )
39
	Get_Personal_Views = Replace( Get_Personal_Views, "$USER_ID$", NNuser_id)
40
End Function
41
 
42
Sub Remove_View_Settings ( NNuser_id )
43
	OraSession.BeginTrans
44
	OraDatabase.ExecuteSQL " DELETE FROM view_settings vis WHERE vis.user_id = "& NNuser_id &" AND vis.view_id IN (SELECT vi.view_id FROM views vi WHERE vi.owner_id = "& NNuser_id &")"
45
  	OraSession.CommitTrans
46
End Sub
47
 
48
Sub Insert_View_Settings ( NNuser_id, SSpersonalshow )
49
	If SSpersonalshow <> "" Then
50
	OraSession.BeginTrans
51
	OraDatabase.ExecuteSQL " INSERT INTO view_settings"&_
52
						   " SELECT TO_NUMBER('"& NNuser_id &"') AS user_id, vi.view_id FROM views vi WHERE vi.view_id IN ("& SSpersonalshow &")"
53
  	OraSession.CommitTrans
54
	End If
55
End Sub
56
%>
57
<%
58
'--- Process submition ---
59
'If (QStrPar("action") <> "") Then
60
	' All mendatory parameters FOUND
61
'	Call Remove_View_Settings ( objAccessControl.UserId )
62
'	Call Insert_View_Settings ( objAccessControl.UserId, Request("FRpersonalshow") )
63
'End If
64
%>
65
<html>
66
<head>
67
<title>Deployment Manager</title>
68
<link rel="shortcut icon" href="<%=FavIcon%>"/>
69
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
70
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
71
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
72
<link rel="stylesheet" href="images/navigation.css" type="text/css">
73
<script language="JavaScript" src="images/common.js"></script>
74
</head>
75
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
76
<!-- TIPS LAYERS -------------------------------------->
77
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
78
<!----------------------------------------------------->
79
<!-- HEADER -->
80
<%If objAccessControl.UserLogedIn Then%>
81
<div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="#"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%> disabled" title="Logout from <%=objAccessControl.UserName%> disabled"></a></div>
82
<%End If%>
83
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
84
  <tr>
85
    <td width="1%" background="images/bg_lite_blue.gif"><img src="images/p_header.gif" width="552" height="45"></td>
86
    <td width="100%" background="images/bg_lite_blue.gif">&nbsp;</td>
87
    <td width="1%" rowspan="2" valign="bottom" background="images/bg_lite_blue.gif"><a href="Default.asp"><img src="images/dm_logo.gif" alt="Home" title="Home" width="241" height="69" border="0"></a></td>
88
  </tr>
89
  <tr>
90
    <td background="images/p_header_bottom.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
91
		<%If objAccessControl.UserLogedIn Then%>
92
        <tr>
93
          <div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="_Logout.asp"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%>" title="Logout from <%=objAccessControl.UserName%>"></a></div>
94
		  <!--
95
          <td width="1%"><a href="CommingSoon.asp"><img src="icons/ni_new_product.gif" title="New product has arrived." width="18" height="18" hspace="2" border="0"></a></td>
96
          <td width="1"><a href="CommingSoon.asp"><img src="icons/ni_notifier.gif" title="Email notification." width="18" height="18" hspace="2" border="0"></a></td>
97
		  -->
98
 
99
          <td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td>
100
          <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
101
        </tr>
102
		<%Else%>
103
		<tr>
104
          <td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td>
105
          <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
106
        </tr>
107
		<%End If%>
108
    </table></td>
109
    <td align="right" bgcolor="#FFFFFF"><%=ProgressBar()%></td>
110
  </tr>
111
</table>
112
<!-- BODY ---->
113
<table width="100%" border="0" cellspacing="0" cellpadding="0">
114
  <tr> 
115
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
116
      <!-- MEMBERS MENU ---------------------------------------------->
117
	  <!--#include file="members_menu_def.asp"-->
118
	  <%Call Member_Menu( "" )%>
119
      <!--  MEMBERS MENU END ------------------------------------------>
120
    </td>
121
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="default.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
122
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap> 
123
      <!------------------------------------------->
124
      <br>
125
      <!-------------------------------------------------------->
126
    </td>
127
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_view.gif" width="249" height="144" vspace="10" hspace="10"></td>
128
  </tr>
129
  <tr> 
130
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
131
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
132
  </tr>
133
</table>
134
<!-- FOOTER -->
135
<!--#include file="_footer.asp"-->
136
</body>
137
</html>