Subversion Repositories DevTools

Rev

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

Rev 145 Rev 147
Line 1597... Line 1597...
1597 
      set rsTemp = nothing
 1597 
      set rsTemp = nothing
1598 
   Else
 1598 
   Else
1599 
      is_daemon_enabled_release = defaultReturnValue
 1599 
      is_daemon_enabled_release = defaultReturnValue
1600 
   End If
 1600 
   End If
1601 
End Function
 1601 
End Function
- 
 
 1602 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 1603 
' Convert release state into a meaningful string
- 
 
 1604 
Function Get_Official( nOfficial )
- 
 
 1605 
   If nOfficial = "N" Then
- 
 
 1606 
      Get_Official = "Open"
- 
 
 1607 
   ElseIf nOfficial = "A" Then
- 
 
 1608 
      Get_Official = "Archive"
- 
 
 1609 
   ElseIf nOfficial = "C" Then
- 
 
 1610 
      Get_Official = "CCB"
- 
 
 1611 
   ElseIf nOfficial = "R" Then
- 
 
 1612 
      Get_Official = "Restricted"
- 
 
 1613 
   ElseIf nOfficial = "Y" Then
- 
 
 1614 
      Get_Official = "Closed"
- 
 
 1615 
   Else
- 
 
 1616 
      Get_Official = "?"
- 
 
 1617 
   End If
- 
 
 1618 
End Function
1602 
 
 1619 
 
1603 
 
 1620 
 
1604 
%>
 1621 
%>