Subversion Repositories DevTools

Rev

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

Rev 5190 Rev 5207
Line 277... Line 277...
277
        </td>
277
        </td>
278
        </tr>
278
        </tr>
279
        </table>
279
        </table>
280
    <%
280
    <%
281
End Sub
281
End Sub
-
 
282
 
-
 
283
'----------------------------------------------------------------------------------------------------------------------------------------------
-
 
284
Sub RenderLxrState()
-
 
285
    If rsQry("lxr") = "Y" Then
-
 
286
        Dim lxrUrl : lxrUrl = LXR_URL & "/" & rsQry("rtag_id")
-
 
287
        Dim image : image = iif(NOT releaseIsClosed(rsQry("official")),"LXRlogo64.jpeg","LXRlogo64_off.jpeg")
-
 
288
        Response.Write("<a href='"&lxrUrl&"'><img src=""images/"&image&""" height=16 border=0 vspace=0 hspace=0 title='LXR Configured'></a>")
-
 
289
    End If
-
 
290
End Sub
282
'----------------------------------------------------------------------------------------------------------------------------------------------
291
'----------------------------------------------------------------------------------------------------------------------------------------------
283
Function RenderActions(nRtagId, sOfficial)
292
Function RenderActions(nRtagId, sOfficial)
284
    Response.Write "<span title='Select operation from dropdown menu' class='select-operation ui-icon ui-icon-triangle-1-s' data-rtag-id='"&nRtagId&"' data-official='"&sOfficial&"' style='display:inline-block'></span>"
293
    Response.Write "<span title='Select operation from dropdown menu' class='select-operation ui-icon ui-icon-triangle-1-s' data-rtag-id='"&nRtagId&"' data-official='"&sOfficial&"' style='display:inline-block'></span>"
285
End Function
294
End Function
286
'----------------------------------------------------------------------------------------------------------------------------------------------
295
'----------------------------------------------------------------------------------------------------------------------------------------------
Line 755... Line 764...
755
                              <%Else%>
764
                              <%Else%>
756
                                 <td width="15%" class="body_txt">Created</td>
765
                                 <td width="15%" class="body_txt">Created</td>
757
                                 <td width="25%" class="body_txt">Used By </td>
766
                                 <td width="25%" class="body_txt">Used By </td>
758
                                 <td width="22%" class="body_txt">Comments</td>
767
                                 <td width="22%" class="body_txt">Comments</td>
759
                              <%End If%>
768
                              <%End If%>
-
 
769
                           <td width="1%" nowrap class="body_txt">Lxr</td>
760
                           <td width="3%" nowrap class="body_txt">Daemon&nbsp;Status</td>
770
                           <td width="3%" nowrap class="body_txt">Daemon&nbsp;Status</td>
761
                           </tr>
771
                           </tr>
762
                           <%
772
                           <%
763
                           OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
773
                           OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
764
 
774
 
Line 795... Line 805...
795
                                       %>
805
                                       %>
796
                                       <td><%=comment%></td>
806
                                       <td><%=comment%></td>
797
                                    <%End If%>
807
                                    <%End If%>
798
 
808
 
799
                                    <td><%=NewLine_To_BR(rsQry("description"))%></td>
809
                                    <td><%=NewLine_To_BR(rsQry("description"))%></td>
800
                                    <td  valign=top>
810
                                    <td nowrap valign="top"><%Call RenderLxrState() %></td>
801
                                       <%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%>
811
                                    <td valign="top"><%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%></td>
802
                                    </td>
-
 
803
                                 </tr>
812
                                 </tr>
804
                                 <%
813
                                 <%
805
                                 lastLevel = currLevel
814
                                 lastLevel = currLevel
806
                                 rsQry.MoveNext
815
                                 rsQry.MoveNext
807
                              WEnd
816
                              WEnd
Line 822... Line 831...
822
                                 <td width="47%" class="body_txt">Comments</td>
831
                                 <td width="47%" class="body_txt">Comments</td>
823
                              <%Else%>
832
                              <%Else%>
824
                                 <td width="24%" class="body_txt">Used By </td>
833
                                 <td width="24%" class="body_txt">Used By </td>
825
                                 <td width="22%" class="body_txt">Comments</td>
834
                                 <td width="22%" class="body_txt">Comments</td>
826
                              <%End If%>
835
                              <%End If%>
-
 
836
                              <td width="1%" class="body_txt" title="LXR Support enabled">Lxr</td>
827
                              <td width="3%" class="body_txt">Daemon Status</td>
837
                              <td width="3%" class="body_txt">Daemon Status</td>
828
                           </tr>
838
                           </tr>
829
                           <%
839
                           <%
830
                              OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
840
                              OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
831
 
841
 
Line 861... Line 871...
861
                                          If comment = "" Then comment = "None."
871
                                          If comment = "" Then comment = "None."
862
                                          %>
872
                                          %>
863
                                            <td><%=comment%></td>
873
                                            <td><%=comment%></td>
864
                                       <%End If%>
874
                                       <%End If%>
865
                                       <td><%=NewLine_To_BR(  rsQry("description")   )%></td>
875
                                       <td><%=NewLine_To_BR(  rsQry("description")   )%></td>
866
                                       <td  valign=top>
876
                                       <td nowrap valign="top"><%Call RenderLxrState() %></td>
867
                                          <%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%>
877
                                       <td valign="top"><%Call RenderDaemonStatusConfig(rsQry("rtag_id"))%>
868
                                       </td>
878
                                       </td>
869
                                    </tr>
879
                                    </tr>
870
                                    <%
880
                                    <%
871
                                    rsQry.MoveNext
881
                                    rsQry.MoveNext
872
                                 WEnd
882
                                 WEnd