Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

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

'|                                                   |

'|          Edit/View Build Configuration            |

'|                                                   |

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

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0    ' always load the page, dont store

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="class/classSortHelper.asp"-->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login_optional.asp"-->

<!--#include file="_access_control_general.asp"-->

<%

'------------ Variable Definition -------------

Dim rsRep

Dim parFPkgVersion

Dim sLink

Dim parPkgId

Dim PackageName

Dim imgLock

Dim imgData

Dim DestroyPackage

Dim CanDestroyProjectPackage

Dim CanDestroyPackage

Dim hideRipple

Dim rippleFilter

'------------ Constants Declaration -----------

Const IMG_OFFICIAL = "<img src='images/i_locked.gif' width='7' height='10' hspace='5' vspace='2' alt='Package is official'>"

Const IMG_NOT_OFFICIAL = "<img src='images/spacer.gif' width='7' height='10' hspace='5' vspace='2'>"

'------------ Variable Init -------------------

parFPkgVersion = RequestDefault("fpkgversion", "*")

parPkgId = Request("pkg_id")

If Request("hideRipple") = "True" Then 

    hideRipple = True

    rippleFilter = " AND PV.BUILD_TYPE != 'Y'"

Else

    hideRipple = False

    rippleFilter = ""

End If

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

'   Convert PKG_ID into a package name

Function GetPackageName ( nPkgId )

    Dim rsQry, query

    query = "SELECT PKG_NAME  FROM PACKAGES  WHERE PKG_ID = :PKG_ID"

    OraDatabase.Parameters.Add "PKG_ID", nPkgId, ORAPARM_INPUT, ORATYPE_NUMBER

    Set rsQry = OraDatabase.DbCreateDynaset( query, 0 )

    OraDatabase.Parameters.Remove "PKG_ID"

    GetPackageName = rsQry("pkg_name")

    rsQry.Close()

    Set rsQry = nothing

End Function

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

'   Determine if a PKG_ID has any package-versions

'   If not then it can be deleted

Function hasNoVersions ( nPkgId )

    Dim rsQry, query

    query = "select count(*) as count from package_versions where pkg_id = :PKG_ID"

    OraDatabase.Parameters.Add "PKG_ID", nPkgId, ORAPARM_INPUT, ORATYPE_NUMBER

    Set rsQry = OraDatabase.DbCreateDynaset( query, 0 )

    OraDatabase.Parameters.Remove "PKG_ID"

    hasNoVersions = NOT rsQry("count") <> 0

    rsQry.Close()

    Set rsQry = nothing

End Function

'==================== MAIN LINE ===============================

If (parPkgId = "") Then 

    Call Destroy_All_Objects

    Response.Redirect ("index.asp")

End If

PackageName = GetPackageName ( parPkgId )

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

Sub MainPanelContent

%>

<!-- MainPanelContent -->

 <table width="100%" border="0" cellspacing="0" cellpadding="0">

   <tr> 

     <td width="1%"></td>

     <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>

     <td width="1%"></td>

   </tr>

   <tr> 

     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td>

     <td bgcolor="#FFFFFF" valign="top"> 

       <!-- PACKAGE SEARCH ------------------------------------------------>

       <%

       Dim aVersions

       Dim lastRow

       Dim objSortHelper

       Dim i

       OraDatabase.Parameters.Add "PKG_VERSION",   Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2

       OraDatabase.Parameters.Add "PKG_ID",    parPkgId, ORAPARM_INPUT, ORATYPE_NUMBER

       Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindPackageVersion.sql") & rippleFilter, 0 )

       OraDatabase.Parameters.Remove "PKG_ID"

       OraDatabase.Parameters.Remove "PKG_VERSION"

       %>

       <form name="versions" method="get" action="<%=ScriptName%>">

         <input type="hidden" name="pkg_id" value="<%=parPkgId%>">

         <input type="hidden" name="listby" value="<%=parListBy%>">

       <table id='versionTable' width="100%"  border="0" cellspacing="1" cellpadding="2">

           <thead>

             <tr>

               <td class="body_sect" colspan='11'>Package Versions</td>

             </tr>

             <tr class="form_field_bg">

               <td nowrap" class="body_txt" colspan='11'>

                   Results for <b><%=PackageName%></b>

               </td>

             </tr>

            <tr class="form_field_bg">

               <td width="20px" nowrap class="body_col"></td>

               <td width="10%" nowrap class="body_col">Version</td>

               <td width="80%" nowrap class="body_col">Reason for Release</td>

               <td width="1%" nowrap class="body_col tcenter" rowspan="2">Build<br>Reason</td>

               <td width="1%" nowrap class="body_col tcenter" rowspan="2">Lines of<br>Code</td>

               <td width="1%" nowrap class="body_col tcenter" rowspan="2">Auto<br>Tests</td>

               <td width="1%" nowrap class="body_col tcenter" rowspan="2">Build<br>Time</td>

               <td width="1%" nowrap class="body_col tcenter" rowspan="2">Licence</td>

               <td width="10%" nowrap class="body_col tcenter" colspan="2">Last Modified</td>

               <td width="21px" nowrap class="body_col"></td>

             </tr>

             <tr class="body_col form_field_bg">

               <td nowrap ></td>

               <td nowrap >

                    <input name="fpkgversion" type="text" class="form_item" size="15" value="<%=parFPkgVersion%>" style="border-right: 0px;" onClick="soakEvent(event);" onKeyPress="if(event.keyCode==13) submitForm(event);">

                    <img class=top src="images/i_go2url.gif" onClick="submitForm(event);" title="Apply Filter">

               </td>

               <td nowrap >

                 <%

                 Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "hideRipple=" & not hideRipple ) &"'>"

                     If hideRipple Then

                       Response.write "<img src='images/RippleSquareOff.gif' width='20' height='20' border='0' title='Rippled Versions Hidden. Toggle'>"

                     Else

                       Response.write "<img src='images/RippleSquare.gif' width='20' height='20' border='0' title='Rippled Versions Shown. Toggle'>"

                     End If

                 Response.write "</a>"

                 %>

               </td>

               <td nowrap class="tcenter">Who</td>

               <td nowrap class="tcenter">Date</td>

               <td nowrap ></td>

             </tr>

           </thead>

           <tbody>

           <%If rsRep.RecordCount = 0 Then%>

               <tr>

                <td colspan='11' class='body_row'>

                <%If hasNoVersions(parPkgId) Then %>

                    This package name has no versions.

                               <br><a href='javascript:;' title='Delete unused package name' onClick="MM_openVixIFrame('_delete_package_name.asp?pkgId=<%=parPkgId%>&bfile=index.asp','Delete Unused Package');" >Delete this package name<img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' align='absmiddle' hspace='2'></a>

                <%Else%>

                    Found 0 records - with current filters.

                <%End If%>

                </td>

               </tr>

           <%Else

               aVersions = rsRep.GetRows()

               lastRow = UBound( aVersions, 2 )

               ' Sort versions

               Set objSortHelper = New SortHelper

               Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsRep.FieldIndex("pkg_version") )

               ' Not in a project context

               ' Only god-like users will have this permission

               CanDestroyProjectPackage = canShowControl( "DestroyPackage" )

             ' Descending order

             For i = lastRow To 0 Step -1

               imgLock = IMG_NOT_OFFICIAL

               imgData = 2

               If (aVersions( rsRep.FieldIndex("dlocked"), i ) = "Y")  OR (aVersions( rsRep.FieldIndex("dlocked"), i ) = "A") Then

                   imgLock = IMG_OFFICIAL

               imgData = 1

               End If

               sLink = "dependencies.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i )

               ' User can try to delete package iff

               '   Have suffiecient access (unusual)

               '   They created it or is its owner

               '   The version is not in use by any release (allow to be in pending or WIP)

               '   [Not at the moment] The package was created less than xxxx days ago

               '   Is not locked or Approved for Autobuild

               CanDestroyPackage = CanDestroyProjectPackage

               If CanDestroyPackage = false Then

                   If  objAccessControl.UserId = aVersions( rsRep.FieldIndex("CREATOR_ID"), i ) OR objAccessControl.UserId = aVersions( rsRep.FieldIndex("OWNER_ID"), i )Then

                       If aVersions( rsRep.FieldIndex("inuse"), i ) = 0 Then

                           'If aVersions( rsRep.FieldIndex("age") , i ) < 1000 Then

                               If aVersions( rsRep.FieldIndex("dlocked"), i ) <> "Y" Then

                                   'If aVersions( rsRep.FieldIndex("dlocked"), i ) <> "A" Then

                                       CanDestroyPackage = true

                                   'End If

                               End If

                           'End If

                       End If

                   End If

               End If

               ' Set destroy package action

               ' title will be added by javascript

               If CanDestroyPackage Then

                    DestroyPackage = "<img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' class='destroyThis'>"

               Else

                    DestroyPackage = ""

               End If

               Dim testCount

               testCount = aVersions( rsRep.FieldIndex("test_count"), i )

               If testCount = 0 Then testCount = ""

             %>

                 <tr valign="top" class="body_row form_field_grey_bg"> 

                   <td data-order='<%=imgData%>'><%=imgLock%></td>

                   <td nowrap><a href="<%=sLink%>" class="body_link"><%=aVersions( rsRep.FieldIndex("pkg_version"), i )%></a></td>

                   <td class="body_txt_gray"><%=NewLine_To_BR ( To_HTML( aVersions( rsRep.FieldIndex("comments"), i ) ) )%></td>

                   <td nowrap><%=aVersions( rsRep.FieldIndex("reason"), i )%></td>

                   <td nowrap class='tright'><%=aVersions( rsRep.FieldIndex("code_lines"), i )%></td>

                   <td nowrap class='tright'><%=testCount%></td>

                   <td nowrap class='tright'><%=aVersions( rsRep.FieldIndex("build_time"), i )%></td>

                   <td nowrap class='tright'><%=aVersions( rsRep.FieldIndex("licence"), i )%></td>

                   <td nowrap><%=emailField(enum_imgUser & aVersions( rsRep.FieldIndex("full_name"), i ),  aVersions( rsRep.FieldIndex("user_email"), i ))%></td>

                   <td nowrap><%=DisplayShortDateTime ( aVersions( rsRep.FieldIndex("modified_stamp"), i ) )%></td>

                   <td data-pvid='<%=aVersions( rsRep.FieldIndex("pv_id"), i )%>'><%=DestroyPackage%></td>

                 </tr>

             <%  

             Next

             rsRep.Close()

           End If

             %>

         </tbody>

       </table>

       </form>

       <br>

       <!------------------------------------------------------------>         

       </td>

     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td>

   </tr>

 </table>

<%

End Sub

%>

<html>

   <head>

      <title>Release Manager</title>

      <link rel="shortcut icon" href="<%=FavIcon%>"/>

      <meta http-equiv="Pragma" content="no-cache">

      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">

      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">

      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>

      <!-- DROPDOWN MENUS -->

      <%bJqueryDataTables=true%>

      <%sJqueryDataTablesCss="jquery/dataTables.vix.grey.css"%>

      <!--#include file="_jquery_includes.asp"-->

      <!--#include file="_menu_def.asp"-->

      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>

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

      $(document).ready(function() {

        $.fn.dataTable.ext.errMode = 'none';

        $('#versionTable').DataTable({

            "paging":   false,

            "ordering": true,

            "info":     true,

            });

        // Add Title to icons

        $('.destroyThis').prop('title', 'Destroy this version of the package.');

        // Destroy a package version

        // 

        $( ".destroyThis" ).on( "click", function(event) {

            var pvid = $(this).closest('td').data('pvid');

            if (pvid) {

                var data = {

                    pv_id       : pvid,

                    bfile       : "<%=ScriptName%>",

                    pkg_id      : "<%=parPkgId%>",

                    listby      : "<%=parListBy%>",

                    fpkgversion : "<%=parFPkgVersion%>",

                };

                MM_openVixIFrame('_destroy_package.asp?' + encodeData(data), 'Destroy Package Version')

            }

        });

      });

      //  Encode data into URL

      function encodeData(data) {

          return Object.keys(data).map(function(key) {

              return [key, data[key]].map(encodeURIComponent).join("=");

          }).join("&");

      };

      // Functions to support the suffix filter

      // Need to work against the dataTables sorting event capture

      function submitForm(event) {

          soakEvent(event);

          document.forms["versions"].submit();

      };

      function soakEvent(event) {

          event.stopImmediatePropagation();

          event.stopPropagation();

      }

      </script>

   </head>

   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">

      <!-- HEADER -->

      <!--#include file="_header.asp"-->

      <!-- BODY ---->

      <table class="full_table">

         <tr>

            <td width="146px" class="panel_bg" valign="top">

               <!--#include file="_front_explorer.asp"-->

            </td>

            <td width="100%" rowspan="2" align="center" valign="top">

                <%Call MainPanelContent%>

            </td>

         </tr>

         <tr>

            <td class="panel_bg" valign="bottom" align="center" height="350">

                <img src="images/img_gear.gif" vspace="20" hspace="30"></td>

         </tr>

      </table>

      <!-- FOOTER -->

      <!--#include file="_footer.asp"-->

   </body>

</html>