Subversion Repositories DevTools

Rev

Rev 4238 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4238 Rev 4293
Line 256... Line 256...
256 
        patchState = "checked"
 256 
        patchState = "checked"
257 
    End If
 257 
    End If
258 
 
 258 
 
259 
ElseIf NOT (newPackage > 0 ) Then
 259 
ElseIf NOT (newPackage > 0 ) Then
260 
    ' Package already exists
 260 
    ' Package already exists
- 
 
 261 
    ' Creating a new Version of an existing Package
- 
 
 262 
    '   Set build_type to Auto - New Versions start in Auto
261 
    Call GetPackageInfo( parPv_id, objPkgInfo )
 263 
    Call GetPackageInfo( parPv_id, objPkgInfo )
- 
 
 264 
    objPkgInfo.Item("build_type") = "A"
- 
 
 265 
 
262 
    parPkgName = objPkgInfo.Item("pkg_name")
 266 
    parPkgName = objPkgInfo.Item("pkg_name")
263 
 
 267 
 
264 
    ' Extract version number without extension
 268 
    ' Extract version number without extension
265 
    verNumber = objPkgInfo.Item("pkg_version")
 269 
    verNumber = objPkgInfo.Item("pkg_version")
266 
    verNumber = Mid( verNumber,1, Len(verNumber) - Len(objPkgInfo.Item("v_ext")))
 270 
    verNumber = Mid( verNumber,1, Len(verNumber) - Len(objPkgInfo.Item("v_ext")))