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