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 
'		 	   		Update Label
 4 
'                   Update Label
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 22... Line 22...
22 
pageName = split(Request("redirectionDestination"), "?")(0)
 22 
pageName = split(Request("redirectionDestination"), "?")(0)
23 
noteContents = Request("description")
 23 
noteContents = Request("description")
24 
 
 24 
 
25 
' Page Access Condition
 25 
' Page Access Condition
26 
If NOT objAccessControl.UserLogedIn Then
 26 
If NOT objAccessControl.UserLogedIn Then
27 
	Response.Redirect( "../message.asp?msg=401-1")
 27 
   Response.Redirect( "../message.asp?msg=401-1")
28 
End If
 28 
End If
29 
%>
 29 
%>
30 
<%
 30 
<%
31 
'------------ Variable Definition -------------
 31 
'------------ Variable Definition -------------
32 
DIM parFRrtag_id, parPv_id
 32 
DIM parFRrtag_id, parPv_id
Line 36... Line 36...
36 
parPv_id = Request("pv_id")
 36 
parPv_id = Request("pv_id")
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
 
 38 
 
39 
'------------------------------------------------------------------------------------------------------------------
 39 
'------------------------------------------------------------------------------------------------------------------
40 
Function Get_Package_Note ()
 40 
Function Get_Package_Note ()
41 
	Get_Package_Note = _
 41 
   Get_Package_Note = _
42 
	"   SELECT description, last_user, last_date "&_
 42 
   "   SELECT description, last_user, last_date "&_
43 
	"	  FROM note_manager note"&_
 43 
   "     FROM note_manager note"&_
44 
	"	 WHERE note.nid = :NOTE_ID"
 44 
   "    WHERE note.nid = :NOTE_ID"
45 
End Function
 45 
End Function
46 
'------------------------------------------------------------------------------------------------------------------
 46 
'------------------------------------------------------------------------------------------------------------------
47 
 
 47 
 
48 
%>
 48 
%>
49 
<%
 49 
<%
50 
Sub Update_Note ( NNpv_id, NNrtag_id, description, last_user)
 50 
Sub Update_Note ( NNpv_id, NNrtag_id, description, last_user)
51 
	Dim last_date, rsNote, action_type
 51 
   Dim last_date, rsNote, action_type
52
- 
 
53 
	last_date = ORA_SYSDATETIME ()
 - 
 
54 
 
 - 
 
55 
	OraDatabase.Parameters.Add "NOTE_ID", 		NNpv_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
56 
	OraDatabase.Parameters.Add "LAST_USER", 	last_user, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
57 
	OraDatabase.Parameters.Add "DESCRIPTION", 	description, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
58 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
59 
	OraDatabase.Parameters.Add "PV_ID", 		NNpv_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
60 
 
 - 
 
61 
	Set rsNote = OraDatabase.DbCreateDynaset( Get_Package_Note (), cint(0))
 - 
 
62 
	If rsNote.RecordCount = 1 Then
 - 
 
63 
		OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 	"note_edit", ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
64 
	Else
 - 
 
65 
		OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 	"note_add", ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
66 
	End If
 - 
 
67 
	rsNote.close
 - 
 
68 
	set	rsNote = nothing
 - 
 
69
- 
 
70 
	OraSession.BeginTrans
 - 
 
71 
 
 - 
 
72 
	OraDatabase.ExecuteSQL _
 - 
 
73 
	" DELETE FROM note_manager"&_
 - 
 
74 
	" WHERE nid=:NOTE_ID "
 - 
 
75
- 
 
76 
	If not (description = "") or not (description = null) Then
 - 
 
77 
		OraDatabase.ExecuteSQL _
 - 
 
78 
		" INSERT INTO note_manager"&_
 - 
 
79 
		" values (:NOTE_ID, :LAST_USER, "& last_date &", :DESCRIPTION)"
 - 
 
80 
 
 - 
 
81 
		OraDatabase.ExecuteSQL _
 - 
 
82 
		"BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION );  END;"
- 
 
83 
	Else
 - 
 
84 
		OraDatabase.Parameters.remove "ACTION_TYPE_NAME"
 - 
 
85 
		OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 	"note_remove", ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
86 
 
 - 
 
87 
		OraDatabase.ExecuteSQL _
 - 
 
88 
		"BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION );  END;"
- 
 
89 
	End If
 - 
 
90 
 
 - 
 
91 
	OraDatabase.Parameters.remove "NOTE_ID"
 - 
 
92 
	OraDatabase.Parameters.remove "LAST_USER"
 - 
 
93 
	OraDatabase.Parameters.remove "DESCRIPTION"
 - 
 
94 
	OraDatabase.Parameters.remove "USER_ID"
 - 
 
95 
	OraDatabase.Parameters.remove "ACTION_TYPE_NAME"
 - 
 
96 
	OraDatabase.Parameters.remove "PV_ID"
 - 
 
97 
 
 52 
 
- 
 
 53 
   last_date = ORA_SYSDATETIME ()
- 
 
 54 
 
- 
 
 55 
   OraDatabase.Parameters.Add "NOTE_ID",      NNpv_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 56 
   OraDatabase.Parameters.Add "LAST_USER",    last_user, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 57 
   OraDatabase.Parameters.Add "DESCRIPTION",  description, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 58 
   OraDatabase.Parameters.Add "USER_ID",      objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 59 
   OraDatabase.Parameters.Add "PV_ID",        NNpv_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 60 
 
- 
 
 61 
   Set rsNote = OraDatabase.DbCreateDynaset( Get_Package_Note (), cint(0))
- 
 
 62 
   If rsNote.RecordCount = 1 Then
- 
 
 63 
      OraDatabase.Parameters.Add "ACTION_TYPE_NAME",    "note_edit", ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 64 
   Else
- 
 
 65 
      OraDatabase.Parameters.Add "ACTION_TYPE_NAME",    "note_add", ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 66 
   End If
- 
 
 67 
   rsNote.close
- 
 
 68 
   set   rsNote = nothing
- 
 
 69 
 
- 
 
 70 
   On Error Resume Next
- 
 
 71 
 
- 
 
 72 
   ' Delete the existing note
- 
 
 73 
   objEH.TryORA ( OraSession )
98 
	OraSession.CommitTrans
74 
   OraDatabase.ExecuteSQL _
- 
 
 75 
   " DELETE FROM note_manager"&_
- 
 
 76 
   " WHERE nid=:NOTE_ID "
- 
 
 77 
   objEH.CatchORA ( OraSession )
- 
 
 78 
 
- 
 
 79 
   If objEH.LastOraFailed = FALSE Then
- 
 
 80 
      If not (description = "") or not (description = null) Then
- 
 
 81 
         ' Now add the updated note back in, and log the action
- 
 
 82 
         objEH.TryORA ( OraSession )
- 
 
 83 
         OraDatabase.ExecuteSQL _
- 
 
 84 
         " INSERT INTO note_manager"&_
- 
 
 85 
         " values (:NOTE_ID, :LAST_USER, "& last_date &", :DESCRIPTION)"
- 
 
 86 
         objEH.CatchORA ( OraSession )
- 
 
 87 
         If objEH.LastOraFailed = FALSE Then
- 
 
 88 
            objEH.TryORA ( OraSession )
- 
 
 89 
            OraDatabase.ExecuteSQL _
- 
 
 90 
            "BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION );  END;"
- 
 
 91 
            objEH.CatchORA ( OraSession )
- 
 
 92 
         End If
- 
 
 93 
      Else
- 
 
 94 
         ' Just log the note removal action
- 
 
 95 
         OraDatabase.Parameters.remove "ACTION_TYPE_NAME"
- 
 
 96 
         OraDatabase.Parameters.Add "ACTION_TYPE_NAME",  "note_remove", ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 97 
 
- 
 
 98 
         objEH.TryORA ( OraSession )
- 
 
 99 
         OraDatabase.ExecuteSQL _
- 
 
 100 
         "BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION );  END;"
- 
 
 101 
         objEH.CatchORA ( OraSession )
- 
 
 102 
      End If
- 
 
 103 
   End If
- 
 
 104 
 
- 
 
 105 
   OraDatabase.Parameters.remove "NOTE_ID"
- 
 
 106 
   OraDatabase.Parameters.remove "LAST_USER"
- 
 
 107 
   OraDatabase.Parameters.remove "DESCRIPTION"
- 
 
 108 
   OraDatabase.Parameters.remove "USER_ID"
- 
 
 109 
   OraDatabase.Parameters.remove "ACTION_TYPE_NAME"
- 
 
 110 
   OraDatabase.Parameters.remove "PV_ID"
99 
 
 111 
 
100 
End Sub
 112 
End Sub
101 
 
 113 
 
102 
%>
 114 
%>
103 
<%
 115 
<%
104 
'-----------------------  MAIN LINE  ---------------------------
 116 
'-----------------------  MAIN LINE  ---------------------------
105 
'--- Process submition ---
 117 
'--- Process submition ---
106 
call Update_Note ( parPv_id, parFRrtag_id, notecontents, Request("last_user") )
 118 
call Update_Note ( parPv_id, parFRrtag_id, notecontents, Request("last_user") )
107 
If Request("description") = "" Then
 119 
If Request("description") = "" Then
108 
	Response.Redirect("../"& Request("redirectionDestination"))
 120 
   Response.Redirect("../"& Request("redirectionDestination"))
109 
Else
 121 
Else
110 
	Response.Redirect("../"& Request("redirectionDestination") &"&saved=true")
 122 
   Response.Redirect("../"& Request("redirectionDestination") &"&saved=true")
111 
End If
 123 
End If
112 
 
 124 
 
113 
%>
 - 
 
114 

            125
            
%>

          

          

            -
            
 

            126