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 Public View
 4 
'                 EDIT Public 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 35... Line 35...
35 
parPkgInc = QStrPar("FRpkginc")
 35 
parPkgInc = QStrPar("FRpkginc")
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
Sub Update_View ( NNview_id, SSViewName )
 39 
Sub Update_View ( NNview_id, SSViewName )
40 
	Dim rsTemp, Query_String
 40 
   Dim rsTemp, Query_String
41 
	Query_String = _
 41 
   Query_String = _
42 
	" SELECT *"&_
 42 
   " SELECT *"&_
43 
	" FROM views"&_
 43 
   " FROM views"&_
44 
	" WHERE view_id = "& NNview_id
44 
   " WHERE view_id = "& NNview_id
45
45 
 
46 
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 46 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
47
47 
 
48 
	'update fields
 48 
   'update fields
49 
	rsTemp.Edit
 49 
   rsTemp.Edit
50 
	rsTemp.Fields("view_name").Value = SSViewName
 50 
   rsTemp.Fields("view_name").Value = SSViewName
51 
	rsTemp.Update
 51 
   rsTemp.Update
52
52 
 
53 
	rsTemp.Close
 53 
   rsTemp.Close
54 
	Set rsTemp = nothing
 54 
   Set rsTemp = nothing
55 
End Sub
 55 
End Sub
56 
 
 56 
 
57 
Sub Update_View_Definition ( NNview_id, SSPkgInc )
 57 
Sub Update_View_Definition ( NNview_id, SSPkgInc )
58 
	' Remove current view definition
 58 
   ' Remove current view definition
59 
	OraSession.BeginTrans
 59 
   On Error Resume Next
- 
 
 60 
   objEH.TryORA ( OraSession )
60 
	OraDatabase.ExecuteSQL "DELETE FROM view_def WHERE view_id = "& NNview_id
 61 
   OraDatabase.ExecuteSQL "DELETE FROM view_def WHERE view_id = "& NNview_id
61 
  	OraSession.CommitTrans
 62 
   objEH.CatchORA ( OraSession )
62
- 
 
- 
 
 63 
   If objEH.LastOraFailed = FALSE Then
63 
	' Set view definition
 64 
      ' Set view definition
64 
	If SSPkgInc <> "" Then
 65 
      If SSPkgInc <> "" Then
65 
		OraSession.BeginTrans
 66 
         objEH.TryORA ( OraSession )
66 
		OraDatabase.ExecuteSQL _
 67 
         OraDatabase.ExecuteSQL _
67 
			" INSERT INTO view_def"&_
 68 
            " INSERT INTO view_def"&_
68 
			" SELECT TO_NUMBER('"& NNview_id &"') AS view_id, pkg_id FROM packages WHERE pkg_id IN ("& SSPkgInc &")"
 69 
            " SELECT TO_NUMBER('"& NNview_id &"') AS view_id, pkg_id FROM packages WHERE pkg_id IN ("& SSPkgInc &")"
69 
	  	OraSession.CommitTrans
 70 
         objEH.CatchORA ( OraSession )
- 
 
 71 
      End If
70 
	End If
 72 
   End If
71 
End Sub
 73 
End Sub
72 
%>
 74 
%>
73 
<%
 75 
<%
74 
'-----------------------  MAIN LINE  ---------------------------
 76 
'-----------------------  MAIN LINE  ---------------------------
75 
 
 77 
 
76 
'--- Process submition ---
 78 
'--- Process submition ---
77 
If (parView_id <> "") AND (parViewName <> "") Then
 79 
If (parView_id <> "") AND (parViewName <> "") Then
78 
	' All mendatory parameters FOUND
 80 
   ' All mendatory parameters FOUND
79
81 
 
80 
	'COMPLETE THE REQUEST...
 82 
   'COMPLETE THE REQUEST...
81 
	Call Update_View ( parView_id, parViewName )
 83 
   Call Update_View ( parView_id, parViewName )
82 
	Call Update_View_Definition ( parView_id, parPkgInc )
 84 
   Call Update_View_Definition ( parView_id, parPkgInc )
83
85 
 
84 
	Response.Redirect("members_public_view.asp")
 86 
   Response.Redirect("members_public_view.asp")
85 
Else
 87 
Else
86 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 88 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
87 
	Response.write QSTR_All
89 
   Response.write QSTR_All
88 
End If
 90 
End If
89 
%>
 91 
%>
90 
 
 92 
 
91 
<!-- DESTRUCTOR ------->
 93 
<!-- DESTRUCTOR ------->
92 
<!--#include file="common/destructor.asp"-->
 - 
 
93 

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

          

          

            -
            
 

            95