Subversion Repositories DevTools

Rev

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

Rev 5296 Rev 5299
Line 25... Line 25...
25 
Dim sNode
 25 
Dim sNode
26 
Dim rsQry
 26 
Dim rsQry
27 
Dim ActiveCombo
 27 
Dim ActiveCombo
28 
Dim VisibleCombo
 28 
Dim VisibleCombo
29 
Dim objAppCollector
 29 
Dim objAppCollector
- 
 
 30 
Dim CanEdit
30 
'------------ CONSTANTS DECLARATION -----------
 31 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
 32 
'------------ VARIABLE INIT -------------------
32 
Set objAppCollector = CreateObject("Scripting.Dictionary")
 33 
Set objAppCollector = CreateObject("Scripting.Dictionary")
- 
 
 34 
CanEdit = canActionControl("canEditUserOverrides")
33 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
34 
'----------------------------------------------
 36 
'----------------------------------------------
35 
%>
 37 
%>
36 
<%
 38 
<%
37 
'------------------------------------------------------------------------------------------------------------------------------------------------------
 39 
'------------------------------------------------------------------------------------------------------------------------------------------------------
38 
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
 40 
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
39 
	Dim i, selected
 41 
	Dim i, selected, disableControl
40
42
- 
 
 43 
    ' -- Disable editing
- 
 
 44 
    If CanEdit Then
- 
 
 45 
        disableControl = ""
- 
 
 46 
    Else
- 
 
 47 
         disableControl = " disabled"
- 
 
 48 
    End IF
41
49
42 
	' --- Visible Combo ---
 50 
	' --- Visible Combo ---
43 
	outVisibleCombo = ""
 51 
	outVisibleCombo = ""
44 
	outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'>"
 52 
	outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'" & disableControl &">"
45
53
46 
	For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
 54 
	For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
47 
		selected = ""
 55 
		selected = ""
48 
		If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
 56 
		If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
49 
			selected = "selected"
 57 
			selected = "selected"
Line 56... Line 64...
56
64
57
65
58
66
59 
	' --- Active Combo ---
 67 
	' --- Active Combo ---
60 
	outActiveCombo = ""
 68 
	outActiveCombo = ""
61 
	outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'>"
 69 
	outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'" & disableControl &">"
62
70
63 
	For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
 71 
	For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
64 
		selected = ""
 72 
		selected = ""
65 
		If arrActivePermissions( INXperm_val + i ) = cActive Then
 73 
		If arrActivePermissions( INXperm_val + i ) = cActive Then
66 
			selected = "selected"
 74 
			selected = "selected"
Line 209... Line 217...
209
217
210 
					  OraDatabase.Parameters.Remove "USER_ID"
 218 
					  OraDatabase.Parameters.Remove "USER_ID"
211 
					  OraDatabase.Parameters.Remove "APP_ID"
 219 
					  OraDatabase.Parameters.Remove "APP_ID"
212 
					  OraDatabase.Parameters.Remove "ROLE_ID"
 220 
					  OraDatabase.Parameters.Remove "ROLE_ID"
213 
					  %>
 221 
					  %>
- 
 
 222 
                      <%If CanEdit Then %>
214 
					  <tr>
 223 
					  <tr>
215 
						<td class="body_txt"></td>
 224 
						<td class="body_txt"></td>
216 
						<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
 225 
						<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
217 
						<td class="body_txt"></td>
 226 
						<td class="body_txt"></td>
218 
			          </tr>
 227 
			          </tr>
- 
 
 228 
                      <%End If%>
219 
			          <tr>
 229 
			          <tr>
220 
			            <td colspan="5" background="images/bg_table_border.gif">
 230 
			            <td colspan="5" background="images/bg_table_border.gif">
221 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 231 
						 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
222 
			              <tr>
 232 
			              <tr>
223 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 233 
			                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>