Subversion Repositories DevTools

Rev

Rev 3943 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3943 Rev 5299
Line 1... Line 1...
1 
<!-- #INCLUDE FILE="..\common\adovbs.inc" -->
 1 
<!-- #INCLUDE FILE="..\common\adovbs.inc" -->
2 
<%
 2 
<%
3 
'=============================================================
 3 
'=============================================================
4 
'//
 4 
'
5 
'//						Action Button Control
 5 
'   Action Button Control
6 
'//
 - 
 
7 
'// version: 		1.0
 6 
'   classActionButtonControl.asp
8 
'//	last modified: 	06-Aug-2004 13:38 by Sasha Vukovic
 - 
 
9 
'=============================================================
 7 
'=============================================================
10 
%>
 8 
%>
11 
<%
 9 
<%
12 
'--------------- Global Constants ----------------
 10 
'--------------- Global Constants ----------------
13 
Const enumABTNCTRL_ON_READONLY_HIDE = 1
 11 
Const enumABTNCTRL_ON_READONLY_HIDE = 1
Line 151... Line 149...
151 
				btnImage & mArrAbtnDef( InxTxt, itemInx ) &"</a>"&_
 149 
				btnImage & mArrAbtnDef( InxTxt, itemInx ) &"</a>"&_
152 
				"</td>"
 150 
				"</td>"
153 
 
 151 
 
154 
 
 152 
 
155 
			'-- Define Disabled Button
 153 
			'-- Define Disabled Button
- 
 
 154 
            '   A Null value of '' will use InxImg with the lessOpacity Class
- 
 
 155 
            If IsNull(mArrAbtnDef( InxImgOff, itemInx )) Then
156 
			ButtonStrDisabled = _
 156 
                ButtonStrDisabled = _
- 
 
 157 
                    "<td nowrap>"&_
- 
 
 158 
                    "<img src='"& mArrAbtnDef( InxImg, itemInx ) &"' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"&_
- 
 
 159 
                    "<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
- 
 
 160 
                    "</td>"
- 
 
 161 
            Else
- 
 
 162 
                ButtonStrDisabled = _
157 
				"<td nowrap>"&_
 163 
                    "<td nowrap>"&_
158 
				"<img src='"& mArrAbtnDef( InxImgOff, itemInx ) &"' hspace='2' border='0' align='absmiddle'>"&_
 164 
                    "<img src='"& mArrAbtnDef( InxImgOff, itemInx ) &"' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"&_
159 
				"<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
 165 
                    "<label class='menu_txt'>"& mArrAbtnDef( InxTxt, itemInx ) &"</label>"&_
160 
				"</td>"
 166 
                    "</td>"
161 
 
 - 
 
162 
 
 - 
 
- 
 
 167 
            End If
163 
 
 168 
 
164 
 
 169 
 
165 
			If  mbDisableAll OR ( mArrAbtnDef( InxActive, itemInx ) = enumDB_NO ) Then
 170 
			If  mbDisableAll OR ( mArrAbtnDef( InxActive, itemInx ) = enumDB_NO ) Then
166 
				' --- Display DISABLED Button Item ---
 171 
				' --- Display DISABLED Button Item ---
- 
 
 172 
					If InStr( itemName, "width=" ) > 0 Then
- 
 
 173 
						Response.write "<td><img src='images/spacer.gif' "& itemName &" height='1' align='absmiddle'></td>"
- 
 
 174 
 
- 
 
 175 
					ElseIf InStr( itemName, "height=" ) > 0 Then
- 
 
 176 
						Response.write "<td><img src='images/bg_bage_2.gif' width='1' "& itemName &" align='absmiddle' hspace='4'></td>"
- 
 
 177 
 
- 
 
 178 
					Else
- 
 
 179 
						'/* It is a button, i.e. Display Button */
167 
				Response.write ButtonStrDisabled
 180 
				        Response.write ButtonStrDisabled
- 
 
 181 
 
- 
 
 182 
					End If
168 
 
 183 
 
169 
			Else
 184 
			Else
170 
 
 185 
 
171 
				' --- Display Action Button Item ---
 186 
				' --- Display Action Button Item ---
172 
				If	( NOT mbIsReadonly )  OR _
 187 
				If	( NOT mbIsReadonly )  OR _
Line 511... Line 526...
511 
 
 526 
 
512 
      If isAbtnRequired(aAbtnList, "btnRemoveDataTable") Then
 527 
      If isAbtnRequired(aAbtnList, "btnRemoveDataTable") Then
513 
         varValues = Array(19,"btnRemoveDataTable",null,_
 528 
         varValues = Array(19,"btnRemoveDataTable",null,_
514 
                           """_RemoveDataTable.asp?rfile=""& SCRIPT_NAME &""&dt_id=""& DtId &""&""& objPMod.ComposeURL()",_
 529 
                           """_RemoveDataTable.asp?rfile=""& SCRIPT_NAME &""&dt_id=""& DtId &""&""& objPMod.ComposeURL()",_
515 
                           """onClick=""""return confirmAction('Remove \'""& DataTableName &""\' from this list?');""""""",_
 530 
                           """onClick=""""return confirmAction('Remove \'""& DataTableName &""\' from this list?');""""""",_
516 
                           "images/i_remove.gif",_
 531 
                           "images/i_remove_no_border.gif",_
517 
                           null,_
 532 
                           null,_
518 
                           "Remove this Data Table",_
 533 
                           "Remove this Data Table",_
519 
                           "Y",_
 534 
                           "Y",_
520 
                           "Y",_
 535 
                           "Y",_
521 
                           "N")
 536 
                           "N")
Line 526... Line 541...
526 
         varValues = Array(20,"btnRoleMembers","Show Members",_
 541 
         varValues = Array(20,"btnRoleMembers","Show Members",_
527 
                           """javascript:go_submit( document.FormName, """"btnRoleMembers"""" );ShowProgress();""",_
 542 
                           """javascript:go_submit( document.FormName, """"btnRoleMembers"""" );ShowProgress();""",_
528 
                           null,_
 543 
                           null,_
529 
                           "images/i_user_lrg.gif",_
 544 
                           "images/i_user_lrg.gif",_
530 
                           null,_
 545 
                           null,_
531 
                           null,_
 546 
                           "Show members common to all selected Roles",_
532 
                           "Y",_
 547 
                           "Y",_
533 
                           "Y",_
 548 
                           "Y",_
534 
                           "Y")
 549 
                           "Y")
535 
         rsQry.AddNew varFields, varValues
 550 
         rsQry.AddNew varFields, varValues
536 
      End If
 551 
      End If