Subversion Repositories DevTools

Rev

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

Rev 7022 Rev 7225
Line 1168... Line 1168...
1168
                           "Y",_
1168
                           "Y",_
1169
                           "N",_
1169
                           "N",_
1170
                           "N")
1170
                           "N")
1171
         rsQry.AddNew varFields, varValues
1171
         rsQry.AddNew varFields, varValues
1172
      End If
1172
      End If
-
 
1173
 
-
 
1174
	 If isAbtnRequired(aAbtnList, "btnEditBuildPlatforms") Then
-
 
1175
         varValues = Array("btnEditBuildPlatforms", null,_
-
 
1176
                           """javascript:;""",_
-
 
1177
                           """onClick=""""MM_openVixIFrame('wAddBuildPlatform.asp?type=edit&bp_id=""& bp_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Platform');""""""",_
-
 
1178
                           "icons/i_edit.gif",_
-
 
1179
                           NULL,_
-
 
1180
                           "Edit Build Platform",_
-
 
1181
                           "Y",_
-
 
1182
                           "Y",_
-
 
1183
                           "N",_
-
 
1184
                           "N")
-
 
1185
         rsQry.AddNew varFields, varValues
1173
      
1186
      End If
-
 
1187
 
-
 
1188
      If isAbtnRequired(aAbtnList, "btnDeleteBuildPlatforms") Then
-
 
1189
         varValues = Array("btnDeleteBuildPlatforms", null,_
-
 
1190
                           """_DeleteBuildPlatform.asp?rfile=""& SCRIPT_NAME &""&bp_id=""& bp_id &""&""& objPMod.ComposeURL()",_
-
 
1191
                           """vixConfirm('Remove Build Platform \'""& bp_name &""\' from this list?',{title:'Delete Build Platform', button:'Delete', url: 'HREF'});""""""",_
-
 
1192
                           "icons/i_remove.gif",_
-
 
1193
                           null,_
-
 
1194
                           "Delete Build Platform",_
-
 
1195
                           "Y",_
-
 
1196
                           "Y",_
-
 
1197
                           "N",_
-
 
1198
                           "N")
-
 
1199
         rsQry.AddNew varFields, varValues
-
 
1200
      End If
1174
 
1201
 
1175
      ' Move cursor to the first record
1202
      ' Move cursor to the first record
1176
      rsQry.MoveFirst
1203
      rsQry.MoveFirst
1177
 
1204
 
1178
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
1205
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then