Subversion Repositories DevTools

Rev

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

Rev 161 Rev 163
Line 237... Line 237...
237 
 
 237 
 
238 
   Set myRegExp = Nothing
 238 
   Set myRegExp = Nothing
239 
End Function
 239 
End Function
240 
 
 240 
 
241 
'---------------------------------------------------------------
 241 
'---------------------------------------------------------------
- 
 
 242 
'Returns TRUE if the package is a COTS package and it has an ERG style
- 
 
 243 
'patch-build number that can be rippled by the build system.
242 
Function IsCotsPatch ( apv_id, achange_type)
 244 
Function IsCotsPatch ( apv_id, achange_type)
243 
   '--- get old package version ---
 245 
   '--- get old package version ---
244 
   Dim rsQry, Query_String
 246 
   Dim rsQry, Query_String
245 
   Dim pkg_version_old
 247 
   Dim pkg_version_old
246 
   Query_string = " SELECT pv.pkg_version FROM package_versions pv WHERE pv.pv_id = "& apv_id
 248 
   Query_string = " SELECT pv.pkg_version FROM package_versions pv WHERE pv.pv_id = "& apv_id