Subversion Repositories DevTools

   Get_Proj_Name = ""

Function Get_Release_Name ( NNrtag_id )

   Dim rsTemp, Query_String

   Get_Release_Name = ""

   Query_String = _

   " SELECT rtag_name "&_

   "   FROM release_tags rt "&_

  "  WHERE rt.rtag_id = "& NNrtag_id

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then

      Get_Release_Name = (rsTemp.Fields("rtag_name"))

   End If

   rsTemp.Close

   Set rsTemp = nothing

End Function

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

Function getLastNonRippleVersionPVIDLimitedByDate( this_pv_id, limitDate )

   Dim queryResult

   Dim queryString

   Dim finalPVID

   Dim lastPVID

   ' default return value in case we never get into the loop

   finalPVID = this_pv_id

   ' Get record for this PVID

   queryString = "SELECT build_type, last_pv_id FROM package_versions WHERE pv_id = " & this_pv_id

   Set queryResult = OraDatabase.DbCreateDynaset( queryString, cint(0))

   If ((NOT queryResult.BOF) AND (NOT queryResult.EOF)) Then

      ' If this version is a ripple built version, begin the process of finding its ancestral non-ripple built version

      If (queryResult("build_type") = "Y") Then

         lastPVID = queryResult("last_pv_id")

         ' We know we have some ripple built versions now, so arm the finalPVID for loop control

         finalPVID = ""

         ' Work back through the version history until we hit a record that is not a ripple build version

         Do While ((NOT queryResult.BOF) AND (NOT queryResult.EOF) AND (NOT IsNull(lastPVID)) AND (finalPVID = ""))

            queryString = "SELECT build_type, last_pv_id FROM package_versions "&_

                          " WHERE pv_id = " & lastPVID &_

                          "   AND MODIFIED_STAMP >= TO_DATE('" & limitDate & "','DD/MM/YYYY')"

            Set queryResult = OraDatabase.DbCreateDynaset( queryString, cint(0))

            ' if the package version is a ripple built one, go round the loop again, else trigger a loop exit

            If ((NOT queryResult.BOF) AND (NOT queryResult.EOF) AND ( queryResult("build_type") = "Y")) Then

               lastPVID  = queryResult("last_pv_id")

            Else

               finalPVID = lastPVID

            End If

         Loop

      End If

   End If

   queryResult.Close()

   Set queryResult = nothing

   getLastNonRippleVersionPVIDLimitedByDate = finalPVID

End Function