Subversion Repositories DevTools

Rev

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

Rev 5632 Rev 5939
Line 19... Line 19...
19 
<!--#include file="common/_rtree_common.asp"-->
 19 
<!--#include file="common/_rtree_common.asp"-->
20 
<%
 20 
<%
21 
'------------ Variable Definition -------------
 21 
'------------ Variable Definition -------------
22 
Dim rsTemp
 22 
Dim rsTemp
23 
Dim PageInfoHash
 23 
Dim PageInfoHash
- 
 
 24 
Dim parPvId
- 
 
 25 
Dim parExactMatch
- 
 
 26 
Dim matchPVID
24 
'------------ Constants Declaration -----------
 27 
'------------ Constants Declaration -----------
25 
'------------ Variable Init -------------------
 28 
'------------ Variable Init -------------------
26 
Set PageInfoHash = CreateObject("Scripting.Dictionary")
 29 
Set PageInfoHash = CreateObject("Scripting.Dictionary")
- 
 
 30 
parPvId = Request("pv_id")
- 
 
 31 
matchPVID = -1
- 
 
 32 
parExactMatch = Request ("mode")
- 
 
 33 
If (parExactMatch = 1 ) Then
- 
 
 34 
    matchPVID = parPvId
- 
 
 35 
End If
27 
'----------------------------------------------
 36 
'----------------------------------------------
28 
%>
 37 
%>
29 
<%
 38 
<%
30 
'------------------------------------------------------------------------------------------------------------------------
 39 
'------------------------------------------------------------------------------------------------------------------------
31 
Sub GetPageHash ( outHash )
 40 
Sub GetPageHash ( outHash )
32 
	Dim rsQry, query
 41 
	Dim rsQry, query
33
42
34 
	OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "PV_ID", parPvId, 	ORAPARM_INPUT, ORATYPE_NUMBER
35
44
36 
	query = _
 45 
	query = _
37 
	" SELECT PV_ID, PKG_ID, V_EXT  FROM PACKAGE_VERSIONS  WHERE PV_ID = :PV_ID"
 46 
	" SELECT PV_ID, PKG_ID, V_EXT  FROM PACKAGE_VERSIONS  WHERE PV_ID = :PV_ID"
38
47
39
48
40 
	Set rsQry = OraDatabase.DbCreateDynaset( query, cint(0))
 49 
	Set rsQry = OraDatabase.DbCreateDynaset( query, cint(0))
41
50
42 
	OraDatabase.Parameters.Remove "RTAG_ID"
 51 
	OraDatabase.Parameters.Remove "PV_ID"
43
52
44 
	If rsQry.RecordCount > 0 Then
 53 
	If rsQry.RecordCount > 0 Then
45 
		outHash.Item ("pv_id") = rsQry("pv_id")
 54 
		outHash.Item ("pv_id") = rsQry("pv_id")
46 
		outHash.Item ("pkg_id") = rsQry("pkg_id")
 55 
		outHash.Item ("pkg_id") = rsQry("pkg_id")
47 
		outHash.Item ("v_ext") = rsQry("v_ext")
 56 
		outHash.Item ("v_ext") = rsQry("v_ext")
Line 68... Line 77...
68 
						  </tr>
 77 
						  </tr>
69 
 
 78 
 
70 
<%
 79 
<%
71 
						  OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
80 
						  OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
72 
						  OraDatabase.Parameters.Add "PKG_ID",  PageInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
81 
						  OraDatabase.Parameters.Add "PKG_ID",  PageInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
73
- 
 
74 
						  If PageInfoHash.Item ("v_ext") <> "" Then
 - 
 
75 
					  	  	OraDatabase.Parameters.Add "V_EXT",   PageInfoHash.Item ("v_ext"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 82 
						  OraDatabase.Parameters.Add "PV_ID",   matchPVID, ORAPARM_INPUT, ORATYPE_NUMBER
76 
						  Else
 - 
 
77 
						  	OraDatabase.Parameters.Add "V_EXT",   NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
 83 
						  OraDatabase.Parameters.Add "V_EXT",   EmptyToNull(PageInfoHash.Item ("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
78 
						  End If
 - 
 
79
- 
 
80
84
81 
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisProject.sql"), cint(0))
 85 
						  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByThisProject.sql"), cint(0))
82
86
83 
						  OraDatabase.Parameters.Remove "RTAG_ID"
 87 
						  OraDatabase.Parameters.Remove "RTAG_ID"
84 
						  OraDatabase.Parameters.Remove "PKG_ID"
 88 
						  OraDatabase.Parameters.Remove "PKG_ID"
- 
 
 89 
						  OraDatabase.Parameters.Remove "PV_ID"
85 
						  OraDatabase.Parameters.Remove "V_EXT"
 90 
						  OraDatabase.Parameters.Remove "V_EXT"
86
91
87
92
88 
						  %>
 93 
						  %>
89 
						  <%If rsTemp.RecordCount < 1 Then%>
 94 
						  <%If rsTemp.RecordCount < 1 Then%>