Subversion Repositories DevTools

Rev

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

Rev 183 Rev 3959
Line 512... Line 512...
512 
 
 512 
 
513 
      If isAbtnRequired(aAbtnList, "btnApprovePackage") Then
 513 
      If isAbtnRequired(aAbtnList, "btnApprovePackage") Then
514 
         varValues = Array(13, "btnApprovePackage", null,_
 514 
         varValues = Array(13, "btnApprovePackage", null,_
515 
                           """_make_approved.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
 515 
                           """_make_approved.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
516 
                           """onClick=""""return confirmAction('You are about to approve this package for auto-build. \nDo you want to proceed?');""""""",_
 516 
                           """onClick=""""return confirmAction('You are about to approve this package for auto-build. \nDo you want to proceed?');""""""",_
517 
                           "icons/i_make_released.gif",_
 517 
                           "icons/i_submit_build.gif",_
518 
                           "icons/i_make_released_off.gif",_
 518 
                           "icons/i_submit_build_off.gif",_
519 
                           "Make this package released for automated build.",_
 519 
                           "Make this package released for automated build.",_
520 
                           "Y",_
 520 
                           "Y",_
521 
                           "Y",_
 521 
                           "Y",_
522 
                           "N")
 522 
                           "N")
523 
         rsQry.AddNew varFields, varValues
 523 
         rsQry.AddNew varFields, varValues
Line 966... Line 966...
966 
                           "Y",_
 966 
                           "Y",_
967 
                           "N")
 967 
                           "N")
968 
         rsQry.AddNew varFields, varValues
 968 
         rsQry.AddNew varFields, varValues
969 
      End If
 969 
      End If
970 
 
 970 
 
- 
 
 971 
      If isAbtnRequired(aAbtnList, "btnEditProjectExtensions") Then
- 
 
 972 
         varValues = Array(29, "btnEditProjectExtensions", null,_
- 
 
 973 
                           """javascript:;""",_
- 
 
 974 
                           """onClick=""""MM_openBrWindow('wAddProjectExtension.asp?type=edit&ext=""& extName &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','EditProd','scrollbars=yes,resizable=yes,width=600,height=430');""""""",_
- 
 
 975 
                           "icons/i_edit.gif",_
- 
 
 976 
                           "icons/i_edit_off.gif",_
- 
 
 977 
                           "Edit Project Extensions",_
- 
 
 978 
                           "Y",_
- 
 
 979 
                           "Y",_
- 
 
 980 
                           "N")
- 
 
 981 
         rsQry.AddNew varFields, varValues
- 
 
 982 
      End If
- 
 
 983 
 
- 
 
 984 
      If isAbtnRequired(aAbtnList, "btnDeleteProjectExtension") Then
- 
 
 985 
         varValues = Array(30, "btnDeleteProjectExtension", null,_
- 
 
 986 
                           """_DeleteProjectExtension.asp?rfile=""& SCRIPT_NAME &""&ext=""& extName &""&""& objPMod.ComposeURL()",_
- 
 
 987 
                           """onClick=""""return confirmAction('Remove Project Extension:  \'""& extName &""\' from this list?');""""""",_
- 
 
 988 
                           "icons/i_remove.gif",_
- 
 
 989 
                           null,_
- 
 
 990 
                           "Delete Project Extension",_
- 
 
 991 
                           "Y",_
- 
 
 992 
                           "Y",_
- 
 
 993 
                           "N")
- 
 
 994 
         rsQry.AddNew varFields, varValues
- 
 
 995 
      End If
- 
 
 996
- 
 
 997 
 
971 
      ' Move cursor to the first record
 998 
      ' Move cursor to the first record
972 
      rsQry.MoveFirst
 999 
      rsQry.MoveFirst
973 
 
 1000 
 
974 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 1001 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
975 
         Call LoadButtons ( rsQry.GetRows() )
 1002 
         Call LoadButtons ( rsQry.GetRows() )