| Line 22... |
Line 22... |
| 22 |
'------------ VARIABLE DEFINITION -------------
|
22 |
'------------ VARIABLE DEFINITION -------------
|
| 23 |
Dim sNode
|
23 |
Dim sNode
|
| 24 |
Dim rsQry
|
24 |
Dim rsQry
|
| 25 |
Dim ActiveCombo
|
25 |
Dim ActiveCombo
|
| 26 |
Dim VisibleCombo
|
26 |
Dim VisibleCombo
|
| - |
|
27 |
Dim CanEdit
|
| 27 |
'------------ CONSTANTS DECLARATION -----------
|
28 |
'------------ CONSTANTS DECLARATION -----------
|
| 28 |
'------------ VARIABLE INIT -------------------
|
29 |
'------------ VARIABLE INIT -------------------
|
| - |
|
30 |
CanEdit = canActionControl("canAssignActionToRole")
|
| 29 |
'------------ CONDITIONS ----------------------
|
31 |
'------------ CONDITIONS ----------------------
|
| 30 |
'----------------------------------------------
|
32 |
'----------------------------------------------
|
| 31 |
%>
|
33 |
%>
|
| 32 |
<%
|
34 |
<%
|
| 33 |
'------------------------------------------------------------------------------------------------------------------------------------------------------
|
35 |
'------------------------------------------------------------------------------------------------------------------------------------------------------
|
| 34 |
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
|
36 |
Sub SetPermissionCombos ( nObj_id, cVisible, cActive, ByRef outVisibleCombo, ByRef outActiveCombo )
|
| 35 |
Dim i, selected
|
37 |
Dim i, selected ,disableControl
|
| 36 |
|
38 |
|
| - |
|
39 |
' -- Disable editing
|
| - |
|
40 |
If CanEdit Then
|
| - |
|
41 |
disableControl = ""
|
| - |
|
42 |
Else
|
| - |
|
43 |
disableControl = " disabled"
|
| - |
|
44 |
End IF
|
| - |
|
45 |
|
| 37 |
|
46 |
|
| 38 |
' --- Visible Combo ---
|
47 |
' --- Visible Combo ---
|
| 39 |
outVisibleCombo = ""
|
48 |
outVisibleCombo = ""
|
| 40 |
outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'>"
|
49 |
outVisibleCombo = outVisibleCombo &"<select name='VIS_"& nObj_id &"' class='form_iname'" & disableControl &">"
|
| 41 |
|
50 |
|
| 42 |
For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
|
51 |
For i = 0 To UBound( arrVisiblePermissions ) Step NumberofPermissionFields
|
| 43 |
selected = ""
|
52 |
selected = ""
|
| 44 |
If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
|
53 |
If arrVisiblePermissions( INXperm_val + i ) = cVisible Then
|
| 45 |
selected = "selected"
|
54 |
selected = "selected"
|
| Line 52... |
Line 61... |
| 52 |
|
61 |
|
| 53 |
|
62 |
|
| 54 |
|
63 |
|
| 55 |
' --- Active Combo ---
|
64 |
' --- Active Combo ---
|
| 56 |
outActiveCombo = ""
|
65 |
outActiveCombo = ""
|
| 57 |
outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'>"
|
66 |
outActiveCombo = outActiveCombo &"<select name='ACT_"& nObj_id &"' class='form_iname'" & disableControl &">"
|
| 58 |
|
67 |
|
| 59 |
For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
|
68 |
For i = 0 To UBound( arrActivePermissions ) Step NumberofPermissionFields
|
| 60 |
selected = ""
|
69 |
selected = ""
|
| 61 |
If arrActivePermissions( INXperm_val + i ) = cActive Then
|
70 |
If arrActivePermissions( INXperm_val + i ) = cActive Then
|
| 62 |
selected = "selected"
|
71 |
selected = "selected"
|
| Line 173... |
Line 182... |
| 173 |
WEnd
|
182 |
WEnd
|
| 174 |
|
183 |
|
| 175 |
OraDatabase.Parameters.Remove "ROLE_ID"
|
184 |
OraDatabase.Parameters.Remove "ROLE_ID"
|
| 176 |
OraDatabase.Parameters.Remove "APP_ID"
|
185 |
OraDatabase.Parameters.Remove "APP_ID"
|
| 177 |
%>
|
186 |
%>
|
| - |
|
187 |
<%If CanEdit Then%>
|
| 178 |
<tr>
|
188 |
<tr>
|
| 179 |
<td class="body_txt"></td>
|
189 |
<td class="body_txt"></td>
|
| 180 |
<td class="body_txt"></td>
|
190 |
<td class="body_txt"></td>
|
| 181 |
<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
|
191 |
<td align="center" background='images/bg_bage_pane.gif'><input type="submit" name="btn" value="Apply" class="form_btn"></td>
|
| 182 |
<td class="body_txt"></td>
|
192 |
<td class="body_txt"></td>
|
| 183 |
</tr>
|
193 |
</tr>
|
| - |
|
194 |
<%End If%>
|
| 184 |
<tr>
|
195 |
<tr>
|
| 185 |
<td colspan="5" background="images/bg_table_border.gif">
|
196 |
<td colspan="5" background="images/bg_table_border.gif">
|
| 186 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
197 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| 187 |
<tr>
|
198 |
<tr>
|
| 188 |
<td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
199 |
<td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|