Subversion Repositories DevTools

        Call UpdateSubVersionSrcPath(retNEWpv_id)

      Call UpdateSubVersionSrcPath(retNEWpv_id)

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

Function IsCotsPatch ( apv_id, achange_type)

   '--- get old package version ---

   Dim rsQry, Query_String

   Dim pkg_version_old

   Query_string = " SELECT pv.pkg_version FROM package_versions pv WHERE pv.pv_id = "& apv_id

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

   pkg_version_old = rsQry("pkg_version")

   rsQry.Close()

   Set rsQry = Nothing

   Dim myRegExp

   Set myRegExp = New RegExp

   ' Must be a patch and the version must have a patch build number, ie a dot and at least 4 digits before the cots extenstion.

   myRegExp.Pattern = "\.\d{4,}\.cots$"

   IsCotsPatch = myRegExp.Test( pkg_version_old ) and (achange_type = "P")

   Set myRegExp = Nothing      

End Function

'Returns a new subversion package source path string by replacing or adding

'the specified label to the specified subversion package source path string.

Function  GetNewSvnSrcPath(asrc_path, alabel)

  Dim ssrc_base

  Dim snew_src_path

  Dim ssrc_path

  Dim slast_char

  Dim i,j

  if IsNull(asrc_path) then

    ssrc_path = ""

  else

    ssrc_path = asrc_path

  end if

  'get project directory from current package source path, ie path above either "tags" or "branches" or "trunk" directory

  i = InStrRev(LCase(ssrc_path), "/tags")

  if i = 0 then

    i = InStrRev(LCase(ssrc_path), "/branches")

    if i = 0 then

      i = InStrRev(LCase(ssrc_path), "/trunk")

    end if

  end if

  if i = 0 then

    '"tags" or "branches" or "trunk" not found

    'use current package source path as the project directory

    ssrc_base = ssrc_path

    'ensure project directory ends in a slash

    j = Len(ssrc_base)

    slast_char = Right(ssrc_base,1)

    if (j > 0) and (slast_char <> "/") then

      ssrc_base = ssrc_base & "/"

    end if

  else

    '"tags" or "branches" or "trunk" found so extract project directory

    ssrc_base = Mid(ssrc_path,1,i)

  end if

  'append new directory to the default project directory string.

  'the default path will be <project directory>/branches/<label>

  snew_src_path = ssrc_base & "branches/" & alabel

  GetNewSvnSrcPath = snew_src_path

End Function

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

'This function is used to create the default package source path

'string when a new SubVersion package version is added.

'Assumes the specified pv_id is for a subversion package

Sub UpdateSubVersionSrcPath(apv_id)

  Dim rsQry

  Dim anew_src_path

  Dim ivcs_type_id

  Dim apkg_label

  Dim asrc_path

  Dim ssql

  'select the package and ensure it is a subversion package

  ssql = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID ="& apv_id &" AND VCS_TYPE_ID=23"

  Set rsQry = OraDatabase.DbCreateDynaset(ssql, cint(0))

  If rsQry.RecordCount > 0 Then

    ivcs_type_id = rsQry("vcs_type_id")

    'pkg_label contains the new auto generated label for this version

    apkg_label = rsQry("pkg_label")

    asrc_path = rsQry("src_path")

    anew_src_path = GetNewSvnSrcPath(asrc_path,apkg_label)

    OraDatabase.ExecuteSQL _

      "BEGIN "&_

      " UPDATE PACKAGE_VERSIONS SET SRC_PATH ='"& anew_src_path &"' WHERE PV_ID ="& apv_id &"; "&_

      "END;"

  End If

  rsQry.Close()

  Set rsQry = nothing

End Sub

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

'--- Process submission ---