Subversion Repositories DevTools

Rev

Rev 7288 | Rev 7337 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7288 Rev 7289
Line 666... Line 666...
666 
     If rsTemp.RecordCount > 0 Then
 666 
     If rsTemp.RecordCount > 0 Then
667 
        pkgInfoHash.Add "is_deprecated", True
 667 
        pkgInfoHash.Add "is_deprecated", True
668 
     End If
 668 
     End If
669 
   End If
 669 
   End If
670 
 
 670 
 
671 
 
 - 
 
672 
   ' Check if package is a NEW package - only one version in existence
 671 
   ' Check if package is a NEW package - only one version in existence
673 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as count from package_versions pv where pkg_id = " & pkgInfoHash.Item ("pkg_id"), cint(0))
 672 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as count from package_versions pv where pkg_id = " & pkgInfoHash.Item ("pkg_id"), cint(0))
674 
   pkgInfoHash.Add "pkg_count" , rsTemp("count")
 673 
   pkgInfoHash.Add "pkg_count" , rsTemp("count")
675 
 
 674 
 
- 
 
 675 
   ' Does this package have any dependencies
- 
 
 676 
   Set rsTemp = OraDatabase.DbCreateDynaset( "select count(*) as depCount from package_dependencies where pv_id = " & SSpv_id, cint(0))
- 
 
 677 
   pkgInfoHash.Add "depCount" , rsTemp("depCount")
- 
 
 678 
 
- 
 
 679 
 
676 
   rsTemp.Close
 680 
   rsTemp.Close
677 
   Set rsTemp = nothing
 681 
   Set rsTemp = nothing
678 
 
 682 
 
679 
End Sub
 683 
End Sub
680 
'-----------------------------------------------------------------------------------------------------------------------------
 684 
'-----------------------------------------------------------------------------------------------------------------------------