Subversion Repositories DevTools

Rev

Rev 1283 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1283 Rev 3938
Line 32... Line 32...
32
'------------ Variable Init -------------------
32
'------------ Variable Init -------------------
33
'----------------------------------------------
33
'----------------------------------------------
34
%>
34
%>
35
<%
35
<%
36
Function Get_Personal_Views ( NNuser_id )
36
Function Get_Personal_Views ( NNuser_id )
37
	Get_Personal_Views = ReadFile( rootPath & "queries\personal_views_list.qry" )
37
   Get_Personal_Views = ReadFile( rootPath & "queries\personal_views_list.qry" )
38
	Get_Personal_Views = Replace( Get_Personal_Views, "$USER_ID$", NNuser_id)
38
   Get_Personal_Views = Replace( Get_Personal_Views, "$USER_ID$", NNuser_id)
39
End Function
39
End Function
40
 
40
 
41
Sub Remove_View_Settings ( NNuser_id )
41
Sub Remove_View_Settings ( NNuser_id )
-
 
42
   objEH.TryORA ( OraSession )
42
	OraSession.BeginTrans
43
   On Error Resume Next
43
	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 &")"
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 &")"
44
  	OraSession.CommitTrans
45
   objEH.CatchORA ( OraSession )
45
End Sub
46
End Sub
46
 
47
 
47
Sub Insert_View_Settings ( NNuser_id, SSpersonalshow )
48
Sub Insert_View_Settings ( NNuser_id, SSpersonalshow )
48
	If SSpersonalshow <> "" Then
49
   If SSpersonalshow <> "" Then
-
 
50
      objEH.TryORA ( OraSession )
49
	OraSession.BeginTrans
51
      On Error Resume Next
50
	OraDatabase.ExecuteSQL " INSERT INTO view_settings"&_
52
      OraDatabase.ExecuteSQL " INSERT INTO view_settings"&_
51
						   " SELECT TO_NUMBER('"& NNuser_id &"') AS user_id, vi.view_id FROM views vi WHERE vi.view_id IN ("& SSpersonalshow &")"
53
                             " SELECT TO_NUMBER('"& NNuser_id &"') AS user_id, vi.view_id FROM views vi WHERE vi.view_id IN ("& SSpersonalshow &")"
52
  	OraSession.CommitTrans
54
      objEH.CatchORA ( OraSession )
53
	End If
55
   End If
54
End Sub
56
End Sub
55
%>
57
%>
56
<%
58
<%
57
'--- Process submition ---
59
'--- Process submition ---
58
'If (QStrPar("action") <> "") Then
60
'If (QStrPar("action") <> "") Then
59
	' All mendatory parameters FOUND
61
   ' All mandatory parameters FOUND
60
'	Call Remove_View_Settings ( objAccessControl.UserId )
62
'	Call Remove_View_Settings ( objAccessControl.UserId )
61
'	Call Insert_View_Settings ( objAccessControl.UserId, Request("FRpersonalshow") )
63
'	Call Insert_View_Settings ( objAccessControl.UserId, Request("FRpersonalshow") )
62
'End If
64
'End If
63
%>
65
%>
64
<html>
66
<html>
Line 73... Line 75...
73
</head>
75
</head>
74
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
76
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
75
<!-- TIPS LAYERS -------------------------------------->
77
<!-- TIPS LAYERS -------------------------------------->
76
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
78
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
77
<!----------------------------------------------------->
79
<!----------------------------------------------------->
78
<!-- HEADER -->
80
<!-- HEADER ++++++++++++++++ -->
79
<%If objAccessControl.UserLogedIn Then%>
-
 
80
<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>
81
<!--#include file="_header.asp"-->
81
<%End If%>
-
 
82
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
-
 
83
  <tr>
-
 
84
    <td width="1%" background="images/bg_lite_blue.gif"><img src="images/p_header.gif" width="552" height="45"></td>
-
 
85
    <td width="100%" background="images/bg_lite_blue.gif">&nbsp;</td>
-
 
86
    <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>
-
 
87
  </tr>
-
 
88
  <tr>
-
 
89
    <td background="images/p_header_bottom.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
-
 
90
		<%If objAccessControl.UserLogedIn Then%>
-
 
91
        <tr>
-
 
92
          <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>
82
<!-- +++++++++++++++++++++++ -->
93
		  <!--
-
 
94
          <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>
-
 
95
          <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>
-
 
96
		  -->
-
 
97
		  
-
 
98
          <td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td>
-
 
99
          <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
-
 
100
        </tr>
-
 
101
		<%Else%>
-
 
102
		<tr>
-
 
103
          <td width="1" align="right"><img src="icons/ni_bar.gif" width="16" height="24"></td>
-
 
104
          <td width="100%" bgcolor="#FFFFFF">&nbsp;</td>
-
 
105
        </tr>
-
 
106
		<%End If%>
-
 
107
    </table></td>
-
 
108
    <td align="right" bgcolor="#FFFFFF"><%=ProgressBar()%></td>
-
 
109
  </tr>
-
 
110
</table>
-
 
111
<!-- BODY ---->
83
<!-- BODY ---->
112
<table width="100%" border="0" cellspacing="0" cellpadding="0">
84
<table width="100%" border="0" cellspacing="0" cellpadding="0">
113
  <tr> 
85
  <tr> 
114
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
86
    <td width="1%" background="images/bg_member_dark.gif" valign="top"> 
115
      <!-- MEMBERS MENU ---------------------------------------------->
87
      <!-- MEMBERS MENU ---------------------------------------------->