Subversion Repositories DevTools

Rev

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

Rev 5357 Rev 5472
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	Add Release				     |
 5 
'|                      Add Release                  |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
 12 
Response.Expires = 0    ' always load the page, dont store
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"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
Line 40... Line 40...
40 
'----------------------------------------------
 40 
'----------------------------------------------
41 
%>
 41 
%>
42 
<%
 42 
<%
43 
'--------------------------------------------------------------------------------------------------------------------------
 43 
'--------------------------------------------------------------------------------------------------------------------------
44 
Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )
 44 
Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )
45 
	Dim rsQry, query
 45 
    Dim rsQry, query
46
46
47 
	' Exit if nSourceRtagId is empty
 47 
    ' Exit if nSourceRtagId is empty
48 
	If nSourceRtagId = "" Then Exit Sub
48 
    If nSourceRtagId = "" Then Exit Sub
49
49
50
50
51 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID", 	nSourceRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
51 
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID",    nSourceRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
52
52
53 
	query = _
 53 
    query = _
54 
	" SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  AS LOCATION"&_
 54 
    " SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  AS LOCATION"&_
55 
	"  FROM RELEASE_TAGS rt,"&_
 55 
    "  FROM RELEASE_TAGS rt,"&_
56 
	"  	   PROJECTS pr"&_
 56 
    "      PROJECTS pr"&_
57 
	" WHERE rt.PROJ_ID = pr.PROJ_ID"&_
 57 
    " WHERE rt.PROJ_ID = pr.PROJ_ID"&_
58 
	"   AND rt.RTAG_ID = :SOURCE_RTAG_ID"
 58 
    "   AND rt.RTAG_ID = :SOURCE_RTAG_ID"
59
59
60 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 60 
    Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
61
61
62 
	OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
 62 
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
63
63
64
64
65
65
66 
	If rsQry.RecordCount > 0 Then
 66 
    If rsQry.RecordCount > 0 Then
67 
		outobjDetails.Item ("location") = rsQry("location")
 67 
        outobjDetails.Item ("location") = rsQry("location")
68
68
69 
	Else
 69 
    Else
70 
		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
 70 
        Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
71
71
72 
	End If
 72 
    End If
73
73
74
74
75 
	rsQry.Close
 75 
    rsQry.Close
76 
	Set rsQry = Nothing
 76 
    Set rsQry = Nothing
77 
End Sub
 77 
End Sub
78 
'--------------------------------------------------------------------------------------------------------------------------
 78 
'--------------------------------------------------------------------------------------------------------------------------
79 
Sub AddRelease ()
 79 
Sub AddRelease ()
80 
	On Error Resume Next
 80 
    On Error Resume Next
81
81
82 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID", 	Request("source_rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
82 
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID",    Request("source_rtag_id"),  ORAPARM_INPUT, ORATYPE_NUMBER
83 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
83 
    OraDatabase.Parameters.Add "PROJ_ID",           Request("proj_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
84 
	OraDatabase.Parameters.Add "RTAG_NAME", 		Request("rtag_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 84 
    OraDatabase.Parameters.Add "RTAG_NAME",         Request("rtag_name"),       ORAPARM_INPUT, ORATYPE_VARCHAR2
85 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION", 	Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 85 
    OraDatabase.Parameters.Add "RTAG_DESCRIPTION",  Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
86 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
86 
    OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "IS_BRANCH", 		Request("branch"), 	ORAPARM_INPUT, ORATYPE_CHAR
 87 
    OraDatabase.Parameters.Add "IS_BRANCH",         Request("branch"),  ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 88 
    OraDatabase.Parameters.Add "OMODE",             Request("mode"),    ORAPARM_INPUT, ORATYPE_CHAR
88
89
89 
	objEH.TryORA ( OraSession )
 90 
    objEH.TryORA ( OraSession )
90
91
91 
	OraDatabase.ExecuteSQL _
 - 
 
92 
	"BEGIN   PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID );   END;"
 92 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE );   END;"
93
93 
 
94 
	objEH.CatchORA ( OraSession )
 94 
    objEH.CatchORA ( OraSession )
95
95
96 
	OraDatabase.Parameters.Add "SOURCE_RTAG_ID"
 96 
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID"
97 
	OraDatabase.Parameters.Add "PROJ_ID"
 97 
    OraDatabase.Parameters.Add "PROJ_ID"
98 
	OraDatabase.Parameters.Add "RTAG_NAME"
 98 
    OraDatabase.Parameters.Add "RTAG_NAME"
99 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION"
 99 
    OraDatabase.Parameters.Add "RTAG_DESCRIPTION"
100 
	OraDatabase.Parameters.Add "USER_ID"
 100 
    OraDatabase.Parameters.Add "USER_ID"
101 
	OraDatabase.Parameters.Add "IS_BRANCH"
 101 
    OraDatabase.Parameters.Add "IS_BRANCH"
- 
 
 102 
    OraDatabase.Parameters.Add "OMODE"
102 
End Sub
 103 
End Sub
103 
'--------------------------------------------------------------------------------------------------------------------------
 104 
'--------------------------------------------------------------------------------------------------------------------------
104 
%>
 105 
%>
105 
<%
 106 
<%
106 
'------------ RUN BEFORE PAGE RENDER ----------
 107 
'------------ RUN BEFORE PAGE RENDER ----------
107 
' --- Get Form details from DB ---
 108 
' --- Get Form details from DB ---
108 
Call GetFormDetails ( parSourceRtagId, objFormCollector )
 109 
Call GetFormDetails ( parSourceRtagId, objFormCollector )
109 
 
 110 
 
110 
' --- Load Validation Rules ---
 111 
' --- Load Validation Rules ---
111 
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description"), OraDatabase )		' Load Validation Rules
 112 
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description"), OraDatabase )     ' Load Validation Rules
112 
 
 113 
 
113 
' --- Enter Form Validation Rule Changes here... ----
 114 
' --- Enter Form Validation Rule Changes here... ----
114 
'----------------------------------------------------
 115 
'----------------------------------------------------
115 
 
 116 
 
116 
' --- RUN onPostBack ---
 117 
' --- RUN onPostBack ---
117 
If Request("action") <> "" Then
 118 
If Request("action") <> "" Then
118 
	If objForm.IsValidOnPostBack Then
 119 
    If objForm.IsValidOnPostBack Then
119 
		' --- Form is Valid ---
 120 
        ' --- Form is Valid ---
120 
		Call AddRelease()
 121 
        Call AddRelease()
121
122
122 
		If objEH.Finally Then
 123 
        If objEH.Finally Then
123 
			Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
 124 
            Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
124 
		End If
 125 
        End If
125
126
126 
	End If
 127 
    End If
127
128
128 
End If
 129 
End If
129 
 
 130 
 
130 
'----------------------------------------------
 131 
'----------------------------------------------
131 
%>
 132 
%>
132 
 
 133 
 
Line 163... Line 164...
163 
objFormComponent.Action = ScriptName
 164 
objFormComponent.Action = ScriptName
164 
Call objFormComponent.FormStart()
 165 
Call objFormComponent.FormStart()
165 
%>
 166 
%>
166 
  <tr>
167 
  <tr>
167 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
 168 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
168 
	</td>
 169 
    </td>
169 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
 170 
    <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
170 
      <tr>
 171 
      <tr>
171 
        <td width="1%"></td>
 172 
        <td width="1%"></td>
172 
        <td width="100%">
 173 
        <td width="100%">
173 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 174 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
174 
            <tr>
 175 
            <tr>
Line 184... Line 185...
184 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 185 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
185 
      </tr>
 186 
      </tr>
186 
      <tr>
 187 
      <tr>
187 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 188 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
188 
        <td bgcolor="#FFFFFF" valign="top">
 189 
        <td bgcolor="#FFFFFF" valign="top">
189 
		<%
 190 
        <%
190 
		If parSourceRtagId <> "" Then
 191 
        If parSourceRtagId <> "" Then
191 
			Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
 192 
            Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
192 
		End If
 193 
        End If
193 
		%>
 194 
        %>
194 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
195 
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
195 
		<!--#include file="messages/_msg_inline.asp"-->
 196 
        <!--#include file="messages/_msg_inline.asp"-->
196 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 197 
        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
197 
		<br>
 198 
        <br>
198 
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 199 
        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
199 
		  <tr>
 200 
          <tr>
200 
			<td nowrap class="form_iname" valign="top">Release Name </td>
 201 
            <td nowrap class="form_iname" valign="top">Release Name </td>
201 
			<td valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objFormCollector.Item("rtag_name"), "class='form_ivalue' size='60'" )%></td>
 202 
            <td valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objFormCollector.Item("rtag_name"), "class='form_ivalue' size='60'" )%></td>
202 
			<td valign="top"><%=objForm.Validate ("rtag_name")%></td>
 203 
            <td valign="top"><%=objForm.Validate ("rtag_name")%></td>
203 
		  </tr>
 204 
          </tr>
204 
		  <tr>
 205 
          <tr>
205 
			<td nowrap class="form_iname" valign="top">Branch Release </td>
 206 
            <td nowrap class="form_iname" valign="top">Branch Release</td>
206 
			<td valign="top" nowrap class="form_iname">
 207 
            <td valign="top" nowrap class="form_iname">
207 
			  <input name="branch" type="radio" value="N" checked>No
 208 
              <input name="branch" type="radio" value="N" checked>No
208 
			  <input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>
 209 
              <input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>
- 
 
 210 
            <td valign="top"></td>
- 
 
 211 
          </tr>
- 
 
 212 
          <tr>
- 
 
 213 
            <td nowrap class="form_iname" valign="top">Release Mode</td>
- 
 
 214 
            <td valign="top" nowrap class="form_iname">
- 
 
 215 
              <input name="mode" type="radio" value="N" checked>Open
- 
 
 216 
              <input name="mode" type="radio" value="Y" >Closed
- 
 
 217 
              <input name="mode" type="radio" value="A" >Archived</td>
209 
			<td valign="top"></td>
 218 
            <td valign="top"></td>
210 
		  </tr>
 219 
          </tr>
211 
		  <tr>
 220 
          <tr>
212 
			<td valign="top" nowrap class="form_iname">Comments</td>
 221 
            <td valign="top" nowrap class="form_iname">Comments</td>
213 
			<td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>
 222 
            <td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>
214 
			<td valign="top"><%=objForm.Validate ("rtag_description")%></td>
 223 
            <td valign="top"><%=objForm.Validate ("rtag_description")%></td>
215 
		  </tr>
 224 
          </tr>
216 
		  <tr>
 225 
          <tr>
217 
			<td width="10%" class="form_iname">&nbsp;</td>
 226 
            <td width="10%" class="form_iname">&nbsp;</td>
218 
			<td width="1%">&nbsp;</td>
 227 
            <td width="1%">&nbsp;</td>
219 
			<td width="90%" class="val_err"></td>
 228 
            <td width="90%" class="val_err"></td>
220 
		  </tr>
 229 
          </tr>
221 
		</table>
 230 
        </table>
222
231
223 
		</td>
 232 
        </td>
224 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 233 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
225 
      </tr>
 234 
      </tr>
226 
	  <tr>
 235 
      <tr>
227 
        <td background="images/bg_action_norm.gif" ></td>
 236 
        <td background="images/bg_action_norm.gif" ></td>
228 
        <td align="right" background="images/bg_action_norm.gif" >
 237 
        <td align="right" background="images/bg_action_norm.gif" >
229 
		<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
 238 
        <%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
230 
		<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
 239 
        <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
231 
		<%=objPMod.ComposeHiddenTags()%>
 240 
        <%=objPMod.ComposeHiddenTags()%>
232 
		<input type="hidden" name="source_rtag_id" value="<%=parSourceRtagId%>">
 241 
        <input type="hidden" name="source_rtag_id" value="<%=parSourceRtagId%>">
233 
		<input type="hidden" name="action" value="true">
 242 
        <input type="hidden" name="action" value="true">
234 
		</td>
 243 
        </td>
235 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 244 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
236 
      </tr>
 245 
      </tr>
237 
      <tr>
 246 
      <tr>
238 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 247 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
239 
        <td background="images/lbox_bg_blue.gif"></td>
 248 
        <td background="images/lbox_bg_blue.gif"></td>
240 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 249 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
241 
      </tr>
 250 
      </tr>
242 
    </table>
 251 
    </table>
243
252
244 
	<!-- ACTION BUTTONS ---------------------------------------------->
 253 
    <!-- ACTION BUTTONS ---------------------------------------------->
245 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
 254 
    <!-- ACTION BUTTONS END  ------------------------------------------></td>
246 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 255 
    <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
247 
  </tr>
 256 
  </tr>
248 
  <tr>
257 
  <tr>
249 
    <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
 258 
    <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
250 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 259 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
251 
  </tr>
 260 
  </tr>