Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5952
Line 142... Line 142...
142 
	Dim rsQry, isOfficial
 142 
	Dim rsQry, isOfficial
143
143
144
144
145 
	OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
145 
	OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId,	ORAPARM_INPUT, ORATYPE_NUMBER
146 
	OraDatabase.Parameters.Add "PKG_ID", 		pkgInfoHash.Item("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
146 
	OraDatabase.Parameters.Add "PKG_ID", 		pkgInfoHash.Item("pkg_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
147
- 
 
148 
	If IsNull(pkgInfoHash.Item("v_ext")) OR (pkgInfoHash.Item("v_ext") = "") Then
 - 
 
149 
		OraDatabase.Parameters.Add "V_EXT", 		NULL,	ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
150 
	Else
 - 
 
151 
		OraDatabase.Parameters.Add "V_EXT", 		pkgInfoHash.Item("v_ext"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
147 
	OraDatabase.Parameters.Add "V_EXT", 		EmptyToNull(pkgInfoHash.Item("v_ext")),	ORAPARM_INPUT, ORATYPE_VARCHAR2
152 
	End If
 - 
 
153
- 
 
154
148
155 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
 149 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
156
150
157 
	Response.write "<option value=''></option>"
 151 
	Response.write "<option value=''></option>"
158
152