Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
129 ghuddy 5
'|                      MEMBERS                      |
6
'|                      INDEX                        |
119 ghuddy 7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
129 ghuddy 12
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 13
%>
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<%'Refresh parent window after the child window is closed
20
If QStrPar("refresh") = "true" Then
129 ghuddy 21
   Response.Redirect( scriptName &"?done=done"& QSTR)   ' Note: "done" parameter is required as QSTR cannot stant on its own.
119 ghuddy 22
End If
23
%>
24
<%
25
'------------ ACCESS CONTROL ------------------
26
%>
27
<!--#include file="_access_control_login.asp"-->
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 )
129 ghuddy 38
   Get_Personal_Views = ReadFile( rootPath & "queries\personal_views_list.qry" )
39
   Get_Personal_Views = Replace( Get_Personal_Views, "$USER_ID$", NNuser_id)
119 ghuddy 40
End Function
41
 
42
Sub Remove_View_Settings ( NNuser_id )
129 ghuddy 43
   objEH.TryORA ( OraSession )
44
   On Error Resume Next
45
   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 &")"
46
   objEH.CatchORA ( OraSession )
119 ghuddy 47
End Sub
48
 
49
Sub Insert_View_Settings ( NNuser_id, SSpersonalshow )
129 ghuddy 50
   If SSpersonalshow <> "" Then
51
      objEH.TryORA ( OraSession )
52
      On Error Resume Next
53
      OraDatabase.ExecuteSQL " INSERT INTO view_settings"&_
54
                             " SELECT TO_NUMBER('"& NNuser_id &"') AS user_id, vi.view_id FROM views vi WHERE vi.view_id IN ("& SSpersonalshow &")"
55
      objEH.CatchORA ( OraSession )
56
   End If
119 ghuddy 57
End Sub
58
%>
59
<%
60
'--- Process submition ---
61
If (QStrPar("action") <> "") Then
129 ghuddy 62
   ' All mendatory parameters FOUND
63
   Call Remove_View_Settings ( objAccessControl.UserId )
64
   Call Insert_View_Settings ( objAccessControl.UserId, Request("FRpersonalshow") )
119 ghuddy 65
End If
66
%>
67
<html>
68
<head>
69
<title>Release Manager</title>
70
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
71
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
72
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
73
<link rel="stylesheet" href="images/navigation.css" type="text/css">
74
<script language="JavaScript" src="images/common.js"></script>
75
</head>
76
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
77
<!-- TIPS LAYERS -------------------------------------->
78
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
79
<!----------------------------------------------------->
80
<!-- HEADER -->
81
<%If objAccessControl.UserLogedIn Then%>
82
<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>
83
<%End If%>
84
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 85
  <tr>
119 ghuddy 86
    <td><a href="index.asp"><img src="images/b_release_manager.jpg" width="467" height="50" border="0"></a></td>
87
    <td valign="bottom" align="right">&nbsp;</td>
88
  </tr>
129 ghuddy 89
  <tr>
119 ghuddy 90
    <td align=left noWrap valign=center width=150 background="images/h_dot.gif" height="1"></td>
91
    <td background="images/h_dot.gif" height="1"></td>
92
  </tr>
93
</table>
94
<!-- BODY ---->
95
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 96
  <tr>
97
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
119 ghuddy 98
      <!-- MEMBERS MENU ---------------------------------------------->
129 ghuddy 99
     <!--#include file="members_menu_def.asp"-->
100
     <%Call Member_Menu( "" )%>
119 ghuddy 101
      <!--  MEMBERS MENU END ------------------------------------------>
102
    </td>
103
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
129 ghuddy 104
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
119 ghuddy 105
      <!------------------------------------------->
106
      <br>
107
      <!-------------------------------------------------------->
108
    </td>
109
    <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>
110
  </tr>
129 ghuddy 111
  <tr>
119 ghuddy 112
    <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>
113
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
114
  </tr>
115
</table>
116
<!-- FOOTER -->
117
<!--#include file="_footer.asp"-->
118
</body>
119
</html>
120
<%
121
Call Destroy_All_Objects
129 ghuddy 122
%>