Subversion Repositories DevTools

<%
'=====================================================
'   _dependencies_all.asp
'   Core Implementation.
'   Needs to be used via a wrapper
'=====================================================
%>
<%
'------------ Variable Definition -------------
Dim rsTemp
Dim totalBuildTime : totalBuildTime = 0
Dim bUnknown : bUnknown = False
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
'
'
'----------------------------------------------
%>
    <%
    If pkgInfoHash.Exists("pv_id") Then
    %>
    <%If Request("rtag_id") <> "" Then%>
     <br>
     <span class="body_sect">All packages that this package depends on - Complete list</span>
     <br>
     <!-- DEPENDS ON ALL ------------------------------------------------>
     <table width="100%" border="0" cellspacing="1" cellpadding="3" class="etable">
        <tr class="body_col form_field_bg">
           <th nowrap width="1%"  class="noCsv"></th>
           <th nowrap width="1%"  class="form_field nowrap noCsv">Build<br>Level</th>
           <th nowrap width="1%"  class="form_field nowrap">Name</th>
           <th nowrap width="25%" class="form_field nowrap">Version</th>
           <th nowrap width="5%"  class="form_field">Build<br>Time</th>
           <th nowrap width="50%" class="form_field noCsv"></th>
           <th nowrap width="5%"  class="form_field nowrap noCsv">Last Modified</th>
        </tr>
        <%
        OraDatabase.Parameters.Add "RTAG_ID", parRtag_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "PV_ID",   pkgInfoHash.Item("pv_id"),  ORAPARM_INPUT, ORATYPE_NUMBER

        Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("DependsOnAll.sql"), cint(0))

        OraDatabase.Parameters.Remove "PV_ID"
        OraDatabase.Parameters.Remove "RTAG_ID"
        %>
        <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            Dim buildTime : buildTime = rsTemp("build_time")
            If ISNULL(buildTime) Then
                buildTime = "<SPAN class='err_alert'>Unknown</SPAN>"
                bUnknown = TRUE
            Else
                buildTime = CLng(buildTime)
                totalBuildTime = totalBuildTime + buildTime
            End If
         %>
           <tr class="form_item_pad form_field_grey_bg csvData">
              <%If rsTemp("deprecated_state") <> "" AND rsTemp("pkg_state") = 0 Then%>
                 <td><%=DefineStateIcon ( rsTemp("deprecated_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
              <%Else%>
                 <td><%=DefineStateIcon ( rsTemp("pkg_state"), rsTemp("dlocked"), NULL, NULL, pkgInfoHash.Item("build_type"), TRUE )%></td>
              <%End If%>

              <td class="form_item_pad" nowrap><%=rsTemp("BuildLevel")%></td>
              <td class="form_item_pad" nowrap><a href="<%=ScriptName%>?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>
              <td class="form_item_pad nowrap"><%=rsTemp("pkg_version")%></td>
              <td class="form_item_pad nowrap"><%=buildTime%></td>
              <td class="form_item_pad"></td>
              <td class="form_item_pad nowrap"><%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>
           </tr>
           <%rsTemp.MoveNext
        WEnd
        If rsTemp.RecordCount <= 1 Then%>
           <tr class="form_item_pad form_field_grey_bg">
              <td nowrap>&nbsp;</td>
              <td class="form_item_pad" colspan=6>Root Package - Has no dependencies</td>
           </tr>
        <%End If%>
           <tr class="form_item_pad form_field_grey_bg">
              <td class="form_item_pad" nowrap colspan=4>Total Packages: <%=rsTemp.RecordCount%></td>
              <td class="form_item_pad" nowrap colspan=3>Total Built Time <%=totalBuildTime%>&nbsp;[<%=NiceDuration(totalBuildTime)%>]
                <%If bUnknown Then%>
                    <SPAN class="err_alert">&nbsp;Note:Some package build times not known</SPAN>
                <%End If%>
              </td>
           </tr>
     </table>
    <%End If%>
    <%rsTemp.Close()%>
    <%Set rsTemp = nothing%>
    <!-- END - USED BY ALL -->
<%End If%>