| Line 91... |
Line 91... |
| 91 |
mArrAbtnDef ( nProperty, nInx ) = Value
|
91 |
mArrAbtnDef ( nProperty, nInx ) = Value
|
| 92 |
|
92 |
|
| 93 |
'Response.write "mArrAbtnDef ( "& nProperty &", "& nInx &" ) = "& Value &"<br>"
|
93 |
'Response.write "mArrAbtnDef ( "& nProperty &", "& nInx &" ) = "& Value &"<br>"
|
| 94 |
End Sub
|
94 |
End Sub
|
| 95 |
'-----------------------------------------------------------------------------------------------------------------
|
95 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
96 |
Private Function GetItemPropertyByIndex ( nInx, nProperty )
|
| - |
|
97 |
GetItemPropertyByIndex = ""
|
| - |
|
98 |
If nInx = "" Then Exit Function ' Exit sub if you don't find defined button
|
| - |
|
99 |
|
| - |
|
100 |
If nProperty = "" Then Err.Raise 8, "Method GetItemPropertyByIndex", "Empty parameters found. nInx="& nInx &", nProperty="& nProperty
|
| - |
|
101 |
|
| - |
|
102 |
GetItemPropertyByIndex = Cstr(mArrAbtnDef ( nProperty, nInx ))
|
| - |
|
103 |
End Function
|
| - |
|
104 |
'-----------------------------------------------------------------------------------------------------------------
|
| 96 |
Private Function LastItemInx ()
|
105 |
Private Function LastItemInx ()
|
| 97 |
LastItemInx = UBound ( mArrAbtnDef, 2 )
|
106 |
LastItemInx = UBound ( mArrAbtnDef, 2 )
|
| 98 |
End Function
|
107 |
End Function
|
| 99 |
'-----------------------------------------------------------------------------------------------------------------
|
108 |
'-----------------------------------------------------------------------------------------------------------------
|
| 100 |
Public Sub AddActionButton ( sItemName, nItemID )
|
109 |
Public Sub AddActionButton ( sItemName, nItemID )
|
| Line 174... |
Line 183... |
| 174 |
|
183 |
|
| 175 |
If mobjACActionsMap.Exists ( itemName ) Then
|
184 |
If mobjACActionsMap.Exists ( itemName ) Then
|
| 176 |
' Relationship supplied
|
185 |
' Relationship supplied
|
| 177 |
bIsVisibleAC = oAccessControl.IsVisible ( mobjACActionsMap.Item( itemName ) )
|
186 |
bIsVisibleAC = oAccessControl.IsVisible ( mobjACActionsMap.Item( itemName ) )
|
| 178 |
bIsActiveAC = oAccessControl.IsActive ( mobjACActionsMap.Item( itemName ) )
|
187 |
bIsActiveAC = oAccessControl.IsActive ( mobjACActionsMap.Item( itemName ) )
|
| 179 |
'Response.write itemName &":"& oAccessControl.IsVisible ( mobjACActionsMap.Item( itemName ) ) &"-"& oAccessControl.IsActive ( mobjACActionsMap.Item( itemName ) )
|
188 |
'Response.write "<br>" & itemName &":"& bIsVisibleAC &"-"& bIsActiveAC
|
| 180 |
End If
|
189 |
End If
|
| 181 |
|
190 |
|
| 182 |
End If
|
191 |
End If
|
| 183 |
|
192 |
|
| 184 |
|
193 |
|
| Line 194... |
Line 203... |
| 194 |
If ( itemInx <> "" ) AND _
|
203 |
If ( itemInx <> "" ) AND _
|
| 195 |
( mbDisableAll OR _
|
204 |
( mbDisableAll OR _
|
| 196 |
( ( mArrAbtnDef( InxActive, itemInx ) = enumDB_NO ) OR (NOT bIsActiveAC) ) _
|
205 |
( ( mArrAbtnDef( InxActive, itemInx ) = enumDB_NO ) OR (NOT bIsActiveAC) ) _
|
| 197 |
) _
|
206 |
) _
|
| 198 |
Then
|
207 |
Then
|
| - |
|
208 |
'Response.Write "<br>"&itemName&" is disabled," & itemInx & "," & mbDisableAll & "," & mArrAbtnDef( InxActive, itemInx ) & "," & mArrAbtnDef( InxVisible, itemInx )
|
| 199 |
|
209 |
|
| 200 |
' --- Display DISABLED Button Item ---
|
210 |
' --- Display DISABLED Button Item ---
|
| 201 |
Response.write ButtonStrDisabled
|
211 |
Response.write ButtonStrDisabled
|
| 202 |
|
212 |
|
| 203 |
If mnButtonSpacer > 0 Then
|
213 |
If mnButtonSpacer > 0 Then
|
| Line 223... |
Line 233... |
| 223 |
|
233 |
|
| 224 |
' Check if button is loaded from Database
|
234 |
' Check if button is loaded from Database
|
| 225 |
If itemInx = "" Then Err.Raise 8, "Method Render", "Definition for item name '"& itemName &"' not found."
|
235 |
If itemInx = "" Then Err.Raise 8, "Method Render", "Definition for item name '"& itemName &"' not found."
|
| 226 |
|
236 |
|
| 227 |
Response.write ButtonStr
|
237 |
Response.write ButtonStr
|
| - |
|
238 |
'Response.Write "<br>"&itemName&" is enabled"
|
| 228 |
|
239 |
|
| 229 |
If mnButtonSpacer > 0 Then
|
240 |
If mnButtonSpacer > 0 Then
|
| 230 |
Response.write "<td><img src='images/spacer.gif' width='"& mnButtonSpacer &"' height='1' align='absmiddle'></td>"
|
241 |
Response.write "<td><img src='images/spacer.gif' width='"& mnButtonSpacer &"' height='1' align='absmiddle'></td>"
|
| 231 |
End If
|
242 |
End If
|
| 232 |
|
243 |
|
| Line 258... |
Line 269... |
| 258 |
|
269 |
|
| 259 |
Next
|
270 |
Next
|
| 260 |
|
271 |
|
| 261 |
Response.write "</tr></table>"
|
272 |
Response.write "</tr></table>"
|
| 262 |
End Sub
|
273 |
End Sub
|
| 263 |
'-----------------------------------------------------------------------------------------------------------------
|
274 |
'-----------------------------------------------------------------------------------------------------------------
|
| 264 |
' Return true if required_abtnName is one of the strings in the aAbtnList string array, else return false
|
275 |
' Return true if required_abtnName is one of the strings in the aAbtnList string array, else return false
|
| 265 |
Private Function isAbtnRequired (aAbtnList, required_abtnName)
|
276 |
Private Function isAbtnRequired (aAbtnList, required_abtnName)
|
| 266 |
Dim this_abtnName
|
277 |
Dim this_abtnName
|
| 267 |
|
278 |
|
| 268 |
isAbtnRequired = FALSE
|
279 |
isAbtnRequired = FALSE
|
| Line 825... |
Line 836... |
| 825 |
"Y",_
|
836 |
"Y",_
|
| 826 |
"N")
|
837 |
"N")
|
| 827 |
rsQry.AddNew varFields, varValues
|
838 |
rsQry.AddNew varFields, varValues
|
| 828 |
End If
|
839 |
End If
|
| 829 |
|
840 |
|
| - |
|
841 |
If isAbtnRequired(aAbtnList, "btnRejectAutobuildPackage") Then
|
| - |
|
842 |
varValues = Array( 39, "btnRejectAutobuildPackage", null,_
|
| - |
|
843 |
"""_make_rejected.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| - |
|
844 |
"""onClick=""""return confirmAction('Rejecting a package already approved for autobuild will set it back to Work-In-Progress. \nDo you want to proceed?');""""""",_
|
| - |
|
845 |
"icons/i_reject_pending.gif",_
|
| - |
|
846 |
"icons/i_reject_pending_off.gif",_
|
| - |
|
847 |
"Unapprove autobuild, move back to Work-In-Progress.",_
|
| - |
|
848 |
"Y",_
|
| - |
|
849 |
"Y",_
|
| - |
|
850 |
"N")
|
| - |
|
851 |
rsQry.AddNew varFields, varValues
|
| - |
|
852 |
End If
|
| - |
|
853 |
|
| 830 |
' Move cursor to the first record
|
854 |
' Move cursor to the first record
|
| 831 |
rsQry.MoveFirst
|
855 |
rsQry.MoveFirst
|
| 832 |
|
856 |
|
| 833 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
857 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| 834 |
Call LoadButtons ( rsQry.GetRows() )
|
858 |
Call LoadButtons ( rsQry.GetRows() )
|
| Line 910... |
Line 934... |
| 910 |
Public Sub Visible ( sItemName, Value )
|
934 |
Public Sub Visible ( sItemName, Value )
|
| 911 |
'Response.write sItemName &"here"& mobjNameDefMap.Item (Cstr(sItemName))
|
935 |
'Response.write sItemName &"here"& mobjNameDefMap.Item (Cstr(sItemName))
|
| 912 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxVisible, Value )
|
936 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxVisible, Value )
|
| 913 |
End Sub
|
937 |
End Sub
|
| 914 |
'-----------------------------------------------------------------------------------------------------------------
|
938 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
939 |
Public Function IsVisible ( sItemName )
|
| - |
|
940 |
'Response.write sItemName &"here"& mobjNameDefMap.Item (Cstr(sItemName))
|
| - |
|
941 |
IsVisible = GetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxVisible )
|
| - |
|
942 |
End Function
|
| - |
|
943 |
'-----------------------------------------------------------------------------------------------------------------
|
| 915 |
Public Sub Active ( sItemName, Value )
|
944 |
Public Sub Active ( sItemName, Value )
|
| 916 |
'Response.write sItemName &"here"& mobjNameDefMap.Item (Cstr(sItemName))
|
945 |
'Response.write sItemName &"here"& mobjNameDefMap.Item (Cstr(sItemName))
|
| 917 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxActive, Value )
|
946 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxActive, Value )
|
| 918 |
End Sub
|
947 |
End Sub
|
| 919 |
'-----------------------------------------------------------------------------------------------------------------
|
948 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
949 |
Public Function IsActive ( sItemName )
|
| - |
|
950 |
IsActive = GetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxActive )
|
| - |
|
951 |
End Function
|
| - |
|
952 |
'-----------------------------------------------------------------------------------------------------------------
|
| 920 |
Private Sub Class_Initialize()
|
953 |
Private Sub Class_Initialize()
|
| 921 |
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
|
954 |
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
|
| 922 |
Set mobjNameDefMap = CreateObject("Scripting.Dictionary")
|
955 |
Set mobjNameDefMap = CreateObject("Scripting.Dictionary")
|
| 923 |
Set mobjIdDefMap = CreateObject("Scripting.Dictionary")
|
956 |
Set mobjIdDefMap = CreateObject("Scripting.Dictionary")
|
| 924 |
Set mobjSeparator = CreateObject("Scripting.Dictionary")
|
957 |
Set mobjSeparator = CreateObject("Scripting.Dictionary")
|