WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/wAddApplicationUser.asp



%>
 
<%
'------------ VARIABLE DEFINITION -------------
Dim rsUser
Dim parViewId
Dim parProjId
'Dim objFormCollector
'------------ CONSTANTS DECLARATION -----------
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
'------------ VARIABLE INIT -------------------
Set objFormCollector = CreateObject("Scripting.Dictionary")
parProjId = Request("proj_id")
parViewId = NiceInt(Request("view_id"), -1)
 
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub AddViewUser ()
	On Error Resume Next
 
	OraDatabase.Parameters.Add "USER_ID_LIST", 		Request("user_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
	OraDatabase.Parameters.Add "PROJ_ID", 			parProjId, 		            ORAPARM_INPUT, ORATYPE_NUMBER
	OraDatabase.Parameters.Add "VIEW_ID", 			parViewId, 		            ORAPARM_INPUT, ORATYPE_NUMBER
 
	objEH.TryORA ( OraSession )
    objEH.ErrorRedirect = FALSE
 
	OraDatabase.ExecuteSQL _

	OraDatabase.Parameters.Remove "PROJ_ID"
	OraDatabase.Parameters.Remove "VIEW_ID"
 
End Sub
'--------------------------------------------------------------------------------------------------------------------------
 
 
'------------ RUN BEFORE PAGE RENDER ----------
' --- Get Form details from DB (for edit forms only) ---
'-------------------------------------------------------
 
' --- Load Validation Rules ---

End If
'----------------------------------------------
%>
<html>
<head>
<title>Release Manager <%=parProjId%>-<%=parViewId%></title>
<link rel="shortcut icon" href="<%=FavIcon%>"/>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js"></script>

            </tr>
      </table>
    </td>
  </tr>
  <%'=objPMod.ComposeHiddenTags()%>
  <input type="hidden" name="view_id" value="<%=parViewId%>">
  <input type="hidden" name="proj_id" value="<%=parProjId%>">
  </form>
  <form name="FormName" method="post" action="<%=ScriptName%>">
  <tr>
    <td background="images/bg_drk_bage_pane.gif">
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">

			OraDatabase.Parameters.Add "FULL_NAME", 	NULL,	ORAPARM_INPUT, ORATYPE_VARCHAR2
			OraDatabase.Parameters.Add "USER_NAME", 	NULL,	ORAPARM_INPUT, ORATYPE_VARCHAR2
			OraDatabase.Parameters.Add "DOMAIN_NAME", 	NULL,	ORAPARM_INPUT, ORATYPE_VARCHAR2
		End If
 
		OraDatabase.Parameters.Add "VIEW_ID", 	parViewId,	ORAPARM_INPUT, ORATYPE_NUMBER
		OraDatabase.Parameters.Add "PROJ_ID", 	parProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
 
		Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationUserList.sql") , ORADYN_DEFAULT )
 
		OraDatabase.Parameters.Remove "APP_ID"
		OraDatabase.Parameters.Remove "FULL_NAME"

		If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
			totalRecords = rsUser.RecordCount	' Get total number of records
 
			'--- Create "Previous" link
			If pageNumber > 0 Then
				navigator = navigator &"<a href='"& ScriptName &"?view_id="& parViewId &"&pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>&laquo; Previous</a>"
			End If
 
			'--- Create "Next" link
			If ( startPosition + MAX_ROWS ) < totalRecords Then
				navigator = navigator &"&nbsp;&nbsp;<a href='"& ScriptName &"?view_id="& parViewId &"&pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next &raquo;</a>"
			End If
 
		End If
 
 

          </tr>
        </table>
	</td>
  </tr>
  <%=objPMod.ComposeHiddenTags()%>
  <input type="hidden" name="view_id" value="<%=parViewId%>">
  <input type="hidden" name="action" value="true">
  </form>
</table>
</body>
</html>

Rev 5957	Rev 6508
Line 25...	Line 25...
25	`%>`	25	`%>`
26		26
27	`<%`	27	`<%`
28	`'------------ VARIABLE DEFINITION -------------`	28	`'------------ VARIABLE DEFINITION -------------`
29	`Dim rsUser`	29	`Dim rsUser`
30	`Dim FRview_id`	30	`Dim parViewId`
-		31	`Dim parProjId`
31	`'Dim objFormCollector`	32	`'Dim objFormCollector`
32	`'------------ CONSTANTS DECLARATION -----------`	33	`'------------ CONSTANTS DECLARATION -----------`
33	`Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"`	34	`Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"`
34	`Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"`	35	`Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"`
35	`Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"`	36	`Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"`
36	`'------------ VARIABLE INIT -------------------`	37	`'------------ VARIABLE INIT -------------------`
37	`Set objFormCollector = CreateObject("Scripting.Dictionary")`	38	`Set objFormCollector = CreateObject("Scripting.Dictionary")`
-		39	`parProjId = Request("proj_id")`
-		40	`parViewId = NiceInt(Request("view_id"), -1)`
38		41
39	`'------------ CONDITIONS ----------------------`	42	`'------------ CONDITIONS ----------------------`
40	`'----------------------------------------------`	43	`'----------------------------------------------`
41	`%>`	44	`%>`
42	`<%`	45	`<%`
43	`'--------------------------------------------------------------------------------------------------------------------------`	46	`'--------------------------------------------------------------------------------------------------------------------------`
44	`Sub AddViewUser ()`	47	`Sub AddViewUser ()`
45	`On Error Resume Next`	48	`On Error Resume Next`
46		49
47	`OraDatabase.Parameters.Add "USER_ID_LIST", Request("user_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	50	`OraDatabase.Parameters.Add "USER_ID_LIST", Request("user_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
48	`OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	51	`OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER`
49	`OraDatabase.Parameters.Add "VIEW_ID", Request("view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	52	`OraDatabase.Parameters.Add "VIEW_ID", parViewId, ORAPARM_INPUT, ORATYPE_NUMBER`
50		53
51	`objEH.TryORA ( OraSession )`	54	`objEH.TryORA ( OraSession )`
52	`objEH.ErrorRedirect = FALSE`	55	`objEH.ErrorRedirect = FALSE`
53		56
54	`OraDatabase.ExecuteSQL _`	57	`OraDatabase.ExecuteSQL _`
Line 60...	Line 63...
60	`OraDatabase.Parameters.Remove "PROJ_ID"`	63	`OraDatabase.Parameters.Remove "PROJ_ID"`
61	`OraDatabase.Parameters.Remove "VIEW_ID"`	64	`OraDatabase.Parameters.Remove "VIEW_ID"`
62		65
63	`End Sub`	66	`End Sub`
64	`'--------------------------------------------------------------------------------------------------------------------------`	67	`'--------------------------------------------------------------------------------------------------------------------------`
65	`%>`	-
66	`<%`	-
67	`'------------ RUN BEFORE PAGE RENDER ----------`	68	`'------------ RUN BEFORE PAGE RENDER ----------`
68	`' --- Get Form details from DB (for edit forms only) ---`	69	`' --- Get Form details from DB (for edit forms only) ---`
69	`'-------------------------------------------------------`	70	`'-------------------------------------------------------`
70		71
71	`' --- Load Validation Rules ---`	72	`' --- Load Validation Rules ---`
Line 85...	Line 86...
85	`End If`	86	`End If`
86	`'----------------------------------------------`	87	`'----------------------------------------------`
87	`%>`	88	`%>`
88	`<html>`	89	`<html>`
89	`<head>`	90	`<head>`
90	`<title>Release Manager <%Response.Write(Request("proj_id"))%>-<%Response.Write(Request("view_id"))%></title>`	91	`<title>Release Manager <%=parProjId%>-<%=parViewId%></title>`
91	`<link rel="shortcut icon" href="<%=FavIcon%>"/>`	92	`<link rel="shortcut icon" href="<%=FavIcon%>"/>`
92	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`	93	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`
93	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`	94	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`
94	`<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">`	95	`<link href="images/release_manager_style.css" rel="stylesheet" type="text/css">`
95	`<script language="JavaScript" src="scripts/common.js"></script>`	96	`<script language="JavaScript" src="scripts/common.js"></script>`
Line 113...	Line 114...
113	`</tr>`	114	`</tr>`
114	`</table>`	115	`</table>`
115	`</td>`	116	`</td>`
116	`</tr>`	117	`</tr>`
117	`<%'=objPMod.ComposeHiddenTags()%>`	118	`<%'=objPMod.ComposeHiddenTags()%>`
118	`<input type="hidden" name="view_id" value="<%=Request("view_id")%>">`	119	`<input type="hidden" name="view_id" value="<%=parViewId%>">`
119	`<input type="hidden" name="proj_id" value="<%=Request("proj_id")%>">`	120	`<input type="hidden" name="proj_id" value="<%=parProjId%>">`
120	`</form>`	121	`</form>`
121	`<form name="FormName" method="post" action="<%=ScriptName%>">`	122	`<form name="FormName" method="post" action="<%=ScriptName%>">`
122	`<tr>`	123	`<tr>`
123	`<td background="images/bg_drk_bage_pane.gif">`	124	`<td background="images/bg_drk_bage_pane.gif">`
124	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`	125	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
Line 149...	Line 150...
149	`OraDatabase.Parameters.Add "FULL_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2`	150	`OraDatabase.Parameters.Add "FULL_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2`
150	`OraDatabase.Parameters.Add "USER_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2`	151	`OraDatabase.Parameters.Add "USER_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2`
151	`OraDatabase.Parameters.Add "DOMAIN_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2`	152	`OraDatabase.Parameters.Add "DOMAIN_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2`
152	`End If`	153	`End If`
153		154
154	`OraDatabase.Parameters.Add "VIEW_ID", Request("view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	155	`OraDatabase.Parameters.Add "VIEW_ID", parViewId, ORAPARM_INPUT, ORATYPE_NUMBER`
155	`OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	156	`OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER`
156		157
157	`Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationUserList.sql") , ORADYN_DEFAULT )`	158	`Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationUserList.sql") , ORADYN_DEFAULT )`
158		159
159	`OraDatabase.Parameters.Remove "APP_ID"`	160	`OraDatabase.Parameters.Remove "APP_ID"`
160	`OraDatabase.Parameters.Remove "FULL_NAME"`	161	`OraDatabase.Parameters.Remove "FULL_NAME"`
Line 184...	Line 185...
184	`If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then`	185	`If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then`
185	`totalRecords = rsUser.RecordCount ' Get total number of records`	186	`totalRecords = rsUser.RecordCount ' Get total number of records`
186		187
187	`'--- Create "Previous" link`	188	`'--- Create "Previous" link`
188	`If pageNumber > 0 Then`	189	`If pageNumber > 0 Then`
189	`navigator = navigator &"<a href='"& ScriptName &"?view_id="&Request("view_id")&"&pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>« Previous</a>"`	190	`navigator = navigator &"<a href='"& ScriptName &"?view_id="& parViewId &"&pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>« Previous</a>"`
190	`End If`	191	`End If`
191		192
192	`'--- Create "Next" link`	193	`'--- Create "Next" link`
193	`If ( startPosition + MAX_ROWS ) < totalRecords Then`	194	`If ( startPosition + MAX_ROWS ) < totalRecords Then`
194	`navigator = navigator &"  <a href='"& ScriptName &"?view_id="&Request("view_id")&"&pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next »</a>"`	195	`navigator = navigator &"  <a href='"& ScriptName &"?view_id="& parViewId &"&pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next »</a>"`
195	`End If`	196	`End If`
196		197
197	`End If`	198	`End If`
198		199
199		200
Line 261...	Line 262...
261	`</tr>`	262	`</tr>`
262	`</table>`	263	`</table>`
263	`</td>`	264	`</td>`
264	`</tr>`	265	`</tr>`
265	`<%=objPMod.ComposeHiddenTags()%>`	266	`<%=objPMod.ComposeHiddenTags()%>`
266	`<input type="hidden" name="view_id" value="<%=Request("view_id")%>">`	267	`<input type="hidden" name="view_id" value="<%=parViewId%>">`
267	`<input type="hidden" name="action" value="true">`	268	`<input type="hidden" name="action" value="true">`
268	`</form>`	269	`</form>`
269	`</table>`	270	`</table>`
270	`</body>`	271	`</body>`
271	`</html>`	272	`</html>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/wAddApplicationUser.asp – Rev 5957 → 6508