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 
' 			 	   Add
4 
'                 Add
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 35... Line 35...
35 
If InStr( 1, Request("btn"), "YES", 1 ) > 0 Then OverideWarnings = "Y"
 35 
If InStr( 1, Request("btn"), "YES", 1 ) > 0 Then OverideWarnings = "Y"
36 
 
 36 
 
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
%>
 38 
%>
39 
<%
 39 
<%
40 
Sub AddReleaseReference	( nRtagId, nRefRtagId, outProblemsString )
 40 
Sub AddReleaseReference   ( nRtagId, nRefRtagId, outProblemsString )
41
41 
 
42 
	OraDatabase.Parameters.Add "RTAG_ID", 			nRtagId, 		ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "RTAG_ID",        nRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "REF_RTAG_ID", 		nRefRtagId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 43 
   OraDatabase.Parameters.Add "REF_RTAG_ID",    nRefRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
44 
	OraDatabase.Parameters.Add "PROBLEM_STRING", 	NULL, 			ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 44 
   OraDatabase.Parameters.Add "PROBLEM_STRING", NULL,       ORAPARM_OUTPUT, ORATYPE_VARCHAR2
45
- 
 
46
45 
 
- 
 
 46 
   objEH.TryORA ( OraSession )
47 
	OraSession.BeginTrans
 47 
   On Error Resume Next
48
48 
 
49 
	OraDatabase.ExecuteSQL _
 49 
   OraDatabase.ExecuteSQL _
50 
	" BEGIN "&_
 50 
   " BEGIN "&_
51 
	" 	PK_RELEASE.ADD_RELEASE_REFERENCE ( :RTAG_ID, :REF_RTAG_ID, :PROBLEM_STRING ); "&_
 51 
   "    PK_RELEASE.ADD_RELEASE_REFERENCE ( :RTAG_ID, :REF_RTAG_ID, :PROBLEM_STRING ); "&_
52 
	" END; "
 52 
   " END; "
53
53 
 
54 
	OraSession.CommitTrans
 54 
   objEH.CatchORA ( OraSession )
55
55 
 
56 
	outProblemsString = OraDatabase.Parameters("PROBLEM_STRING").Value
56 
   outProblemsString = OraDatabase.Parameters("PROBLEM_STRING").Value
57
- 
 
58
57 
 
59 
	OraDatabase.Parameters.Remove "RTAG_ID"
 58 
   OraDatabase.Parameters.Remove "RTAG_ID"
60 
	OraDatabase.Parameters.Remove "REF_RTAG_ID"
 59 
   OraDatabase.Parameters.Remove "REF_RTAG_ID"
61 
	OraDatabase.Parameters.Remove "PROBLEM_STRING"
 60 
   OraDatabase.Parameters.Remove "PROBLEM_STRING"
62 
End Sub
 61 
End Sub
63 
%>
 62 
%>
64 
<%
 63 
<%
65 
'-----------------------  MAIN LINE  ---------------------------
 64 
'-----------------------  MAIN LINE  ---------------------------
66 
 
 65 
 
67 
'------ ACCESS CONTROL ----------
 66 
'------ ACCESS CONTROL ----------
68 
If NOT objAccessControl.IsVisible("AddReleaseReference") Then
 67 
If NOT objAccessControl.IsVisible("AddReleaseReference") Then
69 
	Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
 68 
   Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
70 
End If
 69 
End If
71 
'--------------------------------
 70 
'--------------------------------
72 
 
 71 
 
73 
If (Request("RefRtag_id") <> "")  AND  (Request("ToRtag_id") <> "") Then
 72 
If (Request("RefRtag_id") <> "")  AND  (Request("ToRtag_id") <> "") Then
74
73 
 
75 
	'--- Process submition ---
 74 
   '--- Process submition ---
76 
	Call AddReleaseReference ( Request("ToRtag_id"), Request("RefRtag_id"), ProblemsString )
 75 
   Call AddReleaseReference ( Request("ToRtag_id"), Request("RefRtag_id"), ProblemsString )
77
76 
 
78 
	If IsNull( ProblemsString ) Then
 77 
   If IsNull( ProblemsString ) Then
79 
		Response.Redirect( "dependencies.asp?rtag_id="& Request("ToRtag_id") )
 78 
      Response.Redirect( "dependencies.asp?rtag_id="& Request("ToRtag_id") )
80 
	End If
 79 
   End If
81
80 
 
82 
Else
 81 
Else
83
82 
 
84 
	Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
 83 
   Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
85
84 
 
86 
End If
 85 
End If
87 
 
 86 
 
88 
'----------------------------------------------------------------
 87 
'----------------------------------------------------------------
89 
%>
 88 
%>
90 
 
 89 
 
Line 102... Line 101...
102 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 101 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
103 
<!-- BODY ---->
 102 
<!-- BODY ---->
104 
 
 103 
 
105 
 
 104 
 
106 
<table width="100%" height="98%"  border="0" cellpadding="0" cellspacing="0">
 105 
<table width="100%" height="98%"  border="0" cellpadding="0" cellspacing="0">
107 
  <tr>
 106 
   <tr>
108 
    <td align="center" valign="middle" background="images/bg_form_lightgray.gif"><table width="650" border="0" cellspacing="0" cellpadding="0">
 107 
      <td align="center" valign="middle" background="images/bg_form_lightgray.gif">
109 
      <tr>
 - 
 
110 
        <td>
 - 
 
111 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 108 
         <table width="650" border="0" cellspacing="0" cellpadding="0">
112 
            <tr>
 - 
 
113 
              <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>
 - 
 
114 
              <td background="images/lbox_bg_blue.gif"><!-- Heading -->
 - 
 
115 
                  <img src="images/h_trsp_dot.gif" width="1" height="20">
 - 
 
116 
                  <!-- END Heading --></td>
 - 
 
117 
              <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>
 - 
 
118 
            </tr>
 - 
 
119 
            <tr>
 - 
 
120 
              <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 - 
 
121 
              <td bgcolor="#FFFFFF" valign="top">
 - 
 
122 
                <!-- Body -->
 - 
 
123 
                <table width="100%" border="0" cellspacing="1" cellpadding="2">
 - 
 
124 
                  <form name="form" method="get" action="<%=ScriptName%>">
 - 
 
125 
                    <tr>
 - 
 
126 
                      <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
 - 
 
127 
                      <td width="1%" nowrap class="form_group" valign="bottom"></td>
 - 
 
128 
                      <td nowrap width="100%" align="right" class="form_step"></td>
 - 
 
129 
                    </tr>
 - 
 
130 
                    <tr>
 - 
 
131 
                      <td width="1%">&nbsp;</td>
 - 
 
132 
                      <td colspan="2" width="1%" nowrap class="form_field">
 - 
 
133 
                        <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 - 
 
134 
                          <tr>
 - 
 
135 
                            <td background="images/bg_form_lightbluedark.gif"><p class="err_ttl">Please note:</p></td>
 - 
 
136 
                          </tr>
 - 
 
137 
                          <tr>
 - 
 
138 
                            <td background="images/bg_form_lightgray.gif" class="form_item">
 - 
 
139 
							<%
 - 
 
140 
							' Format problem report string to html
 - 
 
141 
							Response.write Replace( Server.HTMLEncode( ProblemsString ), VBNewLine, "<br>" )
 - 
 
142 
							%>
 - 
 
143 
							</td>
 - 
 
144 
                          </tr>
 - 
 
145 
                          <tr>
 - 
 
146 
                            <td background="images/bg_form_lightgray.gif" class="form_item">This action will be cancelled ? </td>
 - 
 
147 
                          </tr>
 - 
 
148 
                      </table></td>
 - 
 
149 
                    </tr>
 - 
 
150 
                    <tr>
 - 
 
151 
                      <td width="1%">&nbsp;</td>
 - 
 
152 
                      <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 - 
 
153 
                      <td nowrap width="100%" class="body_scol">
 - 
 
154 
					  	<br>
 - 
 
155 
                        <input type="reset" name="btn" value="   OK   " class="form_btn" onClick="history.back();">
 - 
 
156 
                        <br><br>
 - 
 
157 
                      </td>
 - 
 
158 
                    </tr>
 - 
 
159 
					<%=objPMod.ComposeHiddenTags()%>
 - 
 
160 
                  </form>
 - 
 
161 
                </table>
 - 
 
162 
                <!-- END Body-->
 - 
 
163 
              </td>
 - 
 
164 
              <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
165 
            </tr>
 - 
 
166 
            <tr>
 109 
            <tr>
- 
 
 110 
               <td>
- 
 
 111 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 112 
                     <tr>
- 
 
 113 
                        <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>
- 
 
 114 
                        <td background="images/lbox_bg_blue.gif"><!-- Heading -->
- 
 
 115 
                        <img src="images/h_trsp_dot.gif" width="1" height="20">
- 
 
 116 
                        <!-- END Heading --></td>
- 
 
 117 
                        <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>
- 
 
 118 
                     </tr>
- 
 
 119 
                     <tr>
- 
 
 120 
                        <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
- 
 
 121 
                        <td bgcolor="#FFFFFF" valign="top">
- 
 
 122 
                           <!-- Body -->
- 
 
 123 
                           <table width="100%" border="0" cellspacing="1" cellpadding="2">
- 
 
 124 
                              <form name="form" method="get" action="<%=ScriptName%>">
- 
 
 125 
                                 <tr>
- 
 
 126 
                                    <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
- 
 
 127 
                                    <td width="1%" nowrap class="form_group" valign="bottom"></td>
- 
 
 128 
                                    <td nowrap width="100%" align="right" class="form_step"></td>
- 
 
 129 
                                 </tr>
- 
 
 130 
                                 <tr>
- 
 
 131 
                                    <td width="1%">&nbsp;</td>
- 
 
 132 
                                    <td colspan="2" width="1%" nowrap class="form_field">
- 
 
 133 
                                       <table width="100%"  border="0" cellspacing="0" cellpadding="10">
- 
 
 134 
                                          <tr>
- 
 
 135 
                                             <td background="images/bg_form_lightbluedark.gif"><p class="err_ttl">Please note:</p></td>
- 
 
 136 
                                          </tr>
- 
 
 137 
                                          <tr>
- 
 
 138 
                                             <td background="images/bg_form_lightgray.gif" class="form_item">
- 
 
 139 
                                                <%
- 
 
 140 
                                                ' Format problem report string to html
- 
 
 141 
                                                Response.write Replace( Server.HTMLEncode( ProblemsString ), VBNewLine, "<br>" )
- 
 
 142 
                                                %>
- 
 
 143 
                                             </td>
- 
 
 144 
                                          </tr>
- 
 
 145 
                                          <tr>
- 
 
 146 
                                             <td background="images/bg_form_lightgray.gif" class="form_item">This action will be cancelled ? </td>
- 
 
 147 
                                          </tr>
- 
 
 148 
                                       </table>
- 
 
 149 
                                    </td>
- 
 
 150 
                                 </tr>
- 
 
 151 
                                 <tr>
- 
 
 152 
                                    <td width="1%">&nbsp;</td>
- 
 
 153 
                                    <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
- 
 
 154 
                                    <td nowrap width="100%" class="body_scol">
- 
 
 155 
                                       <br>
- 
 
 156 
                                       <input type="reset" name="btn" value="   OK   " class="form_btn" onClick="history.back();">
- 
 
 157 
                                       <br><br>
- 
 
 158 
                                    </td>
- 
 
 159 
                                 </tr>
- 
 
 160 
                                 <%=objPMod.ComposeHiddenTags()%>
- 
 
 161 
                              </form>
- 
 
 162 
                           </table>
- 
 
 163 
                           <!-- END Body-->
- 
 
 164 
                        </td>
- 
 
 165 
                        <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
- 
 
 166 
                     </tr>
- 
 
 167 
                     <tr>
167 
              <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 168 
                        <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
168 
              <td background="images/lbox_bg_blue.gif"></td>
 169 
                        <td background="images/lbox_bg_blue.gif"></td>
169 
              <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>
 170 
                        <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>
- 
 
 171 
                     </tr>
- 
 
 172 
                  </table>
- 
 
 173 
               </td>
170 
            </tr>
 174 
            </tr>
171 
        </table></td>
 175 
         </table>
172 
      </tr>
 176 
      </td>
173 
    </table></td>
 - 
 
174 
  </tr>
 177 
   </tr>
175 
</table>
 178 
</table>
176 
</body>
 179 
</body>
177 
</html>
 180 
</html>
178 
 
 181 
 
179 
 
 182 
 
180 
<!-- DESTRUCTOR ------->
 183 
<!-- DESTRUCTOR ------->
181 
<!--#include file="common/destructor.asp"-->
 - 
 
182 

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

          

          

            -
            
 

            185