Subversion Repositories DevTools

Rev

Rev 6181 | Rev 6480 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6181 Rev 6289
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				        view by version			     |
 5 
'|                      view by version              |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
 12 
Response.Expires = 0    ' always load the page, dont store
13 
%>
 13 
%>
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
Line 42... Line 42...
42 
parFPkgVersion = Request("fpkgversion")
 42 
parFPkgVersion = Request("fpkgversion")
43 
If parFPkgVersion = "" Then  parFPkgVersion = "*"
 43 
If parFPkgVersion = "" Then  parFPkgVersion = "*"
44 
 
 44 
 
45 
parPkgId = Request("pkg_id")
 45 
parPkgId = Request("pkg_id")
46 
If Request("hideRipple") = "True" Then
46 
If Request("hideRipple") = "True" Then
47 
	hideRipple = True
 47 
    hideRipple = True
48 
    rippleFilter = " AND PV.BUILD_TYPE != 'Y'"
 48 
    rippleFilter = " AND PV.BUILD_TYPE != 'Y'"
49 
Else
 49 
Else
50 
	hideRipple = False
 50 
    hideRipple = False
51 
    rippleFilter = ""
 51 
    rippleFilter = ""
52 
End If
 52 
End If
53 
 
 53 
 
54 
 
 54 
 
55 
'----------------------------------------------
 55 
'----------------------------------------------
56 
%>
 56 
%>
57 
<%
 57 
<%
58 
'-----------------------------------------------------------------------------------------------------------------------
 58 
'-----------------------------------------------------------------------------------------------------------------------
59 
Function GetPackageName ( nPkgId )
 59 
Function GetPackageName ( nPkgId )
60 
	Dim rsQry, query
 60 
    Dim rsQry, query
61
61
62 
	query = _
 62 
    query = _
63 
	" SELECT PKG_NAME  FROM PACKAGES  WHERE PKG_ID = :PKG_ID"
 63 
    " SELECT PKG_NAME  FROM PACKAGES  WHERE PKG_ID = :PKG_ID"
64
64
65 
	OraDatabase.Parameters.Add "PKG_ID", nPkgId, ORAPARM_INPUT, ORATYPE_NUMBER
 65 
    OraDatabase.Parameters.Add "PKG_ID", nPkgId, ORAPARM_INPUT, ORATYPE_NUMBER
66
66
67 
  	Set rsQry = OraDatabase.DbCreateDynaset( query, 0 )
 67 
    Set rsQry = OraDatabase.DbCreateDynaset( query, 0 )
68
68
69 
	OraDatabase.Parameters.Remove "PKG_ID"
 69 
    OraDatabase.Parameters.Remove "PKG_ID"
70
70
71 
	GetPackageName = rsQry("pkg_name")
 71 
    GetPackageName = rsQry("pkg_name")
72
72
73 
	rsQry.Close()
 73 
    rsQry.Close()
74 
	Set rsQry = nothing
 74 
    Set rsQry = nothing
75 
End Function
 75 
End Function
76 
'-----------------------------------------------------------------------------------------------------------------------
 76 
'-----------------------------------------------------------------------------------------------------------------------
77 
%>
 77 
%>
78 
<%
 78 
<%
79 
'==================== MAIN LINE ===============================
 79 
'==================== MAIN LINE ===============================
Line 110... Line 110...
110 
    </td>
 110 
    </td>
111 
    <td rowspan="2" valign="top">
111 
    <td rowspan="2" valign="top">
112 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 112 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
113 
        <tr>
113 
        <tr>
114 
          <td >
 114 
          <td >
115
115
116 
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 116 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
117 
			<tr>
117 
            <tr>
118 
			  <td width="1%"></td>
 118 
              <td width="1%"></td>
119 
			  <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
 119 
              <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
120 
			  <td width="1%"></td>
 120 
              <td width="1%"></td>
121 
			</tr>
 121 
            </tr>
122 
			<tr>
122 
            <tr>
123 
			  <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td>
 123 
              <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="500"></td>
124 
			  <td bgcolor="#FFFFFF" valign="top">
124 
              <td bgcolor="#FFFFFF" valign="top">
125 
				<!-- PACKAGE SEARCH ------------------------------------------------>
 125 
                <!-- PACKAGE SEARCH ------------------------------------------------>
126 
				<%
 126 
                <%
127
127
128 
				Dim aVersions
 128 
                Dim aVersions
129 
				Dim lastRow
 129 
                Dim lastRow
130 
				Dim objSortHelper
 130 
                Dim objSortHelper
131 
				Dim i
 131 
                Dim i
132
132
133 
				OraDatabase.Parameters.Add "PKG_VERSION", 	Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2
 133 
                OraDatabase.Parameters.Add "PKG_VERSION",   Replace( parFPkgVersion, "*", "%" ), ORAPARM_INPUT, ORATYPE_VARCHAR2
134 
				OraDatabase.Parameters.Add "PKG_ID", 	parPkgId, ORAPARM_INPUT, ORATYPE_NUMBER
 134 
                OraDatabase.Parameters.Add "PKG_ID",    parPkgId, ORAPARM_INPUT, ORATYPE_NUMBER
135
135
136 
			  	Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindPackageVersion.sql") & rippleFilter, 0 )
 136 
                Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindPackageVersion.sql") & rippleFilter, 0 )
137
137
138 
				OraDatabase.Parameters.Remove "PKG_ID"
 138 
                OraDatabase.Parameters.Remove "PKG_ID"
139 
				OraDatabase.Parameters.Remove "PKG_VERSION"
 139 
                OraDatabase.Parameters.Remove "PKG_VERSION"
140
140
141
141
142 
				%>
 142 
                %>
143
143
144 
				<table width="100%"  border="0" cellspacing="0" cellpadding="5">
 144 
                <table width="100%"  border="0" cellspacing="0" cellpadding="5">
145 
				  <tr>
 145 
                  <tr>
146 
                    <td class="body_sect">Package Versions</td>
 146 
                    <td class="body_sect">Package Versions</td>
147 
                  </tr>
 147 
                  </tr>
148 
                  <tr>
 148 
                  <tr>
149 
                    <td nowrap bgcolor="#E4E9EC" class="body_txt">
 149 
                    <td nowrap bgcolor="#E4E9EC" class="body_txt">
150 
						Results for <b><%=PackageName%></b>
 150 
                        Results for <b><%=PackageName%></b>
151 
					</td>
 151 
                    </td>
152 
                  </tr>
 152 
                  </tr>
153 
                </table>
 153 
                </table>
154
154
155
155
156
156
157 
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
 157 
                <table width="100%" border="0" cellspacing="1" cellpadding="5">
158 
				<form name="versions" method="get" action="<%=ScriptName%>">
 158 
                <form name="versions" method="get" action="<%=ScriptName%>">
159 
				  <input type="hidden" name="pkg_id" value="<%=parPkgId%>">
 159 
                  <input type="hidden" name="pkg_id" value="<%=parPkgId%>">
160 
				  <input type="hidden" name="listby" value="<%=parListBy%>">
 160 
                  <input type="hidden" name="listby" value="<%=parListBy%>">
161 
				 <tr>
 161 
                 <tr>
- 
 
 162 
                    <td width="1" nowrap class="body_col" bgcolor="#E4E9EC"></td>
- 
 
 163 
                    <td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Version</td>
- 
 
 164 
                    <td width="60%" nowrap class="body_col" bgcolor="#E4E9EC">Reason for Release</td>
- 
 
 165 
                    <td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Last Modified</td>
162 
                    <td width="1" nowrap class="body_col" bgcolor="#E4E9EC"></td>
 166 
                    <td width="1" nowrap class="body_col" bgcolor="#E4E9EC"></td>
163 
					<td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Version</td>
 - 
 
164 
					<td width="60%" nowrap class="body_col" bgcolor="#E4E9EC">Reason for Release</td>
 - 
 
165 
					<td width="20%" nowrap class="body_col" bgcolor="#E4E9EC">Last Modified</td>
 - 
 
166 
					<td width="1" nowrap class="body_col" bgcolor="#E4E9EC"></td>
 - 
 
167 
                  </tr>
 167 
                  </tr>
168 
				  <tr>
 168 
                  <tr>
169 
                    <td nowrap bgcolor="#E4E9EC"></td>
 169 
                    <td nowrap bgcolor="#E4E9EC"></td>
170 
					<td nowrap bgcolor="#E4E9EC"><input name="fpkgversion" type="text" class="form_item" size="15" value="<%=parFPkgVersion%>"></td>
 170 
                    <td nowrap bgcolor="#E4E9EC"><input name="fpkgversion" type="text" class="form_item" size="15" value="<%=parFPkgVersion%>"></td>
171 
					<td nowrap bgcolor="#E4E9EC">
 171 
                    <td nowrap bgcolor="#E4E9EC">
172 
                      <%
 172 
                      <%
173 
                      Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "hideRipple=" & not hideRipple ) &"'>"
 173 
                      Response.write "<a href='"& scriptName &"?"& Persists_Query_String( "hideRipple=" & not hideRipple ) &"'>"
174 
                          If hideRipple Then
 174 
                          If hideRipple Then
175 
                            Response.write "<img src='images/RippleSquareOff.gif' width='20' height='20' border='0' title='Rippled Versions Hidden. Toggle'>"
 175 
                            Response.write "<img src='images/RippleSquareOff.gif' width='20' height='20' border='0' title='Rippled Versions Hidden. Toggle'>"
176 
                          Else
 176 
                          Else
177 
                            Response.write "<img src='images/RippleSquare.gif' width='20' height='20' border='0' title='Rippled Versions Shown. Toggle'>"
 177 
                            Response.write "<img src='images/RippleSquare.gif' width='20' height='20' border='0' title='Rippled Versions Shown. Toggle'>"
178 
                          End If
 178 
                          End If
179 
                      Response.write "</a>"
 179 
                      Response.write "</a>"
180 
                      %>
 180 
                      %>
181 
                    </td>
 181 
                    </td>
182 
					<td nowrap bgcolor="#E4E9EC"></td>
 182 
                    <td nowrap bgcolor="#E4E9EC"></td>
183 
					<td nowrap bgcolor="#E4E9EC"></td>
 183 
                    <td nowrap bgcolor="#E4E9EC"></td>
184 
                  </tr>
 184 
                  </tr>
185 
				  <%
 185 
                  <%
186 
				  ' Descending order
 186 
                  ' Descending order
187 
				If rsRep.RecordCount = 0 Then
 187 
                If rsRep.RecordCount = 0 Then
188
188
189 
					With Response
 189 
                    With Response
190 
						.write "<tr>"
 190 
                        .write "<tr>"
191 
						.write "<td colspan='5' class='body_row'>Found 0 records.</td>"
 191 
                        .write "<td colspan='5' class='body_row'>Found 0 records."
- 
 
 192 
                        .write "&nbsp;Delete Unused Package Name&nbsp;"
- 
 
 193 
                        .write "<a href='javascript:;'"&_
- 
 
 194 
                               " title='Delete unused package name' "&_
- 
 
 195 
                               " onClick=""MM_openVixIFrame('_delete_package_name.asp?pkgId=" & parPkgId & "&bfile=index.asp','Delete Unused Package');"" >" &_
- 
 
 196 
                               "<img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ></a>"
- 
 
 197 
                        .write "</td>"
192 
						.write "</tr>"
 198 
                        .write "</tr>"
193 
					End With
 199 
                    End With
194
200 
 
195 
				Else
 201 
                Else
196
202
197 
					aVersions = rsRep.GetRows()
 203 
                    aVersions = rsRep.GetRows()
198 
					lastRow = UBound( aVersions, 2 )
 204 
                    lastRow = UBound( aVersions, 2 )
199
205
200 
					Set objSortHelper = New SortHelper
 206 
                    Set objSortHelper = New SortHelper
201
207
202
208
203 
					' Sort versions
 209 
                    ' Sort versions
204 
					Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsRep.FieldIndex("pkg_version") )
 210 
                    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsRep.FieldIndex("pkg_version") )
205
211
206
212
207 
                    ' Not in a project context
 213 
                    ' Not in a project context
208 
                    ' Only god-like users will have this permission
 214 
                    ' Only god-like users will have this permission
209 
					CanDestroyProjectPackage = canShowControl( "DestroyPackage" )
 215 
                    CanDestroyProjectPackage = canShowControl( "DestroyPackage" )
210
216
211 
				  ' Descending order
 217 
                  ' Descending order
212 
				  For i = lastRow To 0 Step -1
 218 
                  For i = lastRow To 0 Step -1
213 
				  	imgLock = IMG_NOT_OFFICIAL
 219 
                    imgLock = IMG_NOT_OFFICIAL
214 
					If (aVersions( rsRep.FieldIndex("dlocked"), i ) = "Y")  OR (aVersions( rsRep.FieldIndex("dlocked"), i ) = "A") Then
 220 
                    If (aVersions( rsRep.FieldIndex("dlocked"), i ) = "Y")  OR (aVersions( rsRep.FieldIndex("dlocked"), i ) = "A") Then
215 
						imgLock = IMG_OFFICIAL
 221 
                        imgLock = IMG_OFFICIAL
216 
					End If
 222 
                    End If
217
223
218 
				  	sLink = "dependencies.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i )
 224 
                    sLink = "dependencies.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i )
219 
 
 225 
 
220 
                    ' User can try to delete package iff
 226 
                    ' User can try to delete package iff
221 
                    '   Have suffiecient access (unusual)
 227 
                    '   Have suffiecient access (unusual)
222 
                    '   They created it or is its owner
 228 
                    '   They created it or is its owner
223 
                    '   The version is not in use by any release (allow to be in pendinf or WIP)
 229 
                    '   The version is not in use by any release (allow to be in pendinf or WIP)
Line 235... Line 241...
235 
                                    End If
 241 
                                    End If
236 
                                'End If
 242 
                                'End If
237 
                            End If
 243 
                            End If
238 
                        End If
 244 
                        End If
239 
                    End If
 245 
                    End If
240
246
241 
					' Set destroy package action
 247 
                    ' Set destroy package action
242 
					If CanDestroyPackage Then
 248 
                    If CanDestroyPackage Then
243 
						DestroyPackage = "<a href='javascript:;'"&_
 249 
                        DestroyPackage = "<a href='javascript:;'"&_
244 
										 " title='Destroy this package from the database.' "&_
 250 
                                         " title='Destroy this package from the database.' "&_
245 
                                         " onClick=""MM_openVixIFrame('_destroy_package.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i )  &"&bfile="& ScriptName &"&pkg_id="& parPkgId &"&listby="& parListBy &"','Destroy Package Version');"" >" &_
 251 
                                         " onClick=""MM_openVixIFrame('_destroy_package.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i )  &"&bfile="& ScriptName &"&pkg_id="& parPkgId &"&listby="& parListBy &"','Destroy Package Version');"" >" &_
246 
                                         " <img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ></a>"
 252 
                                         " <img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ></a>"
247 
                    Else
 253 
                    Else
248 
					    DestroyPackage = ""
 254 
                        DestroyPackage = ""
249 
					End If
 255 
                    End If
250 
				  %>
 256 
                  %>
251 
					  <tr>
257 
                      <tr>
252 
					    <td valign="top" bgcolor="#F5F5F5"><%=imgLock%></td>
 258 
                        <td valign="top" bgcolor="#F5F5F5"><%=imgLock%></td>
253 
						<td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><a href="<%=sLink%>" class="body_link"><%=aVersions( rsRep.FieldIndex("pkg_version"), i )%></a></td>
 259 
                        <td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><a href="<%=sLink%>" class="body_link"><%=aVersions( rsRep.FieldIndex("pkg_version"), i )%></a></td>
254 
						<td class="body_txt_gray" valign="top"  bgcolor="#F5F5F5"><%=NewLine_To_BR ( To_HTML( aVersions( rsRep.FieldIndex("comments"), i ) ) )%></td>
 260 
                        <td class="body_txt_gray" valign="top"  bgcolor="#F5F5F5"><%=NewLine_To_BR ( To_HTML( aVersions( rsRep.FieldIndex("comments"), i ) ) )%></td>
255 
						<td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><%= "<a href='mailto:"& aVersions( rsRep.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( rsRep.FieldIndex("full_name"), i ) &" &lt;"& aVersions( rsRep.FieldIndex("user_email"), i ) &"&gt;'>"& aVersions( rsRep.FieldIndex("full_name"), i ) &"</a> "& DisplayShortDateTime ( aVersions( rsRep.FieldIndex("modified_stamp"), i ) )%></td>
 261 
                        <td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><%= "<a href='mailto:"& aVersions( rsRep.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( rsRep.FieldIndex("full_name"), i ) &" &lt;"& aVersions( rsRep.FieldIndex("user_email"), i ) &"&gt;'>"& aVersions( rsRep.FieldIndex("full_name"), i ) &"</a> "& DisplayShortDateTime ( aVersions( rsRep.FieldIndex("modified_stamp"), i ) )%></td>
256 
						<td valign="top" bgcolor="#F5F5F5"><%=DestroyPackage%></td>
 262 
                        <td valign="top" bgcolor="#F5F5F5"><%=DestroyPackage%></td>
257 
					  </tr>
 263 
                      </tr>
258 
				  <%
264 
                  <%
259
265
260 
				  Next
 266 
                  Next
261
267
262 
				  rsRep.Close()
 268 
                  rsRep.Close()
263
269
264 
				End If
 270 
                End If
265 
				  %>
 271 
                  %>
266 
				  <tr>
272 
                  <tr>
267 
					<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 273 
                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
268 
				  </tr>
 274 
                  </tr>
269
275
270 
				  </form>
 276 
                  </form>
271 
				</table>
 277 
                </table>
272 
				<br>
 278 
                <br>
273 
				<!------------------------------------------------------------>
279 
                <!------------------------------------------------------------>
274
280
275
281
276 
				</td>
 282 
                </td>
277 
			  <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 283 
              <td background="images/lbox_bgside_white.gif">&nbsp;</td>
278 
			</tr>
 284 
            </tr>
279 
		  </table>
 285 
          </table>
280
286
281 
		  </td>
 287 
          </td>
282 
        </tr>
 288 
        </tr>
283 
      </table>
 289 
      </table>
284 
    </td>
 290 
    </td>
285 
    <td width="11%">&nbsp;</td>
 291 
    <td width="11%">&nbsp;</td>
286 
  </tr>
 292 
  </tr>