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