Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 1337
Line 84... Line 84...
84
<%
84
<%
85
'-----------------------  MAIN LINE  ---------------------------
85
'-----------------------  MAIN LINE  ---------------------------
86
 
86
 
87
'--- Process submition ---
87
'--- Process submition ---
88
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
88
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
89
   ' All mendatory parameters FOUND
89
   ' All mandatory parameters FOUND
90
 
90
 
91
   'COMPLETE THE REQUEST...
91
   'COMPLETE THE REQUEST...
92
   ' 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)
93
   ' 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
94
   Call Populate_rtdArray ( Request("pkg_list"), rtdArray )
94
   Call Populate_rtdArray ( Request("pkg_list"), rtdArray )
95
 
95
 
96
   Call Add_Runtime_Dependency ( rtdArray, Request("pv_id"), objAccessControl.UserId )
96
   Call Add_Runtime_Dependency ( rtdArray, Request("pv_id"), objAccessControl.UserId )
97
 
97
 
98
   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"))
99
Else
99
Else
100
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
100
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
101
   Response.write QSTR_All
101
   Response.write QSTR_All
102
End If
102
End If
103
%>
103
%>
104
 
104
 
105
<!-- DESTRUCTOR ------->
105
<!-- DESTRUCTOR ------->