Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 121
Line 37... Line 37...
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
%>
 38 
%>
39 
<%
 39 
<%
40 
Sub Add_Runtime_Dependency ( ARRrtd, NNpv_id, NNuser_id )
 40 
Sub Add_Runtime_Dependency ( ARRrtd, NNpv_id, NNuser_id )
41 
	Dim i
 41 
	Dim i
42
42 
 
43 
	For i = 0 To UBound( ARRrtd, 2 )
 43 
	For i = 0 To UBound( ARRrtd, 2 )
44 
		OraDatabase.ExecuteSQL "BEGIN Add_Runtime_Dependency ( "& NNpv_id &", "&_
 44 
		OraDatabase.ExecuteSQL "BEGIN Add_Runtime_Dependency ( "& NNpv_id &", "&_
45 
		                                                          "'"& ARRrtd( COL_pkg_name, i ) &"', "&_
 45 
		                                                          "'"& ARRrtd( COL_pkg_name, i ) &"', "&_
46 
																  "'"& ARRrtd( COL_pkg_version, i ) &"', "&_
 46 
																  "'"& ARRrtd( COL_pkg_version, i ) &"', "&_
47 
																  NNuser_id &" ); END;"
 47 
																  NNuser_id &" ); END;"
48 
	Next
 48 
	Next
49
49 
 
50 
End Sub
 50 
End Sub
51 
 
 51 
 
52 
Sub Populate_rtdArray ( NNpkg_list, ARRrtd )
 52 
Sub Populate_rtdArray ( NNpv_id_list, ARRrtd )
53 
	Dim depList, lastItem, i, recCnt, pkg_name, pkg_version
 53 
	Dim depList, lastItem, i, recCnt, pkg_name, pkg_version
54 
	Dim rsTemp, Query_String
 54 
	Dim rsTemp, Query_String
55
55 
 
56 
	Query_String = _
 56 
	Query_String = _
57 
	" SELECT pkg_id, pkg_name"&_
 57 
   " SELECT pkgs.pkg_id, pkgs.pkg_name, pv.pv_id, pv.pkg_version"&_
58 
	"  FROM packages"&_
 58 
   "  FROM packages pkgs, package_versions pv"&_
59 
	" WHERE pkg_id IN ("& NNpkg_list &")"
 59 
   " WHERE pv.pv_id IN ("& NNpv_id_list &")"&_
- 
 
 60 
   "   AND pv.pkg_id = pkgs.pkg_id"
60 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 61 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
61
62 
 
62 
	recCnt = 0
 63 
	recCnt = 0
63 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 64 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
64 
		ReDim Preserve ARRrtd( 1, recCnt )
 65 
		ReDim Preserve ARRrtd( 1, recCnt )
65 
		ARRrtd( COL_pkg_name, recCnt ) = rsTemp("pkg_name")
 66 
		ARRrtd( COL_pkg_name, recCnt ) = rsTemp("pkg_name")
66 
		ARRrtd( COL_pkg_version, recCnt ) =  Trim( Request( "pkgn"& rsTemp("pkg_id") ) )		' Trim extra spaces
 67 
      ARRrtd( COL_pkg_version, recCnt ) =  rsTemp("pkg_version")
67
68 
 
68 
		recCnt = recCnt + 1
 69 
		recCnt = recCnt + 1
69 
		rsTemp.MoveNext
 70 
		rsTemp.MoveNext
70 
	WEnd
 71 
	WEnd
71
72 
 
72 
	rsTemp.Close
 73 
	rsTemp.Close
73 
	Set rsTemp = nothing
 74 
	Set rsTemp = nothing
74 
End Sub
 75 
End Sub
75 
%>
 76 
%>
76 
<%
 77 
<%
77 
'-----------------------  MAIN LINE  ---------------------------
 78 
'-----------------------  MAIN LINE  ---------------------------
78 
 
 79 
 
79 
'--- Process submition ---
 80 
'--- Process submition ---
80 
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
 81 
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
81 
	' All mendatory parameters FOUND
 82 
	' All mendatory parameters FOUND
82
83 
 
83 
	'COMPLETE THE REQUEST...
 84 
	'COMPLETE THE REQUEST...
- 
 
 85 
   ' NOTE - Although the underlying search operation (see form_search_pkgs.asp and form_search_result_pkgs.asp)
- 
 
 86 
   ' returns a list called "pkg_list", it actually contains a pv_id list when used to add runtime dependencies
84 
	Call Populate_rtdArray ( Request("pkg_list"), rtdArray )
 87 
	Call Populate_rtdArray ( Request("pkg_list"), rtdArray )
85
88 
 
86 
	Call Add_Runtime_Dependency ( rtdArray, Request("pv_id"), objAccessControl.UserId )
 89 
	Call Add_Runtime_Dependency ( rtdArray, Request("pv_id"), objAccessControl.UserId )
87
90 
 
88 
	Response.Redirect("runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 91 
	Response.Redirect("runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
89 
Else
 92 
Else
90 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 93 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
91 
	Response.write QSTR_All
94 
	Response.write QSTR_All
92 
End If
 95 
End If
93 
%>
 96 
%>
94 
 
 97 
 
95 
<!-- DESTRUCTOR ------->
 98 
<!-- DESTRUCTOR ------->
96 
<!--#include file="common/destructor.asp"-->
 - 
 
97 

            99
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            100