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