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%>