Subversion Repositories DevTools

Rev

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

Rev 4764 Rev 5009
Line 243... Line 243...
243 
 
 243 
 
244 
'-----------------------------------------------------------------------------------------------------------------------------
 244 
'-----------------------------------------------------------------------------------------------------------------------------
245 
Sub RenderDaemonBar(irtag_id,ipv_id)
 245 
Sub RenderDaemonBar(irtag_id,ipv_id)
246 
%>
 246 
%>
247 
   <!-- Daemon Bar ----------------------------  -->
 247 
   <!-- Daemon Bar ----------------------------  -->
248 
   <table border="0" cellspacing="2" cellpadding="0">
 248 
   <table border="0" cellspacing="0" cellpadding="0">
249 
   <tr>
 249 
   <tr>
250 
     <td valign=bottom>
 250 
     <td valign=bottom>
251 
       <%
 251 
       <%
252 
         If irtag_id<>"" Then
 252 
         If irtag_id<>"" Then
253 
           Dim objDmSts: Set objDmSts = New DaemonStatus
 253 
           Dim objDmSts: Set objDmSts = New DaemonStatus
254 
       %>
 254 
       %>
255 
           <fieldset style="margin:0px;padding:0px;">
 255 
           <fieldset style="margin:0px;padding:2px;">
256 
               <%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%>
 256 
               <%Call objDmSts.RenderDaemonStatusForRelease(irtag_id,16)%>
257 
           </fieldset>
 257 
           </fieldset>
258 
       <%
 258 
       <%
259 
           Set objDmSts = Nothing
 259 
           Set objDmSts = Nothing
260 
         End If
 260 
         End If