Subversion Repositories DevTools

Rev

Rev 5901 | Rev 5904 | 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 
}
174 
 
5173 dpurdie 175 
//# sourceURL=_version_browser_1.asp
176 
</script>
177 
 
119 ghuddy 178 
	  <!--------------- ACTION BUTTONS -------------------------->
179 
	  <form name="filter" method="get" action="<%=scriptName%>">
180 
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
181 
        <tr>
182 
          <td width="1" valign="middle" background="images/bg_action_norm.gif"><img src="images/spacer.gif" width="5" height="35"></td>
183 
          <td width="100%" valign="middle" background="images/bg_action_norm.gif"><%
5082 dpurdie 184 
          Dim bEnableUse : bEnableUse = FALSE
119 ghuddy 185 
		  If Request("rtag_id") = ""  OR  _
186 
		  	 Request("pv_id") = "" OR _
5173 dpurdie 187 
             parOLDpv_id = ParPv_id OR _
119 ghuddy 188 
			 bIsPatch OR _
5082 dpurdie 189 
             (NOT bCanInsertPkg) OR _
119 ghuddy 190 
			 (NOT objAccessControl.UserLogedIn) OR _
5178 dpurdie 191 
             (NOT releaseIsWritable(ReleaseMode))  _
119 ghuddy 192 
		  Then
5082 dpurdie 193 
                bEnableUse = FALSE
119 ghuddy 194 
		  Else
5082 dpurdie 195 
                bEnableUse = TRUE
119 ghuddy 196 
		  End If
5082 dpurdie 197 
 
198 
          If bEnableUse Then
5173 dpurdie 199 
          %>
200 
          <div id='dialog-confirm' title="Confirm version change" style="display:none">
201 
          <p>Replace the current version of package <%=sPkg_Name%> with Version <%=sPkg_Version%>.
202 
          <p>The new version may be added directly into the release or the change may be made pending.
203 
          </div>
204 
          <%
205 
            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 206 
          Else
207 
		    Response.write "<img src='images/abtn_use_this_version_off.gif' width='108' height='26' hspace='1' border='0'>"
208 
          End If
119 ghuddy 209 
 
210 
		  Response.write "<img src='images/spacer.gif' width='25' height='25'>"
211 
		  If filterInUse Then
212 
		  	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!)'>"
213 
		  Else
214 
		    Response.write "<input type='image' name='btn' src='images/abtn_filter.gif' width='25' height='25' border='0' alt='Apply filter'>"
215 
		  End If
216 
		  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 217 
 
218 
		  Response.write "<img src='images/spacer.gif' width='25' height='25'>"
219 
          Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "hideRipple=" & not hideRipple ) &"'>"
220 
    		  If hideRipple Then
221 
    		  	Response.write "<img src='images/RippleSquareOff.gif' width='25' height='25' border='0' title='Rippled Versions Hidden. Toggle'>"
222 
    		  Else
223 
    		    Response.write "<img src='images/RippleSquare.gif' width='25' height='25' border='0' title='Rippled Versions Shown. Toggle'>"
224 
    		  End If
225 
          Response.write "</a>"
226 
 
119 ghuddy 227 
		  %></td>
228 
		  <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>
229 
		  <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>
230 
        </tr>
231 
      </table>
232 
	  <!--------------------- CAPTION ---------------------------->
233 
	  <table width="100%" border="0" cellspacing="0" cellpadding="0">
234 
	    <tr>
235 
	      <td class="lbox_ttl_b" background="images/bg_action_dark.gif" align="center"><%=sPkg_Name%></td>
236 
		</tr>
237 
      </table>
238 
	  <!------------------ VERSION LIST -------------------------->
239 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
240 
        <tr>
241 
          <td background="images/bg_action_norm.gif">
242 
            <div id="LayerVersions" style="height: 350px; overflow: auto;" name="LayerVersions">
243 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
244 
                <tr>
245 
                  <td width="1" nowrap background="images/bg_action_dark.gif"><img src="images/spacer.gif" width="15" height="10"></td>
246 
                  <td width="1" nowrap background="images/bg_action_dark.gif">&nbsp;</td>
247 
                  <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>
248 
                  <td width="1" valign="top" nowrap background="images/bg_action_dark.gif" class="form_field">Last Mod. Date&nbsp;&nbsp;</td>
249 
                  <td width="100%" valign="top" nowrap background="images/bg_action_dark.gif" class="form_field">Reason for this version</td>
250 
				  <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>
251 
                  <td width="1" nowrap background="images/bg_action_dark.gif"></td>
252 
				  <td width="1" nowrap background="images/bg_action_dark.gif"></td>
253 
                </tr>
254 
				<%
255 
				Dim aVersions, lastRow, i, objSortHelper
256 
 
257 
 
258 
				Set rsVB = OraDatabase.DbCreateDynaset( Get_All_Versions ( parPkg_id ), cint(0))
259 
 
260 
 
261 
 
262 
 
263 
			  	' Descending order
264 
				If rsVB.RecordCount > 0 Then
265 
				aVersions = rsVB.GetRows()
266 
				lastRow = UBound( aVersions, 2 )
267 
 
268 
				Set objSortHelper = New SortHelper
269 
 
270 
 
271 
				' Sort versions
272 
				Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsVB.FieldIndex("pkg_version") )
273 
 
5902 dpurdie 274 
				CanDestroyProjectPackage = canShowControlInProject ( "DestroyPackage" )
119 ghuddy 275 
 
276 
			  	' Descending order
277 
				For i = lastRow To 0 Step -1
4703 dpurdie 278 
 
119 ghuddy 279 
				%>
280 
				<%	' Highlight row case
281 
					rowColor = IMGBG_ROW
282 
					imgPointer = ""
283 
					If CStr( aVersions( rsVB.FieldIndex("pv_id"), i ) ) = parPv_id Then
284 
						rowColor = IMGBG_ROW_HI
285 
						imgPointer = IMG_PONTER
286 
					End If
287 
 
288 
					' Official/Unofficial case
289 
					imgLock = IMG_NOT_OFFICIAL
290 
					'fieldRelease_Date = ""
291 
					'fieldReleased_By = ""
5902 dpurdie 292 
					If (aVersions( rsVB.FieldIndex("dlocked"), i ) = "Y")  Then
119 ghuddy 293 
						imgLock = IMG_OFFICIAL
5902 dpurdie 294 
                    ElseIf (aVersions( rsVB.FieldIndex("dlocked"), i ) = "A") Then
295 
						imgLock = IMG_PENDING
119 ghuddy 296 
					End If
297 
 
5632 dpurdie 298 
					fieldRelease_Date = DisplayShortDateTime ( aVersions( rsVB.FieldIndex("modified_stamp"), i ) )
119 ghuddy 299 
					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>"
300 
 
301 
					' Full Release Notes availability
302 
					fieldDownloadFullReleaseNotes = ""
303 
					If NOT IsNull( aVersions( rsVB.FieldIndex("release_notes_info"), i ) ) OR ( InStr( aVersions( rsVB.FieldIndex("release_notes_info"), i ), "MGS:") < 1)  Then
177 brianf 304 
						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 305 
					End If
306 
 
307 
					anchorName = "ANC_"& aVersions( rsVB.FieldIndex("pv_id"), i )
308 
					If aVersions( rsVB.FieldIndex("is_patch"), i ) = "Y" Then
309 
						URLstring = "_wform_versions_history_release_notes.asp?"& Persists_Query_String( "pv_id="& aVersions( rsVB.FieldIndex("pv_id"), i ) ) &"#"& anchorName
310 
					Else
311 
						URLstring = scriptName &"?"& Persists_Query_String( "pv_id="& aVersions( rsVB.FieldIndex("pv_id"), i ) ) &"#"& anchorName
312 
					End If
313 
 
5759 dpurdie 314 
                    ' User can try to delete package iff
315 
                    '   Have suffiecient access (unusual)
316 
                    '   They created it or own it
5902 dpurdie 317 
                    '   The version is not in use by any release (allow to be in pending or WIP)
5759 dpurdie 318 
                    '   [Not at the moment] The package was created less than xxxx days ago
5902 dpurdie 319 
                    '   Is not locked or [Not at the moment] Approved for Autobuild
320 
                    CanDestroyPackage = CanDestroyProjectPackage
321 
                    If NOT CanDestroyPackage Then
322 
                        If (objAccessControl.UserId = aVersions( rsVB.FieldIndex("CREATOR_ID"), i )) OR (objAccessControl.UserId = aVersions( rsVB.FieldIndex("OWNER_ID"), i ))Then
5759 dpurdie 323 
                            If aVersions( rsVB.FieldIndex("inuse"), i ) = 0 Then
324 
                                'If aVersions( rsVB.FieldIndex("age") , i ) < 1000 Then
325 
                                    If aVersions( rsVB.FieldIndex("dlocked"), i ) <> "Y" Then
5902 dpurdie 326 
                                        'If aVersions( rsVB.FieldIndex("dlocked"), i ) <> "A" Then
5759 dpurdie 327 
                                            CanDestroyPackage = true
5902 dpurdie 328 
                                        'End If
5759 dpurdie 329 
                                    End If
330 
                                'End If
331 
                            End If
332 
                        End If
333 
                    End If
119 ghuddy 334 
 
335 
					' Set destroy package action
336 
					If CanDestroyPackage Then
5190 dpurdie 337 
						DestroyPackage = "<a class='nogo' href='javascript:;'"&_
119 ghuddy 338 
										 " title='Destroy this package from the database.' "&_
5190 dpurdie 339 
										 " onClick=""return vixConfirm('You are about to destroy ["& sPkg_Name &" "& aVersions( rsVB.FieldIndex("pkg_version"), i ) &"].<p>You cannot undo this operation.<br>Do you want to proceed?', {button : 'Destroy', url : '_destroy_package.asp?pv_id="& aVersions( rsVB.FieldIndex("pv_id"), i )  &"&bfile="& ScriptName &"&rtag_id="& parRtag_id &"&FLuser_name="& parFLuser_name &"&FLpkg_version="& parFLpkg_version &"&rfile="& parRfile &"&pkg_id="& parPkg_id &"&OLDpv_id="& parOLDpv_id &"'});"" >" &_
340 
                                         " <img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ><a>"
5759 dpurdie 341 
                    Else
342 
                        DestroyPackage = ""
119 ghuddy 343 
					End If
344 
				%>
5190 dpurdie 345 
                <tr <%=Set_Row_Style ( URLstring, CStr( aVersions( rsVB.FieldIndex("pv_id"), i ) ) )%>>
119 ghuddy 346 
                  <td align="right" background="images/bg_action_dark.gif"><%=imgPointer%></td>
347 
                  <td align="center" valign="top" <%=rowColor%>><%=imgLock%></td>
348 
                  <td valign="top" nowrap <%=rowColor%>><a name="<%=anchorName%>"></a><a href="<%=URLstring%>" class="txt_linked"><%=aVersions( rsVB.FieldIndex("pkg_version"), i )%></a></td>
349 
                  <td valign="top" nowrap <%=rowColor%> class="form_item"><%=fieldRelease_Date%></td>
350 
                  <td valign="top" <%=rowColor%> class="form_item"><%=NewLine_To_BR ( To_HTML( aVersions( rsVB.FieldIndex("comments"), i ) ) )%></td>
351 
                  <td valign="top" nowrap <%=rowColor%> class="form_item"><%=fieldReleased_By%></td>
352 
                  <td align="center" valign="top" <%=rowColor%>><%=fieldDownloadFullReleaseNotes%></td>
5190 dpurdie 353 
				  <td align="center" valign="top" class="nogo" <%=rowColor%>><%=DestroyPackage%></td>
119 ghuddy 354 
                </tr>
355 
				<%
356 
				Next
357 
				End If
358 
				%>
359 
              </table>
360 
            </div></td>
361 
        </tr>
362 
      </table>
363 
	  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
364 
	  <input type="hidden" name="pkg_id" value="<%=parPkg_id%>">
365 
	  <input type="hidden" name="rfile" value="<%=parRfile%>">
366 
	  <input type="hidden" name="OLDpv_id" value="<%=parOLDpv_id%>">
1268 iaugusti 367 
	  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
119 ghuddy 368 
	  <input type="hidden" name="filter_reset" value="">
369 
	  </form>
370 
 
371 
 
5173 dpurdie 372