Subversion Repositories DevTools

Rev

Blame | Last modification | View Log | RSS feed

<%
'===================================================================
'                                                       Release Tree Common
'===================================================================
%>
<!--#include file="../class/classSortHelper.asp"-->
<!--#include file="../class/classActionButtonControl.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
'------------ CONSTANTS DECLARATION -----------
Const LIMG_OPEN_MODE = "<img src='images/i_rtag_open_mode.gif' border='0' align='absmiddle' hspace='2'>"
Const LIMG_RESTRICTIVE_MODE = "<img src='images/i_rtag_restrictive_mode.gif' border='0' align='absmiddle' hspace='2'>"
Const LIMG_CCB_MODE = "<img src='images/i_rtag_ccb_mode.gif' border='0' align='absmiddle' hspace='2'>"
Const LIMG_CLOSED_MODE = "<img src='images/i_rtag_closed_mode.gif' border='0' align='absmiddle' hspace='2'>"
Const LIMG_ARCHIVE_MODE = "<img src='images/i_rtag_archive_mode.gif' border='0' align='absmiddle' hspace='2'>"
'------------ VARIABLE INIT -------------------
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Function ReleaseIcon ( cOfficial )
        
        If cOfficial = "N" Then
                ' Open Mode
                ReleaseIcon = LIMG_OPEN_MODE
                
        ElseIf cOfficial = "R" Then
                ' Restrictive Mode
                ReleaseIcon = LIMG_RESTRICTIVE_MODE
        
        ElseIf cOfficial = "C" Then
                'CCB Mode
                ReleaseIcon = LIMG_CCB_MODE
                
        ElseIf cOfficial = "Y" Then
                'Closed Mode
                ReleaseIcon = LIMG_CLOSED_MODE
                
        ElseIf cOfficial = "A" Then
                'Archive Mode
                ReleaseIcon = LIMG_ARCHIVE_MODE 
        End If
        
End Function 
'-----------------------------------------------------------------------------------------------------------------
%>