Subversion Repositories DevTools

Rev

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

Rev 5357 Rev 5442
Line 259... Line 259...
259
                     <tr>
259
                     <tr>
260
                        <td nowrap class="form_iname" valign="top">Parent Release </td>
260
                        <td nowrap class="form_iname" valign="top">Parent Release </td>
261
                        <td valign="top" nowrap class="form_iname">
261
                        <td valign="top" nowrap class="form_iname">
262
                           <%
262
                           <%
263
                           OraDatabase.Parameters.Add "PROJ_ID", objFormCollector.Item("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
263
                           OraDatabase.Parameters.Add "PROJ_ID", objFormCollector.Item("proj_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
-
 
264
                           OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
264
 
265
 
265
                           Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
266
                           Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
266
 
267
 
-
 
268
                           OraDatabase.Parameters.Remove "USER_ID"
267
                           OraDatabase.Parameters.Remove "PROJ_ID"
269
                           OraDatabase.Parameters.Remove "PROJ_ID"
268
                           %>
270
                           %>
269
                           <select name="parent_rtag_id" class="form_item" <%=ctrlDisabled%>>
271
                           <select name="parent_rtag_id" class="form_item" <%=ctrlDisabled%>>
270
                              <option value="<%=objFormCollector.Item("rtag_id")%>">---ROOT---</option>
272
                              <option value="<%=objFormCollector.Item("rtag_id")%>">---ROOT---</option>
271
                              <%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
273
                              <%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
272
                                    <option value="<%=rsQry("rtag_id")%>" <%If ( CInt( rsQry("rtag_id") ) = CInt(objFormCollector.Item("parent_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option>
274
                                    <option value="<%=rsQry("rtag_id")%>" <%If ( cLng( rsQry("rtag_id") ) = cLng(objFormCollector.Item("parent_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option>
273
                                 <%
275
                                 <%
274
                                 rsQry.MoveNext
276
                                 rsQry.MoveNext
275
                              WEnd%>
277
                              WEnd%>
276
                           </select>
278
                           </select>
277
                        </td>
279
                        </td>
Line 298... Line 300...
298
                        <%If objFormCollector.Item("proj_id") <> 2 Then%>
300
                        <%If objFormCollector.Item("proj_id") <> 2 Then%>
299
                           <td nowrap class="form_iname" valign="top">Associated MASS REF </td>
301
                           <td nowrap class="form_iname" valign="top">Associated MASS REF </td>
300
                           <td valign="top" nowrap class="form_iname">
302
                           <td valign="top" nowrap class="form_iname">
301
                              <%
303
                              <%
302
                              OraDatabase.Parameters.Add "PROJ_ID", 2,   ORAPARM_INPUT, ORATYPE_NUMBER
304
                              OraDatabase.Parameters.Add "PROJ_ID", 2,   ORAPARM_INPUT, ORATYPE_NUMBER
-
 
305
                              OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
303
 
306
 
304
                              Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
307
                              Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )
305
 
308
 
-
 
309
                              OraDatabase.Parameters.Remove "USER_ID"
306
                              OraDatabase.Parameters.Remove "PROJ_ID"
310
                              OraDatabase.Parameters.Remove "PROJ_ID"
307
                              %>
311
                              %>
308
                              <select name="massref_rtag_id" class="form_item" disabled <%=ctrlDisabled%>>
312
                              <select name="massref_rtag_id" class="form_item" disabled <%=ctrlDisabled%>>
309
                                 <option value="">---None---</option>
313
                                 <option value="">---None---</option>
310
                                 <%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
314
                                 <%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%>
311
                                    <option value="<%=rsQry("rtag_id")%>" 
315
                                    <option value="<%=rsQry("rtag_id")%>" 
312
                                        <%If ( CInt( rsQry("rtag_id") ) = CInt(objFormCollector.Item("massref_rtag_id")) ) Then%>
316
                                        <%If ( cLng( rsQry("rtag_id") ) = cLng(objFormCollector.Item("massref_rtag_id")) ) Then%>
313
                                            selected
317
                                            selected
314
                                        <%End If%>
318
                                        <%End If%>
315
                                        >
319
                                        >
316
                                        <%=rsQry("rtag_name")%>
320
                                        <%=rsQry("rtag_name")%>
317
                                    </option>
321
                                    </option>