Subversion Repositories DevTools

Rev

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

Rev 5030 Rev 5122
Line 1107... Line 1107...
1107 
                           "Y")
 1107 
                           "Y")
1108 
         rsQry.AddNew varFields, varValues
 1108 
         rsQry.AddNew varFields, varValues
1109 
      End If
 1109 
      End If
1110 
 
 1110 
 
1111
1111
- 
 
 1112 
      If isAbtnRequired(aAbtnList, "btnEditGBE_BuildStandard") Then
- 
 
 1113 
         varValues = Array(48, "btnEditGBE_BuildStandard", null,_
- 
 
 1114 
                           """javascript:;""",_
- 
 
 1115 
                           """onClick=""""MM_openBrWindow('wAddBuildStandard.asp?type=edit&bsa_id=""& bsa_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','EditProd','scrollbars=yes,resizable=yes,width=600,height=220');""""""",_
- 
 
 1116 
                           "icons/i_edit.gif",_
- 
 
 1117 
                           "icons/i_edit_off.gif",_
- 
 
 1118 
                           "Edit this Build Standard",_
- 
 
 1119 
                           "Y",_
- 
 
 1120 
                           "Y",_
- 
 
 1121 
                           "N",_
- 
 
 1122 
                           "N")
- 
 
 1123 
         rsQry.AddNew varFields, varValues
- 
 
 1124 
      End If
- 
 
 1125 
 
- 
 
 1126 
      If isAbtnRequired(aAbtnList, "btnDeleteGBE_BuildStandard") Then
- 
 
 1127 
         varValues = Array(49, "btnDeleteGBE_BuildStandard", null,_
- 
 
 1128 
                           """_DeleteBuildStandard.asp?rfile=""& SCRIPT_NAME &""&bsa_id=""& bsa_id &""&""& objPMod.ComposeURL()",_
- 
 
 1129 
                           """onClick=""""return confirmAction('Remove \'""& GBE_VALUE &""\' from this list?');""""""",_
- 
 
 1130 
                           "icons/i_remove.gif",_
- 
 
 1131 
                           null,_
- 
 
 1132 
                           "Delete this Build Standard",_
- 
 
 1133 
                           "Y",_
- 
 
 1134 
                           "Y",_
- 
 
 1135 
                           "N",_
- 
 
 1136 
                           "N")
- 
 
 1137 
         rsQry.AddNew varFields, varValues
- 
 
 1138 
      End If
1112
1139
1113 
 
 1140 
 
1114 
      ' Move cursor to the first record
 1141 
      ' Move cursor to the first record
1115 
      rsQry.MoveFirst
 1142 
      rsQry.MoveFirst
1116 
 
 1143