WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/view_by_version.asp

 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_OFFICIAL = "<img src='images/i_locked.gif' width='7' height='10' hspace='5' vspace='2' title='Package is official'>"
-Const IMG_NOT_OFFICIAL = "<img src='images/spacer.gif' width='7' height='10' hspace='5' vspace='2'>"
+Const IMG_NOT_OFFICIAL = "<img src='images/spacer.gif' width='7' height='10' hspace='5' vspace='2' title='Package is locked'>"
+Const IMG_NOT_BUILDABLE = "<img src='icons/s_unbuildable.png' width='14' height='14' hspace='5' vspace='0' title='Package is not buildable'>"
 '------------ Variable Init -------------------
 parFPkgVersion = RequestDefault("fpkgversion", "*")
 parPkgId = Request("pkg_id")
 If Request("hideRipple") = "True" Then
     hideRipple = True
          <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>
+               <td class="body_sect" colspan='12'>Package Versions</td>
              </tr>
              <tr class="form_field_bg">
-               <td nowrap" class="body_txt" colspan='11'>
+               <td nowrap" class="body_txt" colspan='12'>
                    Results for <b><%=PackageName%></b>
                </td>
              </tr>
             <tr class="form_field_bg">
                <td width="20px" nowrap class="body_col"></td>
+               <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="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 ></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>
                ' Only god-like users will have this permission
                CanDestroyProjectPackage = canShowControl( "DestroyPackage" )
              ' Descending order
              For i = lastRow To 0 Step -1
+               If aVersions( rsRep.FieldIndex("build_type"), i ) = "U" Then
-               imgLock = IMG_NOT_OFFICIAL
+                imgLock = IMG_NOT_BUILDABLE
-               imgData = 2
+                imgData = 3
-               If (aVersions( rsRep.FieldIndex("dlocked"), i ) = "Y")  OR (aVersions( rsRep.FieldIndex("dlocked"), i ) = "A") Then
+               ElseIf (aVersions( rsRep.FieldIndex("dlocked"), i ) = "Y")  OR (aVersions( rsRep.FieldIndex("dlocked"), i ) = "A") Then
-                   imgLock = IMG_OFFICIAL
+                imgLock = IMG_OFFICIAL
-               imgData = 1
+                imgData = 1
+               Else
+                imgLock = IMG_NOT_OFFICIAL
+                imgData = 2
                End If
                sLink = "dependencies.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i )
                ' User can try to delete package iff
                Dim testCount
                testCount = aVersions( rsRep.FieldIndex("test_count"), i )
                If testCount = 0 Then testCount = ""
+               ' Code to support (temp) Pulse import point
+               Dim pulseTxt : pulseTxt = ""
+               Dim PulseMark : PulseMark = aVersions( rsRep.FieldIndex("pkg_idext"), i )
+               Dim pulseImg
+               If isNull(PulseMark) Then
+                   pulseImg = "src='images/abtn_sync.gif' width='16' height='16' class=lessOpacity"
+               ElseIf Instr(PulseMark, "PulseImport.Branch") = 1 Then
+                   pulseImg = "src='images/bt_new_vtree.gif'"
+               ElseIf PulseMark = "PulseImport" Then
+                   pulseImg = "src='images/abtn_sync.gif' width='16' height='16'"
+               Else
+                   pulseImg = "src='images/s_warning.gif'"
+               End If
+               If pulseImg <> ""  Then
+                pulseTxt ="<img "&pulseImg&" hspace='2' align='absmiddle' border='0' >"
+               End If
+               Dim PulseMarkStyle : PulseMarkStyle = ""
+               If CLng(aVersions( rsRep.FieldIndex("pv_id"), i )) > 1150630 Then
+                   PulseMarkStyle = "style='background-color: #f5d5f7;'"
+               End If
              %>
-                 <tr valign="top" class="body_row form_field_grey_bg">
+                 <tr data-pvid='<%=aVersions( rsRep.FieldIndex("pv_id"), i )%>' valign="top" class="body_row form_field_grey_bg">
+                   <td class='pulseInsert' <%=PulseMarkStyle%> ><%=pulseTxt%></td>
                    <td data-order='<%=imgData%>'><%=imgLock%></td>
-                   <td nowrap><a name="<%=aVersions( rsRep.FieldIndex("pv_id"), i )%>" href="<%=sLink%>" class="body_link"><%=aVersions( rsRep.FieldIndex("pkg_version"), i )%></a></td>
+                   <td data-order='<%=i%>' nowrap><a name="<%=aVersions( rsRep.FieldIndex("pv_id"), i )%>" 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>
+                   <td ><%=DestroyPackage%></td>
                  </tr>
              <%
              Next
         $.fn.dataTable.ext.errMode = 'none';
         $('#versionTable').DataTable({
             "paging":   false,
             "ordering": true,
-            "info":     true
+            "info":     true,
+            "order" : [[2,"desc"]]
             });
         // 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');
+            var pvid = $(this).closest('tr').data('pvid');
             if (pvid) {
                 var data = {
                     pv_id       : pvid,
                     bfile       : "<%=ScriptName%>",
                     pkg_id      : "<%=parPkgId%>",
-                    listby      : "<%=parListBy%>",
+                    listby      : "1",
                     fpkgversion : "<%=parFPkgVersion%>",
                 };
-                MM_openVixIFrame('_destroy_package.asp?' + encodeData(data), 'Destroy Package Version')
+                MM_openVixIFrame('_destroy_package.asp?' + encodeData(data), 'Destroy Package Version');
+            }
         });
+      // (Temp)Pulse package insertion point handling
+      // Add Title to icons
+      $('.pulseInsert').prop('title', 'Toggle the Pulse package migration insertion point.');
+      $('.pulseInsert').on( "click", function(event) {
+          var pvid = $(this).closest('tr').data('pvid');
+          if (pvid) {
+              var data = {
+                  pv_id       : pvid,
+                  bfile       : "<%=ScriptName%>",
+                  pkg_id      : "<%=parPkgId%>",
+                  listby      : "1",
+                  fpkgversion : "<%=parFPkgVersion%>",
+                  hideRipple : "<%=hideRipple%>",
+              };
+              MM_openVixIFrame('_pulseImport.asp?' + encodeData(data), 'Toggle Packge Insertion Point');
+          }
       });
+      });
       //  Encode data into URL
       function encodeData(data) {
           return Object.keys(data).map(function(key) {
               return [key, data[key]].map(encodeURIComponent).join("=");
           }).join("&");

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/view_by_version.asp – Rev 6827 → 6873