| Line 2196... |
Line 2196... |
| 2196 |
Else
|
2196 |
Else
|
| 2197 |
RequestDefault = sdefault
|
2197 |
RequestDefault = sdefault
|
| 2198 |
End If
|
2198 |
End If
|
| 2199 |
End Function
|
2199 |
End Function
|
| 2200 |
'--------------------------------------------------------------------------------------------------------------------------
|
2200 |
'--------------------------------------------------------------------------------------------------------------------------
|
| - |
|
2201 |
' Returns either the value of the Request('tag') or the default value
|
| - |
|
2202 |
Function RequestBool(stag, sdefault)
|
| - |
|
2203 |
Dim val
|
| - |
|
2204 |
If Request(stag) <> "" Then
|
| - |
|
2205 |
RequestBool = FALSE
|
| - |
|
2206 |
val = UCase( Request(stag))
|
| - |
|
2207 |
If val = "Y" or val = "TRUE" Then
|
| - |
|
2208 |
RequestBool = TRUE
|
| - |
|
2209 |
ElseIf IsNumeric(val) Then
|
| - |
|
2210 |
If val > 0 Then
|
| - |
|
2211 |
RequestBool = TRUE
|
| - |
|
2212 |
End If
|
| - |
|
2213 |
End If
|
| - |
|
2214 |
Else
|
| - |
|
2215 |
RequestBool = sdefault
|
| - |
|
2216 |
End If
|
| - |
|
2217 |
End Function
|
| - |
|
2218 |
|
| - |
|
2219 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 2201 |
' Data structure to assist in the Release Mode Transition Check
|
2220 |
' Data structure to assist in the Release Mode Transition Check
|
| 2202 |
' Tuples (FromCondition, ToCondition) '-' == Always
|
2221 |
' Tuples (FromCondition, ToCondition) '-' == Always
|
| 2203 |
' Order matches ReleaseModeAccessCheck
|
2222 |
' Order matches ReleaseModeAccessCheck
|
| 2204 |
'
|
2223 |
'
|
| 2205 |
Dim RMTD_Data
|
2224 |
Dim RMTD_Data
|
| Line 2502... |
Line 2521... |
| 2502 |
Sub BuildActionButtonClickRaw(bState, sText, sTitle, isBlue, sImage, sClick)
|
2521 |
Sub BuildActionButtonClickRaw(bState, sText, sTitle, isBlue, sImage, sClick)
|
| 2503 |
Dim sStyle : sStyle = ""
|
2522 |
Dim sStyle : sStyle = ""
|
| 2504 |
If Left(sImage,4) = "<img" Then sImage = Mid(sImage, 5, Len(sImage)-5)
|
2523 |
If Left(sImage,4) = "<img" Then sImage = Mid(sImage, 5, Len(sImage)-5)
|
| 2505 |
If bState Then
|
2524 |
If bState Then
|
| 2506 |
If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>
|
2525 |
If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>
|
| 2507 |
<span onClick="<%=sClick%>" class="pointer abtnItem" style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>
|
2526 |
<span onClick="<%=sClick%>" class="pointer abtnItem" title="<%=sTitle%>" style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>
|
| 2508 |
<%Else%>
|
2527 |
<%Else%>
|
| 2509 |
<%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>
|
2528 |
<%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>
|
| 2510 |
<span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
|
2529 |
<span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
|
| 2511 |
<%End If
|
2530 |
<%End If
|
| 2512 |
End Sub
|
2531 |
End Sub
|