Subversion Repositories DevTools

Rev

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

Rev 5590 Rev 5623
Line 1888... Line 1888...
1888 
      Get_Official = "CCB"
 1888 
      Get_Official = "CCB"
1889 
   ElseIf nOfficial = "R" Then
 1889 
   ElseIf nOfficial = "R" Then
1890 
      Get_Official = "Restricted"
 1890 
      Get_Official = "Restricted"
1891 
   ElseIf nOfficial = "Y" Then
 1891 
   ElseIf nOfficial = "Y" Then
1892 
      Get_Official = "Closed"
 1892 
      Get_Official = "Closed"
- 
 
 1893 
   ElseIf nOfficial = "P" Then
- 
 
 1894 
      Get_Official = "Preserved"
1893 
   Else
 1895 
   Else
1894 
      Get_Official = "?"
 1896 
      Get_Official = "?"
1895 
   End If
 1897 
   End If
1896 
End Function
 1898 
End Function
1897 
'-----------------------------------------------------------------------------------------------------------------------------
 1899 
'-----------------------------------------------------------------------------------------------------------------------------