Subversion Repositories DevTools

Rev

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

Rev 5929 Rev 5939
Line 1944... Line 1944...
1944 
  else
1944 
  else
1945 
    iif = sFalseStr
 1945 
    iif = sFalseStr
1946 
  end if
 1946 
  end if
1947 
End Function
 1947 
End Function
1948 
 
 1948 
 
- 
 
 1949 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 1950 
Function EmptyToNull (sVal)
- 
 
 1951 
    If sval <> "" Then
- 
 
 1952 
        EmptyToNull = sVal
- 
 
 1953 
    Else
- 
 
 1954 
        EmptyToNull = NULL
- 
 
 1955 
    End If
- 
 
 1956 
End Function
- 
 
 1957 
 
1949 
'--------------------------------------------------------------------------------------------------------------------------
 1958 
'--------------------------------------------------------------------------------------------------------------------------
1950 
' Sets the state of all build daemons of the specified release
 1959 
' Sets the state of all build daemons of the specified release
1951 
Sub SetDaemonStates (artag_id,astate)
 1960 
Sub SetDaemonStates (artag_id,astate)
1952 
	On Error Resume Next
 1961 
	On Error Resume Next
1953 
	OraDatabase.Parameters.Add "RTAG_ID", 			artag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
1962 
	OraDatabase.Parameters.Add "RTAG_ID", 			artag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER