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