Subversion Repositories DevTools

Rev

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

Rev 5952 Rev 5957
Line 71... Line 71...
71 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
 71 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
72 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,	ORAPARM_INPUT, ORATYPE_NUMBER
72 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,	ORAPARM_INPUT, ORATYPE_NUMBER
73
73
74 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), ORADYN_DEFAULT )
 74 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), ORADYN_DEFAULT )
75
75
- 
 
 76 
	OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 77 
	OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 78 
 
76 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 79 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
77 
		aComboItems = rsQry.GetRows()
 80 
		aComboItems = rsQry.GetRows()
78
81
79 
	Else
 82 
	Else
80 
		Err.Raise 8, "Sub GetReleaseList", "Empty record set returned. nProjId="& nProjId
 83 
		Err.Raise 8, "Sub GetReleaseList", "Empty record set returned. nProjId="& nProjId
81
84
82 
	End If
 85 
	End If
83
86
84 
	OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
85 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
86
- 
 
87 
	rsQry.Close
 87 
	rsQry.Close
88 
	Set rsQry = Nothing
 88 
	Set rsQry = Nothing
89
89
90
- 
 
91 
	'-- Return Combo Items Array
 90 
	'-- Return Combo Items Array
92 
	GetReleaseList = aComboItems
 91 
	GetReleaseList = aComboItems
93
92
94 
End Function
 93 
End Function
95 
'--------------------------------------------------------------------------------------------------------------------------
 94 
'--------------------------------------------------------------------------------------------------------------------------
96 
Function GetProjectList ( nProjId )
 95 
Function GetProjectList ( nProjId )
97 
	Dim rsQry, Selected, aComboItems, lastItem, i
 96 
	Dim rsQry, Selected, aComboItems, lastItem, i
98
97
99 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
 98 
	OraDatabase.Parameters.Add "PROJ_ID", nProjId,	ORAPARM_INPUT, ORATYPE_NUMBER
100
- 
 
101 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), ORADYN_DEFAULT )
 99 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), ORADYN_DEFAULT )
- 
 
 100 
	OraDatabase.Parameters.Remove "PROJ_ID"
102
101
103 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 102 
	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
104 
		aComboItems = rsQry.GetRows()
 103 
		aComboItems = rsQry.GetRows()
105
104
106 
	Else
 105 
	Else
107 
		Err.Raise 8, "Sub GetProjectList", "Empty record set returned. nProjId="& nProjId
 106 
		Err.Raise 8, "Sub GetProjectList", "Empty record set returned. nProjId="& nProjId
108
107
109 
	End If
 108 
	End If
110
109
111 
	OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
112
- 
 
113 
	rsQry.Close
 110 
	rsQry.Close
114 
	Set rsQry = Nothing
 111 
	Set rsQry = Nothing
115
112
116
113
117 
	'-- Alter combo item link column to work with OnChange javascript
 114 
	'-- Alter combo item link column to work with OnChange javascript
118 
	lastItem = Ubound( aComboItems, 2 )
 115 
	lastItem = Ubound( aComboItems, 2 )
119 
	For i = 0 To lastItem
 116 
	For i = 0 To lastItem
120 
		aComboItems(0, i) = ScriptName &"?from_proj_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL()
 117 
		aComboItems(0, i) = ScriptName &"?from_proj_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL()
121 
	Next
 118 
	Next
122
119
123
- 
 
124 
	'-- Return Combo Items Array
 120 
	'-- Return Combo Items Array
125 
	GetProjectList = aComboItems
 121 
	GetProjectList = aComboItems
126
122
127 
End Function
 123 
End Function
128 
'--------------------------------------------------------------------------------------------------------------------------
 124 
'--------------------------------------------------------------------------------------------------------------------------
Line 247... Line 243...
247 
 <%
 243 
 <%
248 
Call objFormComponent.FormEnd()
 244 
Call objFormComponent.FormEnd()
249 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 245 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
250 
%>
246 
%>
251 
</table>
 247 
</table>
252 
 
 - 
 
253 
 
 - 
 
254 
<!-- FOOTER -->
 248 
<!-- FOOTER -->
255 
<!--#include file="_footer.asp"-->
 249 
<!--#include file="_footer.asp"-->
256 
</body>
 250 
</body>
257 
</html>
 251 
</html>
258 
<%
 - 
 
259 
Call Destroy_All_Objects
 - 
 
260 
%>
 - 
 
261 

            252