Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	   EDIT Personal View
 4 
'                 EDIT Personal View
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
Line 37... Line 37...
37 
parPubread = QStrPar("FRpubread")
 37 
parPubread = QStrPar("FRpubread")
38 
'----------------------------------------------
 38 
'----------------------------------------------
39 
%>
 39 
%>
40 
<%
 40 
<%
41 
Sub Update_View ( NNview_id, SSViewName, SSPubread )
 41 
Sub Update_View ( NNview_id, SSViewName, SSPubread )
42 
	Dim rsTemp, Query_String
 42 
   Dim rsTemp, Query_String
43 
	If SSPubread = "" Then SSPubread = "N"
 43 
   If SSPubread = "" Then SSPubread = "N"
44 
	Query_String = _
 44 
   Query_String = _
45 
	" SELECT *"&_
 45 
   " SELECT *"&_
46 
	" FROM views"&_
 46 
   " FROM views"&_
47 
	" WHERE view_id = "& NNview_id
47 
   " WHERE view_id = "& NNview_id
48
48 
 
49 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 49 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
50
50 
 
51 
	'update fields
 51 
   'update fields
52 
	rsTemp.Edit
 52 
   rsTemp.Edit
53 
	rsTemp.Fields("view_name").Value = SSViewName
 53 
   rsTemp.Fields("view_name").Value = SSViewName
54 
	rsTemp.Fields("public_read").Value = SSPubread
 54 
   rsTemp.Fields("public_read").Value = SSPubread
55 
	rsTemp.Update
 55 
   rsTemp.Update
56
56 
 
57 
	rsTemp.Close
 57 
   rsTemp.Close
58 
	Set rsTemp = nothing
 58 
   Set rsTemp = nothing
59 
End Sub
 59 
End Sub
60 
 
 60 
 
61 
Sub Update_View_Definition ( NNview_id, SSPkgInc )
 61 
Sub Update_View_Definition ( NNview_id, SSPkgInc )
62 
	' Remove current view definition
 62 
   ' Remove current view definition
63 
	OraSession.BeginTrans
 63 
   On Error Resume Next
- 
 
 64 
   objEH.TryORA ( OraSession )
64 
	OraDatabase.ExecuteSQL "DELETE FROM view_def WHERE view_id = "& NNview_id
 65 
   OraDatabase.ExecuteSQL "DELETE FROM view_def WHERE view_id = "& NNview_id
65 
  	OraSession.CommitTrans
 66 
   objEH.CatchORA ( OraSession )
66
- 
 
- 
 
 67 
   If objEH.LastOraFailed = FALSE Then
67 
	' Set view definition
 68 
      ' Set view definition
68 
	If SSPkgInc <> "" Then
 69 
      If SSPkgInc <> "" Then
69 
		OraSession.BeginTrans
 70 
         objEH.TryORA ( OraSession )
70 
		OraDatabase.ExecuteSQL _
 71 
         OraDatabase.ExecuteSQL _
71 
			" INSERT INTO view_def"&_
 72 
            " INSERT INTO view_def"&_
72 
			" SELECT TO_NUMBER('"& NNview_id &"') AS view_id, pkg_id FROM packages WHERE pkg_id IN ("& SSPkgInc &")"
 73 
            " SELECT TO_NUMBER('"& NNview_id &"') AS view_id, pkg_id FROM packages WHERE pkg_id IN ("& SSPkgInc &")"
73 
	  	OraSession.CommitTrans
 74 
         objEH.CatchORA ( OraSession )
- 
 
 75 
      End If
74 
	End If
 76 
   End If
75 
End Sub
 77 
End Sub
76 
%>
 78 
%>
77 
<%
 79 
<%
78 
'-----------------------  MAIN LINE  ---------------------------
 80 
'-----------------------  MAIN LINE  ---------------------------
79 
 
 81 
 
80 
'--- Process submition ---
 82 
'--- Process submition ---
81 
If (parView_id <> "") AND (parViewName <> "") Then
 83 
If (parView_id <> "") AND (parViewName <> "") Then
82 
	' All mendatory parameters FOUND
 84 
   ' All mendatory parameters FOUND
83
85 
 
84 
	' report errors if found
 86 
   ' report errors if found
85 
	If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
87 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
86 
		Session("reqParam") = ""
 88 
      Session("reqParam") = ""
87 
		Session("ERRlog") = ""
 89 
      Session("ERRlog") = ""
88 
		Session("ERRlogFULL") = ""
 90 
      Session("ERRlogFULL") = ""
89 
		Response.Redirect("message.asp?msg=401-4")
 91 
      Response.Redirect("message.asp?msg=401-4")
90 
	End If
 92 
   End If
91
93 
 
92 
	'COMPLETE THE REQUEST...
 94 
   'COMPLETE THE REQUEST...
93 
	Call Update_View ( parView_id, parViewName, parPubread )
 95 
   Call Update_View ( parView_id, parViewName, parPubread )
94 
	Call Update_View_Definition ( parView_id, parPkgInc )
 96 
   Call Update_View_Definition ( parView_id, parPkgInc )
95
97 
 
96 
	Response.Redirect("members_personal_view.asp")
 98 
   Response.Redirect("members_personal_view.asp")
97 
Else
 99 
Else
98 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 100 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
99 
	Response.write QSTR_All
101 
   Response.write QSTR_All
100 
End If
 102 
End If
101 
%>
 103 
%>
102 
 
 104 
 
103 
<!-- DESTRUCTOR ------->
 105 
<!-- DESTRUCTOR ------->
104 
<!--#include file="common/destructor.asp"-->
 - 
 
105 

            106
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            107