Subversion Repositories DevTools

Rev

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

Rev 6790 Rev 6827
Line 327... Line 327...
327
         </tr>
327
         </tr>
328
      </table>
328
      </table>
329
 
329
 
330
   <%End Select%>
330
   <%End Select%>
331
<%End Sub%>
331
<%End Sub%>
332
<%
-
 
333
'------------------------------------------------------------------------------
-
 
334
'   Helper routine to create buttons and disabled buttons
-
 
335
'   Treat the action an href - link the user can see and potentiall open in another tab
-
 
336
'
-
 
337
Sub BuildActionButtonLink(bState, sText, sTitle, sImage, sRef)
-
 
338
 %>
-
 
339
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
-
 
340
    <%If bState Then%>
-
 
341
    <a href="<%=sRef%>" class="abtnItem"><img <%=sImage%> ><%=sText%></a>
-
 
342
    <%Else%>
-
 
343
    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
-
 
344
    <%End If%>
-
 
345
</td>
-
 
346
<%End Sub
-
 
347
'------------------------------------------------------------------------------
-
 
348
'   Helper routine to create buttons and disabled buttons
-
 
349
'   Treat te ref as a page to goto, but don't use href
-
 
350
'
-
 
351
Sub BuildActionButton(bState, sText, sTitle, sImage, sRef)
-
 
352
 %>
-
 
353
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
-
 
354
    <%If bState Then%>
-
 
355
    <span onClick="location.href='<%=sRef%>'" class="pointer abtnItem"><img <%=sImage%> ><%=sText%></span>
-
 
356
    <%Else%>
-
 
357
    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
-
 
358
    <%End If%>
-
 
359
</td>
-
 
360
<%End Sub
-
 
361
'------------------------------------------------------------------------------
-
 
362
'   Helper routine to create buttons and disabled buttons
-
 
363
'   Tack a onClick operation
-
 
364
'
-
 
365
Sub BuildActionButtonClick(bState, sText, sTitle, isBlue, sImage, sClick)
-
 
366
 Dim sStyle : sStyle = ""
-
 
367
 %>
-
 
368
<td align="right" nowrap valign="bottom" title="<%=sTitle%>">
-
 
369
    <%If bState Then%>
-
 
370
    <%If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>
-
 
371
    <span onClick="<%=sClick%>" class="pointer abtnItem"  style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>
-
 
372
    <%Else%>
-
 
373
    <%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>
-
 
374
    <span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
-
 
375
    <%End If%>
-
 
376
</td>
-
 
377
<%End Sub%>
-
 
378
 
332
 
379
 
333