Subversion Repositories DevTools

Rev

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

Rev 167 Rev 171
Line 1706... Line 1706...
1706 
      Set rsTemp = nothing
 1706 
      Set rsTemp = nothing
1707 
   End If
 1707 
   End If
1708 
 
 1708 
 
1709 
End Function
 1709 
End Function
1710 
 
 1710 
 
- 
 
 1711 
'-----------------------------------------------------------------------------------------------------------------------------
1711 
Function iif(bFlag, sTrueStr, sFalseStr)
 1712 
Function iif(bFlag, sTrueStr, sFalseStr)
1712 
  if bFlag then
 1713 
  if bFlag then
1713 
    iif = sTrueStr
 1714 
    iif = sTrueStr
1714 
  else
1715 
  else
1715 
    iif = sFalseStr
 1716 
    iif = sFalseStr
1716 
  end if
 1717 
  end if
1717 
End Function
 1718 
End Function
1718 
 
 1719 
 
- 
 
 1720 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 1721 
' Sets the state of all build daemons of the specified release
- 
 
 1722 
Sub SetDaemonStates (artag_id,astate)
- 
 
 1723 
	On Error Resume Next
- 
 
 1724 
	OraDatabase.Parameters.Add "RTAG_ID", 			artag_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 1725 
	OraDatabase.Parameters.Add "NSTATE", 			astate, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 1726
- 
 
 1727 
	objEH.TryORA ( OraSession )
- 
 
 1728
- 
 
 1729 
	OraDatabase.ExecuteSQL _
- 
 
 1730 
        "BEGIN PK_BUILDAPI.SET_DAEMON_STATES(:RTAG_ID,:NSTATE);   END;"
- 
 
 1731
- 
 
 1732 
	objEH.CatchORA ( OraSession )
- 
 
 1733 
 
- 
 
 1734 
	OraDatabase.Parameters.Remove "RTAG_Id"
- 
 
 1735 
	OraDatabase.Parameters.Remove "NSTATE"
- 
 
 1736 
End Sub
- 
 
 1737 
 
1719 
%>
 1738 
%>