<%@LANGUAGE="VBSCRIPT"%> <% '================================================================ ' Update Reason For This Version - Dependencies ' --- PROCESS FORM --- '================================================================ %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------------- Sub fillCommentsWithDifferences ( parPv_id ) DIM outputString DIM rsTemp, rsQry, query query = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID = :PV_ID " OraDatabase.Parameters.Add "PV_ID",parPv_Id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) 'If pkgInfoHash.Item("base_view_id") = cstr(enumBASE_VIEW_PRODUCTS) Then 'If pkgInfoHash.Item("comments") = "" or isnull(pkgInfoHash.Item("comments")) Then If (rsQry("last_pv_id") = "") Then OraDatabase.Parameters.Add "OLD_PV_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER Else OraDatabase.Parameters.Add "OLD_PV_ID", rsQry("last_pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER End If Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0)) Dim style, icon While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Select Case CInt(rsTemp("status")) Case enumDB_NUM_DIFF_UPDATED outputString = outputString & "[UPDATED] " & rsTemp("pkg_name") &" to "& rsTemp("pkg_version") &" ("& rsTemp("previous_version") &")"& VBNewLine Case enumDB_NUM_DIFF_NEW outputString = outputString & "[NEW] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine Case enumDB_NUM_DIFF_REMOVED outputString = outputString & "[REMOVED] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine End Select rsTemp.MoveNext WEnd rsQry.Edit rsQry.Fields("comments").Value = outputString rsQry.Update rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "OLD_PV_ID" 'End If 'END IF rsQry.Close Set rsQry = Nothing OraDatabase.Parameters.Remove "PV_ID" End Sub '----------------------------------------------------------------------------------------------------------------------------- %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (parPv_id <> "") Then ' All mandatory parameters FOUND Call fillCommentsWithDifferences ( parPv_id ) Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>