Subversion Repositories DevTools

Rev

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

Rev 147 Rev 149
Line 865... Line 865...
865 
      End If
 865 
      End If
866 
 
 866 
 
867 
      If isAbtnRequired(aAbtnList, "btnEditDaemonInst") Then
 867 
      If isAbtnRequired(aAbtnList, "btnEditDaemonInst") Then
868 
         varValues = Array(41, "btnEditDaemonInst", null,_
 868 
         varValues = Array(41, "btnEditDaemonInst", null,_
869 
                           """javascript:;""",_
 869 
                           """javascript:;""",_
870 
                           """onClick=""""MM_openBrWindow('wAddDaemonInstruction.asp?edit=true&inst_id=""& daemonInstId &""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','EditProd','scrollbars=yes,resizable=yes,width=800,height=350');""""""",_
 870 
                           """onClick=""""MM_openBrWindow('wAddDaemonInstruction.asp?edit=true&inst_id=""& daemonInstId & ""&sort="" & parSortOrder & ""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','EditProd','scrollbars=yes,resizable=yes,width=800,height=350');""""""",_
871 
                           "icons/i_edit.gif",_
 871 
                           "icons/i_edit.gif",_
872 
                           "icons/i_edit_off.gif",_
 872 
                           "icons/i_edit_off.gif",_
873 
                           "Edit this Daemon Instruction",_
 873 
                           "Edit this Daemon Instruction",_
874 
                           "Y",_
 874 
                           "Y",_
875 
                           "Y",_
 875 
                           "Y",_
Line 887... Line 887...
887 
                           "Y",_
 887 
                           "Y",_
888 
                           "Y",_
 888 
                           "Y",_
889 
                           "N")
 889 
                           "N")
890 
         rsQry.AddNew varFields, varValues
 890 
         rsQry.AddNew varFields, varValues
891 
      End If
 891 
      End If
- 
 
 892 
 
- 
 
 893 
      If isAbtnRequired(aAbtnList, "btnAddDaemonInstTestBuildPackage") Then
- 
 
 894 
         varValues = Array(43, "btnAddDaemonInstTestBuildPackage", null,_
- 
 
 895 
                           """javascript:;""",_
- 
 
 896 
                           """onClick=""""MM_openBrWindow('wAddDaemonInstruction.asp?op_code=1"" &""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','EditProd','scrollbars=yes,resizable=yes,width=800,height=350');""""""",_
- 
 
 897 
                           "images/abtn_test_build.gif",_
- 
 
 898 
                           "images/abtn_test_build_off.gif",_
- 
 
 899 
                           "Request the Build Daemon to test build this WIP package version",_
- 
 
 900 
                           "Y",_
- 
 
 901 
                           "Y",_
- 
 
 902 
                           "N")
- 
 
 903 
         rsQry.AddNew varFields, varValues
- 
 
 904 
      End If
892 
 
 905 
 
893 
      ' Move cursor to the first record
 906 
      ' Move cursor to the first record
894 
      rsQry.MoveFirst
 907 
      rsQry.MoveFirst
895 
 
 908 
 
896 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 909 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then