Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	   REMOVE Build Dependency
 4 
'                 REMOVE Build 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 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 33... Line 33...
33 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
36 
<%
 36 
<%
37 
Sub Remove_Build_Dependency( NNpv_id, NNdpv_id )
 37 
Sub Remove_Build_Dependency( NNpv_id, NNdpv_id )
38 
	Dim description, Query_String, rsTemp
 38 
   Dim description, Query_String, rsTemp
39 
 
 39 
 
40 
	Query_String = _
 40 
   Query_String = _
41 
	" SELECT dpkg.pkg_name, dpv.pkg_version"&_
 41 
   " SELECT dpkg.pkg_name, dpv.pkg_version"&_
42 
	"  FROM package_versions dpv,"&_
 42 
   "  FROM package_versions dpv,"&_
43 
	"       packages dpkg"&_
 43 
   "       packages dpkg"&_
44 
	" WHERE dpv.pkg_id = dpkg.pkg_id"&_
 44 
   " WHERE dpv.pkg_id = dpkg.pkg_id"&_
45 
	"   AND dpv.pv_id = "& NNdpv_id
 45 
   "   AND dpv.pv_id = "& NNdpv_id
46
46 
 
47 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 47 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
48 
	description = rsTemp("pkg_name") &" "& rsTemp("pkg_version")
 48 
   description = rsTemp("pkg_name") &" "& rsTemp("pkg_version")
49
49 
 
50 
	OraDatabase.Parameters.Add "PV_ID", 			NNpv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
50 
   OraDatabase.Parameters.Add "PV_ID",            NNpv_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
51 
	OraDatabase.Parameters.Add "DPV_ID", 			NNdpv_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
 51 
   OraDatabase.Parameters.Add "DPV_ID",           NNdpv_id,                ORAPARM_INPUT, ORATYPE_NUMBER
52 
	OraDatabase.Parameters.Add "RTAG_ID", 			Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
52 
   OraDatabase.Parameters.Add "RTAG_ID",          Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_VARCHAR2
 53 
   OraDatabase.Parameters.Add "USER_ID",          objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_VARCHAR2
54 
	OraDatabase.Parameters.Add "DESCRIPTION", 		description, ORAPARM_INPUT, ORATYPE_VARCHAR2
 54 
   OraDatabase.Parameters.Add "DESCRIPTION",      description,             ORAPARM_INPUT, ORATYPE_VARCHAR2
55 
	OraDatabase.Parameters.Add "ACTION_TYPE_NAME", 	"depend_remove", ORAPARM_INPUT, ORATYPE_VARCHAR2
 55 
   OraDatabase.Parameters.Add "ACTION_TYPE_NAME", "depend_remove",         ORAPARM_INPUT, ORATYPE_VARCHAR2
56
- 
 
57
- 
 
58
56 
 
- 
 
 57 
   objEH.TryORA ( OraSession )
59 
	OraSession.BeginTrans
 58 
   On Error Resume Next
60
59 
 
61 
	OraDatabase.ExecuteSQL _
 60 
   OraDatabase.ExecuteSQL _
62 
	"DELETE FROM package_dependencies WHERE  pv_id = :PV_ID  AND  dpv_id = :DPV_ID"
 61 
   "DELETE FROM package_dependencies WHERE  pv_id = :PV_ID  AND  dpv_id = :DPV_ID"
63
62 
 
- 
 
 63 
   If Err.Number = 0 Then
64 
	OraDatabase.ExecuteSQL _
 64 
      OraDatabase.ExecuteSQL _
65 
	"BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION );  END;"
65 
      "BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION );  END;"
66
66 
 
- 
 
 67 
      If Err.Number = 0 Then
67 
	OraDatabase.ExecuteSQL _
 68 
         OraDatabase.ExecuteSQL _
68 
  	"BEGIN "&_
 69 
         "BEGIN "&_
69 
	" Touch_Release ( :RTAG_ID ); "&_
 70 
         " Touch_Release ( :RTAG_ID ); "&_
70 
	"END; "
 71 
         "END; "
71
- 
 
72 
	OraSession.CommitTrans
 72 
      End If
73
73 
 
74
74 
   End If
75
75 
 
- 
 
 76 
   objEH.CatchORA ( OraSession )
76
77 
 
77 
	OraDatabase.Parameters.Remove "PV_ID"
 78 
   OraDatabase.Parameters.Remove "PV_ID"
78 
	OraDatabase.Parameters.Remove "PATCH_ID"
 79 
   OraDatabase.Parameters.Remove "PATCH_ID"
79 
	OraDatabase.Parameters.Remove "RTAG_ID"
 80 
   OraDatabase.Parameters.Remove "RTAG_ID"
80 
	OraDatabase.Parameters.remove "USER_ID"
 81 
   OraDatabase.Parameters.remove "USER_ID"
81 
	OraDatabase.Parameters.remove "DESCRIPTION"
 82 
   OraDatabase.Parameters.remove "DESCRIPTION"
82 
	OraDatabase.Parameters.remove "ACTION_TYPE_NAME"
 83 
   OraDatabase.Parameters.remove "ACTION_TYPE_NAME"
83 
End Sub
 84 
End Sub
84 
%>
 85 
%>
85 
<%
 86 
<%
86 
'-----------------------  MAIN LINE  ---------------------------
 87 
'-----------------------  MAIN LINE  ---------------------------
87 
 
 88 
 
88 
'--- Process submition ---
 89 
'--- Process submition ---
89 
If (Request("pv_id") <> "") AND (Request("dpv_id") <> "") Then
 90 
If (Request("pv_id") <> "") AND (Request("dpv_id") <> "") Then
90 
	' All mendatory parameters FOUND
 91 
   ' All mendatory parameters FOUND
91 
	Call Remove_Build_Dependency( Request("pv_id"), Request("dpv_id") )
 92 
   Call Remove_Build_Dependency( Request("pv_id"), Request("dpv_id") )
92
93 
 
93 
	Response.Redirect("dependencies.asp?pv_id="& QStrPar("pv_id") &"&rtag_id="& Request("rtag_id"))
 94 
   Response.Redirect("dependencies.asp?pv_id="& QStrPar("pv_id") &"&rtag_id="& Request("rtag_id"))
94 
Else
 95 
Else
95 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 96 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
96 
	Response.write QSTR_All
97 
   Response.write QSTR_All
97 
End If
 98 
End If
98 
%>
 99 
%>
99 
 
 100 
 
100 
<!-- DESTRUCTOR ------->
 101 
<!-- DESTRUCTOR ------->
101 
<!--#include file="common/destructor.asp"-->
 - 
 
102 

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

          

          

            -
            
 

            103