Subversion Repositories DevTools

Rev

Rev 5904 | Rev 5933 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'===============================================================
3 
'					 Version Browser
4 
'===============================================================
5 
%>
6 
<!--#include file="class/classSortHelper.asp"-->
7 
<%
8 
'------------ Variable Definition -------------
9 
Dim parFLpkg_version, parFLuser_name
10 
Dim imgLock, fieldRelease_Date, fieldReleased_By, fieldDownloadFullReleaseNotes
11 
Dim rsVB
12 
Dim rowColor, imgPointer
13 
Dim URLstring
14 
Dim anchorName
15 
Dim filterInUse
4703 dpurdie 16 
Dim hideRipple
17 
Dim rippleFilter
119 ghuddy 18 
Dim DestroyPackage
5902 dpurdie 19 
Dim CanDestroyProjectPackage
119 ghuddy 20 
Dim CanDestroyPackage
21 
'------------ Constants Declaration -----------
22 
Const IMGBG_ROW_HI = "background='images/bg_row_hi.gif'"
23 
Const IMGBG_ROW = "bgcolor='#FFFFFF'"
24 
Const IMG_PONTER = "<img src='images/i_pointer.gif' width='6' height='11' hspace='3'>"
5384 dpurdie 25 
Const IMG_OFFICIAL = "<img src='images/i_locked.gif' width='7' height='10' hspace='5' vspace='2' title='Package has been Released'>"
5902 dpurdie 26 
Const IMG_PENDING = "<img src='icons/i_pending.gif' width='7' height='10' hspace='5' vspace='2' title='Package pending autobuild'>"
5384 dpurdie 27 
Const IMG_NOT_OFFICIAL = "<img src='images/spacer.gif' width='7' height='10' hspace='5' vspace='2' title='Package not yet released'>"
119 ghuddy 28 
Const IMG_DOWNLOAD = "<img src='images/i_download_small.gif' alt='Download full release notes.' width='16' height='16' hspace='2' border='0'>"
29 
'------------ Variable Init -------------------
30 
If Request("filter_reset") <> "" Then
31 
	parFLpkg_version = "*"
32 
	parFLuser_name	 = "*"
33 
	filterInUse = FALSE
34 
Else
5901 dpurdie 35 
	parFLpkg_version = RequestDefault( "FLpkg_version", "*" )
36 
	parFLuser_name	 = RequestDefault( "FLuser_name","*" )
119 ghuddy 37 
	filterInUse = Is_Filter_In_Use ( "FLpkg_version, FLuser_name" )
38 
End If
4703 dpurdie 39 
 
40 
If Request("hideRipple") = "True" Then
41 
	hideRipple = True
42 
    rippleFilter = "AND PV.BUILD_TYPE != 'Y'"
43 
Else
44 
	hideRipple = False
45 
    rippleFilter = ""
46 
End If
47 
 
119 ghuddy 48 
'----------------------------------------------
49 
%>
50 
<%
51 
'-----------------------------------------------------------------------------------------------------------------------------------
52 
Function Get_All_Versions ( nPkg_id )
53 
	Get_All_Versions = _
5759 dpurdie 54 
	" SELECT DISTINCT PV.PV_ID," &_
55 
    "   PV.PKG_VERSION," &_
56 
    "   PV.DLOCKED," &_
57 
    "   PV.MODIFIED_STAMP," &_
58 
    "   USR.FULL_NAME," &_
59 
    "   usr.user_name," &_
60 
    "   USR.USER_EMAIL," &_
61 
    "   PV.COMMENTS," &_
62 
    "   PV.PKG_LABEL," &_
63 
    "   PV.IS_PATCH," &_
64 
    "   PV.RELEASE_NOTES_INFO," &_
65 
    "   PV.BUILD_TYPE," &_
66 
    "   pv.CREATOR_ID," &_
67 
    "   pv.OWNER_ID," &_
68 
    "   NVL2(rc.rtag_id,1,0) as inuse," &_
69 
    "   trunc(SYSDATE - pv.CREATED_STAMP + 0.5) as age" &_
70 
    " FROM PACKAGE_VERSIONS PV," &_
71 
    "      USERS USR,"&_
72 
    "      RELEASE_CONTENT rc" &_
73 
	" WHERE PV.MODIFIER_ID = USR.USER_ID(+) " &_
74 
	"   AND PV.PKG_ID = :PKG_ID" &_
75 
    "   AND pv.pv_id = rc.pv_id(+)" &_
76 
	"    /*-- Manual Filter --*/" &_
119 ghuddy 77 
	"    "& Construct_Filter ( parFLpkg_version, "pv.pkg_version" ) &_
78 
	"    "& Construct_Filter ( parFLuser_name, "usr.user_name" ) &_
4703 dpurdie 79 
    "    "& rippleFilter &_
119 ghuddy 80 
	"    /*------------------*/"
81 
 
82 
	Get_All_Versions = Replace( Get_All_Versions, ":PKG_ID", nPkg_id)
83 
End Function
84 
'-----------------------------------------------------------------------------------------------------------------------------------
85 
Function Construct_Filter ( sPar_val, sCol_name )
86 
	Select Case sPar_val
87 
	Case Empty
88 
		Construct_Filter = "AND "& sCol_name &" IS NULL"
89 
 
90 
	Case "*"
91 
		Construct_Filter = ""
92 
 
93 
	Case Else
94 
		If InStr( sPar_val, "*") > 0 Then
95 
			' Asterisk found in string. Use LIKE
96 
			Construct_Filter = "AND "& sCol_name &" LIKE '"& Replace( sPar_val, "*", "%" ) &"'"
97 
		Else
98 
			' No asterisk. Use =
99 
			Construct_Filter = "AND "& sCol_name &" = '"& sPar_val &"'"
100 
		End If
101 
 
102 
	End Select
103 
 
104 
End Function
105 
'-----------------------------------------------------------------------------------------------------------------------------------
106 
Function Is_Filter_In_Use ( sFilters )
107 
	Dim filters, filterName
108 
	Is_Filter_In_Use = FALSE
109 
 
110 
	filters = Split( Replace( sFilters, " ", "" ), "," )
111 
 
112 
	For Each filterName In filters
113 
		If Request( filterName ) <> "*" Then
114 
			Is_Filter_In_Use = TRUE
115 
			Exit For
116 
		End If
117 
	Next
118 
 
119 
End Function
120 
'-----------------------------------------------------------------------------------------------------------------------------------
5190 dpurdie 121 
Function Set_Row_Style ( sLink, pvid )
122 
	Set_Row_Style = "onMouseOver='this.style.cursor=""pointer""' onClick='selectVersion("""& sLink &""",event)' "
123 
End Function
124 
'-----------------------------------------------------------------------------------------------------------------------------------
119 ghuddy 125 
%>
5173 dpurdie 126 
<!--#include file="_jquery_includes.asp"-->
127 
<script language="JavaScript" type="text/JavaScript">
128 
function useThisVersion (pkgName, pkgVersion, rtagId, oldPvid, newPvid) {
129 
    console.log("useThisVersion:", pkgName, pkgVersion);
130 
    debugger;
131 
    //alert ("Use this version");
132 
    $( "#dialog-confirm" ).dialog({
133 
      position: { my: "top", at: "top+100", of: window },
134 
      modal: true,
135 
      draggable: true,
136 
      resizable: true,
137 
      dialogClass: "rounded_box",
138 
      height:250,
139 
      width:350,
140 
      buttons: {
141 
        "Direct": function() {
142 
          window.opener.document.location="_new_version.asp?OLDpv_id=" + oldPvid + "&rtag_id=" + rtagId + "&pv_id=" + newPvid
143 
          self.close();
144 
          $( this ).dialog( "close" );
145 
        },
146 
        "Pending": function() {
147 
          window.opener.document.location="_new_version.asp?OLDpv_id=" + oldPvid + "&rtag_id=" + rtagId + "&pv_id=" + newPvid + '&iMode=pending';
148 
          self.close();
149 
          $( this ).dialog( "close" );
150 
        },
151 
        Cancel: function() {
152 
          $( this ).dialog( "close" );
153 
        }
154 
      },
155 
      open: function() {
156 
          $(this).siblings('.ui-dialog-buttonpane').find('button:eq(2)').focus();
157 
      }
158 
    });
159 
 
160 
    return false;
161 
}
5190 dpurdie 162 
 
163 
//  This function is invoked when the user clicks within a row
164 
//  The click will re-load and reposition the verion history to the selected version
165 
//  The problem is that the 'Destroy Version' intercats with this.
166 
//  Solution: The DestroyVersin is an image within an anchor.
167 
//            If the anchor has a class of nogo, then don't navigate
168 
function selectVersion(href,event)
169 
{
170 
    if (! $(event.target).closest('a').hasClass('nogo')) {
171 
        location.href = href;
172 
    }
173 
}
5930 dpurdie 174 
// Destroy a package version
175 
function DestroyVersion(pvid) {
176 
    MM_openVixIFrame('_destroy_package.asp?pv_id=' + pvid + '&bfile="& ScriptName &"&rtag_id="& parRtag_id &"&FLuser_name="& parFLuser_name &"&FLpkg_version="& parFLpkg_version &"&rfile="& parRfile &"&pkg_id="& parPkg_id &"&OLDpv_id="& parOLDpv_id &"','Destroy Package Version') &_
177 
}
5190 dpurdie 178 
 
5173 dpurdie 179 
//# sourceURL=_version_browser_1.asp
180 
</script>
181 
 
119 ghuddy 182 
	  <!--------------- ACTION BUTTONS -------------------------->
5904 dpurdie 183 
      <div  style="width:100vw;">
119 ghuddy 184 
	  <form name="filter" method="get" action="<%=scriptName%>">
185 
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
186 
        <tr>
187 
          <td width="1" valign="middle" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="5" height="35"></td>
188 
          <td width="100%" valign="middle" background="images/bg_action_norm.gif"><%
5082 dpurdie 189 
          Dim bEnableUse : bEnableUse = FALSE
119 ghuddy 190 
		  If Request("rtag_id") = ""  OR  _
191 
		  	 Request("pv_id") = "" OR _
5173 dpurdie 192 
             parOLDpv_id = ParPv_id OR _
119 ghuddy 193 
			 bIsPatch OR _
5082 dpurdie 194 
             (NOT bCanInsertPkg) OR _
119 ghuddy 195 
			 (NOT objAccessControl.UserLogedIn) OR _
5178 dpurdie 196 
             (NOT releaseIsWritable(ReleaseMode))  _
119 ghuddy 197 
		  Then
5082 dpurdie 198 
                bEnableUse = FALSE
119 ghuddy 199 
		  Else
5082 dpurdie 200 
                bEnableUse = TRUE
119 ghuddy 201 
		  End If
5082 dpurdie 202 
 
203 
          If bEnableUse Then
5173 dpurdie 204 
          %>
205 
          <div id='dialog-confirm' title="Confirm version change" style="display:none">
206 
          <p>Replace the current version of package <%=sPkg_Name%> with Version <%=sPkg_Version%>.
207 
          <p>The new version may be added directly into the release or the change may be made pending.
208 
          </div>
209 
          <%
210 
            Response.write "<a href=';' onClick='return useThisVersion("""& sPkg_Name &""","""& sPkg_Version & """,""" & parRtag_id & ""","""& parOLDpv_id & """,""" & parPv_id & """);'><img src='images/abtn_use_this_version.gif' title='Use this version in project release.' width='107' height='25' hspace='1' border='0'></a>"
5082 dpurdie 211 
          Else
212 
		    Response.write "<img src='images/abtn_use_this_version_off.gif' width='108' height='26' hspace='1' border='0'>"
213 
          End If
119 ghuddy 214 
 
215 
		  Response.write "<img src='images/spacer.gif' width='25' height='25'>"
216 
		  If filterInUse Then
217 
		  	Response.write "<input type='image' name='btn' src='images/abtn_filter_on.gif' width='25' height='25' border='0' alt='Apply filter. (Filter is in use!)'>"
218 
		  Else
219 
		    Response.write "<input type='image' name='btn' src='images/abtn_filter.gif' width='25' height='25' border='0' alt='Apply filter'>"
220 
		  End If
221 
		  Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "filter_reset=true" ) &"'><img src='images/abtn_remove_filter.gif' alt='Remove filter' width='25' height='25' hspace='2' border='0'></a>"
4703 dpurdie 222 
 
223 
		  Response.write "<img src='images/spacer.gif' width='25' height='25'>"
224 
          Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "hideRipple=" & not hideRipple ) &"'>"
225 
    		  If hideRipple Then
226 
    		  	Response.write "<img src='images/RippleSquareOff.gif' width='25' height='25' border='0' title='Rippled Versions Hidden. Toggle'>"
227 
    		  Else
228 
    		    Response.write "<img src='images/RippleSquare.gif' width='25' height='25' border='0' title='Rippled Versions Shown. Toggle'>"
229 
    		  End If
230 
          Response.write "</a>"
231 
 
119 ghuddy 232 
		  %></td>
233 
		  <td width="1" valign="middle" background="images/bg_action_norm.gif"><a href="javascript:;" onClick="window.opener.document.location='dependencies.asp?pv_id=<%=parPv_id%>';self.close();"><img src="images/abtn_open.gif" width="46" height="25" hspace="5" border="0" alt="Open In Parent Window."></a></td>
234 
		  <td width="1" valign="middle" background="images/bg_action_norm.gif"><a href="javascript:;" onClick="self.close();"><img src="images/abtn_close.gif" width="46" height="25" hspace="5" border="0" alt="Close this window."></a></td>
235 
        </tr>
236 
      </table>
237 
	  <!--------------------- CAPTION ---------------------------->
238 
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
239 
	    <tr>
240 
	      <td class="lbox_ttl_b" background="images/bg_action_dark.gif" align="center"><%=sPkg_Name%></td>
241 
		</tr>
242 
      </table>
243 
	  <!------------------ VERSION LIST -------------------------->
244 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
245 
        <tr>
246 
          <td background="images/bg_action_norm.gif">
5904 dpurdie 247 
            <div id="LayerVersions" style="height: 350px; width:100vw; overflow: auto;" name="LayerVersions">
119 ghuddy 248 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
249 
                <tr>
250 
                  <td width="1" nowrap background="images/bg_action_dark.gif"><img src="images/spacer.gif" width="15" height="10"></td>
251 
                  <td width="1" nowrap background="images/bg_action_dark.gif">&nbsp;</td>
252 
                  <td width="1" valign="top" nowrap background="images/bg_action_dark.gif" class="form_field">Version&nbsp;&nbsp;<br><input name="FLpkg_version" type="text" class="form_ifilter" value="<%=parFLpkg_version%>" size="15"></td>
253 
                  <td width="1" valign="top" nowrap background="images/bg_action_dark.gif" class="form_field">Last Mod. Date&nbsp;&nbsp;</td>
254 
                  <td width="100%" valign="top" nowrap background="images/bg_action_dark.gif" class="form_field">Reason for this version</td>
255 
				  <td width="1" valign="top" nowrap background="images/bg_action_dark.gif" class="form_field">Last Modified&nbsp;&nbsp;<br><input name="FLuser_name" type="text" class="form_ifilter" value="<%=parFLuser_name%>" size="15"></td>
256 
                  <td width="1" nowrap background="images/bg_action_dark.gif"></td>
257 
				  <td width="1" nowrap background="images/bg_action_dark.gif"></td>
258 
                </tr>
259 
				<%
260 
				Dim aVersions, lastRow, i, objSortHelper
261 
 
262 
 
263 
				Set rsVB = OraDatabase.DbCreateDynaset( Get_All_Versions ( parPkg_id ), cint(0))
264 
 
265 
 
266 
 
267 
 
268 
			  	' Descending order
269 
				If rsVB.RecordCount > 0 Then
270 
				aVersions = rsVB.GetRows()
271 
				lastRow = UBound( aVersions, 2 )
272 
 
273 
				Set objSortHelper = New SortHelper
274 
 
275 
 
276 
				' Sort versions
277 
				Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsVB.FieldIndex("pkg_version") )
278 
 
5902 dpurdie 279 
				CanDestroyProjectPackage = canShowControlInProject ( "DestroyPackage" )
119 ghuddy 280 
 
281 
			  	' Descending order
282 
				For i = lastRow To 0 Step -1
4703 dpurdie 283 
 
119 ghuddy 284 
				%>
285 
				<%	' Highlight row case
286 
					rowColor = IMGBG_ROW
287 
					imgPointer = ""
288 
					If CStr( aVersions( rsVB.FieldIndex("pv_id"), i ) ) = parPv_id Then
289 
						rowColor = IMGBG_ROW_HI
290 
						imgPointer = IMG_PONTER
291 
					End If
292 
 
293 
					' Official/Unofficial case
294 
					imgLock = IMG_NOT_OFFICIAL
295 
					'fieldRelease_Date = ""
296 
					'fieldReleased_By = ""
5902 dpurdie 297 
					If (aVersions( rsVB.FieldIndex("dlocked"), i ) = "Y")  Then
119 ghuddy 298 
						imgLock = IMG_OFFICIAL
5902 dpurdie 299 
                    ElseIf (aVersions( rsVB.FieldIndex("dlocked"), i ) = "A") Then
300 
						imgLock = IMG_PENDING
119 ghuddy 301 
					End If
302 
 
5632 dpurdie 303 
					fieldRelease_Date = DisplayShortDateTime ( aVersions( rsVB.FieldIndex("modified_stamp"), i ) )
119 ghuddy 304 
					fieldReleased_By = "<a href='mailto:"& aVersions( rsVB.FieldIndex("user_email"), i ) &"' class='txt_linked'><img src='images/i_user.gif' width='10' height='13' hspace='2' border='0' align='absmiddle' alt='"& aVersions( rsVB.FieldIndex("full_name"), i ) &" &lt;"& aVersions( rsVB.FieldIndex("user_email"), i ) &"&gt;'>"& aVersions( rsVB.FieldIndex("user_name"), i ) &"</a>"
305 
 
306 
					' Full Release Notes availability
307 
					fieldDownloadFullReleaseNotes = ""
308 
					If NOT IsNull( aVersions( rsVB.FieldIndex("release_notes_info"), i ) ) OR ( InStr( aVersions( rsVB.FieldIndex("release_notes_info"), i ), "MGS:") < 1)  Then
177 brianf 309 
						fieldDownloadFullReleaseNotes = "<a href='"& HTTP_PKG_ARCHIVE & aVersions( rsVB.FieldIndex("release_notes_info"), i ) &"' target='_blank'><img src='images/i_download_small.gif' alt='Download full release notes.' width='16' height='16' hspace='2' border='0'></a>"
119 ghuddy 310 
					End If
311 
 
312 
					anchorName = "ANC_"& aVersions( rsVB.FieldIndex("pv_id"), i )
313 
					If aVersions( rsVB.FieldIndex("is_patch"), i ) = "Y" Then
314 
						URLstring = "_wform_versions_history_release_notes.asp?"& Persists_Query_String( "pv_id="& aVersions( rsVB.FieldIndex("pv_id"), i ) ) &"#"& anchorName
315 
					Else
316 
						URLstring = scriptName &"?"& Persists_Query_String( "pv_id="& aVersions( rsVB.FieldIndex("pv_id"), i ) ) &"#"& anchorName
317 
					End If
318 
 
5759 dpurdie 319 
                    ' User can try to delete package iff
320 
                    '   Have suffiecient access (unusual)
321 
                    '   They created it or own it
5902 dpurdie 322 
                    '   The version is not in use by any release (allow to be in pending or WIP)
5759 dpurdie 323 
                    '   [Not at the moment] The package was created less than xxxx days ago
5902 dpurdie 324 
                    '   Is not locked or [Not at the moment] Approved for Autobuild
325 
                    CanDestroyPackage = CanDestroyProjectPackage
326 
                    If NOT CanDestroyPackage Then
327 
                        If (objAccessControl.UserId = aVersions( rsVB.FieldIndex("CREATOR_ID"), i )) OR (objAccessControl.UserId = aVersions( rsVB.FieldIndex("OWNER_ID"), i ))Then
5759 dpurdie 328 
                            If aVersions( rsVB.FieldIndex("inuse"), i ) = 0 Then
329 
                                'If aVersions( rsVB.FieldIndex("age") , i ) < 1000 Then
330 
                                    If aVersions( rsVB.FieldIndex("dlocked"), i ) <> "Y" Then
5902 dpurdie 331 
                                        'If aVersions( rsVB.FieldIndex("dlocked"), i ) <> "A" Then
5759 dpurdie 332 
                                            CanDestroyPackage = true
5902 dpurdie 333 
                                        'End If
5759 dpurdie 334 
                                    End If
335 
                                'End If
336 
                            End If
337 
                        End If
338 
                    End If
119 ghuddy 339 
 
340 
					' Set destroy package action
341 
					If CanDestroyPackage Then
5190 dpurdie 342 
						DestroyPackage = "<a class='nogo' href='javascript:;'"&_
119 ghuddy 343 
										 " title='Destroy this package from the database.' "&_
5930 dpurdie 344 
                                         " onClick=DestroyVersion("& aVersions( rsVB.FieldIndex("pv_id"), i )  &")>" &_
5190 dpurdie 345 
                                         " <img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ><a>"
5759 dpurdie 346 
                    Else
347 
                        DestroyPackage = ""
119 ghuddy 348 
					End If
349 
				%>
5190 dpurdie 350 
                <tr <%=Set_Row_Style ( URLstring, CStr( aVersions( rsVB.FieldIndex("pv_id"), i ) ) )%>>
119 ghuddy 351 
                  <td align="right" background="images/bg_action_dark.gif"><%=imgPointer%></td>
352 
                  <td align="center" valign="top" <%=rowColor%>><%=imgLock%></td>
353 
                  <td valign="top" nowrap <%=rowColor%>><a name="<%=anchorName%>"></a><a href="<%=URLstring%>" class="txt_linked"><%=aVersions( rsVB.FieldIndex("pkg_version"), i )%></a></td>
354 
                  <td valign="top" nowrap <%=rowColor%> class="form_item"><%=fieldRelease_Date%></td>
355 
                  <td valign="top" <%=rowColor%> class="form_item"><%=NewLine_To_BR ( To_HTML( aVersions( rsVB.FieldIndex("comments"), i ) ) )%></td>
356 
                  <td valign="top" nowrap <%=rowColor%> class="form_item"><%=fieldReleased_By%></td>
357 
                  <td align="center" valign="top" <%=rowColor%>><%=fieldDownloadFullReleaseNotes%></td>
5190 dpurdie 358 
				  <td align="center" valign="top" class="nogo" <%=rowColor%>><%=DestroyPackage%></td>
119 ghuddy 359 
                </tr>
360 
				<%
361 
				Next
362 
				End If
363 
				%>
364 
              </table>
365 
            </div></td>
366 
        </tr>
367 
      </table>
368 
	  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
369 
	  <input type="hidden" name="pkg_id" value="<%=parPkg_id%>">
370 
	  <input type="hidden" name="rfile" value="<%=parRfile%>">
371 
	  <input type="hidden" name="OLDpv_id" value="<%=parOLDpv_id%>">
1268 iaugusti 372 
	  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
119 ghuddy 373 
	  <input type="hidden" name="filter_reset" value="">
374 
	  </form>
5904 dpurdie 375 
      </div>
119 ghuddy 376 
 
377 
 
5173 dpurdie 378