<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| View Release Licencing Details | '| | '===================================================== Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Make sure rtag_id is always present If Request("rtag_id") = "" Then Response.Redirect("index.asp") End If ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "dependencies.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '-------------------------------------------------------------------------------------------------------------------------- ' release_licencing_query_string ' ' DESCRIPTION ' Constructs a query string using the provided release tag, designed to elicit ' a list of PV_ID's, thier package names, versions and extensions, and licencing ' associations from the release. Only those PV_IDs with one or more licencing ' associations are returned. ' ' INPUTS ' NNrtag_id : The release tag to be used in the query string ' Function release_licencing_query_string(NNrtag_id) release_licencing_query_string = "SELECT * FROM ("&_ " SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, lcs.name AS licenceName"&_ " FROM release_content rc, package_versions pv, packages pkg, licencing lcng, licences lcs"&_ " WHERE rc.rtag_id = "& CStr(NNrtag_id) &_ " AND pv.pv_id = rc.pv_id "&_ " AND pkg.pkg_id = pv.pkg_id "&_ " AND pv.pv_id (+) = lcng.pv_id "&_ " AND lcng.licence (+) = lcs.licence "&_ " UNION "&_ " SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, lcs.name AS licenceName"&_ " FROM work_in_progress wip, package_versions pv, packages pkg, licencing lcng, licences lcs"&_ " WHERE wip.rtag_id = "& CStr(NNrtag_id) &_ " AND pv.pv_id = wip.pv_id "&_ " AND pkg.pkg_id = pv.pkg_id "&_ " AND pv.pv_id (+) = lcng.pv_id "&_ " AND lcng.licence (+) = lcs.licence "&_ " UNION "&_ " SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, lcs.name AS licenceName"&_ " FROM planned pl, package_versions pv, packages pkg, licencing lcng, licences lcs"&_ " WHERE pl.rtag_id = "& CStr(NNrtag_id) &_ " AND pv.pv_id = pl.pv_id "&_ " AND pkg.pkg_id = pv.pkg_id "&_ " AND (pl.operation IS NULL OR pl.operation = 'R') "&_ " AND pv.pv_id (+) = lcng.pv_id "&_ " AND lcng.licence (+) = lcs.licence "&_ ") ORDER BY UPPER(pkg_name), UPPER(v_ext), pv_id DESC, UPPER(licenceName)" End Function '-------------------------------------------------------------------------------------------------------------------------- ' PV_ID_ListHTML ' ' DESCRIPTION ' Constructs the HTML to render the rows of package names, versions and extensions, and licences ' Function PV_ID_ListHTML Dim rsQry Dim html_string Set rsQry = OraDatabase.DbCreateDynaset( release_licencing_query_string(parRtag_Id), cint(0) ) '--- Render rows --- Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF) ' BEGIN ROW html_string = html_string & "" ' PACKAGE NAME html_string = html_string & "" & rsQry("pkg_name") & "" ' PACKAGE VERSION If IsNull(rsQry("v_ext")) Then html_string = html_string & "" & rsQry("pkg_version") & "" Else html_string = html_string & "" & Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) ) & "" End If ' PACKAGE EXTENSION html_string = html_string & "" & rsQry("v_ext") & "" ' LICENCE NAME html_string = html_string & "" & rsQry("licenceName") & "" ' END ROW html_string = html_string & "" rsQry.MoveNext ' ROW SEPERATOR If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then html_string = html_string & "" End If Loop ' destroy objects rsQry.Close() Set rsQry = nothing ' return result PV_ID_ListHTML = html_string End Function '-------------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------- '------------ RUN BEFORE PAGE RENDER ---------- '---------------------------------------------- %> Release Manager <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Method = "post" objFormComponent.Action = ScriptName & "?rtag_id=" & parRtag_Id Call objFormComponent.FormStart() %> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

 

VIEW RELEASE LICENCING DETAILS
<% %>
<%=PV_ID_ListHTML()%>
Package Name Package Version Package Extension Licences
   
 
<% Call Destroy_All_Objects %>