Subversion Repositories DevTools

Rev

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

Rev 119 Rev 157
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	Edit Release			     |
 5 
'|                  Edit 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 30... Line 30...
30 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
31 
Dim objSortHelper
 31 
Dim objSortHelper
32 
Dim rsQry
 32 
Dim rsQry
33 
Dim parProjId
 33 
Dim parProjId
34 
Dim parSourceRtagId
 34 
Dim parSourceRtagId
35 
Dim	State
 35 
Dim   State
- 
 
 36 
Dim ctrlDisabled
- 
 
 37 
 
36 
'------------ Constants Declaration -----------
 38 
'------------ Constants Declaration -----------
37 
'------------ Variable Init -------------------
 39 
'------------ Variable Init -------------------
38 
parProjId = Request("proj_id")
 40 
parProjId = Request("proj_id")
39 
objPMod.PersistInQryString("proj_id")
 41 
objPMod.PersistInQryString("proj_id")
- 
 
 42 
 
- 
 
 43 
If NOT objAccessControl.IsActive("CreateNewRelease") Then
- 
 
 44 
   ctrlDisabled = "disabled"
- 
 
 45 
Else
- 
 
 46 
   ctrlDisabled = ""
- 
 
 47 
End If
- 
 
 48 
 
40 
'----------------------------------------------
 49 
'----------------------------------------------
41 
%>
 50 
%>
42 
<%
 51 
<%
43 
'--------------------------------------------------------------------------------------------------------------------------
 52 
'--------------------------------------------------------------------------------------------------------------------------
44 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
 53 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
45 
	Dim rsQry, query
 54 
   Dim rsQry, query
46
55 
 
47
56 
 
48 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
57 
   OraDatabase.Parameters.Add "RTAG_ID",  nRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
49
58 
 
50 
	query = _
 59 
   query = _
51 
	" SELECT rt.* "&_
 60 
   " SELECT rt.* "&_
52 
	"  FROM RELEASE_TAGS rt"&_
 61 
   "  FROM RELEASE_TAGS rt"&_
53 
	" WHERE rt.RTAG_ID = :RTAG_ID"
 62 
   " WHERE rt.RTAG_ID = :RTAG_ID"
54
63 
 
55 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 64 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
56
65 
 
57 
	OraDatabase.Parameters.Remove "RTAG_ID"
 66 
   OraDatabase.Parameters.Remove "RTAG_ID"
58
67 
 
59
68 
 
60
69 
 
61 
	If rsQry.RecordCount > 0 Then
 70 
   If rsQry.RecordCount > 0 Then
62 
		outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
 71 
      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
63 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 72 
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
64 
		outobjDetails.Item ("description") = rsQry("description")
 73 
      outobjDetails.Item ("description") = rsQry("description")
65 
		outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
 74 
      outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
66 
		outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
 75 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
67 
		outobjDetails.Item ("owner_email") = rsQry("owner_email")
 76 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
68 
		outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
 77 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
69 
		If rsQry("assoc_mass_ref") <> "" Then
 78 
      If rsQry("assoc_mass_ref") <> "" Then
70 
		outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
 79 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
71 
		End If
 80 
      End If
72 
	Else
 81 
   Else
73 
		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
 82 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
74
83 
 
75 
	End If
 84 
   End If
76
85 
 
77
86 
 
78 
	rsQry.Close
 87 
   rsQry.Close
79 
	Set rsQry = Nothing
 88 
   Set rsQry = Nothing
80 
End Sub
 89 
End Sub
81 
'--------------------------------------------------------------------------------------------------------------------------
 90 
'--------------------------------------------------------------------------------------------------------------------------
82 
Sub UpdateReleaseDetails ()
 91 
Sub UpdateReleaseDetails ()
83 
	On Error Resume Next
 92 
   On Error Resume Next
84
93 
 
85 
	If request("product_state_used") = "on" Then
 94 
   If request("product_state_used") = "on" Then
86 
		State = "Y"
 95 
      State = "Y"
87 
	Else
 96 
   Else
88 
		State = NULL
 97 
      State = NULL
89 
	End If
 98 
   End If
90
99 
 
91 
	OraDatabase.Parameters.Add "RTAG_ID", 				Request("rtag_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
100 
   OraDatabase.Parameters.Add "RTAG_ID",           Request("rtag_id_list"),   ORAPARM_INPUT, ORATYPE_NUMBER
92 
	OraDatabase.Parameters.Add "RTAG_NAME", 			Request("rtag_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
 101 
   OraDatabase.Parameters.Add "RTAG_NAME",         Request("rtag_name"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
93 
	OraDatabase.Parameters.Add "RTAG_DESCRIPTION", 		Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 102 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",     Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
94 
	OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH",	Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
103 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH",   Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
95 
	OraDatabase.Parameters.Add "OWNER_EMAIL",			Request("owner_email"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
104 
   OraDatabase.Parameters.Add "OWNER_EMAIL",       Request("owner_email"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
96 
	OraDatabase.Parameters.Add "USER_ID", 				objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
105 
   OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "PARENT_RTAG_ID", 		Request("parent_rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 106 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",       Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "MASSREF_RTAG_ID", 		Request("massref_rtag_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 107 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",      Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
99 
	OraDatabase.Parameters.Add "STATE", 				State, 	ORAPARM_INPUT, ORATYPE_VARCHAR
 108 
   OraDatabase.Parameters.Add "STATE",             State,   ORAPARM_INPUT, ORATYPE_VARCHAR
100
109 
 
101 
	objEH.TryORA ( OraSession )
 110 
   objEH.TryORA ( OraSession )
102
111 
 
103 
	OraDatabase.ExecuteSQL _
 112 
   OraDatabase.ExecuteSQL _
104 
	"BEGIN   PK_RELEASE.UPDATE_RELEASE ( :RTAG_ID, :RTAG_NAME, :RTAG_DESCRIPTION, :PARENT_RTAG_ID, :MASSREF_RTAG_ID, :CONFIG_SPEC_BRANCH, :OWNER_EMAIL, :USER_ID, :STATE );   END;"
 113 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( :RTAG_ID, :RTAG_NAME, :RTAG_DESCRIPTION, :PARENT_RTAG_ID, :MASSREF_RTAG_ID, :CONFIG_SPEC_BRANCH, :OWNER_EMAIL, :USER_ID, :STATE );   END;"
105
114 
 
106 
	objEH.CatchORA ( OraSession )
 115 
   objEH.CatchORA ( OraSession )
107
116 
 
108 
	OraDatabase.Parameters.Remove "RTAG_ID"
 117 
   OraDatabase.Parameters.Remove "RTAG_ID"
109 
	OraDatabase.Parameters.Remove "RTAG_NAME"
 118 
   OraDatabase.Parameters.Remove "RTAG_NAME"
110 
	OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"
 119 
   OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"
111 
	OraDatabase.Parameters.Remove "CONFIG_SPEC_BRANCH"
120 
   OraDatabase.Parameters.Remove "CONFIG_SPEC_BRANCH"
112 
	OraDatabase.Parameters.Remove "OWNER_EMAIL"
121 
   OraDatabase.Parameters.Remove "OWNER_EMAIL"
113 
	OraDatabase.Parameters.Remove "USER_ID"
 122 
   OraDatabase.Parameters.Remove "USER_ID"
114 
	OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
 123 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
115 
	OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
124 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
116 
	OraDatabase.Parameters.Remove "STATE"
 125 
   OraDatabase.Parameters.Remove "STATE"
117
126 
 
118 
End Sub
 127 
End Sub
119 
'--------------------------------------------------------------------------------------------------------------------------
 128 
'--------------------------------------------------------------------------------------------------------------------------
120 
%>
 129 
%>
121 
<%
 130 
<%
122 
'------------ RUN BEFORE PAGE RENDER ----------
 131 
'------------ RUN BEFORE PAGE RENDER ----------
123 
' --- Get Form details from DB ---
 132 
' --- Get Form details from DB ---
124 
Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )
 133 
Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )
125 
 
 134 
 
126 
' --- Load Validation Rules ---
 135 
' --- Load Validation Rules ---
127 
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )		' Load Validation Rules
 136 
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )     ' Load Validation Rules
128 
 
 137 
 
129 
' --- Enter Form Validation Rule Changes here... ----
 138 
' --- Enter Form Validation Rule Changes here... ----
130 
'----------------------------------------------------
 139 
'----------------------------------------------------
131 
 
 140 
 
132 
' --- RUN onPostBack ---
 141 
' --- RUN onPostBack ---
133 
If Request("action") <> "" Then
 142 
If Request("action") <> "" Then
134 
	If objForm.IsValidOnPostBack Then
 143 
   If objForm.IsValidOnPostBack Then
135 
		' --- Form is Valid ---
 144 
      ' --- Form is Valid ---
- 
 
 145 
      If objAccessControl.IsActive("CreateNewRelease") Then
136 
		Call UpdateReleaseDetails()
 146 
         Call UpdateReleaseDetails()
137 
		If objEH.Finally Then
 147 
         If objEH.Finally Then
138 
			Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
 148 
            Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
139 
		End If
 149 
         End If
140
150 
      Else
- 
 
 151 
         Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
141 
	End If
 152 
      End If
142
153 
   End If
143 
End If
 154 
End If
144 
 
 155 
 
145 
'----------------------------------------------
 156 
'----------------------------------------------
146 
%>
 157 
%>
147 
 
 158 
 
Line 159... Line 170...
159 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 170 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
160 
 
 171 
 
161 
</head>
 172 
</head>
162 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();">
 173 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();">
163 
<!-- MENU LAYERS -------------------------------------->
 174 
<!-- MENU LAYERS -------------------------------------->
164 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
175 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
165 
</div>
 176 
</div>
166 
<!-- TIPS LAYERS -------------------------------------->
 177 
<!-- TIPS LAYERS -------------------------------------->
167 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 178 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
168 
<!----------------------------------------------------->
 179 
<!----------------------------------------------------->
169 
<!-- HEADER -->
 180 
<!-- HEADER -->
170 
<!--#include file="_header.asp"-->
 181 
<!--#include file="_header.asp"-->
171 
<!-- BODY ---->
 182 
<!-- BODY ---->
172 
 
 183 
 
173 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 184 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
174 
<%
 185 
   <%
175 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 186 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
176 
objFormComponent.FormName = "FormName"
 187 
   objFormComponent.FormName = "FormName"
177 
objFormComponent.Action = ScriptName
 188 
   objFormComponent.Action = ScriptName
- 
 
 189 
   If NOT objAccessControl.IsActive("CreateNewRelease") Then
- 
 
 190 
      objFormComponent.IsReadonlyAction = enumDB_YES
- 
 
 191 
   End If
178 
Call objFormComponent.FormStart()
 192 
   Call objFormComponent.FormStart()
179 
%>
 193 
   %>
180 
  <tr>
194 
   <tr>
181 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
 195 
      <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
182 
	</td>
 - 
 
183 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
 196 
      <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
184 
      <tr>
 - 
 
185 
        <td width="1%"></td>
 - 
 
186 
        <td width="100%">
 - 
 
187 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 197 
         <table width="10" border="0" cellspacing="0" cellpadding="0">
188 
            <tr>
 198 
            <tr>
- 
 
 199 
               <td width="1%"></td>
- 
 
 200 
               <td width="100%">
- 
 
 201 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 202 
                     <tr>
- 
 
 203 
                        <%If objAccessControl.IsActive("CreateNewRelease") Then%>
189 
              <td nowrap class="form_ttl">EDIT RELEASE DETAILS </td>
 204 
                           <td nowrap class="form_ttl">EDIT RELEASE DETAILS </td>
- 
 
 205 
                        <%Else%>
- 
 
 206 
                           <td nowrap class="form_ttl">VIEW RELEASE DETAILS </td>
- 
 
 207 
                        <%End If%>
190 
              <td align="right" valign="bottom"></td>
 208 
                        <td align="right" valign="bottom"></td>
- 
 
 209 
                     </tr>
- 
 
 210 
                  </table>
- 
 
 211 
               </td>
- 
 
 212 
               <td width="1%"></td>
191 
            </tr>
 213 
            </tr>
192 
        </table></td>
 214 
            <tr>
193 
        <td width="1%"></td>
 215 
               <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
194 
      </tr>
 216 
               <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
195 
      <tr>
 217 
               <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
196 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 218 
            </tr>
197 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 219 
            <tr>
198 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 220 
               <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
199 
      </tr>
 221 
               <td bgcolor="#FFFFFF" valign="top">
200 
      <tr>
 222 
                  <%
201 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 223 
                  If parSourceRtagId <> "" Then
202 
        <td bgcolor="#FFFFFF" valign="top">
 224 
                     Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
203 
		<%
 225 
                  End If
204 
		If parSourceRtagId <> "" Then
 226 
                  %>
205 
			Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
 227 
                  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
206 
		End If
 228 
                  <!--#include file="messages/_msg_inline.asp"-->
207 
		%>
 229 
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
208 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
230 
                  <br>
209 
		<!--#include file="messages/_msg_inline.asp"-->
 231 
                  <table width="100%"  border="0" cellspacing="2" cellpadding="0">
210 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 232 
                     <tr>
211 
		<br>
 233 
                        <td width="19%" valign="top" nowrap class="form_iname">Release Name </td>
212 
		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
 234 
                        <td width="72%" valign="top" nowrap>
213 
		  <tr>
 235 
                           <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%>
214 
			<td width="19%" valign="top" nowrap class="form_iname">Release Name </td>
 236 
                        </td>
215 
			<td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%></td>
 237 
                        <td width="9%" valign="top"><%=objForm.Validate ("rtag_name")%></td>
216 
			<td width="9%" valign="top"><%=objForm.Validate ("rtag_name")%></td>
 238 
                     </tr>
217 
		  </tr>
 239 
                     <tr>
218 
		  <tr>
 240 
                        <td nowrap class="form_iname" valign="top">Parent Release </td>
219 
			<td nowrap class="form_iname" valign="top">Parent Release </td>
 241 
                        <td valign="top" nowrap class="form_iname">
220 
			<td valign="top" nowrap class="form_iname">
 242 
                           <%
221 
			<%
 243 
                           OraDatabase.Parameters.Add "PROJ_ID", parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
222 
			  OraDatabase.Parameters.Add "PROJ_ID", parProjId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 244 
 
223
245 
                           Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
224 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
 246 
 
225
247 
                           OraDatabase.Parameters.Remove "PROJ_ID"
226 
			  OraDatabase.Parameters.Remove "PROJ_ID"
 248 
                           %>
227 
			  %>
 249 
                           <select name="parent_rtag_id" class="form_item" <%=ctrlDisabled%>>
228 
			  <select name="parent_rtag_id" class="form_item">
 250 
                              <option value="<%=objFormCollector.Item("rtag_id")%>">---ROOT---</option>
229 
			  	<option value="<%=objFormCollector.Item("rtag_id")%>">---ROOT---</option>
 251 
                              <%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
230 
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
 252 
                                    <option value="<%=rsQry("rtag_id")%>" <%If ( CInt( rsQry("rtag_id") ) = CInt(objFormCollector.Item("parent_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option>
231 
				<option value="<%=rsQry("rtag_id")%>" <%If ( CInt( rsQry("rtag_id") ) = CInt(objFormCollector.Item("parent_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option>
 253 
                                 <%
232 
				<%
 254 
                                 rsQry.MoveNext
233 
					rsQry.MoveNext
 255 
                              WEnd%>
234 
				WEnd%>
 256 
                           </select>
235 
			  </select>
 257 
                        </td>
236 
			</td>
 258 
                        <td valign="top"></td>
237 
			<td valign="top"></td>
 259 
                     </tr>
238 
		  </tr>
 260 
                     <tr>
239 
		  <tr>
 261 
                        <td valign="top" nowrap class="form_iname">Comments</td>
240 
			<td valign="top" nowrap class="form_iname">Comments</td>
 262 
                        <td valign="top"><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue( "rtag_description", objFormCollector.Item("description") ), 10, 60, "class='form_ivalue'" )%></td>
241 
			<td valign="top"><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue( "rtag_description", objFormCollector.Item("description") ), 10, 60, "class='form_ivalue'" )%></td>
 263 
                        <td valign="top"><%=objForm.Validate ("rtag_description")%></td>
242 
			<td valign="top"><%=objForm.Validate ("rtag_description")%></td>
 264 
                     </tr>
243 
		  </tr>
 265 
                     <tr>
244 
		  <tr>
 266 
                        <td width="19%" valign="top" nowrap class="form_iname">Clearcase Support Profile Branch</td>
245 
			<td width="19%" valign="top" nowrap class="form_iname">Clearcase Support Profile Branch</td>
 267 
 
246 
 
 268 
                        <td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "config_spec_branch", objForm.GetValue( "config_spec_branch", objFormCollector.Item("config_spec_branch") ), "class='form_ivalue' size='60'" )%></td>
247 
			<td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "config_spec_branch", objForm.GetValue( "config_spec_branch", objFormCollector.Item("config_spec_branch") ), "class='form_ivalue' size='60'" )%></td>
 269 
                        <td width="9%" valign="top"><%=objForm.Validate ("config_spec_branch")%></td>
248 
			<td width="9%" valign="top"><%=objForm.Validate ("config_spec_branch")%></td>
 270 
                     </tr>
249 
		  </tr>
271 
                     <tr>
250 
		  <tr>
 272 
                        <td width="19%" valign="top" nowrap class="form_iname">Autobuild Notification Emails</td>
251 
			<td width="19%" valign="top" nowrap class="form_iname">Autobuild Notification Emails</td>
 273 
 
252 
 
 274 
                        <td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "owner_email", objForm.GetValue( "owner_email", objFormCollector.Item("owner_email") ), "class='form_ivalue' size='60'" )%></td>
253 
			<td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "owner_email", objForm.GetValue( "owner_email", objFormCollector.Item("owner_email") ), "class='form_ivalue' size='60'" )%></td>
 275 
                        <td width="9%" valign="top"></td>
254 
			<td width="9%" valign="top"></td>
 276 
                     </tr>
255 
		  </tr>
277 
                     <tr>
256 
		  <tr>
 278 
                        <%If parProjId <> 2 Then%>
257 
		  <%If parProjId <> 2 Then%>
 279 
                           <td nowrap class="form_iname" valign="top">Associated MASS REF </td>
258 
			<td nowrap class="form_iname" valign="top">Associated MASS REF </td>
 280 
                           <td valign="top" nowrap class="form_iname">
259 
			<td valign="top" nowrap class="form_iname">
 281 
                              <%
260 
			<%
 282 
                              OraDatabase.Parameters.Add "PROJ_ID", 2,   ORAPARM_INPUT, ORATYPE_NUMBER
261 
			  OraDatabase.Parameters.Add "PROJ_ID", 2, 	ORAPARM_INPUT, ORATYPE_NUMBER
 283 
 
262
284 
                              Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
263 
			  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
 285 
 
264
286 
                              OraDatabase.Parameters.Remove "PROJ_ID"
265 
			  OraDatabase.Parameters.Remove "PROJ_ID"
 287 
                              %>
266 
			  %>
 288 
                              <select name="massref_rtag_id" class="form_item" <%=ctrlDisabled%>>
267 
			  <select name="massref_rtag_id" class="form_item">
 289 
                                 <option value="">---None---</option>
268 
			  	<option value="">---None---</option>
 290 
                                 <%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
269 
				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
 291 
                                    <option value="<%=rsQry("rtag_id")%>" <%If ( CInt( rsQry("rtag_id") ) = CInt(objFormCollector.Item("massref_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option>
270 
				<option value="<%=rsQry("rtag_id")%>" <%If ( CInt( rsQry("rtag_id") ) = CInt(objFormCollector.Item("massref_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option>
 292 
                                    <%
271 
				<%
 293 
                                    rsQry.MoveNext
272 
					rsQry.MoveNext
 294 
                                 WEnd%>
273 
				WEnd%>
 295 
                              </select>
274 
			  </select>
 296 
                           </td>
275 
			</td>
 297 
                           <td valign="top"></td>
276 
			<td valign="top"></td>
 298 
                        <%End If%>
277 
			<%End If%>
 299 
                     </tr>
278 
		  </tr>
 300 
                     <tr>
279 
		  <tr>
 301 
                        <td width="19%" valign="top" nowrap class="form_iname">Configured To Use Product States</td>
280 
			<td width="19%" valign="top" nowrap class="form_iname">Configured To Use Product States</td>
 302 
                        <%If IsNull(objFormCollector.Item("product_state_used")) Then%>
281 
			<%If IsNull(objFormCollector.Item("product_state_used")) Then%>
 303 
                           <td valign="top"><input type="checkbox" name="product_state_used" <%=ctrlDisabled%>></td>
282 
		        <td valign="top"><input type="checkbox" name="product_state_used"></td>
 304 
                        <%Else%>
283 
			<%Else%>
 305 
                           <td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td>
284 
        		<td valign="top"><input type="checkbox" name="product_state_used" checked></td>
 306 
                        <%End If%>
285 
			<%End If%>
 307 
                        <td width="9%" valign="top"></td>
286 
			<td width="9%" valign="top"></td>
 308 
                     </tr>
287 
		  </tr>
309 
                     <tr>
288 
		  <tr>
 310 
                        <td class="form_iname">&nbsp;</td>
289 
		    <td class="form_iname">&nbsp;</td>
 311 
                        <td>&nbsp;</td>
290 
		    <td>&nbsp;</td>
 312 
                        <td class="val_err"></td>
291 
		    <td class="val_err"></td>
 313 
                     </tr>
292 
		    </tr>
 314 
                  </table>
293 
		</table>
 315 
               </td>
294
316 
               <td background="images/lbox_bgside_white.gif">&nbsp;</td>
295 
		</td>
 317 
            </tr>
296 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 318 
 
297 
      </tr>
 319 
            <tr>
298 
	  <tr>
 320 
               <td background="images/bg_action_norm.gif" ></td>
299 
        <td background="images/bg_action_norm.gif" ></td>
 321 
               <td align="right" background="images/bg_action_norm.gif" >
300 
        <td align="right" background="images/bg_action_norm.gif" >
 322 
                  <%If objAccessControl.IsActive("CreateNewRelease") Then%>
301 
		<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
 323 
                     <%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
302 
		<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
 324 
                  <%End If%>
303 
		<%=objPMod.ComposeHiddenTags()%>
 325 
                  <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
304 
		<input type="hidden" name="rtag_id_list" value="<%=Request("rtag_id_list")%>">
 326 
                  <%=objPMod.ComposeHiddenTags()%>
305 
		<input type="hidden" name="action" value="true">
 327 
                  <input type="hidden" name="rtag_id_list" value="<%=Request("rtag_id_list")%>">
306 
		</td>
 328 
                  <input type="hidden" name="action" value="true">
307 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 329 
               </td>
308 
      </tr>
 330 
               <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
309 
      <tr>
 331 
            </tr>
310 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 332 
            <tr>
311 
        <td background="images/lbox_bg_blue.gif"></td>
 333 
               <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
312 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 334 
               <td background="images/lbox_bg_blue.gif"></td>
313 
      </tr>
 335 
               <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
314 
    </table>
 336 
            </tr>
315
337 
         </table>
316 
	<!-- ACTION BUTTONS ---------------------------------------------->
 338 
 
317 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
 339 
         <!-- ACTION BUTTONS ---------------------------------------------->
318 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 340 
         <!-- ACTION BUTTONS END  ------------------------------------------>
319 
  </tr>
 341 
      </td>
320 
  <tr>
342 
      <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
321 
    <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>
 343 
   </tr>
322 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 344 
   <tr>
323 
  </tr>
 345 
      <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>
324 
<%
 346 
      <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
325 
Call objFormComponent.FormEnd()
 347 
   </tr>
326 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 348 
   <%
327 
%>
349 
   Call objFormComponent.FormEnd()
- 
 
 350 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
- 
 
 351 
   %>
328 
</table>
 352 
</table>
329 
 
 353 
 
330 
 
 354 
 
331 
<!-- FOOTER -->
 355 
<!-- FOOTER -->
332 
<!--#include file="_footer.asp"-->
 356 
<!--#include file="_footer.asp"-->
333 
</body>
 357 
</body>
334 
</html>
 358 
</html>
335 
<%
 359 
<%
336 
Call Destroy_All_Objects
 360 
Call Destroy_All_Objects
337 
%>
 - 
 
338 

            361
            
%>

          

          

            -
            
 

            362