Subversion Repositories DevTools

Rev

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

Rev 121 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			  ADD NEW Runtime Dependency
 4 
'            ADD NEW Runtime Dependency
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
<%
 13 
<%
14 
' Page Access Condition
 14 
' Page Access Condition
15 
%>
 15 
%>
16 
<!--#include file="common/conf.asp"-->
 16 
<!--#include file="common/conf.asp"-->
Line 36... Line 36...
36 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
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 
   objEH.TryORA ( OraSession )
44 
		OraDatabase.ExecuteSQL "BEGIN Add_Runtime_Dependency ( "& NNpv_id &", "&_
 - 
 
45 
		                                                          "'"& ARRrtd( COL_pkg_name, i ) &"', "&_
 - 
 
46 
																  "'"& ARRrtd( COL_pkg_version, i ) &"', "&_
 - 
 
47 
																  NNuser_id &" ); END;"
 44 
   On Error Resume Next
48 
	Next
 - 
 
49 
 
 45 
 
- 
 
 46 
   For i = 0 To UBound( ARRrtd, 2 )
- 
 
 47 
      If Err.Number = 0 Then
- 
 
 48 
         OraDatabase.ExecuteSQL _
- 
 
 49 
         "BEGIN Add_Runtime_Dependency ( "& NNpv_id &", "&_
- 
 
 50 
                                         "'"& ARRrtd( COL_pkg_name, i ) &"', "&_
- 
 
 51 
                                         "'"& ARRrtd( COL_pkg_version, i ) &"', "&_
- 
 
 52 
                                         NNuser_id &" ); END;"
- 
 
 53 
      End If
- 
 
 54 
   Next
- 
 
 55 
 
- 
 
 56 
   objEH.CatchORA ( OraSession )
50 
End Sub
 57 
End Sub
51 
 
 58 
 
52 
Sub Populate_rtdArray ( NNpv_id_list, ARRrtd )
 59 
Sub Populate_rtdArray ( NNpv_id_list, ARRrtd )
53 
	Dim depList, lastItem, i, recCnt, pkg_name, pkg_version
 60 
   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version
54 
	Dim rsTemp, Query_String
 61 
   Dim rsTemp, Query_String
55 
 
 62 
 
56 
	Query_String = _
 63 
   Query_String = _
57 
   " SELECT pkgs.pkg_id, pkgs.pkg_name, pv.pv_id, pv.pkg_version"&_
 64 
   " SELECT pkgs.pkg_id, pkgs.pkg_name, pv.pv_id, pv.pkg_version"&_
58 
   "  FROM packages pkgs, package_versions pv"&_
 65 
   "  FROM packages pkgs, package_versions pv"&_
59 
   " WHERE pv.pv_id IN ("& NNpv_id_list &")"&_
 66 
   " WHERE pv.pv_id IN ("& NNpv_id_list &")"&_
60 
   "   AND pv.pkg_id = pkgs.pkg_id"
 67 
   "   AND pv.pkg_id = pkgs.pkg_id"
61 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 68 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
62 
 
 69 
 
63 
	recCnt = 0
 70 
   recCnt = 0
64 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 71 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
65 
		ReDim Preserve ARRrtd( 1, recCnt )
 72 
      ReDim Preserve ARRrtd( 1, recCnt )
66 
		ARRrtd( COL_pkg_name, recCnt ) = rsTemp("pkg_name")
 73 
      ARRrtd( COL_pkg_name, recCnt ) = rsTemp("pkg_name")
67 
      ARRrtd( COL_pkg_version, recCnt ) =  rsTemp("pkg_version")
 74 
      ARRrtd( COL_pkg_version, recCnt ) =  rsTemp("pkg_version")
68 
 
 75 
 
69 
		recCnt = recCnt + 1
 76 
      recCnt = recCnt + 1
70 
		rsTemp.MoveNext
 77 
      rsTemp.MoveNext
71 
	WEnd
 78 
   WEnd
72 
 
 79 
 
73 
	rsTemp.Close
 80 
   rsTemp.Close
74 
	Set rsTemp = nothing
 81 
   Set rsTemp = nothing
75 
End Sub
 82 
End Sub
76 
%>
 83 
%>
77 
<%
 84 
<%
78 
'-----------------------  MAIN LINE  ---------------------------
 85 
'-----------------------  MAIN LINE  ---------------------------
79 
 
 86 
 
80 
'--- Process submition ---
 87 
'--- Process submition ---
81 
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
 88 
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
82 
	' All mendatory parameters FOUND
 89 
   ' All mendatory parameters FOUND
83 
 
 90 
 
84 
	'COMPLETE THE REQUEST...
 91 
   'COMPLETE THE REQUEST...
85 
   ' NOTE - Although the underlying search operation (see form_search_pkgs.asp and form_search_result_pkgs.asp)
 92 
   ' 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
 93 
   ' returns a list called "pkg_list", it actually contains a pv_id list when used to add runtime dependencies
87 
	Call Populate_rtdArray ( Request("pkg_list"), rtdArray )
 94 
   Call Populate_rtdArray ( Request("pkg_list"), rtdArray )
88 
 
 95 
 
89 
	Call Add_Runtime_Dependency ( rtdArray, Request("pv_id"), objAccessControl.UserId )
 96 
   Call Add_Runtime_Dependency ( rtdArray, Request("pv_id"), objAccessControl.UserId )
90 
 
 97 
 
91 
	Response.Redirect("runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 98 
   Response.Redirect("runtime_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
92 
Else
 99 
Else
93 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 100 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
94 
	Response.write QSTR_All
 101 
   Response.write QSTR_All
95 
End If
 102 
End If
96 
%>
 103 
%>
97 
 
 104 
 
98 
<!-- DESTRUCTOR ------->
 105 
<!-- DESTRUCTOR ------->
99 
<!--#include file="common/destructor.asp"-->
 106 
<!--#include file="common/destructor.asp"-->