Subversion Repositories DevTools

Rev

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

Rev 15 Rev 21
Line 18... Line 18...
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package
 23 
Dim rsQry, healthTag, cmdInterface, pkgOwner, isInterface, package, procDesc
- 
 
 24 
Dim Query_String
24 
Dim objFormCollector
 25 
Dim objFormCollector
25 
Dim sMessage
 26 
Dim sMessage
26 
Dim SEQ_proc_id
 27 
Dim SEQ_proc_id
27 
'------------ CONSTANTS DECLARATION -----------
 28 
'------------ CONSTANTS DECLARATION -----------
28 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 29 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
Line 40... Line 41...
40 
<%
 41 
<%
41 
 
 42 
 
42 
%>
 43 
%>
43 
<%
 44 
<%
44 
'------------ RUN BEFORE PAGE RENDER ----------
 45 
'------------ RUN BEFORE PAGE RENDER ----------
- 
 
 46 
If Request("btn") = "Import" Then
- 
 
 47 
	If Request("prod_id_list") <> "" Then
- 
 
 48
- 
 
 49 
		On Error Resume Next
45 
 
 50
- 
 
 51 
		OraDatabase.Parameters.Add "PROD_ID", 		Request("prod_id_list"), 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 52 
		OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 53 
		OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 54
- 
 
 55 
		objEH.TryORA ( OraSession )
- 
 
 56
- 
 
 57 
		OraDatabase.ExecuteSQL _
- 
 
 58 
		"BEGIN   PK_OPERATING_SYSTEM.ADD_PACKAGES_PROCESS ( :PROD_ID, :OS_ID, :USER_ID );   END;"
- 
 
 59
- 
 
 60 
		objEH.CatchORA ( OraSession )
- 
 
 61
- 
 
 62 
		OraDatabase.Parameters.Remove "PROD_ID"
- 
 
 63 
		OraDatabase.Parameters.Remove "OS_ID"
- 
 
 64 
		OraDatabase.Parameters.Remove "USER_ID"
- 
 
 65
- 
 
 66 
		If objEH.Finally Then
- 
 
 67 
			Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
- 
 
 68 
			Call CloseWindow()
- 
 
 69 
		End If
- 
 
 70 
	Else
- 
 
 71 
		sMessage = "Please select Product(s) from Release Manager list then click Add."
- 
 
 72 
	End If
- 
 
 73
- 
 
 74
- 
 
 75 
End If
46 
 
 76 
 
47 
If CBool(Request("action")) Then
 77 
If CBool(Request("action")) Then
48
78
49 
  If Request("isInterface") = "" Then
 79 
 	If Request("isInterface") = "" Then
50 
  	isInterface = "F"
 80 
  		isInterface = "F"
51 
  Else
 81 
  	Else
52 
  	isInterface = "T"
 82 
  		isInterface = "T"
53 
  End If
83 
  	End If
- 
 
 84 
 
- 
 
 85 
	Query_String = _
- 
 
 86 
	"	SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
- 
 
 87 
	"	AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
- 
 
 88 
	"	AND IS_INTERFACE = '"& isInterface &"'"
- 
 
 89
- 
 
 90 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 91
- 
 
 92 
	If rsTemp.RecordCount = 0 Then
54
93
55 
	objEH.Try
 94 
		objEH.Try
56 
 
 95 
 
57 
	SEQ_proc_id = Get_From_DUAL("SEQ_PROC_ID.nextval")
 96 
		SEQ_proc_id = Get_From_DUAL("SEQ_PROC_ID.nextval")
58 
 
 97 
 
59 
	OraDatabase.Parameters.Add "PROC_ID", 			SEQ_proc_id, ORAPARM_INPUT, ORATYPE_NUMBER
 98 
		OraDatabase.Parameters.Add "PROC_ID", 			SEQ_proc_id, ORAPARM_INPUT, ORATYPE_NUMBER
60 
	OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("healthTag"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 99 
		OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("healthTag"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 100 
		OraDatabase.Parameters.Add "PROC_DESC", 		Request("procDesc"), ORAPARM_INPUT, ORATYPE_VARCHAR2
61 
	OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 101 
		OraDatabase.Parameters.Add "OS_ID", 			Request("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
62 
	OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmdInterface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 102 
		OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmdInterface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
63 
	OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkgOwner"), ORAPARM_INPUT, ORATYPE_VARCHAR2
103 
		OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkgOwner"), ORAPARM_INPUT, ORATYPE_VARCHAR2
64 
	OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR
104 
		OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR
65 
	OraDatabase.Parameters.Add "PROD_ID", 			Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER
105 
		OraDatabase.Parameters.Add "PROD_ID", 			Request("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER
66 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
106 
		OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
67
107
68 
	OraSession.BeginTrans
 108 
		OraSession.BeginTrans
69
109
70 
	OraDatabase.ExecuteSQL _
 110 
		OraDatabase.ExecuteSQL _
71 
	"BEGIN  Add_Process( :PROC_ID, :PKG_HEALTH_TAG, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
 111 
			"BEGIN  Add_Process( :PROC_ID, :PKG_HEALTH_TAG, :OS_ID, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
72 
 
 112 
 
73 
    OraSession.CommitTrans
113 
	    OraSession.CommitTrans
- 
 
 114
- 
 
 115 
		OraSession.BeginTrans
- 
 
 116
- 
 
 117 
		OraDatabase.ExecuteSQL _
- 
 
 118 
		"BEGIN  RELEASE_MANAGER.PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PROD_ID, :USER_ID);  END;"
- 
 
 119 
 
- 
 
 120 
	    OraSession.CommitTrans
74
121
75 
	OraDatabase.Parameters.Remove "PROC_ID"
 122 
		OraDatabase.Parameters.Remove "PROC_ID"
76 
	OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
 123 
		OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
77 
	OraDatabase.Parameters.Remove "OS_ID"
 124 
		OraDatabase.Parameters.Remove "OS_ID"
78 
	OraDatabase.Parameters.Remove "CMD_INTERFACE"
 125 
		OraDatabase.Parameters.Remove "CMD_INTERFACE"
79 
	OraDatabase.Parameters.Remove "PKG_OWNER"
126 
		OraDatabase.Parameters.Remove "PKG_OWNER"
80 
	OraDatabase.Parameters.Remove "IS_INTERFACE"
127 
		OraDatabase.Parameters.Remove "IS_INTERFACE"
81 
	OraDatabase.Parameters.Remove "PROD_ID"
128 
		OraDatabase.Parameters.Remove "PROD_ID"
82 
	OraDatabase.Parameters.Remove "USER_ID"
129 
		OraDatabase.Parameters.Remove "USER_ID"
83
130
84 
	If objEH.Finally Then
 131 
	If objEH.Finally Then
85 
		Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
 132 
		Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
86 
		Call CloseWindow()
 133 
		Call CloseWindow()
87 
	End If
 134 
	End If
- 
 
 135 
	Else
- 
 
 136 
		Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("prod_id") )
- 
 
 137 
	End If
88 
End If
 138 
End If
89 
 
 139 
 
- 
 
 140 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 141 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
- 
 
 142 
	Dim rsQry, query
- 
 
 143 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 144
- 
 
 145 
	query = _
- 
 
 146 
	"  SELECT bo.RTAG_ID_FK,"&_
- 
 
 147 
	"	   rm_proj.PROJ_ID,"&_
- 
 
 148 
	"	   rm_proj.PROJ_NAME,"&_
- 
 
 149 
	"	   rt.RTAG_NAME"&_
- 
 
 150 
	"  FROM BOMS bo,"&_
- 
 
 151 
	"	   PROJECTS rm_proj,"&_
- 
 
 152 
	"	   RELEASE_TAGS rt"&_
- 
 
 153 
	" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
- 
 
 154 
	"   AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
- 
 
 155 
	"   AND bo.BOM_ID = :BOM_ID"
- 
 
 156
- 
 
 157 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
- 
 
 158 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
- 
 
 159 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
- 
 
 160 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
- 
 
 161 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
- 
 
 162 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
- 
 
 163
- 
 
 164 
	End If
- 
 
 165
- 
 
 166
- 
 
 167 
	OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 168
- 
 
 169 
	rsQry.Close
- 
 
 170 
	Set rsQry = Nothing
- 
 
 171 
End Sub
- 
 
 172 
'--------------------------------------------------------------------------------------------------------------------------
90 
 
 173 
 
- 
 
 174 
Call GetFormDetails ( parBom_id, objFormCollector )
91 
'----------------------------------------------
 175 
'----------------------------------------------
92 
%>
 176 
%>
93 
<html>
 177 
<html>
94 
<head>
 178 
<head>
95 
<title>Deployment Manager</title>
 179 
<title>Deployment Manager</title>
Line 106... Line 190...
106 
    Add a process for the node.
 190 
    Add a process for the node.
107 
      </td>
 191 
      </td>
108 
  </tr>
 192 
  </tr>
109
193
110 
<%
 194 
<%
- 
 
 195 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
- 
 
 196 
objFormComponent.FormName = "FormSearch"
- 
 
 197 
objFormComponent.Action = "wAddProcessBySearch.asp"
- 
 
 198 
Call objFormComponent.FormStart()
- 
 
 199 
%>
- 
 
 200 
  <tr>
- 
 
 201 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
- 
 
 202 
  <tr>
- 
 
 203 
    <td nowrap class="body_txtw"><strong>Package/Product</strong> </td>
- 
 
 204 
    <td><%
- 
 
 205 
	Dim rsTemp
- 
 
 206
- 
 
 207 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
111 
 
 208 
 
- 
 
 209 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
- 
 
 210
- 
 
 211
- 
 
 212 
	Response.write "<select name='prod_id' class='body_txt'>"
- 
 
 213 
	Response.write "<option value =''>"
- 
 
 214
- 
 
 215 
		While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
- 
 
 216 
 
- 
 
 217 
				Response.write "<option value='"& rsTemp.Fields("prod_id") &"'>"& (rsTemp.Fields("pkg_name")) &" - "& (rsTemp.Fields("pkg_version")) &"</option>"
- 
 
 218 
 
- 
 
 219 
			rsTemp.MoveNext
- 
 
 220 
		WEnd
- 
 
 221 
	Response.write "</select>"
- 
 
 222
- 
 
 223 
	rsTemp.Close
- 
 
 224 
	Set rsTemp = nothing
- 
 
 225 
 
- 
 
 226 
	OraDatabase.Parameters.Remove "OS_ID"
- 
 
 227 
 
- 
 
 228 
	%></td>
- 
 
 229 
  </tr>
- 
 
 230 
	    <tr>
- 
 
 231 
          <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
- 
 
 232 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
- 
 
 233 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
- 
 
 234 
        </tr>
- 
 
 235 
      </table></td>
- 
 
 236 
  </tr>
- 
 
 237 
  <%=objPMod.ComposeHiddenTags()%>
- 
 
 238 
<%
- 
 
 239 
Call objFormComponent.FormEnd()
- 
 
 240 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
112 
%>
 241 
%>
113 
 
 242 
 
114 
<%
 243 
<%
115 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 244 
'-- FROM START --------------------------------------------------------------------------------------------------------------
116 
objFormComponent.FormName = "FormName"
 245 
objFormComponent.FormName = "FormName"
Line 140... Line 269...
140 
    <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
 269 
    <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
141 
  </tr>
 270 
  </tr>
142 
  <tr>
 271 
  <tr>
143 
    <td><span class="body_txt">Package/Product</span></td>
 272 
    <td><span class="body_txt">Package/Product</span></td>
144 
    <td><%
 273 
    <td><%
145 
	Dim rsTemp
 274 
 
146
275
147 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 276 
	OraDatabase.Parameters.Add "OS_ID", 	Request("os_id"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
148 
 
 277 
 
149 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
 278 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ProductsLessPatches.sql"), cint(0))
150
279
Line 166... Line 295...
166 
	OraDatabase.Parameters.Remove "OS_ID"
 295 
	OraDatabase.Parameters.Remove "OS_ID"
167 
 
 296 
 
168 
	%></td>
 297 
	%></td>
169 
  </tr>
 298 
  </tr>
170 
  <tr>
 299 
  <tr>
- 
 
 300 
    <td><span class="body_txt">Process Description</span></td>
- 
 
 301 
    <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea>
- 
 
 302 
	</td>
- 
 
 303 
  </tr>
- 
 
 304 
  <tr>
171 
    <td><span class="body_txt">Command Interface</span></td>
 305 
    <td><span class="body_txt">Command Interface</span></td>
172 
    <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
 306 
    <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
173 
  </tr>
 307 
  </tr>
174 
  <tr>
 308 
  <tr>
175 
    <td><span class="body_txt">Is Interface</span></td>
 309 
    <td><span class="body_txt">Is Interface</span></td>
Line 182... Line 316...
182 
	</td>
 316 
	</td>
183 
  </tr>
 317 
  </tr>
184 
  <tr>
 318 
  <tr>
185 
    <td>&nbsp;</td>
 319 
    <td>&nbsp;</td>
186 
    <td>&nbsp;</td>
 320 
    <td>&nbsp;</td>
187 
  </tr>
321 
  </tr>
188 
</table>
322 
</table>
189 
 
 323 
 
190 
 
 324 
 
191 
 
 325 
 
192
326
Line 200... Line 334...
200
334
201 
<%
 335 
<%
202 
Call objFormComponent.FormEnd()
 336 
Call objFormComponent.FormEnd()
203 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 337 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
204 
%>
 338 
%>
- 
 
 339 
<%
- 
 
 340 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
- 
 
 341 
objFormComponent.FormName = "FormSearch"
- 
 
 342 
objFormComponent.Action = SCRIPT_NAME
- 
 
 343 
Call objFormComponent.FormStart()
- 
 
 344 
%>
- 
 
 345 
<td width="50%" valign="top" nowrap class="body_txt"><strong>Add Product Processes from Release Manager</strong><br>
- 
 
 346 
<%If (objFormCollector.Item("rtag_id_fk") <> "")  Then%>
- 
 
 347 
<%=objFormCollector.Item ("proj_name") &"&nbsp;/&nbsp;"& objFormCollector.Item ("rtag_name")%>
- 
 
 348 
<%Else%>
- 
 
 349 
<%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%>
- 
 
 350 
<%End If%>
- 
 
 351 
<br>
- 
 
 352 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
- 
 
 353 
            <tr>
- 
 
 354 
              <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 355 
              <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 356 
            </tr>
- 
 
 357 
            <%
- 
 
 358 
	  ' -- Only run if links with Release Manager
- 
 
 359 
	  If (objFormCollector.Item("rtag_id_fk") <> "")  Then
- 
 
 360
- 
 
 361 
		  '===== Release Manager PRODUCTS =====
- 
 
 362 
		  OraDatabase.Parameters.Add "RTAG_ID_FK", 				objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 363 
		  OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", 	enumPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 364 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 365
- 
 
 366 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsViewProcesses.sql"), ORADYN_DEFAULT )
- 
 
 367
- 
 
 368 
		  If rsQry.RecordCount < 1 Then
- 
 
 369 
		  	Response.write "No Products Found."
- 
 
 370 
		  End If
- 
 
 371
- 
 
 372 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 373 
		  %>
- 
 
 374 
            <tr>
- 
 
 375 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
- 
 
 376 
              <td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
- 
 
 377 
            </tr>
- 
 
 378 
            <%rsQry.MoveNext%>
- 
 
 379 
            <%
- 
 
 380 
		  WEnd
- 
 
 381 
		  OraDatabase.Parameters.Remove "RM_BRANCH_ID"
- 
 
 382 
		  OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"
- 
 
 383 
		  OraDatabase.Parameters.Remove "OS_ID"
- 
 
 384
- 
 
 385 
	  End If
- 
 
 386
- 
 
 387
- 
 
 388
- 
 
 389 
		  %>
- 
 
 390 
		  </table>
- 
 
 391 
<input name="btn" type="submit" class="form_btn" value="Import">
- 
 
 392 
 
- 
 
 393 
</td>
- 
 
 394 
  <%=objPMod.ComposeHiddenTags()%>
- 
 
 395 
 
- 
 
 396 
 
- 
 
 397
- 
 
 398 
<%
- 
 
 399 
Call objFormComponent.FormEnd()
- 
 
 400 
%>
205 
</table>
 401 
</table>
206 
</body>
 402 
</body>
207 
</html>
 403 
</html>
208 
<%
 404 
<%
209 
'------------ RUN AFTER PAGE RENDER -----------
 405 
'------------ RUN AFTER PAGE RENDER -----------