Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    	Move Release			     |
 5 
'|				    	Move 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"-->
18 
<!--#include file="common/common_subs.asp"-->
 18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/_form_window_common.asp"-->
 19 
<!--#include file="common/_form_window_common.asp"-->
20 
<!--#include file="common/_rtree_common.asp"-->
 20 
<!--#include file="common/_rtree_common.asp"-->
21 
<%
 21 
<%
22 
' Set rfile parameter. This is a return page after Login
 22 
' Set rfile parameter. This is a return page after Login
23 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 23 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
24 
objPMod.PersistInQryString("proj_id")
 24 
objPMod.PersistInQryString("proj_id")
25 
'------------ ACCESS CONTROL ------------------
 25 
'------------ ACCESS CONTROL ------------------
26 
%>
 26 
%>
27 
<!--#include file="_access_control_login.asp"-->
 27 
<!--#include file="_access_control_login.asp"-->
28 
<!--#include file="_access_control_general.asp"-->
 28 
<!--#include file="_access_control_general.asp"-->
29 
<!--#include file="_access_control_project.asp"-->
 29 
<!--#include file="_access_control_project.asp"-->
30 
<%
 30 
<%
31 
'------------ Variable Definition -------------
 31 
'------------ Variable Definition -------------
32 
Dim objSortHelper
 32 
Dim objSortHelper
33 
Dim rsQry
 33 
Dim rsQry
34 
Dim parProjId
 34 
Dim parProjId
35 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
36 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
37 
parProjId = Request("proj_id")
 37 
parProjId = Request("proj_id")
38 
objPMod.PersistInQryString("proj_id")
 38 
objPMod.PersistInQryString("proj_id")
39 
'----------------------------------------------
 39 
'----------------------------------------------
40 
%>
 40 
%>
41 
<%
 41 
<%
42 
'--------------------------------------------------------------------------------------------------------------------------
 42 
'--------------------------------------------------------------------------------------------------------------------------
43 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
 43 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
44 
	Dim rsQry, query
 44 
	Dim rsQry, query
45
45
46
46
47 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
47 
	OraDatabase.Parameters.Add "RTAG_ID", 	nRtagId,		ORAPARM_INPUT, ORATYPE_NUMBER
48
48
49 
	query = _
 49 
	query = _
50 
	" SELECT rt.* "&_
 50 
	" SELECT rt.* "&_
51 
	"  FROM RELEASE_TAGS rt"&_
 51 
	"  FROM RELEASE_TAGS rt"&_
52 
	" WHERE rt.RTAG_ID = :RTAG_ID"
 52 
	" WHERE rt.RTAG_ID = :RTAG_ID"
53
53
54 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 54 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
55
55
56 
	OraDatabase.Parameters.Remove "RTAG_ID"
 56 
	OraDatabase.Parameters.Remove "RTAG_ID"
57
57
58
58
59
59
60 
	If rsQry.RecordCount > 0 Then
 60 
	If rsQry.RecordCount > 0 Then
61 
		outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
 61 
		outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
62 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 62 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
63 
		outobjDetails.Item ("description") = rsQry("description")
 63 
		outobjDetails.Item ("description") = rsQry("description")
64 
		outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
 64 
		outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
65 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
 65 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
66
66
67 
	Else
 67 
	Else
68 
		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
 68 
		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
69
69
70 
	End If
 70 
	End If
71
71
72
72
73 
	rsQry.Close
 73 
	rsQry.Close
74 
	Set rsQry = Nothing
 74 
	Set rsQry = Nothing
75 
End Sub
 75 
End Sub
76 
'--------------------------------------------------------------------------------------------------------------------------
 76 
'--------------------------------------------------------------------------------------------------------------------------
77 
Sub MoveRelease ()
 77 
Sub MoveRelease ()
78 
	Dim sRtagIdOrderList
 78 
	Dim sRtagIdOrderList
79
79
80 
	'-- Check cookie for new soring list
 80 
	'-- Check cookie for new soring list
81 
	If Request.Cookies("sort-list") = "" Then Exit Sub
 81 
	If Request.Cookies("sort-list") = "" Then Exit Sub
82
82
83 
	'-- Replace pipe separated values with comma for database use
 83 
	'-- Replace pipe separated values with comma for database use
84 
	sRtagIdOrderList = Replace( Request.Cookies("sort-list") , "|", "," )
 84 
	sRtagIdOrderList = Replace( Request.Cookies("sort-list") , "|", "," )
85
85
86 
	On Error Resume Next
 86 
	On Error Resume Next
87
87
88 
	OraDatabase.Parameters.Add "RTAG_ID_ORDER", 	sRtagIdOrderList, 			ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
	OraDatabase.Parameters.Add "RTAG_ID_ORDER", 	sRtagIdOrderList, 			ORAPARM_INPUT, ORATYPE_VARCHAR2
89 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("proj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
89 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("proj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
90 
	OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
91
91
92
92
93 
	objEH.TryORA ( OraSession )
 93 
	objEH.TryORA ( OraSession )
94
94
95 
	OraDatabase.ExecuteSQL _
 95 
	OraDatabase.ExecuteSQL _
96 
	"BEGIN   PK_RELEASE.MOVE_RELEASE ( :RTAG_ID_ORDER, :PROJ_ID, :USER_ID );   END;"
 96 
	"BEGIN   PK_RELEASE.MOVE_RELEASE ( :RTAG_ID_ORDER, :PROJ_ID, :USER_ID );   END;"
97
97
98 
	objEH.CatchORA ( OraSession )
 98 
	objEH.CatchORA ( OraSession )
99
99
100
100
101 
	OraDatabase.Parameters.Remove "RTAG_ID_ORDER"
 101 
	OraDatabase.Parameters.Remove "RTAG_ID_ORDER"
102 
	OraDatabase.Parameters.Remove "PROJ_ID"
 102 
	OraDatabase.Parameters.Remove "PROJ_ID"
103 
	OraDatabase.Parameters.Remove "USER_ID"
 103 
	OraDatabase.Parameters.Remove "USER_ID"
104
104
105 
End Sub
 105 
End Sub
106 
 
 106 
 
107 
'--------------------------------------------------------------------------------------------------------------------------
 107 
'--------------------------------------------------------------------------------------------------------------------------
108 
%>
 108 
%>
109 
<%
 109 
<%
110 
'------------ RUN BEFORE PAGE RENDER ----------
 110 
'------------ RUN BEFORE PAGE RENDER ----------
111 
' --- Get Form details from DB ---
 111 
' --- Get Form details from DB ---
112 
Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )
 112 
Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )
113 
 
 113 
 
114 
' --- Load Validation Rules ---
 114 
' --- Load Validation Rules ---
115 
'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description"), OraDatabase )		' Load Validation Rules
 115 
'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description"), OraDatabase )		' Load Validation Rules
116 
 
 116 
 
117 
' --- Enter Form Validation Rule Changes here... ----
 117 
' --- Enter Form Validation Rule Changes here... ----
118 
'----------------------------------------------------
 118 
'----------------------------------------------------
119 
 
 119 
 
120 
' --- RUN onPostBack ---
 120 
' --- RUN onPostBack ---
121 
If Request("action") <> "" Then
 121 
If Request("action") <> "" Then
122 
	If objForm.IsValidOnPostBack Then
 122 
	If objForm.IsValidOnPostBack Then
123 
		' --- Form is Valid ---
 123 
		' --- Form is Valid ---
124 
		Call MoveRelease()
 124 
		Call MoveRelease()
125
125
126 
		If objEH.Finally Then
 126 
		If objEH.Finally Then
127 
			Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
 127 
			Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
128 
		End If
 128 
		End If
129
129
130 
	End If
 130 
	End If
131
131
132 
End If
 132 
End If
133 
 
 133 
 
134 
'----------------------------------------------
 134 
'----------------------------------------------
135 
%>
 135 
%>
136 
 
 136 
 
137 
<html>
 137 
<html>
138 
<head>
 138 
<head>
139 
<title>Release Manager</title>
 139 
<title>Release Manager</title>
140 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 140 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
141 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 141 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
142 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 142 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
143 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 143 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
144 
<script language="JavaScript" src="images/common.js"></script>
 144 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
145 
 
 145 
<script language="JavaScript" src="images/common.js"></script>
146 
<!-- DROPDOWN MENUS -->
 146 
 
147 
<!--#include file="_menu_def.asp"-->
 147 
<!-- DROPDOWN MENUS -->
148 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 148 
<!--#include file="_menu_def.asp"-->
149 
 
 149 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
150 
<!-- Drag and Drop modules +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 150 
 
151 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/core.js"></script>
 151 
<!-- Drag and Drop modules +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
152 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/events.js"></script>
 152 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/core.js"></script>
153 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/css.js"></script>
 153 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/events.js"></script>
154 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/coordinates.js"></script>
 154 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/css.js"></script>
155 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/drag.js"></script>
 155 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/coordinates.js"></script>
156 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/dragsort.js"></script>
 156 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/drag.js"></script>
157 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/cookies.js"></script>
 157 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/dragsort.js"></script>
158 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 158 
<script language="JavaScript" type="text/javascript" src="scripts/dragdrop/tool-man/cookies.js"></script>
159 
 
 159 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
160 
<script language="JavaScript" type="text/javascript"><!--
 160 
 
161 
	var dragsort = ToolMan.dragsort()
 161 
<script language="JavaScript" type="text/javascript"><!--
162 
	var junkdrawer = ToolMan.junkdrawer()
 162 
	var dragsort = ToolMan.dragsort()
163 
 
 163 
	var junkdrawer = ToolMan.junkdrawer()
164 
	window.onload = function() {
 164 
 
165 
		self.focus();
 165 
	window.onload = function() {
166
166 
		self.focus();
167 
		dragsort.makeListSortable(document.getElementById("list"),
 167
168 
				verticalOnly, saveOrder);
 168 
		dragsort.makeListSortable(document.getElementById("list"),
169 
	}
 169 
				verticalOnly, saveOrder);
170 
 
 170 
	}
171 
	function verticalOnly(item) {
 171 
 
172 
		item.toolManDragGroup.verticalOnly()
 172 
	function verticalOnly(item) {
173 
	}
 173 
		item.toolManDragGroup.verticalOnly()
174 
 
 174 
	}
175 
	function saveOrder(item) {
 175 
 
176 
		var group = item.toolManDragGroup
 176 
	function saveOrder(item) {
177 
		var list = group.element.parentNode
 177 
		var group = item.toolManDragGroup
178 
		var id = list.getAttribute("id")
 178 
		var list = group.element.parentNode
179 
		if (id == null) return
 179 
		var id = list.getAttribute("id")
180 
		group.register('dragend', function() {
 180 
		if (id == null) return
181 
			ToolMan.cookies().set("sort-" + id,
181 
		group.register('dragend', function() {
182 
					junkdrawer.serializeList(list), 365)
 182 
			ToolMan.cookies().set("sort-" + id,
183 
		})
 183 
					junkdrawer.serializeList(list), 365)
184 
	}
 184 
		})
185 
 
 185 
	}
186 
	//-->
 186 
 
187 
</script>
 187 
	//-->
188 
 
 188 
</script>
189 
</head>
 189 
 
190 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
 190 
</head>
191 
<!-- MENU LAYERS -------------------------------------->
 191 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
192 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
192 
<!-- MENU LAYERS -------------------------------------->
193 
</div>
 193 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
194 
<!-- TIPS LAYERS -------------------------------------->
 194 
</div>
195 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 195 
<!-- TIPS LAYERS -------------------------------------->
196 
<!----------------------------------------------------->
 196 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
197 
<!-- HEADER -->
 197 
<!----------------------------------------------------->
198 
<!--#include file="_header.asp"-->
 198 
<!-- HEADER -->
199 
<!-- BODY ---->
 199 
<!--#include file="_header.asp"-->
200 
 
 200 
<!-- BODY ---->
201 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 201 
 
202 
<%
 202 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
203 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 203 
<%
204 
objFormComponent.FormName = "FormName"
 204 
'-- FROM START ---------------------------------------------------------------------------------------------------------
205 
objFormComponent.Action = ScriptName
 205 
objFormComponent.FormName = "FormName"
206 
Call objFormComponent.FormStart()
 206 
objFormComponent.Action = ScriptName
207 
%>
 207 
Call objFormComponent.FormStart()
208 
  <tr>
208 
%>
209 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
 209 
  <tr>
210 
	</td>
 210 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
211 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
 211 
	</td>
212 
      <tr>
 212 
	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
213 
        <td width="1%"></td>
 213 
      <tr>
214 
        <td width="100%">
 214 
        <td width="1%"></td>
215 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 215 
        <td width="100%">
216 
            <tr>
 216 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
217 
              <td nowrap class="form_ttl">MOVE RELEASES </td>
 217 
            <tr>
218 
              <td align="right" valign="bottom"></td>
 218 
              <td nowrap class="form_ttl">MOVE RELEASES </td>
219 
            </tr>
 219 
              <td align="right" valign="bottom"></td>
220 
        </table></td>
 220 
            </tr>
221 
        <td width="1%"></td>
 221 
        </table></td>
222 
      </tr>
 222 
        <td width="1%"></td>
223 
      <tr>
 223 
      </tr>
224 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 224 
      <tr>
225 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 225 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
226 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 226 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
227 
      </tr>
 227 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
228 
      <tr>
 228 
      </tr>
229 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 229 
      <tr>
230 
        <td bgcolor="#FFFFFF" valign="top">
 230 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
231 
		<%
 231 
        <td bgcolor="#FFFFFF" valign="top">
232 
		Call Messenger ( "Click and Drag releases up/down.", 3, "100%" )
 232 
		<%
233 
		%>
 233 
		Call Messenger ( "Click and Drag releases up/down.", 3, "100%" )
234 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
234 
		%>
235 
		<!--#include file="messages/_msg_inline.asp"-->
 235 
		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
236 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 236 
		<!--#include file="messages/_msg_inline.asp"-->
237 
		<br>
 237 
		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
238 
		<!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
238 
		<br>
239 
		<ul id="list" class="boxy">
 239 
		<!-- SORT PRODUCT +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
240 
		<%
 240 
		<ul id="list" class="boxy">
241 
		OraDatabase.Parameters.Add "PARENT_RTAG_ID", 	objFormCollector.Item("parent_rtag_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
241 
		<%
242 
		OraDatabase.Parameters.Add "PROJ_ID", 			objFormCollector.Item("proj_id"),			ORAPARM_INPUT, ORATYPE_NUMBER
242 
		OraDatabase.Parameters.Add "PARENT_RTAG_ID", 	objFormCollector.Item("parent_rtag_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
243
243 
		OraDatabase.Parameters.Add "PROJ_ID", 			objFormCollector.Item("proj_id"),			ORAPARM_INPUT, ORATYPE_NUMBER
244
244
245 
		If (objFormCollector.Item("rtag_id") = objFormCollector.Item("parent_rtag_id")) Then
 245
246 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseRootElements.sql"), ORADYN_DEFAULT )
 246 
		If (objFormCollector.Item("rtag_id") = objFormCollector.Item("parent_rtag_id")) Then
247 
		Else
 247 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseRootElements.sql"), ORADYN_DEFAULT )
248 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseChildrenElements.sql"), ORADYN_DEFAULT )
 248 
		Else
249 
		End If
 249 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseChildrenElements.sql"), ORADYN_DEFAULT )
250
250 
		End If
251
251
252 
		OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
 252
253 
		OraDatabase.Parameters.Remove "PROJ_ID"
 253 
		OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
254
254 
		OraDatabase.Parameters.Remove "PROJ_ID"
255
255
256 
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 256
257 
		%>
 257 
		While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
258
258 
		%>
259 
			<li id="<%=rsQry("rtag_id")%>"><%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></li>
 259
260
260 
			<li id="<%=rsQry("rtag_id")%>"><%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></li>
261 
		<%rsQry.MoveNext%>
 261
262 
		<%
 262 
		<%rsQry.MoveNext%>
263 
		WEnd
 263 
		<%
264
264 
		WEnd
265 
		rsQry.Close()
 265
266 
		Set rsQry = Nothing
 266 
		rsQry.Close()
267 
		%>
 267 
		Set rsQry = Nothing
268 
		</ul>
 268 
		%>
269 
		<br>
 269 
		</ul>
270 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 270 
		<br>
271
271 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
272 
		</td>
 272
273 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 273 
		</td>
274 
      </tr>
 274 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
275 
	  <tr>
 275 
      </tr>
276 
        <td background="images/bg_action_norm.gif" ></td>
 276 
	  <tr>
277 
        <td align="right" background="images/bg_action_norm.gif" >
 277 
        <td background="images/bg_action_norm.gif" ></td>
278 
		<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
 278 
        <td align="right" background="images/bg_action_norm.gif" >
279 
		<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
 279 
		<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
280 
		<%=objPMod.ComposeHiddenTags()%>
 280 
		<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
281 
		<input type="hidden" name="rtag_id_list" value="<%=Request("rtag_id_list")%>">
 281 
		<%=objPMod.ComposeHiddenTags()%>
282 
		<input type="hidden" name="action" value="true">
 282 
		<input type="hidden" name="rtag_id_list" value="<%=Request("rtag_id_list")%>">
283 
		</td>
 283 
		<input type="hidden" name="action" value="true">
284 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 284 
		</td>
285 
      </tr>
 285 
        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
286 
      <tr>
 286 
      </tr>
287 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 287 
      <tr>
288 
        <td background="images/lbox_bg_blue.gif"></td>
 288 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
289 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 289 
        <td background="images/lbox_bg_blue.gif"></td>
290 
      </tr>
 290 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
291 
    </table>
 291 
      </tr>
292
292 
    </table>
293 
	<!-- ACTION BUTTONS ---------------------------------------------->
 293
294 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
 294 
	<!-- ACTION BUTTONS ---------------------------------------------->
295 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 295 
	<!-- ACTION BUTTONS END  ------------------------------------------></td>
296 
  </tr>
 296 
	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
297 
  <tr>
297 
  </tr>
298 
    <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>
 298 
  <tr>
299 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 299 
    <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>
300 
  </tr>
 300 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
301 
<%
 301 
  </tr>
302 
Call objFormComponent.FormEnd()
 302 
<%
303 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 303 
Call objFormComponent.FormEnd()
304 
%>
304 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
305 
</table>
 305 
%>
306 
 
 306 
</table>
307 
 
 307 
 
308 
<!-- FOOTER -->
 308 
 
309 
<!--#include file="_footer.asp"-->
 309 
<!-- FOOTER -->
310 
</body>
 310 
<!--#include file="_footer.asp"-->
311 
</html>
 311 
</body>
312 
<%
 312 
</html>
313 
Call Destroy_All_Objects
 313 
<%
- 
 
 314 
Call Destroy_All_Objects
314 
%>
 315 
%>
315 

            316