WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/_wform_deprecate_package.asp

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 Option explicit
-Response.Expires = 0	' always load the page, dont store
+Response.Expires = 0   ' always load the page, dont store
 %>
 <%
 '=====================================================
-'					Change Previous Version
+'               Change Previous Version
 '=====================================================
 %>
 <!--#include file="common/conf.asp"-->
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/qstr.asp"-->
 parRfile = QStrPar("rfile")
 '----------------------------------------------
 %>
 <%
 Sub Short_Pkg_Info ( NNpv_id )
-	Dim rsTemp, Query_String
+   Dim rsTemp, Query_String
-	Query_String = _
+   Query_String = _
-	" SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_id, pv.last_pv_id"&_
+   " SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_id, pv.last_pv_id"&_
-	"   FROM packages pkg, package_versions pv"&_
+   "   FROM packages pkg, package_versions pv"&_
-	"  WHERE pkg.pkg_id = pv.pkg_id"&_
+   "  WHERE pkg.pkg_id = pv.pkg_id"&_
-	"    AND pv.pv_id = "& NNpv_id
+   "    AND pv.pv_id = "& NNpv_id
-	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
-	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
+   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
-		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
+      pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
-		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
+      pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
-		pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))
+      pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))
-	End If
+   End If
-	rsTemp.Close
+   rsTemp.Close
-	Set rsTemp = nothing
+   Set rsTemp = nothing
 End Sub
 Sub Deprecate_Package ( NNpv_id)
-	Dim rsTemp, Query_String
+   Dim rsTemp, Query_String
-	'If nLast_pv_id = "" Then nLast_pv_id = NULL
+   'If nLast_pv_id = "" Then nLast_pv_id = NULL
-	Set rsTemp = OraDatabase.DbCreateDynaset("SELECT PKG.PKG_ID, PKG.pkg_name FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID = "&NNpv_id, cint(0))
+   Set rsTemp = OraDatabase.DbCreateDynaset("SELECT PKG.PKG_ID, PKG.pkg_name FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PKG.PKG_ID = PV.PKG_ID AND PV.PV_ID = "&NNpv_id, cint(0))
-	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "RTAG_ID",       Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.Parameters.Add "PKG_ID", 		rsTemp("pkg_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "PKG_ID",       rsTemp("pkg_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.Parameters.Add "COMMENTS", 		Request("pv_overview"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
+   OraDatabase.Parameters.Add "COMMENTS",       Request("pv_overview"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
-	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "PV_ID",       Request("pv_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
-	OraSession.BeginTrans
+   On Error Resume Next
+   objEH.TryORA ( OraSession )
-	OraDatabase.ExecuteSQL _
+   OraDatabase.ExecuteSQL _
-	"BEGIN   Deprecate_Package ( :PV_ID, :RTAG_ID, :PKG_ID, :COMMENTS, :USER_ID );   END;"
+   "BEGIN   Deprecate_Package ( :PV_ID, :RTAG_ID, :PKG_ID, :COMMENTS, :USER_ID );   END;"
-	OraSession.CommitTrans
-	OraSession.BeginTrans
+   If Err.Number = 0 Then
-	OraDatabase.ExecuteSQL _
+      OraDatabase.ExecuteSQL _
-	"BEGIN   Log_Action ( :PV_ID, 'deprecate_package', :USER_ID );   END;"
+      "BEGIN   Log_Action ( :PV_ID, 'deprecate_package', :USER_ID );   END;"
+   End If
-	OraSession.CommitTrans
+   objEH.CatchORA ( OraSession )
-	OraDatabase.Parameters.Remove "RTAG_ID"
+   OraDatabase.Parameters.Remove "RTAG_ID"
-	OraDatabase.Parameters.Remove "PKG_ID"
+   OraDatabase.Parameters.Remove "PKG_ID"
-	OraDatabase.Parameters.Remove "COMMENTS"
+   OraDatabase.Parameters.Remove "COMMENTS"
-	OraDatabase.Parameters.Remove "USER_ID"
+   OraDatabase.Parameters.Remove "USER_ID"
-	OraDatabase.Parameters.Remove "PV_ID"
+   OraDatabase.Parameters.Remove "PV_ID"
-	rsTemp.Close
+   rsTemp.Close
-	Set rsTemp = nothing
+   Set rsTemp = nothing
 End Sub
 %>
 <%
 'Process submition
 If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn AND Request("pv_overview") <> "" Then
-	Call Deprecate_Package ( parPv_id)
+   Call Deprecate_Package ( parPv_id)
-	Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
+   Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
-	Call CloseWindow
+   Call CloseWindow
 End If
 %>
 <%
 Call Short_Pkg_Info ( parPv_id )
 %>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 <form name="deprecatepackage" method="post" action="<%=scriptName%>">
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
     <tr>
       <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_off.gif" width="18" height="23" hspace="5"></td>
       <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;How
         to migrate from a Deprecated Package  </td>
       <td background="images/lbox_bg_blue.gif" align="right" width="50%">
         <input type="submit" name="btn" value="Submit" class="form_btn_comp">
         <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
       </td>
       <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
     </tr>
     <tr>
       <td height="100%" width="1%">&nbsp;</td>
       <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
           <tr>
             <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
             <td width="1%" nowrap class="form_group" valign="bottom"></td>
             <td nowrap width="100%">&nbsp; </td>
           </tr>
           <tr>
             <td width="1%">&nbsp;</td>
             <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
             <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
               <%=pkgInfoHash.Item ("pkg_name")%></td>
             <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt"></td>
           </tr>
           <tr>
             <td width="1%">&nbsp;</td>
             <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Migration
               Instructions </td>
             <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
-			<%
+         <%
-			Dim rsTemp
+         Dim rsTemp
-			Set rsTemp = OraDatabase.DbCreateDynaset("SELECT COMMENTS FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND V_EXT ='"& pkgInfoHash.Item ("v_ext") &"' AND PKG_ID ="& pkgInfoHash.Item ("pkg_id") &"", cint(0))
+         Set rsTemp = OraDatabase.DbCreateDynaset("SELECT COMMENTS FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& Request("rtag_id") &" AND V_EXT ='"& pkgInfoHash.Item ("v_ext") &"' AND PKG_ID ="& pkgInfoHash.Item ("pkg_id") &"", cint(0))
-			%>
+         %>
-			<textarea name="pv_overview" cols="60" rows="10" class="form_item" id="pv_overview"><%=rsTemp("comments")%></textarea>
+         <textarea name="pv_overview" cols="60" rows="10" class="form_item" id="pv_overview"><%=rsTemp("comments")%></textarea>
-			<input type="hidden" name="pv_id" value="<%=parPv_id%>">
+         <input type="hidden" name="pv_id" value="<%=parPv_id%>">
-			<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
+         <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
-			<input type="hidden" name="rfile" value="<%=parRfile%>">
+         <input type="hidden" name="rfile" value="<%=parRfile%>">
-			<input type="hidden" name="action" value="true">
+         <input type="hidden" name="action" value="true">
             </td>
-			<%If NOT IsNull(rsTemp("comments")) Then%>
+         <%If NOT IsNull(rsTemp("comments")) Then%>
-				<td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif"></td>
+            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif"></td>
-			<%Else%>
+         <%Else%>
-            	<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field style1">Required!</td>
+               <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field style1">Required!</td>
-			<%End If%>
+         <%End If%>
-			<%
+         <%
-			rsTemp.Close()
+         rsTemp.Close()
-			Set rsTemp = nothing
+         Set rsTemp = nothing
-			%>
+         %>
           </tr>
           <tr>
             <td width="1%">&nbsp;</td>
             <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
             <td nowrap width="100%">
               <p>&nbsp;</p>
             </td>
           </tr>
         </table>
       </td>
 </body>
 </html>
 <!-- DESTRUCTOR ------->
-<!--#include file="common/destructor.asp"-->
 <!--#include file="common/destructor.asp"-->

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_deprecate_package.asp @ 171 – Rev 119 → 129