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 
' 			 	   Destroy Package
 4 
'                 Destroy Package
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 36... Line 36...
36 
 
 36 
 
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
%>
 38 
%>
39 
<%
 39 
<%
40 
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
 40 
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
41
41 
 
42 
	OraDatabase.Parameters.Add "PV_ID", 			nPvId, 	ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "PV_ID",             nPvId,             ORAPARM_INPUT,  ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "OVERRIDE_WARNINGS", cOverrideWarnings, 	ORAPARM_INPUT, ORATYPE_CHAR
 43 
   OraDatabase.Parameters.Add "OVERRIDE_WARNINGS", cOverrideWarnings, ORAPARM_INPUT,  ORATYPE_CHAR
44 
	OraDatabase.Parameters.Add "PROBLEM_STRING", 	NULL, 	ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 44 
   OraDatabase.Parameters.Add "PROBLEM_STRING",    NULL,              ORAPARM_OUTPUT, ORATYPE_VARCHAR2
45
45 
 
46 
	'Response.write nPvId &"-"& cOverrideWarnings &"-"& Request("btn")
 46 
   'Response.write nPvId &"-"& cOverrideWarnings &"-"& Request("btn")
47
47 
 
- 
 
 48 
   objEH.TryORA ( OraSession )
48 
	OraSession.BeginTrans
 49 
   On Error Resume Next
49
50 
 
50 
	OraDatabase.ExecuteSQL _
 51 
   OraDatabase.ExecuteSQL _
51 
	"BEGIN "&_
 52 
   "BEGIN "&_
52 
	" PK_PACKAGE.DESTROY_PACKAGE ( :PV_ID, :OVERRIDE_WARNINGS, :PROBLEM_STRING ); "&_
 53 
   " PK_PACKAGE.DESTROY_PACKAGE ( :PV_ID, :OVERRIDE_WARNINGS, :PROBLEM_STRING ); "&_
53 
	"END; "
 54 
   "END; "
54
55 
 
55 
	OraSession.CommitTrans
 56 
   objEH.CatchORA ( OraSession )
56
57 
 
57 
	outProblemsString = OraDatabase.Parameters("PROBLEM_STRING").Value
58 
   outProblemsString = OraDatabase.Parameters("PROBLEM_STRING").Value
58
- 
 
59
59 
 
60 
	OraDatabase.Parameters.Remove "PV_ID"
 60 
   OraDatabase.Parameters.Remove "PV_ID"
61 
	OraDatabase.Parameters.Remove "OVERRIDE_WARNINGS"
 61 
   OraDatabase.Parameters.Remove "OVERRIDE_WARNINGS"
62 
	OraDatabase.Parameters.Remove "PROBLEM_STRING"
 62 
   OraDatabase.Parameters.Remove "PROBLEM_STRING"
63 
End Sub
 63 
End Sub
64 
%>
 64 
%>
65 
<%
 65 
<%
66 
'-----------------------  MAIN LINE  ---------------------------
 66 
'-----------------------  MAIN LINE  ---------------------------
67 
 
 67 
 
Line 76... Line 76...
76 
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
 76 
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
77 
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
 77 
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
78 
Call objPMod.StoreParameter ( "listby", Request("listby") )
 78 
Call objPMod.StoreParameter ( "listby", Request("listby") )
79 
 
 79 
 
80 
If objPMod.GetParamValue("pv_id") Then
 80 
If objPMod.GetParamValue("pv_id") Then
81
81 
 
82 
	'--- Process submition ---
 82 
   '--- Process submition ---
83 
	Call DestroyPackage ( objPMod.GetParamValue("pv_id"), OverideWarnings, ProblemsString )
 83 
   Call DestroyPackage ( objPMod.GetParamValue("pv_id"), OverideWarnings, ProblemsString )
84
84 
 
85 
	If IsNull( ProblemsString ) Then
 85 
   If IsNull( ProblemsString ) Then
86 
		Response.Redirect( objPMod.GetParamValue("bfile") &"?DESTROYED=OK"& objPMod.ComposeURLWithout("bfile,pv_id") )
 86 
      Response.Redirect( objPMod.GetParamValue("bfile") &"?DESTROYED=OK"& objPMod.ComposeURLWithout("bfile,pv_id") )
87 
	End If
 87 
   End If
88
88 
 
89 
Else
 89 
Else
90
90 
 
91 
	Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
 91 
   Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
92
92 
 
93 
End If
 93 
End If
94 
 
 94 
 
95 
'----------------------------------------------------------------
 95 
'----------------------------------------------------------------
96 
%>
 96 
%>
97 
 
 97 
 
Line 109... Line 109...
109 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 109 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
110 
<!-- BODY ---->
 110 
<!-- BODY ---->
111 
 
 111 
 
112 
 
 112 
 
113 
<table width="100%" height="98%"  border="0" cellpadding="0" cellspacing="0">
 113 
<table width="100%" height="98%"  border="0" cellpadding="0" cellspacing="0">
114 
  <tr>
 114 
   <tr>
115 
    <td align="center" valign="middle" background="images/bg_form_lightgray.gif"><table width="650" border="0" cellspacing="0" cellpadding="0">
 115 
      <td align="center" valign="middle" background="images/bg_form_lightgray.gif">
116 
      <tr>
 - 
 
117 
        <td>
 - 
 
118 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 116 
         <table width="650" border="0" cellspacing="0" cellpadding="0">
119 
            <tr>
 - 
 
120 
              <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 - 
 
121 
              <td background="images/lbox_bg_blue.gif"><!-- Heading -->
 - 
 
122 
                  <img src="images/h_trsp_dot.gif" width="1" height="20">
 - 
 
123 
                  <!-- END Heading --></td>
 - 
 
124 
              <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 - 
 
125 
            </tr>
 - 
 
126 
            <tr>
 - 
 
127 
              <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 - 
 
128 
              <td bgcolor="#FFFFFF" valign="top">
 - 
 
129 
                <!-- Body -->
 - 
 
130 
                <table width="100%" border="0" cellspacing="1" cellpadding="2">
 - 
 
131 
                  <form name="form" method="get" action="<%=ScriptName%>">
 - 
 
132 
                    <tr>
 - 
 
133 
                      <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
 - 
 
134 
                      <td width="1%" nowrap class="form_group" valign="bottom"></td>
 - 
 
135 
                      <td nowrap width="100%" align="right" class="form_step"></td>
 - 
 
136 
                    </tr>
 - 
 
137 
                    <tr>
 - 
 
138 
                      <td width="1%">&nbsp;</td>
 - 
 
139 
                      <td colspan="2" width="1%" nowrap class="form_field">
 - 
 
140 
                        <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 - 
 
141 
                          <tr>
 - 
 
142 
                            <td background="images/bg_form_lightbluedark.gif"><p class="err_ttl">Please note:</p></td>
 - 
 
143 
                          </tr>
 - 
 
144 
                          <tr>
 - 
 
145 
                            <td background="images/bg_form_lightgray.gif" class="form_item">
 - 
 
146 
							<%
 - 
 
147 
							' Format problem report string to html
 - 
 
148 
							Response.write Replace( Server.HTMLEncode( ProblemsString ), VBNewLine, "<br>" )
 - 
 
149 
							%>
 - 
 
150 
							</td>
 - 
 
151 
                          </tr>
 - 
 
152 
                          <tr>
 - 
 
153 
                            <td background="images/bg_form_lightgray.gif" class="form_item">Do you still want to proceed ? </td>
 - 
 
154 
                          </tr>
 - 
 
155 
                      </table></td>
 - 
 
156 
                    </tr>
 - 
 
157 
                    <tr>
 - 
 
158 
                      <td width="1%">&nbsp;</td>
 - 
 
159 
                      <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 - 
 
160 
                      <td nowrap width="100%" class="body_scol">
 - 
 
161 
					  	<br>
 - 
 
162 
                        <input type="submit" name="btn" value="  Yes  " class="form_btn">
 - 
 
163 
                        <input type="reset" name="btn" value="   No   " class="form_btn" onClick="history.back();">
 - 
 
164 
                        <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();">
 - 
 
165 
                        <br><br>
 - 
 
166 
                      </td>
 - 
 
167 
                    </tr>
 - 
 
168 
					<%=objPMod.ComposeHiddenTags()%>
 - 
 
169 
                  </form>
 - 
 
170 
                </table>
 - 
 
171 
                <!-- END Body-->
 - 
 
172 
              </td>
 - 
 
173 
              <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
174 
            </tr>
 - 
 
175 
            <tr>
 117 
            <tr>
- 
 
 118 
               <td>
- 
 
 119 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 120 
                     <tr>
- 
 
 121 
                        <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
- 
 
 122 
                        <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>
- 
 
 123 
                        <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
- 
 
 124 
                     </tr>
- 
 
 125 
                     <tr>
- 
 
 126 
                        <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
- 
 
 127 
                        <td bgcolor="#FFFFFF" valign="top">
- 
 
 128 
                           <!-- Body -->
- 
 
 129 
                           <table width="100%" border="0" cellspacing="1" cellpadding="2">
- 
 
 130 
                              <form name="form" method="get" action="<%=ScriptName%>">
- 
 
 131 
                                 <tr>
- 
 
 132 
                                    <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
- 
 
 133 
                                    <td width="1%" nowrap class="form_group" valign="bottom"></td>
- 
 
 134 
                                    <td nowrap width="100%" align="right" class="form_step"></td>
- 
 
 135 
                                 </tr>
- 
 
 136 
                                 <tr>
- 
 
 137 
                                    <td width="1%">&nbsp;</td>
- 
 
 138 
                                    <td colspan="2" width="1%" nowrap class="form_field">
- 
 
 139 
                                       <table width="100%"  border="0" cellspacing="0" cellpadding="10">
- 
 
 140 
                                          <tr>
- 
 
 141 
                                             <td background="images/bg_form_lightbluedark.gif"><p class="err_ttl">Please note:</p></td>
- 
 
 142 
                                          </tr>
- 
 
 143 
                                          <tr>
- 
 
 144 
                                             <td background="images/bg_form_lightgray.gif" class="form_item">
- 
 
 145 
                                                <%
- 
 
 146 
                                                ' Format problem report string to html
- 
 
 147 
                                                Response.write Replace( Server.HTMLEncode( ProblemsString ), VBNewLine, "<br>" )
- 
 
 148 
                                                %>
- 
 
 149 
                                             </td>
- 
 
 150 
                                          </tr>
- 
 
 151 
                                          <tr>
- 
 
 152 
                                             <td background="images/bg_form_lightgray.gif" class="form_item">Do you still want to proceed ? </td>
- 
 
 153 
                                          </tr>
- 
 
 154 
                                       </table>
- 
 
 155 
                                    </td>
- 
 
 156 
                                 </tr>
- 
 
 157 
                                 <tr>
- 
 
 158 
                                    <td width="1%">&nbsp;</td>
- 
 
 159 
                                    <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
- 
 
 160 
                                    <td nowrap width="100%" class="body_scol">
- 
 
 161 
                                       <br>
- 
 
 162 
                                       <input type="submit" name="btn" value="  Yes  " class="form_btn">
- 
 
 163 
                                       <input type="reset" name="btn" value="   No   " class="form_btn" onClick="history.back();">
- 
 
 164 
                                       <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();">
- 
 
 165 
                                       <br><br>
- 
 
 166 
                                    </td>
- 
 
 167 
                                 </tr>
- 
 
 168 
                                 <%=objPMod.ComposeHiddenTags()%>
- 
 
 169 
                              </form>
- 
 
 170 
                           </table>
- 
 
 171 
                           <!-- END Body-->
- 
 
 172 
                        </td>
- 
 
 173 
                        <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
- 
 
 174 
                     </tr>
- 
 
 175 
                     <tr>
176 
              <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 176 
                        <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
177 
              <td background="images/lbox_bg_blue.gif"></td>
 177 
                        <td background="images/lbox_bg_blue.gif"></td>
178 
              <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 178 
                        <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
- 
 
 179 
                     </tr>
- 
 
 180 
                  </table>
- 
 
 181 
               </td>
179 
            </tr>
 182 
            </tr>
180 
        </table></td>
 183 
         </table>
181 
      </tr>
 184 
      </td>
182 
    </table></td>
 - 
 
183 
  </tr>
 185 
   </tr>
184 
</table>
 186 
</table>
185 
</body>
 187 
</body>
186 
</html>
 188 
</html>
187 
 
 189 
 
188 
 
 190 
 
189 
<!-- DESTRUCTOR ------->
 191 
<!-- DESTRUCTOR ------->
190 
<!--#include file="common/destructor.asp"-->
 - 
 
191 

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

          

          

            -
            
 

            193