Subversion Repositories DevTools

Rev

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

Rev 64 Rev 70
Line 3... Line 3...
3 
'					 COMMON DB EDIT
 3 
'					 COMMON DB EDIT
4 
'=====================================================
 4 
'=====================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
Sub Update_Pkg_Category ( SSrtag_id, SSpv_id, SSbase_view_id )
 7 
Sub Update_Pkg_Category ( SSrtag_id, SSpv_id, SSbase_view_id )
8
8 
 
9 
	OraDatabase.Parameters.Add "PV_ID", 	SSpv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 9 
	OraDatabase.Parameters.Add "PV_ID", 	SSpv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
10 
	OraDatabase.Parameters.Add "RTAG_ID", 	SSrtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 10 
	OraDatabase.Parameters.Add "RTAG_ID", 	SSrtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
11 
	OraDatabase.Parameters.Add "VIEW_ID", 	SSbase_view_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 11 
	OraDatabase.Parameters.Add "VIEW_ID", 	SSbase_view_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
12
12 
 
13
13 
 
14 
	OraSession.BeginTrans
 14 
	OraSession.BeginTrans
15 
	OraDatabase.ExecuteSQL _
 15 
	OraDatabase.ExecuteSQL _
16 
	"BEGIN PK_ENVIRONMENT.CHANGE_PACKAGE_VIEW ( :PV_ID, :RTAG_ID, :VIEW_ID );  END;"
 16 
	"BEGIN PK_ENVIRONMENT.CHANGE_PACKAGE_VIEW ( :PV_ID, :RTAG_ID, :VIEW_ID );  END;"
17 
  	OraSession.CommitTrans
 17 
  	OraSession.CommitTrans
18
18 
 
19
19 
 
20 
	OraDatabase.Parameters.Remove "PV_ID"
 20 
	OraDatabase.Parameters.Remove "PV_ID"
21 
	OraDatabase.Parameters.Remove "RTAG_ID"
 21 
	OraDatabase.Parameters.Remove "RTAG_ID"
22 
	OraDatabase.Parameters.Remove "VIEW_ID"
 22 
	OraDatabase.Parameters.Remove "VIEW_ID"
23
23 
 
24 
End Sub
 24 
End Sub
25 
'-----------------------------------------------------------------------------------------------------------------------------
 25 
'-----------------------------------------------------------------------------------------------------------------------------
26 
Sub Seed_Package_Names_Versions ( ARRdep, NNretPV_ID )
 26 
Sub Seed_Package_Names_Versions ( ARRdep, NNretPV_ID )
27 
	Dim i
 27 
	Dim i
28 
	OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
 28 
	OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
Line 34... Line 34...
34 
	OraDatabase.Parameters.Remove "retPV_ID"
 34 
	OraDatabase.Parameters.Remove "retPV_ID"
35 
End Sub
 35 
End Sub
36 
'-----------------------------------------------------------------------------------------------------------------------------
 36 
'-----------------------------------------------------------------------------------------------------------------------------
37 
Function IsExtention ( SSstr )
 37 
Function IsExtention ( SSstr )
38 
	Dim objRegEx, Match, Matches, StrReturnStr
 38 
	Dim objRegEx, Match, Matches, StrReturnStr
39 
    Set objRegEx = New RegExp
39 
    Set objRegEx = New RegExp
40
40 
 
41 
    objRegEx.IgnoreCase = True
 41 
    objRegEx.IgnoreCase = True
42 
    objRegEx.Pattern = "[A-Za-z]+"
 42 
    objRegEx.Pattern = "[A-Za-z]+"
43
43 
 
44 
	Set Matches = objRegEx.Execute( SSstr )
44 
	Set Matches = objRegEx.Execute( SSstr )
45 
    For Each Match in Matches
 45 
    For Each Match in Matches
46 
        IsExtention = true
 46 
        IsExtention = true
47 
    Next
 47 
    Next
48 
End Function
 48 
End Function
49 
'-----------------------------------------------------------------------------------------------------------------------------
 49 
'-----------------------------------------------------------------------------------------------------------------------------
50 
Function Get_Pkg_Base_View_ID ( NNpv_id, NNrtag_id )
 50 
Function Get_Pkg_Base_View_ID ( NNpv_id, NNrtag_id )
51 
	Dim rsTemp, Query_String
 51 
	Dim rsTemp, Query_String
52
52 
 
53 
	If Request("rtag_id") = "" Then
 53 
	If Request("rtag_id") = "" Then
54 
		Get_Pkg_Base_View_ID = -1
 54 
		Get_Pkg_Base_View_ID = -1
55 
		Exit Function
 55 
		Exit Function
56 
	End If
 56 
	End If
57
57 
 
58 
	Query_String = _
 58 
	Query_String = _
59 
	" SELECT rc.base_view_id"&_
 59 
	" SELECT rc.base_view_id"&_
60 
	"  FROM release_content rc"&_
 60 
	"  FROM release_content rc"&_
61 
	" WHERE rc.rtag_id = "& NNrtag_id &_
 61 
	" WHERE rc.rtag_id = "& NNrtag_id &_
62 
	"   AND rc.pv_id = "& NNpv_id
 62 
	"   AND rc.pv_id = "& NNpv_id
63
63 
 
64 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 64 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
65
65 
 
66 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 66 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
67 
		Get_Pkg_Base_View_ID = CInt( rsTemp("base_view_id") )
 67 
		Get_Pkg_Base_View_ID = CInt( rsTemp("base_view_id") )
68 
	Else
 68 
	Else
69 
		Get_Pkg_Base_View_ID = NULL
 69 
		Get_Pkg_Base_View_ID = NULL
70 
	End If
 70 
	End If
71
71 
 
72 
	rsTemp.Close
 72 
	rsTemp.Close
73 
	Set rsTemp = nothing
 73 
	Set rsTemp = nothing
74 
End Function
 74 
End Function
75 
'-----------------------------------------------------------------------------------------------------------------------------
 75 
'-----------------------------------------------------------------------------------------------------------------------------
76 
Function Get_V_EXT ( SSversion )
 76 
Function Get_V_EXT ( SSversion )
77 
	Dim v_ext
 77 
	Dim v_ext
78 
	v_ext = Right(SSversion, Len(SSversion) - InStrRev( SSversion, "." ))
 78 
	v_ext = Right(SSversion, Len(SSversion) - InStrRev( SSversion, "." ))
79
79 
 
80 
	If IsExtention ( v_ext ) Then
 80 
	If IsExtention ( v_ext ) Then
81 
		Get_V_EXT = v_ext
 81 
		Get_V_EXT = v_ext
82 
	Else
 82 
	Else
83 
		Get_V_EXT = NULL
 83 
		Get_V_EXT = NULL
84 
	End If
 84 
	End If
85
85 
 
86 
End Function
 86 
End Function
87 
'-----------------------------------------------------------------------------------------------------------------------------
 87 
'-----------------------------------------------------------------------------------------------------------------------------
88 
Sub Touch_Package ( NNpv_id )
 88 
Sub Touch_Package ( NNpv_id )
89 
	If NNpv_id = "" Then Exit Sub
 89 
	If NNpv_id = "" Then Exit Sub
90 
	OraSession.BeginTrans
 90 
	OraSession.BeginTrans
Line 94... Line 94...
94 
  	OraSession.CommitTrans
 94 
  	OraSession.CommitTrans
95 
End Sub
 95 
End Sub
96 
'-----------------------------------------------------------------------------------------------------------------------------
 96 
'-----------------------------------------------------------------------------------------------------------------------------
97 
Sub Rebuild_Environment ( NNrtag_id )
 97 
Sub Rebuild_Environment ( NNrtag_id )
98 
	Dim Query_String, rsTemp, needRebuild, secToday
 98 
	Dim Query_String, rsTemp, needRebuild, secToday
99
99 
 
100 
	If NNrtag_id = "" Then Exit Sub		' Exit if rtag_id is not supplied
 100 
	If NNrtag_id = "" Then Exit Sub		' Exit if rtag_id is not supplied
101
101 
 
102 
	' Find if rebuild is required
 102 
	' Find if rebuild is required
103 
	Query_String = "SELECT rebuild_env FROM release_tags WHERE rtag_id = "& NNrtag_id
 103 
	Query_String = "SELECT rebuild_env FROM release_tags WHERE rtag_id = "& NNrtag_id
104 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 104 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
105 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 105 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
106 
		If rsTemp("rebuild_env") = "Y" Then
 106 
		If rsTemp("rebuild_env") = "Y" Then
Line 111... Line 111...
111 
	Else
 111 
	Else
112 
		needRebuild = FALSE
 112 
		needRebuild = FALSE
113 
	End If
 113 
	End If
114 
	rsTemp.Close
 114 
	rsTemp.Close
115 
	Set rsTemp = nothing
 115 
	Set rsTemp = nothing
116
116 
 
117 
	' EXIT on no rebuild required
 117 
	' EXIT on no rebuild required
118 
	If NOT needRebuild Then Exit Sub
 118 
	If NOT needRebuild Then Exit Sub
119
119 
 
120 
	' /*  REBUILD ENVIRONMENT  */
 120 
	' /*  REBUILD ENVIRONMENT  */
121 
	OraSession.BeginTrans
 121 
	OraSession.BeginTrans
122
122 
 
123 
	' Update rebuild stamp
 123 
	' Update rebuild stamp
124 
	secToday = Int( Timer )
 124 
	secToday = Int( Timer )
125 
	'OraDatabase.ExecuteSQL " UPDATE release_tags "&_
 125 
	'OraDatabase.ExecuteSQL " UPDATE release_tags "&_
126 
	'					   " SET rebuild_stamp = "& secToday &_
 126 
	'					   " SET rebuild_stamp = "& secToday &_
127 
	'					   " WHERE rtag_id = "& NNrtag_id
 127 
	'					   " WHERE rtag_id = "& NNrtag_id
128
128 
 
129
129 
 
130 
	' It is important to set the flag rebuild_env = 'N' first, to stop multiple processes doing the same thing
 130 
	' It is important to set the flag rebuild_env = 'N' first, to stop multiple processes doing the same thing
131 
	OraDatabase.ExecuteSQL " UPDATE release_tags "&_
 131 
	OraDatabase.ExecuteSQL " UPDATE release_tags "&_
132 
						   " SET rebuild_env = 'N'"&_
 132 
						   " SET rebuild_env = 'N'"&_
133 
						   " WHERE rtag_id = "& NNrtag_id
133 
						   " WHERE rtag_id = "& NNrtag_id
134
134 
 
135 
	OraSession.CommitTrans
 135 
	OraSession.CommitTrans
136
136 
 
137
137 
 
138 
	OraSession.BeginTrans
 138 
	OraSession.BeginTrans
139
139 
 
140 
	' Now rebuild environment
 140 
	' Now rebuild environment
141 
	OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;"
 141 
	OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;"
142
142 
 
143 
	' Remove rebuild flag
 143 
	' Remove rebuild flag
144 
	'OraDatabase.ExecuteSQL " UPDATE release_tags "&_
 144 
	'OraDatabase.ExecuteSQL " UPDATE release_tags "&_
145 
	'					   " SET rebuild_env = 'N'"&_
 145 
	'					   " SET rebuild_env = 'N'"&_
146 
	'					   " WHERE rtag_id = "& NNrtag_id &_
 146 
	'					   " WHERE rtag_id = "& NNrtag_id &_
147 
	'					   " AND rebuild_stamp = "& secToday
 147 
	'					   " AND rebuild_stamp = "& secToday
148
148 
 
149
149 
 
150 
	OraSession.CommitTrans
 150 
	OraSession.CommitTrans
151 
End Sub
151 
End Sub
152 
'-----------------------------------------------------------------------------------------------------------------------------
 152 
'-----------------------------------------------------------------------------------------------------------------------------
153 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
 153 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
154 
	Dim rsErr, Query_String
 154 
	Dim rsErr, Query_String
155 
	Query_String = sQuery
 155 
	Query_String = sQuery
156
156 
 
157
157 
 
158 
	' --------- SQL PARAMETERS ------------
 158 
	' --------- SQL PARAMETERS ------------
159 
	OraDatabase.Parameters.Add "RTAG_ID", 					nRtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 159 
	OraDatabase.Parameters.Add "RTAG_ID", 					nRtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
160 
	OraDatabase.Parameters.Add "PV_ID", 					nPv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 160 
	OraDatabase.Parameters.Add "PV_ID", 					nPv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
161 
	OraDatabase.Parameters.Add "enumPKG_STATE_OK", 			enumPKG_STATE_OK, 		ORAPARM_INPUT, ORATYPE_NUMBER
 161 
	OraDatabase.Parameters.Add "enumPKG_STATE_OK", 			enumPKG_STATE_OK, 		ORAPARM_INPUT, ORATYPE_NUMBER
162 
	OraDatabase.Parameters.Add "enumISSUES_STATE_FIXED", 	enumISSUES_STATE_FIXED, ORAPARM_INPUT, ORATYPE_NUMBER
 162 
	OraDatabase.Parameters.Add "enumISSUES_STATE_FIXED", 	enumISSUES_STATE_FIXED, ORAPARM_INPUT, ORATYPE_NUMBER
163 
	' -------------------------------------
 163 
	' -------------------------------------
164 
	Set rsErr = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 164 
	Set rsErr = OraDatabase.DbCreateDynaset( Query_String, cint(0))
165
165 
 
166 
	returnERRmsg = NULL
 166 
	returnERRmsg = NULL
167 
	returnALRTmsg = NULL
 167 
	returnALRTmsg = NULL
168
168 
 
169 
	If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then
 169 
	If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then
170 
		' Check Requirement for products
 170 
		' Check Requirement for products
171 
	Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
171 
	Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
172 
		If Not IsNull(rsErr("err_message")) Then
 172 
		If Not IsNull(rsErr("err_message")) Then
173 
		returnERRmsg = rsErr("err_message")
 173 
		returnERRmsg = rsErr("err_message")
174 
			returnALRTmsg = rsErr("products_msg")
 174 
			returnALRTmsg = rsErr("products_msg")
175 
			returnParameters = "_make_released.asp" &"|"
 175 
			returnParameters = "_make_released.asp" &"|"
176 
			If returnALRTmsg = "ERROR" Then
176 
			If returnALRTmsg = "ERROR" Then
177 
				returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
 177 
				returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
178 
				Exit Do
 178 
				Exit Do
179 
			End If
 179 
			End If
180 
		End If
 180 
		End If
181
181 
 
182 
		rsErr.MoveNext
 182 
		rsErr.MoveNext
183 
		Loop
 183 
		Loop
184
184 
 
185 
	Else
 185 
	Else
186 
		' Check Requirements for other packages
 186 
		' Check Requirements for other packages
187 
		Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
187 
		Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
188 
		If Not IsNull(rsErr("err_message")) Then
 188 
		If Not IsNull(rsErr("err_message")) Then
189 
			returnERRmsg = rsErr("err_message")
 189 
			returnERRmsg = rsErr("err_message")
190 
			returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
 190 
			returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
191 
			Exit Do
 191 
			Exit Do
192 
	End If
 192 
	End If
193
193 
 
194 
		rsErr.MoveNext
 194 
		rsErr.MoveNext
195 
	Loop
 195 
	Loop
196
196 
 
197 
	End If
 197 
	End If
198
198 
 
199
199 
 
200
200 
 
201 
	rsErr.Close
 201 
	rsErr.Close
202 
	Set rsErr = nothing
 202 
	Set rsErr = nothing
203 
	OraDatabase.Parameters.Remove "RTAG_ID"
 203 
	OraDatabase.Parameters.Remove "RTAG_ID"
204 
	OraDatabase.Parameters.Remove "PV_ID"
 204 
	OraDatabase.Parameters.Remove "PV_ID"
205 
	OraDatabase.Parameters.Remove "enumPKG_STATE_OK"
 205 
	OraDatabase.Parameters.Remove "enumPKG_STATE_OK"
Line 208... Line 208...
208 
'-----------------------------------------------------------------------------------------------------------------------------
 208 
'-----------------------------------------------------------------------------------------------------------------------------
209 
Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
 209 
Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
210 
	Dim QueryString, rsQry
 210 
	Dim QueryString, rsQry
211 
	QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id
 211 
	QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id
212 
	Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
 212 
	Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
213
213 
 
214 
	If IsNull(rsQry("is_patch")) Then
 214 
	If IsNull(rsQry("is_patch")) Then
215 
		' For Package
 215 
		' For Package
216 
		'Response.write "HERE"
 216 
		'Response.write "HERE"
217 
		Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official.sql" ) )
 217 
		Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official.sql" ) )
218 
	Else
 218 
	Else
219 
		' For Patch
 219 
		' For Patch
220 
		Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch.sql" ) )
 220 
		Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch.sql" ) )
221 
	End If
 221 
	End If
222
222 
 
223 
	rsQry.Close()
 223 
	rsQry.Close()
224 
	Set rsQry = nothing
224 
	Set rsQry = nothing
225
225 
 
226 
End Sub
 226 
End Sub
227 
'-----------------------------------------------------------------------------------------------------------------------------
 227 
'-----------------------------------------------------------------------------------------------------------------------------
228 
Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
 228 
Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
229 
	Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending.sql" ) )
 229 
	Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending.sql" ) )
230 
End Sub
 230 
End Sub
Line 234... Line 234...
234 
End Sub
 234 
End Sub
235 
'-----------------------------------------------------------------------------------------------------------------------------
 235 
'-----------------------------------------------------------------------------------------------------------------------------
236 
Sub Notify ( NNrtag_id )
 236 
Sub Notify ( NNrtag_id )
237 
	Dim Query_String, Location_SQL, rsNotify, emailBody, readyPv_id_list, SentTODict, releaseSTR
 237 
	Dim Query_String, Location_SQL, rsNotify, emailBody, readyPv_id_list, SentTODict, releaseSTR
238 
	Dim httpRef, URL_root, headerSTR, footerSTR, oAttachmentsDict
 238 
	Dim httpRef, URL_root, headerSTR, footerSTR, oAttachmentsDict
239
239 
 
240 
	Set SentTODict = CreateObject("Scripting.Dictionary")
 240 
	Set SentTODict = CreateObject("Scripting.Dictionary")
241 
	Set oAttachmentsDict = CreateObject("Scripting.Dictionary")
 241 
	Set oAttachmentsDict = CreateObject("Scripting.Dictionary")
242
242 
 
243 
	OraSession.BeginTrans
 243 
	OraSession.BeginTrans
244
244 
 
245 
	Query_String = ReadFile( rootPath & "queries\to_notify.sql" )
 245 
	Query_String = ReadFile( rootPath & "queries\to_notify.sql" )
246 
	Query_String = Replace( Query_String, "/*PKG_STATE_MAJOR_READY*/", enumPKG_STATE_MAJOR_READY)
 246 
	Query_String = Replace( Query_String, "/*PKG_STATE_MAJOR_READY*/", enumPKG_STATE_MAJOR_READY)
247 
	Query_String = Replace( Query_String, "/*PKG_STATE_MINOR_READY*/", enumPKG_STATE_MINOR_READY)
 247 
	Query_String = Replace( Query_String, "/*PKG_STATE_MINOR_READY*/", enumPKG_STATE_MINOR_READY)
248 
	Query_String = Replace( Query_String, "/*PKG_STATE_OK*/", enumPKG_STATE_OK)
 248 
	Query_String = Replace( Query_String, "/*PKG_STATE_OK*/", enumPKG_STATE_OK)
249 
	Query_String = Replace( Query_String, "/*ORA_SYSDATETIME*/", ORA_SYSDATETIME)
 249 
	Query_String = Replace( Query_String, "/*ORA_SYSDATETIME*/", ORA_SYSDATETIME)
250
250 
 
251 
	' --------- SQL PARAMETERS ------------
 251 
	' --------- SQL PARAMETERS ------------
252 
	OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
 252 
	OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
253 
	OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
 253 
	OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
254
254 
 
255 
	OraDatabase.Parameters.Add "CURRENT_USER", objAccessControl.UserId, ORAPARM_INPUT
 255 
	OraDatabase.Parameters.Add "CURRENT_USER", objAccessControl.UserId, ORAPARM_INPUT
256 
	OraDatabase.Parameters("CURRENT_USER").ServerType = ORATYPE_NUMBER
 256 
	OraDatabase.Parameters("CURRENT_USER").ServerType = ORATYPE_NUMBER
257 
	' -------------------------------------
 257 
	' -------------------------------------
258 
	'Response.write Query_String
 258 
	'Response.write Query_String
259 
	Set rsNotify = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 259 
	Set rsNotify = OraDatabase.DbCreateDynaset( Query_String, cint(0))
260
260 
 
261 
	readyPv_id_list = "-1"
 261 
	readyPv_id_list = "-1"
262 
	emailBody = ""
 262 
	emailBody = ""
263
263 
 
264 
	'---- Get notification list ----
 264 
	'---- Get notification list ----
265 
	If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
 265 
	If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
266 
		httpRef = Request.ServerVariables("HTTP_REFERER")
 266 
		httpRef = Request.ServerVariables("HTTP_REFERER")
267 
		URL_root = Left( httpRef, InStrRev(httpRef, "/") )
 267 
		URL_root = Left( httpRef, InStrRev(httpRef, "/") )
268
268 
 
269 
		emailBody = emailBody & "<tr>"
 269 
		emailBody = emailBody & "<tr>"
270 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Owner</b></font></td>"
 270 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Owner</b></font></td>"
271 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Package Name</b></font></td>"
 271 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Package Name</b></font></td>"
272 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Version</b></font></td>"
 272 
		emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Version</b></font></td>"
273 
		emailBody = emailBody & "</tr>"
 273 
		emailBody = emailBody & "</tr>"
274
274 
 
275 
		While ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF))
 275 
		While ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF))
276 
		    emailBody = emailBody & "<tr>"
 276 
		    emailBody = emailBody & "<tr>"
277 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("full_name") &"</font></td>"
 277 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("full_name") &"</font></td>"
278 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'><a href='"& URL_root &"dependencies.asp?pv_id="& rsNotify("pv_id") &"&rtag_id="& NNrtag_id &"'>"& rsNotify("pkg_name") &"</a></font></td>"
 278 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'><a href='"& URL_root &"dependencies.asp?pv_id="& rsNotify("pv_id") &"&rtag_id="& NNrtag_id &"'>"& rsNotify("pkg_name") &"</a></font></td>"
279 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("pkg_version") &"</font></td>"
 279 
			emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("pkg_version") &"</font></td>"
280 
			emailBody = emailBody & "</tr>"
 280 
			emailBody = emailBody & "</tr>"
281
281 
 
282 
			readyPv_id_list = readyPv_id_list &","& rsNotify("pv_id")
 282 
			readyPv_id_list = readyPv_id_list &","& rsNotify("pv_id")
283
283 
 
284 
			If NOT SentTODict.Exists (Cstr(rsNotify("user_email"))) Then SentTODict.Add Cstr(rsNotify("user_email")), Cstr(rsNotify("full_name"))
 284 
			If NOT SentTODict.Exists (Cstr(rsNotify("user_email"))) Then SentTODict.Add Cstr(rsNotify("user_email")), Cstr(rsNotify("full_name"))
285
285 
 
286 
			rsNotify.MoveNext
 286 
			rsNotify.MoveNext
287 
		WEnd
 287 
		WEnd
288
288 
 
289 
		emailBody = "<table width='50%' border='1' cellspacing='0' cellpadding='1'>" & emailBody & "</table>"
 289 
		emailBody = "<table width='50%' border='1' cellspacing='0' cellpadding='1'>" & emailBody & "</table>"
290
290 
 
291 
	End If
 291 
	End If
292
292 
 
293 
	rsNotify.Close
 293 
	rsNotify.Close
294 
	Set rsNotify = nothing
 294 
	Set rsNotify = nothing
295
295 
 
296
296 
 
297 
	If readyPv_id_list <> "-1" Then
 297 
	If readyPv_id_list <> "-1" Then
298 
		'---- Header ----
 298 
		'---- Header ----
299 
		headerSTR = _
 299 
		headerSTR = _
300 
		"<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
 300 
		"<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
301 
		"	<tr>"&_
 301 
		"	<tr>"&_
Line 305... Line 305...
305 
		"	<tr> "&_
 305 
		"	<tr> "&_
306 
		"	  <td bgcolor='#003399'></td>"&_
 306 
		"	  <td bgcolor='#003399'></td>"&_
307 
		"	  <td bgcolor='#003399'></td>"&_
 307 
		"	  <td bgcolor='#003399'></td>"&_
308 
		"	</tr>"&_
 308 
		"	</tr>"&_
309 
		"</table><br><br>"
 309 
		"</table><br><br>"
310
310 
 
311 
		'---- Footer ----
 311 
		'---- Footer ----
312 
		footerSTR = _
 312 
		footerSTR = _
313 
		"<br><br>"&_
 313 
		"<br><br>"&_
314 
		"<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
 314 
		"<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
315 
		"  <tr>"&_
 315 
		"  <tr>"&_
Line 318... Line 318...
318 
	    "  <tr>"&_
 318 
	    "  <tr>"&_
319 
	    "    <td><img src='cid:RM-MASSlogo' width='22' height='17' hspace='5' align='absmiddle'><font size='1' face='tahoma,sans-serif'>&nbsp;<a href='http://mass.erggroup.com'>mass</a></font></td>"&_
 319 
	    "    <td><img src='cid:RM-MASSlogo' width='22' height='17' hspace='5' align='absmiddle'><font size='1' face='tahoma,sans-serif'>&nbsp;<a href='http://mass.erggroup.com'>mass</a></font></td>"&_
320 
	    "    <td nowrap align='right'><font size='1' face='tahoma,sans-serif'>ERG Confidential &copy; ERG</font></td>"&_
 320 
	    "    <td nowrap align='right'><font size='1' face='tahoma,sans-serif'>ERG Confidential &copy; ERG</font></td>"&_
321 
	    "  </tr>"&_
 321 
	    "  </tr>"&_
322 
	    "</table>"
 322 
	    "</table>"
323
323 
 
324
324 
 
325 
		'---- Get Release loction ----
 325 
		'---- Get Release loction ----
326 
		Location_SQL = _
 326 
		Location_SQL = _
327 
		" SELECT proj.proj_name, rt.rtag_name"&_
 327 
		" SELECT proj.proj_name, rt.rtag_name"&_
328 
		"  FROM release_tags rt,"&_
 328 
		"  FROM release_tags rt,"&_
329 
		"       projects proj"&_
 329 
		"       projects proj"&_
330 
		" WHERE rt.proj_id = proj.proj_id"&_
 330 
		" WHERE rt.proj_id = proj.proj_id"&_
331 
		"   AND rt.rtag_id = :RTAG_ID"
 331 
		"   AND rt.rtag_id = :RTAG_ID"
332
332 
 
333 
		Set rsNotify = OraDatabase.DbCreateDynaset( Location_SQL, cint(0))
 333 
		Set rsNotify = OraDatabase.DbCreateDynaset( Location_SQL, cint(0))
334 
		If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
 334 
		If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
335 
		releaseSTR = rsNotify("proj_name")  &" > "& rsNotify("rtag_name")
335 
		releaseSTR = rsNotify("proj_name")  &" > "& rsNotify("rtag_name")
336 
		emailBody = "<font size='1' face='tahoma,sans-serif'>"&_
 336 
		emailBody = "<font size='1' face='tahoma,sans-serif'>"&_
337 
		            "Following packages are ready to build.<br><br>"&_
 337 
		            "Following packages are ready to build.<br><br>"&_
338 
					rsNotify("proj_name") &" &gt; "& rsNotify("rtag_name") &"<br>"&_
 338 
					rsNotify("proj_name") &" &gt; "& rsNotify("rtag_name") &"<br>"&_
339 
					"<a href='"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id &"'>"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id  &"</a>"&_
 339 
					"<a href='"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id &"'>"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id  &"</a>"&_
340 
					"</font>"&_
 340 
					"</font>"&_
341 
					emailBody
 341 
					emailBody
342 
		End If
 342 
		End If
343 
		rsNotify.Close
 343 
		rsNotify.Close
344 
		Set rsNotify = nothing
 344 
		Set rsNotify = nothing
345
345 
 
346 
		emailBody = headerSTR & emailBody & footerSTR
 346 
		emailBody = headerSTR & emailBody & footerSTR
347
347 
 
348 
		'---- Remove pkg form notification history ----
 348 
		'---- Remove pkg form notification history ----
349 
		OraDatabase.ExecuteSQL " DELETE FROM notification_history WHERE rtag_id = :RTAG_ID AND pv_id IN ( "& readyPv_id_list &" )"
 349 
		OraDatabase.ExecuteSQL " DELETE FROM notification_history WHERE rtag_id = :RTAG_ID AND pv_id IN ( "& readyPv_id_list &" )"
350
350 
 
351
351 
 
352 
		'---- Insert into notification history ----
 352 
		'---- Insert into notification history ----
353 
		OraDatabase.ExecuteSQL "INSERT INTO notification_history (rtag_id, pv_id, user_id, date_time_stamp) "&_
 353 
		OraDatabase.ExecuteSQL "INSERT INTO notification_history (rtag_id, pv_id, user_id, date_time_stamp) "&_
354 
							   " SELECT ins.rtag_id, ins.pv_id, ins.user_id, ins.date_time_stamp"&_
 354 
							   " SELECT ins.rtag_id, ins.pv_id, ins.user_id, ins.date_time_stamp"&_
355 
							   "   FROM ("&_
 355 
							   "   FROM ("&_
356 
							   Query_String &_
 356 
							   Query_String &_
357 
							   "		) ins"
 357 
							   "		) ins"
358
358 
 
359 
	End If
 359 
	End If
360
360 
 
361 
	OraSession.CommitTrans
 361 
	OraSession.CommitTrans
362
362 
 
363 
	'================= Send Email ==========================
 363 
	'================= Send Email ==========================
364 
	'Call Send_Email ( "Release Manager Notifications", adminEmail, adminEmail, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
 364 
	'Call Send_Email ( "Release Manager Notifications", adminEmail, adminEmail, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
365
365 
 
366 
	' ---------- Attachments -------------
 366 
	' ---------- Attachments -------------
367 
	oAttachmentsDict.Add "images\i_mail.gif", 		"RM-Envelop"
 367 
	oAttachmentsDict.Add "images\i_mail.gif", 		"RM-Envelop"
368 
	oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo"
 368 
	oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo"
369
369 
 
370 
	Call Send_Email ( "Release Manager Notifications", adminEmail, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
 370 
	Call Send_Email ( "Release Manager Notifications", adminEmail, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
371
371 
 
372 
	OraDatabase.Parameters.Remove "RTAG_ID"
 372 
	OraDatabase.Parameters.Remove "RTAG_ID"
373 
	OraDatabase.Parameters.Remove "CURRENT_USER"
 373 
	OraDatabase.Parameters.Remove "CURRENT_USER"
374
374 
 
375 
End Sub
 375 
End Sub
376 
'-----------------------------------------------------------------------------------------------------------------------------
 376 
'-----------------------------------------------------------------------------------------------------------------------------
377 
Function NeedSync ( nPv_id, nRtag_id )
 377 
Function NeedSync ( nPv_id, nRtag_id )
378 
	Dim rsTemp, Query_String
 378 
	Dim rsTemp, Query_String
379 
	Query_String = ReadFile( rootPath & "queries\sync_check.sql" )
 379 
	Query_String = ReadFile( rootPath & "queries\sync_check.sql" )
380
380 
 
381 
	' --------- SQL PARAMETERS ------------
 381 
	' --------- SQL PARAMETERS ------------
382 
	OraDatabase.Parameters.Add "RTAG_ID", 					nRtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 382 
	OraDatabase.Parameters.Add "RTAG_ID", 					nRtag_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
383 
	OraDatabase.Parameters.Add "PV_ID", 					nPv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
 383 
	OraDatabase.Parameters.Add "PV_ID", 					nPv_id, 				ORAPARM_INPUT, ORATYPE_NUMBER
384 
	' -------------------------------------
 384 
	' -------------------------------------
385 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 385 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
386
386 
 
387 
	If rsTemp.RecordCount > 0 Then
 387 
	If rsTemp.RecordCount > 0 Then
388 
		NeedSync = TRUE
 388 
		NeedSync = TRUE
389 
	Else
 389 
	Else
390 
		NeedSync = FALSE
 390 
		NeedSync = FALSE
391 
	End If
 391 
	End If
392
392 
 
393 
	rsTemp.Close
 393 
	rsTemp.Close
394 
	Set rsTemp = nothing
 394 
	Set rsTemp = nothing
395 
	OraDatabase.Parameters.Remove "RTAG_ID"
 395 
	OraDatabase.Parameters.Remove "RTAG_ID"
396 
	OraDatabase.Parameters.Remove "PV_ID"
 396 
	OraDatabase.Parameters.Remove "PV_ID"
397 
End Function
 397 
End Function
398 
'-----------------------------------------------------------------------------------------------------------------------------
 398 
'-----------------------------------------------------------------------------------------------------------------------------
399 
Function Lookup_Document ( sDocNum, outDocTitle, outDoc_id, outDoc_version, outDoc_created  )
 399 
Function Lookup_Document ( sDocNum, outDocTitle, outDoc_id, outDoc_version, outDoc_created  )
400 
	Dim rsDocReg
 400 
	Dim rsDocReg
401
401 
 
402 
	outDocTitle = NULL
 402 
	outDocTitle = NULL
403 
	outDoc_id = NULL
 403 
	outDoc_id = NULL
404 
	outDoc_version = NULL
 404 
	outDoc_version = NULL
405 
	outDoc_created = NULL
 405 
	outDoc_created = NULL
406
406 
 
407 
	Set rsDocReg = Server.CreateObject("ADODB.Recordset")
 407 
	Set rsDocReg = Server.CreateObject("ADODB.Recordset")
408 
	rsDocReg.ActiveConnection = DOCREP_conn
 408 
	rsDocReg.ActiveConnection = DOCREP_conn
409
409 
 
410 
	rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getDocumentFiles '"& sDocNum &"';"
 410 
	rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getDocumentFiles '"& sDocNum &"';"
411 
	rsDocReg.CursorType = 0
 411 
	rsDocReg.CursorType = 0
412 
	rsDocReg.CursorLocation = 2
 412 
	rsDocReg.CursorLocation = 2
413 
	rsDocReg.LockType = 3
 413 
	rsDocReg.LockType = 3
414
414 
 
415 
	On Error Resume Next
 415 
	On Error Resume Next
416
416 
 
417 
	rsDocReg.Open()
 417 
	rsDocReg.Open()
418
418 
 
419 
	If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
 419 
	If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
420 
		outDocTitle = rsDocReg("title")
 420 
		outDocTitle = rsDocReg("title")
421 
		outDoc_id = rsDocReg("id")
 421 
		outDoc_id = rsDocReg("id")
422 
		outDoc_version = rsDocReg("version")
 422 
		outDoc_version = rsDocReg("version")
423 
		outDoc_created = rsDocReg("created")
 423 
		outDoc_created = rsDocReg("created")
424 
	End If
 424 
	End If
425
425 
 
426 
	rsDocReg.Close
 426 
	rsDocReg.Close
427
427 
 
428 
	Lookup_Document = Err.Number	' Return Error number
 428 
	Lookup_Document = Err.Number	' Return Error number
429
429 
 
430 
	Set rsDocReg = nothing
 430 
	Set rsDocReg = nothing
431 
End Function
 431 
End Function
432 
'-----------------------------------------------------------------------------------------------------------------------------
 432 
'-----------------------------------------------------------------------------------------------------------------------------
433 
Function Short_Document_Details ( nDocId, outDocTitle, outDoc_version, outDoc_created  )
 433 
Function Short_Document_Details ( nDocId, outDocTitle, outDoc_version, outDoc_created  )
434 
	Dim rsDocReg
 434 
	Dim rsDocReg
435
435 
 
436 
	outDocTitle = NULL
 436 
	outDocTitle = NULL
437 
	outDoc_version = NULL
 437 
	outDoc_version = NULL
438 
	outDoc_created = NULL
 438 
	outDoc_created = NULL
439
439 
 
440 
	Set rsDocReg = Server.CreateObject("ADODB.Recordset")
 440 
	Set rsDocReg = Server.CreateObject("ADODB.Recordset")
441 
	rsDocReg.ActiveConnection = DOCREP_conn
 441 
	rsDocReg.ActiveConnection = DOCREP_conn
442
442 
 
443 
	rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getFileDetails "& nDocId &";"
 443 
	rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getFileDetails "& nDocId &";"
444 
	rsDocReg.CursorType = 0
 444 
	rsDocReg.CursorType = 0
445 
	rsDocReg.CursorLocation = 2
 445 
	rsDocReg.CursorLocation = 2
446 
	rsDocReg.LockType = 3
 446 
	rsDocReg.LockType = 3
447
447 
 
448 
	On Error Resume Next
 448 
	On Error Resume Next
449
449 
 
450 
	rsDocReg.Open()
 450 
	rsDocReg.Open()
451
451 
 
452 
	If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
 452 
	If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
453 
		outDocTitle = rsDocReg("title")
 453 
		outDocTitle = rsDocReg("title")
454 
		outDoc_version = rsDocReg("version")
 454 
		outDoc_version = rsDocReg("version")
455 
		outDoc_created = rsDocReg("created")
 455 
		outDoc_created = rsDocReg("created")
456 
	End If
 456 
	End If
457
457 
 
458 
	rsDocReg.Close
 458 
	rsDocReg.Close
459
459 
 
460 
	Short_Document_Details = Err.Number	' Return Error number
 460 
	Short_Document_Details = Err.Number	' Return Error number
461
461 
 
462 
	Set rsDocReg = nothing
 462 
	Set rsDocReg = nothing
463 
End Function
 463 
End Function
464 
'-----------------------------------------------------------------------------------------------------------------------------
 464 
'-----------------------------------------------------------------------------------------------------------------------------
465 
Function GetIssueNumber ( nIssDB, nIssId )
 465 
Function GetIssueNumber ( nIssDB, nIssId )
466 
	Dim rsQry
 466 
	Dim rsQry
467
467 
 
468 
	Set rsQry = Server.CreateObject("ADODB.Recordset")
 468 
	Set rsQry = Server.CreateObject("ADODB.Recordset")
469 
	rsQry.ActiveConnection = CQ_conn
 469 
	rsQry.ActiveConnection = CQ_conn
470
470 
 
471 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 471 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
472 
		rsQry.Source = "EXEC devi_prod.dbo.sp_RM_getIssueDetails "& nIssId &";"
 472 
    rsQry.Source = "EXEC cq_devi.dbo.sp_RM_getIssueDetails "& nIssId &";"
473
473 
 
474 
	ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 474 
	ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
475 
		rsQry.Source = "EXEC tdse_2002.dbo.sp_RM_getIssueDetails "& nIssId &";"
 475 
    rsQry.Source = "EXEC cq_tdse.dbo.sp_RM_getIssueDetails "& nIssId &";"
476
476 
 
477 
	End If
 477 
	End If
478
478 
 
479 
	rsQry.CursorType = 0
 479 
	rsQry.CursorType = 0
480 
	rsQry.CursorLocation = 2
 480 
	rsQry.CursorLocation = 2
481 
	rsQry.LockType = 3
 481 
	rsQry.LockType = 3
482
482 
 
483 
	On Error Resume Next
 483 
	On Error Resume Next
484
484 
 
485 
	rsQry.Open()
 485 
	rsQry.Open()
486
486 
 
487 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)  Then
 487 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)  Then
488 
		GetIssueNumber = rsQry("iss_num")
 488 
		GetIssueNumber = rsQry("iss_num")
489 
	End If
 489 
	End If
490
490 
 
491 
	rsQry.Close
 491 
	rsQry.Close
492 
	Set rsQry = nothing
 492 
	Set rsQry = nothing
493 
End Function
 493 
End Function
494 
'-----------------------------------------------------------------------------------------------------------------------------
 494 
'-----------------------------------------------------------------------------------------------------------------------------
495 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
 495 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
496 
	Dim rsQry, query
 496 
	Dim rsQry, query
497
497 
 
498 
	query = _
 498 
	query = _
499 
	"   SELECT FIELD_NAME, "&_
 499 
	"   SELECT FIELD_NAME, "&_
500 
	"		   IS_REQUIRED, "&_
 500 
	"		   IS_REQUIRED, "&_
501 
	"		   IS_NUMERIC, "&_
 501 
	"		   IS_NUMERIC, "&_
502 
	"		   MIN_NUMERIC_VALUE, "&_
 502 
	"		   MIN_NUMERIC_VALUE, "&_
Line 508... Line 508...
508 
	" 		   MAX_STRING_LENGTH, "&_
 508 
	" 		   MAX_STRING_LENGTH, "&_
509 
	"		   REGEXP, "&_
 509 
	"		   REGEXP, "&_
510 
	"		   REGEXP_DESCRIPTION "&_
 510 
	"		   REGEXP_DESCRIPTION "&_
511 
	"	  FROM VALIDATION_RULES"&_
 511 
	"	  FROM VALIDATION_RULES"&_
512 
	"	 WHERE field_name IN ("& sFieldList &")"
 512 
	"	 WHERE field_name IN ("& sFieldList &")"
513
513 
 
514
514 
 
515 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 515 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
516 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 516 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
517 
		outobjForm.LoadFieldRules rsQry.GetRows()
 517 
		outobjForm.LoadFieldRules rsQry.GetRows()
518
518 
 
519 
	End If
 519 
	End If
520
520 
 
521 
	rsQry.Close
 521 
	rsQry.Close
522 
	Set rsQry = Nothing
 522 
	Set rsQry = Nothing
523 
End Sub
 523 
End Sub
524 
'-----------------------------------------------------------------------------------------------------------------------------
 524 
'-----------------------------------------------------------------------------------------------------------------------------
525 
Sub Log_Action ( nPvId, sActionTypeName, sComments )
 525 
Sub Log_Action ( nPvId, sActionTypeName, sComments )
526
526 
 
527 
	OraDatabase.Parameters.Add "PV_ID", 		nPvId,	ORAPARM_INPUT, ORATYPE_NUMBER
527 
	OraDatabase.Parameters.Add "PV_ID", 		nPvId,	ORAPARM_INPUT, ORATYPE_NUMBER
528 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
528 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
529 
	OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 		sActionTypeName,	ORAPARM_INPUT, ORATYPE_VARCHAR2
 529 
	OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 		sActionTypeName,	ORAPARM_INPUT, ORATYPE_VARCHAR2
530 
	OraDatabase.Parameters.Add "COMMENTS", 		sComments,	ORAPARM_INPUT, ORATYPE_VARCHAR2
 530 
	OraDatabase.Parameters.Add "COMMENTS", 		sComments,	ORAPARM_INPUT, ORATYPE_VARCHAR2
531
531 
 
532
532 
 
533 
	OraSession.BeginTrans
 533 
	OraSession.BeginTrans
534
534 
 
535 
	OraDatabase.ExecuteSQL _
 535 
	OraDatabase.ExecuteSQL _
536 
	"BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS );  END;"
 536 
	"BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS );  END;"
537
537 
 
538 
	OraSession.CommitTrans
 538 
	OraSession.CommitTrans
539
539 
 
540
540 
 
541 
	OraDatabase.Parameters.Remove "PV_ID"
 541 
	OraDatabase.Parameters.Remove "PV_ID"
542 
	OraDatabase.Parameters.Remove "USER_ID"
 542 
	OraDatabase.Parameters.Remove "USER_ID"
543 
	OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"
 543 
	OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"
544 
	OraDatabase.Parameters.Remove "COMMENTS"
 544 
	OraDatabase.Parameters.Remove "COMMENTS"
545
545 
 
546 
End Sub
 546 
End Sub
547 
'-----------------------------------------------------------------------------------------------------------------------------
 547 
'-----------------------------------------------------------------------------------------------------------------------------
548 
Function GetUsername ( nUser_id )
 548 
Function GetUsername ( nUser_id )
549 
	Dim rsQry, sQuery
 549 
	Dim rsQry, sQuery
550 
 
 550 
 
Line 579... Line 579...
579 
	OraDatabase.Parameters.remove "USER_ID"
 579 
	OraDatabase.Parameters.remove "USER_ID"
580 
	rsQry.Close
 580 
	rsQry.Close
581 
	Set rsQry = nothing
 581 
	Set rsQry = nothing
582 
End Function
 582 
End Function
583 
'------------------------------------------------------------------------------------------------------------------
 583 
'------------------------------------------------------------------------------------------------------------------
584 
%>
 - 
 
585 

            584
            
%>

          

          

            -
            
 

            585