Subversion Repositories DevTools

<%

'------------------------------------------------------------------------------

'   Helper routine to create buttons and disabled buttons

'   Treat the action an href - link the user can see and potentiall open in another tab

'

Sub BuildActionButtonLink(bState, sText, sTitle, sImage, sRef)

 %>

<td align="center" nowrap valign="bottom" title="<%=sTitle%>">

    <%If bState Then%>

    <a href="<%=sRef%>" class="abtnItem"><img <%=sImage%> ><%=sText%></a>

    <%Else%>

    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>

    <%End If%>

</td>

<%End Sub

'------------------------------------------------------------------------------

'   Helper routine to create buttons and disabled buttons

'   Treat te ref as a page to goto, but don't use href

'

Sub BuildActionButton(bState, sText, sTitle, sImage, sRef)

 %>

<td align="center" nowrap valign="bottom" title="<%=sTitle%>">

    <%If bState Then%>

    <span onClick="location.href='<%=sRef%>'" class="pointer abtnItem"><img <%=sImage%> ><%=sText%></span>

    <%Else%>

    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>

    <%End If%>

</td>

<%End Sub

'------------------------------------------------------------------------------

'   Helper routine to create buttons and disabled buttons

'   Tack a onClick operation

'

Sub BuildActionButtonClick(bState, sText, sTitle, isBlue, sImage, sClick)

 Dim sStyle : sStyle = ""

 %>

<td align="right" nowrap valign="bottom" title="<%=sTitle%>">

    <%If bState Then%>

    <%If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>

    <span onClick="<%=sClick%>" class="pointer abtnItem"  style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>

    <%Else%>

    <%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>

    <span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>

    <%End If%>

</td>

<%End Sub%>