Subversion Repositories DevTools

<%

'=====================================================

'   _used_by_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 -------------------

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

'

'

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

%>

<script language="JavaScript" type="text/JavaScript">

formTips.tips.h_buildTime       = stdTip(300, 'Est. Build Duration', 'Estimated build duration in seconds. Based simply on the last build duration for this package');

formTips.tips.h_buildLevel       = stdTip(300, 'Build Level', 'This is a mesaure of the distance between the current package and the dependent package.' +

                                                            '<p>It is not a build order - that is much more complex to calculate');

</script>

<script language="JavaScript" type="text/javascript">

	$(document).ready(function() {

		/* Init DataTables */

        table = $("#pkgDeps").DataTable({

            "paging":   false,

            "info":     true,

            dom: "rtif",

            ordering: true,

            order: [[ 1, "asc" ]],

            lengthChange : false,

            columns: [

               { width: "1%",  className: "dt-nowrap black",  orderable: false, searchable: false},

               { width: "1%",  className: "dt-nowrap black",  orderable: true, searchable: false},

               { width: "1%",  className: "dt-nowrap black"  },

               { width: "25%", className: "dt-nowrap black" },

               { width: "5%",  className: "dt-nowrap black" },

               { width: "50%", className: "dt-nowrap black", orderable: false, searchable: false },

               { width: "5%",  className: "dt-nowrap black", orderable: false, searchable: false },

           ],

        });

    });

</script>

<!-- USED BY ALL ------------------------------------------------>

<%If pkgInfoHash.Exists("pv_id") Then%>

    <%If Request("rtag_id") <> "" Then%>

     <br>

     <span class="body_sect">Used by Packages In This Release - Complete list</span>

     <br>

     <table width="100%" border="0" cellspacing="1" cellpadding="3" class="etable stdGrey" id="pkgDeps">

        <thead>

         <tr>

           <th class="noCsv"></th>

           <th class="noCsv">Build<br>Level<%=Quick_Help("h_buildLevel")%></th>

           <th >Name</th>

           <th >Version</th>

           <th >Build<br>Time<%=Quick_Help("h_buildTime")%></th>

           <th class="noCsv"></th>

           <th class="noCsv">Last Modified</th>

         </tr>

        </thead>

        <%

        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("UsedByAllPackagesInThisRelease.sql"), cint(0))

        OraDatabase.Parameters.Remove "PV_ID"

        OraDatabase.Parameters.Remove "RTAG_ID"

        %>

        <%If rsTemp.RecordCount < 1 Then%>

           <tr>

              <td>&nbsp;</td>

              <td colspan=5>Leaf Package - Is not used by any other package in this Release</td>

           </tr>

        <%End If%>

        <%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="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><%=rsTemp("BuildLevel")%></td>

              <td><a href="view_by_version.asp?pkg_id=<%=rsTemp("pkg_id")%>#<%=rsTemp("pv_id")%>" class="txt_linked"><%=rsTemp("pkg_name")%></a></td>

              <td><a href="<%=ScriptName%>?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=parRtag_id%>" class="txt_linked"><%=rsTemp("pkg_version")%></a></td>

              <td><%=buildTime%></td>

              <td ></td>

              <td><%=emailField(enum_imgUser & rsTemp("full_name"), rsTemp("user_email"))%>&nbsp;<%=DisplayDate ( rsTemp("modified_stamp") )%></td>

           </tr>

           <%rsTemp.MoveNext

        WEnd%>

        <tfoot>

           <tr>

              <td colspan=4>Total Packages: <%=rsTemp.RecordCount%></td>

              <td 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>

         </tfoot>

     </table>

    <%rsTemp.Close()%>

    <%Set rsTemp = nothing%>

    <%Else%>

    <SPAN class="err_alert">Note: Usage tree cannot be determined without an associated Release. </SPAN>

    <%End If%>

<%End If%>

<!-- END - USED BY ALL -->