<%=Title(Request("rtag

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| FIXED ISSUES | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim pageIsEditable Dim sectionIsEditable Dim criticalSectionIsEditable '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- '----------------------------------------------------------------------------------------------------------------- Sub fillCommentsWithDifferences ( parPv_id ) DIM outputString DIM rsTemp If pkgInfoHash.Item("comments") = "" or isnull(pkgInfoHash.Item("comments")) Then OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER If (pkgInfoHash.Item ("last_pv_id") = "") OR IsNull(pkgInfoHash.Item ("last_pv_id")) Then OraDatabase.Parameters.Add "OLD_PV_ID", 0, ORAPARM_INPUT, ORATYPE_NUMBER Else OraDatabase.Parameters.Add "OLD_PV_ID", pkgInfoHash.Item ("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 ' An error occured when outputString was longer than 4000 bytes, so this truncates it and adds "..." If LenB(outputString) > 4000 Then outputString = Left(outputString, 3995) outputString = Left(outputString, InStrRev(outputString, vbNewLine)) & vbNewLine & "..." End If objEH.TryORA ( OraSession ) On Error Resume Next OraDatabase.ExecuteSQL _ " UPDATE PACKAGE_VERSIONS"&_ " SET COMMENTS = '"& outputString &"'"&_ " WHERE PV_ID = :PV_ID " objEH.CatchORA ( OraSession ) pkgInfoHash.Item("comments") = outputString rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "OLD_PV_ID" End If End Sub '----------------------------------------------------------------------------------------------------------------- '------------------ MAIN LINE -------------------- pageIsEditable = Is_Page_Editable ( pkgInfoHash.Item ("dlocked") ) sectionIsEditable = Is_Section_Editable () criticalSectionIsEditable = Is_Critical_Section_Editable ( pkgInfoHash.Item ("dlocked") ) '------------------------------------------------- %> <%=Title(Request("rtag_id"))%>

<%Call RenderActionBar(parRtag_id,parPv_id)%>

<%Call RenderStatus(parRtag_id,parPv_id)%>

<%Call Generate_Tab_Menu ( TABarray1, "Release Notes", "orange" )%>

<%Call Action_Buttons ( "Release Notes" )%>

<% If (pkgInfoHash.Item ("dlocked") = "Y") Then If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then Select Case CStr( pkgInfoHash.Item ("release_notes_info") ) Case enum_RELEASE_NOTES_GENERATING Call DisplayInfo ( "GENERATING_RELEASE_NOTES", "400" ) Case enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE Call DisplayInfo ( "NOT_FOUND_IN_PKG_ARCHIVE_RELEASE_NOTES", "400" ) Case enum_RELEASE_NOTES_FAILED Call DisplayInfo ( "FAILED_GENERATING_RELEASE_NOTES", "400" ) Case enum_RELEASE_NOTES_NO_PREVIOUS_VERSION Call DisplayInfo ( "NO_PREVIOUS_VERSION_RELEASE_NOTES", "400" ) End Select ElseIf IsNull(pkgInfoHash.Item ("release_notes_info")) Then Call DisplayInfo ( "GENERATE_RELEASE_NOTES", "400" ) End If Else Call fillCommentsWithDifferences ( parPv_id ) End If %>

<% Call Destroy_All_Objects %>