WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/_wform_add_missing_dependency.asp

 'Dim parRtag_id
 Dim parRfile
 Dim parView_id
 Dim parBase_view_id
 Dim bPreventSubmit
+Dim sMessage
 '------------ Constants Declaration -----------
 '------------ Constants Declaration -----------
 Const imgPkgLocked = "<img src='images/i_locked.gif' width='7' height='10' hspace='4' align='absmiddle'>"
 Const imgPkgLockSpacer = "<img src='images/spacer.gif' width='7' height='10' hspace='4' align='absmiddle'>"
 '------------ Variable Init -------------------
 parRtag_id = QStrPar("rtag_id")
 parRfile = Request("rfile")
 parView_id = QStrPar("view_id")
 parBase_view_id = QStrPar("base_view_id")
 bPreventSubmit = false
+sMessage = NULL
 '----------------------------------------------
 %>
 <%
 Sub Get_Pkg_Information ( NNpv_id)
    Dim rsTemp, Query_String
    OraDatabase.Parameters.Add "RTAG_ID", RtagId,                  ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "PV_ID",   pvId,                    ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "VIEW_ID", viewId,                  ORAPARM_INPUT, ORATYPE_NUMBER
+   objEH.ErrorRedirect = FALSE
+   On Error Resume Next
    objEH.TryORA ( OraSession )
-   ' check if the package already exists in a pending or wip state
-   If PackageExists(RtagId, pvId, "planned") Then
-     Call RaiseMsg ( enum_WMSG_ERROR, "Package " & pkgInfoHash.Item ("pkg_name") & " " & pkgInfoHash.Item ("pkg_version") & " already exists in a pending state")
-   ElseIf PackageExists(RtagId, pvId, "work_in_progress") Then
-     Call RaiseMsg ( enum_WMSG_ERROR, "Package " & pkgInfoHash.Item ("pkg_name") & " " & pkgInfoHash.Item ("pkg_version") & " already exists as a WIP")
-   End If
   OraDatabase.ExecuteSQL _
-  "BEGIN   PK_PLANNED.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID );   END;"
+    "BEGIN   PK_PLANNED.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID );   END;"
    If Err.Number = 0 Then
      OraDatabase.ExecuteSQL _
      "BEGIN   PK_RELEASE.ADD_PACKAGE ( :PV_ID, :VIEW_ID, :RTAG_ID, :USER_ID );   END;"
    End If
     "   AND bv.BASE_VIEW_ID (+) = vi.VIEW_ID "&_
     "ORDER BY vi.view_name ASC"
 End Function
-%>
+Call Get_Pkg_Information ( parPv_id)
-<%
-'Process submition
-If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn Then
+' check if the package already exists in a pending or wip state
-   Call Add_Missing_Dependency(parRtag_id,parPv_id,parView_id)
+If PackageExists(parRtag_id,parPv_id, "planned") Then
-   Call OpenInParentWindow ( "dependencies.asp?pv_id="& parPPv_id &"&rtag_id="& parRtag_id )
+     sMessage = "Package " & pkgInfoHash.Item ("pkg_name") & " " & pkgInfoHash.Item ("pkg_version") & " already exists in a pending state"
-   Call CloseWindow
+ElseIf PackageExists(parRtag_id,parPv_id, "work_in_progress") Then
+     sMessage = "Package " & pkgInfoHash.Item ("pkg_name") & " " & pkgInfoHash.Item ("pkg_version") & " already exists as a WIP"
+ElseIf CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn Then
+    'Process submition
+   Call Add_Missing_Dependency(parRtag_id,parPv_id,parView_id)
+   If objEH.Finally Then
+    Call OpenInParentWindow ( "dependencies.asp?pv_id="& parPPv_id &"&rtag_id="& parRtag_id )
+    Call CloseWindow
+   End If
 End If
 %>
-<%
-Call Get_Pkg_Information ( parPv_id)
-%>
 <html>
 <head>
 <title>Release Manager</title>
 <link rel="shortcut icon" href="<%=FavIcon%>"/>
 <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 <script language="JavaScript" src="images/_help_tips.js"></script>
 <script language="JavaScript" src="images/common.js"></script>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
-<form name="addmissingdep" method="post" action="<%=scriptName%>">
+<form class="form_tight" name="addmissingdep" method="post" action="<%=scriptName%>">
-   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
+   <table width="100%" border="0" cellspacing="0" cellpadding="2">
       <tr>
-         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_add_deps.gif" width="22" height="25" hspace="5"></td>
-         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Add Missing Dependency</td>
-         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
-            <input type="submit" name="btn" value="Add" style="width:50" class="form_btn_comp">
-            <input type="reset" name="btn" value="Cancel" style="width:50" 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">
+           <!-- LOCAL ERROR +++++++++++++++++++++++++++++++++++++++++++++++ -->
+           <%Call Messenger ( sMessage , 3, "100%" )%>
+           <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+           <!--#include file="messages/_msg_inline.asp"-->
             <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">Details of Dependency that will be Added:</td>
                   <td nowrap width="100%">&nbsp; </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">
                      <%=imgPkgLockSpacer%>
                      <%=pkgInfoHash.Item("pkg_name")%>
                   </td>
                </tr>
                <tr>
-                  <td width="1%">&nbsp;</td>
                   <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Version</td>
                   <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
                      <%If pkgInfoHash.Item("dlocked") = "Y" Then%><%=imgPkgLocked%><%Else%><%=imgPkgLockSpacer%><%End If%>
                      <%=pkgInfoHash.Item("pkg_version")%>
                   </td>
                </tr>
                <tr>
-                  <td width="1%">&nbsp;</td>
                   <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Last Modified</td>
                   <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
                      <%=imgPkgLockSpacer%>
                      <%=EuroDateTime(pkgInfoHash.Item ("modified_stamp")) & " by " & pkgInfoHash.Item ("modifier")%>
                   </td>
                </tr>
                <tr>
-                  <td width="1%">&nbsp;</td>
                   <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Created</td>
                   <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
                      <%=imgPkgLockSpacer%>
                      <%=EuroDateTime(pkgInfoHash.Item ("created_stamp")) & " by " & pkgInfoHash.Item ("creator")%>
                   </td>
                </tr>
                <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">Select Destination View</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" valign=top>Base View</td>
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
                    <table border=0 cellpadding=0 cellspacing=0 class="rep_small">
                      <tr>
                        <td>
                </tr>
             </table>
          </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%" wrap class="form_group" valign="bottom">
                      WARNING:<br>
                </tr>
             </table>
          </td>
       </tr>
       <tr>
-         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
+         <td align="right" width="50%">
+            <input type="submit" name="btn" value="Add" style="width:50" <%=iif(isNull(sMessage), "", "disabled")%> class="<%=iif(isNull(sMessage), "form_btn_comp", "form_btn_comp_disabled")%>">
-         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
+            <input type="reset" name="btn" value="Cancel" style="width:50" class="form_btn_comp" onclick="parent.closeIFrame();">
+         </td>
       </tr>
    </table>
 </form>
 <!-- TIPS LAYERS -------------------------------------->
 <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_wform_add_missing_dependency.asp – Rev 5506 → 5607