Subversion Repositories DevTools

Rev

Rev 5983 | Rev 6185 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5983 Rev 6176
Line 148... Line 148...
148
      Response.write "<table cellpadding='0' cellspacing='0' width='1'><tr>"
148
      Response.write "<table cellpadding='0' cellspacing='0' width='1'><tr>"
149
 
149
 
150
      For Each itemName in aAbtnList
150
      For Each itemName in aAbtnList
151
         itemInx = mobjNameDefMap.Item (Cstr(itemName))
151
         itemInx = mobjNameDefMap.Item (Cstr(itemName))
152
 
152
 
153
 
-
 
154
         '-- Define Image
153
         '-- Define Image
155
         btnImage = "<img src='images/spacer.gif' width='"& mnButtonSpacer &"' height='1' align='absmiddle' border='0'>"
154
         btnImage = "<img src='images/spacer.gif' width='"& mnButtonSpacer &"' height='1' align='absmiddle' border='0'>"
156
         If (mArrAbtnDef( InxImg, itemInx ) <> "") Then
155
         If (mArrAbtnDef( InxImg, itemInx ) <> "") Then
157
            btnImage = "<img src='"& mArrAbtnDef( InxImg, itemInx ) &"' hspace='"& mnImageHspace &"' border='0' align='absmiddle'>"
156
            btnImage = "<img src='"& mArrAbtnDef( InxImg, itemInx ) &"' hspace='"& mnImageHspace &"' border='0' align='absmiddle'>"
158
         End If
157
         End If
Line 167... Line 166...
167
         If InStr( uevent, "vixConfirm" ) = 1 Then
166
         If InStr( uevent, "vixConfirm" ) = 1 Then
168
            uevent = Replace(uevent, "HREF", uhref )
167
            uevent = Replace(uevent, "HREF", uhref )
169
            uevent = "onclick=""" & uevent & """"
168
            uevent = "onclick=""" & uevent & """"
170
            uhref = "javascript:;"
169
            uhref = "javascript:;"
171
         End If
170
         End If
-
 
171
         Dim hint: hint = mArrAbtnDef( InxHint, itemInx ) 
172
         ButtonStr = _
172
         ButtonStr = _
173
            "<td nowrap>"&_
173
            "<td nowrap>"&_
174
            "<a id='"& mArrAbtnDef( InxName, itemInx ) &"' "&_
174
            "<a id='"& mArrAbtnDef( InxName, itemInx ) &"' "&_
175
            " name='"& mArrAbtnDef( InxName, itemInx ) &"' href='"& uhref &"' "&_
175
            " name='"& mArrAbtnDef( InxName, itemInx ) &"' href='"& uhref &"' "&_
176
            " "& uevent &" class='menu_link' title='"& mArrAbtnDef( InxHint, itemInx )  &"'>"&_
176
            " "& uevent &" class='menu_link' title='"& hint &"'>"&_
177
            btnImage & mArrAbtnDef( InxTxt, itemInx ) &"</a>"&_
177
            btnImage & mArrAbtnDef( InxTxt, itemInx ) &"</a>"&_
178
            "</td>"
178
            "</td>"
179
 
179
 
180
			'-- Define Disabled Button
180
			'-- Define Disabled Button
181
            '   A Null value of '' will use InxImg with the lessOpacity Class
181
            '   A Null value of '' will use InxImg with the lessOpacity Class
-
 
182
            hint = hint & " [Disabled]" 
182
            If IsNull(mArrAbtnDef( InxImgOff, itemInx )) Then
183
            If IsNull(mArrAbtnDef( InxImgOff, itemInx )) Then
183
                ButtonStrDisabled = _
184
                ButtonStrDisabled = _
184
                    "<td nowrap>"&_
185
                    "<td nowrap>"&_
185
                    "<img src='"& mArrAbtnDef( InxImg, itemInx ) &"' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"&_
186
                    "<img src='"& mArrAbtnDef( InxImg, itemInx ) &"' hspace='2' border='0' align='absmiddle' class='lessOpacity' title='"&hint&"'>"&_
186
                    "<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
187
                    "<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
187
                    "</td>"
188
                    "</td>"
188
            Else
189
            Else
189
                ButtonStrDisabled = _
190
                ButtonStrDisabled = _
190
                    "<td nowrap>"&_
191
                    "<td nowrap>"&_
191
                    "<img src='"& mArrAbtnDef( InxImgOff, itemInx ) &"' hspace='2' border='0' align='absmiddle'>"&_
192
                    "<img src='"& mArrAbtnDef( InxImgOff, itemInx ) &"' hspace='2' border='0' align='absmiddle' title='"&hint&"'>"&_
192
                    "<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
193
                    "<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
193
                    "</td>"
194
                    "</td>"
194
            End If
195
            End If
195
 
196
 
196
 
197
 
Line 499... Line 500...
499
                           "images/abtn_rename_version.gif",_
500
                           "images/abtn_rename_version.gif",_
500
                           "images/abtn_rename_version_off.gif",_
501
                           "images/abtn_rename_version_off.gif",_
501
                           "Reversion this package.",_
502
                           "Reversion this package.",_
502
                           "Y",_
503
                           "Y",_
503
                           "Y",_
504
                           "Y",_
504
                           "N",_
505
                           "Y",_
505
                           "N")
506
                           "N")
506
         rsQry.AddNew varFields, varValues
507
         rsQry.AddNew varFields, varValues
507
      End If
508
      End If
508
 
509
 
509
      If isAbtnRequired(aAbtnList, "btnStickyNotes") Then
510
      If isAbtnRequired(aAbtnList, "btnStickyNotes") Then