<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' SBOM Priority '===================================================== %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim SBOMPriority '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------------------ Function GetCurrentSBOMPriority () Dim rsTemp, Query_String Query_String = _ " SELECT sbom_priority"&_ " FROM package_versions"&_ " WHERE pv_id = "& Request("pv_id") Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0)) If (NOT rsTemp.EOF) AND (NOT rsTemp.BOF) Then GetCurrentSBOMPriority = rsTemp("sbom_priority") End If rsTemp.Close Set rsTemp = Nothing End Function '------------------------------------------------------------------------------------------------------------------------------------ Sub UpdateSBOMPriority ( ) Dim rsTemp, Query_String Query_String = _ " SELECT sbom_priority"&_ " FROM package_versions"&_ " WHERE pv_id = "& Request("pv_id") Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0)) 'update fields rsTemp.Edit rsTemp.Fields("sbom_priority").Value = Request("sbom_priority") rsTemp.Update rsTemp.Close Set rsTemp = nothing '/* Log Action */ If Request("sbom_priority") = "C" Then Call Log_Action ( Request("pv_id"), "sbom_priority_update", "Critical Priority" ) ElseIf Request("sbom_priority") = "I" Then Call Log_Action ( Request("pv_id"), "sbom_priority_update", "Important Priority" ) ElseIf Request("sbom_priority") = "R" Then Call Log_Action ( Request("pv_id"), "sbom_priority_update", "Routine Priority" ) ElseIf Request("sbom_priority") = "L" Then Call Log_Action ( Request("pv_id"), "sbom_priority_update", "Low Priority" ) End If End Sub '------------------------------------------------------------------------------------------------------------------------------------ %> <% 'Process submition If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then Call UpdateSBOMPriority ( ) Call OpenInParentWindow ("fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") ) Call CloseWindow Else SBOMPriority = GetCurrentSBOMPriority () End If %>

	SBOM Priority
	checked<%End If%>> Critical     checked<%End If%>> Important     checked<%End If%>> Routine     checked<%End If%>> Low