Subversion Repositories DevTools

%>

<%

'------------------------------------------------------------------------------------------------------------------------

' This code is temporary and can be taken out at some point in the future (eg. 3 months from now. ie. Dec2008). Its purpose

' is to ensure that the release level metrics are up-to-date when a user expands the project link on the Release Metrics. The

' SQL queries and database PK_RMAPI update_release_metrics function have been updated to fix errors in the original solution

' but we would have to wait for the build tool to build at least one package in each release in each project before the

' release level metrics would be correct. So, instead, we force the re-computation of those metrics now. It doesn't  take long

' even on a large project like Stockholm, so it is no big deal.

'Sub UpdateReleaseMetrics

'   Dim rsQry

'   Dim rsQuery_String

'   Dim rtagid

'

'   On Error Resume Next

'

'   OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER

'

'   rsQuery_String = "SELECT rm.rtag_id"&_

'                    "  FROM projects p,"&_

'                    "       release_metrics rm,"&_

'                    "       release_tags rt"&_

'                    " WHERE p.proj_id = rt.proj_id"&_

'                    "   AND rm.rtag_id = rt.rtag_id"&_

'                    "   AND p.proj_id = :PROJ_ID"

'

'   Set rsQry = OraDatabase.DbCreateDynaset( rsQuery_String, cint(0))

'

'   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

'      OraDatabase.Parameters.Add "RTAG_ID",         rsQry("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER

'

'      objEH.TryORA ( OraSession )

'

'      OraDatabase.ExecuteSQL "BEGIN  PK_RMAPI.UPDATE_RELEASE_METRICS ( :RTAG_ID ); END;"

'

'      objEH.CatchORA ( OraSession )

'

'      OraDatabase.Parameters.Remove "RTAG_ID"

'      rsQry.MoveNext

'   WEnd

'

'   OraDatabase.Parameters.Remove "PROJ_ID"

'

'   rsQry.Close

'   Set rsQry = nothing

'End Sub

'------------------------------------------------------------------------------------------------------------------------

%>

<%

' Call UpdateReleaseMetrics

'--------------------------------------------------------------------