Release Manager

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| view by version | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsRep Dim parFPkgVersion Dim sLink Dim parPkgId Dim PackageName Dim imgLock Dim DestroyPackage Dim CanDestroyPackage '------------ Constants Declaration ----------- Const IMG_OFFICIAL = "

" Const IMG_NOT_OFFICIAL = "

" '------------ Variable Init ------------------- parFPkgVersion = Request("fpkgversion") If parFPkgVersion = "" Then parFPkgVersion = "*" parPkgId = Request("pkg_id") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- 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 '----------------------------------------------------------------------------------------------------------------------- %> <% '==================== MAIN LINE =============================== If (parPkgId = "") Then Response.Redirect ("index.asp") PackageName = GetPackageName ( parPkgId ) '============================================================== %> Release Manager

<% 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"), 0 ) OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "PKG_VERSION" %>

Package Versions

Results for <%=PackageName%>

<% ' Descending order If rsRep.RecordCount = 0 Then With Response .write "" .write "" .write "" End With Else aVersions = rsRep.GetRows() lastRow = UBound( aVersions, 2 ) Set objSortHelper = New SortHelper ' Sort versions Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsRep.FieldIndex("pkg_version") ) DestroyPackage = "" CanDestroyPackage = objAccessControl.IsVisible ( "DestroyPackage" ) ' Descending order For i = lastRow To 0 Step -1 imgLock = IMG_NOT_OFFICIAL If (aVersions( rsRep.FieldIndex("dlocked"), i ) = "Y") OR (aVersions( rsRep.FieldIndex("dlocked"), i ) = "A") Then imgLock = IMG_OFFICIAL End If sLink = "dependencies.asp?pv_id="& aVersions( rsRep.FieldIndex("pv_id"), i ) ' Set destroy package action If CanDestroyPackage Then DestroyPackage = "

" End If %> <% Next rsRep.Close() End If %>

	Version	Reason for Release	Last Modified

Found 0 records.
<%=imgLock%>	<%=aVersions( rsRep.FieldIndex("pkg_version"), i )%>	<%=NewLine_To_BR ( To_HTML( aVersions( rsRep.FieldIndex("comments"), i ) ) )%>	<%= ""& aVersions( rsRep.FieldIndex("full_name"), i ) &" "& EuroDateTime ( aVersions( rsRep.FieldIndex("modified_stamp"), i ) )%>	<%=DestroyPackage%>