Subversion Repositories DevTools

Rev

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

Rev 13 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          AdminProjectIterations	 	 |
 5 
'|			          AdminProjectIterations	 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_admin_projects_common.asp"-->
 16 
<!--#include file="common/_admin_projects_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<!--#include file="_access_control_admin_pages.asp"-->
 21 
<!--#include file="_access_control_admin_pages.asp"-->
22 
<%
 22 
<%
23 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
24 
Dim rsQry
 24 
Dim rsQry
25 
Dim i
 25 
Dim i
26 
Dim LastRow
 26 
Dim LastRow
27 
Dim aIterationCollector
 27 
Dim aIterationCollector
28 
Dim parAction
 28 
Dim parAction
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
parAction = Request("action")
 31 
parAction = Request("action")
32 
parBranch_id = Request("branch_id")
 32 
parBranch_id = Request("branch_id")
33 
'------------ CONDITIONS ----------------------
 33 
'------------ CONDITIONS ----------------------
34 
'----------------------------------------------
 34 
'----------------------------------------------
35 
%>
 35 
%>
36 
<%
 36 
<%
37 
'--------------------------------------------------------------------------------------------------------------------------------
 37 
'--------------------------------------------------------------------------------------------------------------------------------
38 
Sub GetIterations ( aIterationCollector, nProj_id )
 38 
Sub GetIterations ( aIterationCollector, nProj_id )
39 
	Dim rsQry
 39 
	Dim rsQry
40
40
41 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
41 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
42
42
43 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BranchList.sql"), ORADYN_DEFAULT )
 43 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("BranchList.sql"), ORADYN_DEFAULT )
44
44
45 
	If rsQry.RecordCount > 0 Then
 45 
	If rsQry.RecordCount > 0 Then
46 
		aIterationCollector = rsQry.GetRows()
 46 
		aIterationCollector = rsQry.GetRows()
47 
	Else
 47 
	Else
48 
		aIterationCollector = NULL
 48 
		aIterationCollector = NULL
49 
	End If
 49 
	End If
50
50
51 
	rsQry.Close
 51 
	rsQry.Close
52 
	Set rsQry = Nothing
 52 
	Set rsQry = Nothing
53 
	OraDatabase.Parameters.Remove "PROJ_ID"
 53 
	OraDatabase.Parameters.Remove "PROJ_ID"
54 
End Sub
 54 
End Sub
55 
'--------------------------------------------------------------------------------------------------------------------------------
 55 
'--------------------------------------------------------------------------------------------------------------------------------
56 
Sub RenderRMBranchesCombo( nVtree_id, nRMProj_fk )
56 
Sub RenderRMBranchesCombo( nVtree_id, nRMProj_fk )
57 
	Dim rsQry, Disabled
 57 
	Dim rsQry, Disabled
58
58
59 
	Disabled = ""
 59 
	Disabled = ""
60
60
61 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
 61 
	If (nRMProj_fk = "") OR ( IsNull(nRMProj_fk) ) Then Disabled = "disabled"
62
62
63
63
64 
	OraDatabase.Parameters.Add "RM_PROJ_FK", 	nRMProj_fk,	ORAPARM_INPUT, ORATYPE_NUMBER
 64 
	OraDatabase.Parameters.Add "RM_PROJ_FK", 	nRMProj_fk,	ORAPARM_INPUT, ORATYPE_NUMBER
65 
	OraDatabase.Parameters.Add "VTREE_ID", 		nVtree_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 65 
	OraDatabase.Parameters.Add "VTREE_ID", 		nVtree_id,	ORAPARM_INPUT, ORATYPE_NUMBER
66
66
67 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMBranchList.sql"), ORADYN_DEFAULT )
 67 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMBranchList.sql"), ORADYN_DEFAULT )
68
68
69
69
70 
	Response.write "<select name='rm_vtree_fk' class='form_iname' "& Disabled &">"
 70 
	Response.write "<select name='rm_vtree_fk' class='form_iname' "& Disabled &">"
71 
	Response.write "<option value=''></option>"
 71 
	Response.write "<option value=''></option>"
72
72
73
73
74 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 74 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
75 
		Response.write "<option value='"& rsQry("vtree_id") &"' "& rsQry("selected") &">"& rsQry("rtag_name").Value &"</option>"
 75 
		Response.write "<option value='"& rsQry("vtree_id") &"' "& rsQry("selected") &">"& rsQry("rtag_name").Value &"</option>"
76
76
77 
		rsQry.MoveNext
 77 
		rsQry.MoveNext
78 
	WEnd
 78 
	WEnd
79
79
80
80
81 
	Response.write "</select>"
 81 
	Response.write "</select>"
82
82
83
83
84
84
85 
	rsQry.Close
 85 
	rsQry.Close
86 
	Set rsQry = Nothing
 86 
	Set rsQry = Nothing
87
87
88 
	OraDatabase.Parameters.Remove "RM_PROJ_FK"
 88 
	OraDatabase.Parameters.Remove "RM_PROJ_FK"
89 
	OraDatabase.Parameters.Remove "VTREE_ID"
 89 
	OraDatabase.Parameters.Remove "VTREE_ID"
90 
End Sub
 90 
End Sub
91 
'--------------------------------------------------------------------------------------------------------------------------------
 91 
'--------------------------------------------------------------------------------------------------------------------------------
92 
Sub AddBranch ()
 92 
Sub AddBranch ()
93 
	On Error Resume Next
 93 
	On Error Resume Next
94
94
95 
	OraDatabase.Parameters.Add "BRANCH_NAME", 	Request("branch_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 95 
	OraDatabase.Parameters.Add "BRANCH_NAME", 	Request("branch_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
96 
	OraDatabase.Parameters.Add "PROJ_ID", 		Request("proj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
96 
	OraDatabase.Parameters.Add "PROJ_ID", 		Request("proj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK", Request("rm_vtree_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
97 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK", Request("rm_vtree_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
98 
	OraDatabase.Parameters.Add "BRANCH_COMMENTS", Request("branch_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
98 
	OraDatabase.Parameters.Add "BRANCH_COMMENTS", Request("branch_comments"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
99
99
100
100
101 
	objEH.TryORA ( OraSession )
 101 
	objEH.TryORA ( OraSession )
102
102
103 
	OraDatabase.ExecuteSQL _
 103 
	OraDatabase.ExecuteSQL _
104 
	"BEGIN   pk_Project.Add_Branch ( :BRANCH_NAME, :PROJ_ID, :RM_PROJECTS_FK, :BRANCH_COMMENTS );   END;"
 104 
	"BEGIN   pk_Project.Add_Branch ( :BRANCH_NAME, :PROJ_ID, :RM_PROJECTS_FK, :BRANCH_COMMENTS );   END;"
105
105
106 
	objEH.CatchORA ( OraSession )
 106 
	objEH.CatchORA ( OraSession )
107
107
108
108
109 
	OraDatabase.Parameters.Remove "BRANCH_NAME"
 109 
	OraDatabase.Parameters.Remove "BRANCH_NAME"
110 
	OraDatabase.Parameters.Remove "PROJ_ID"
 110 
	OraDatabase.Parameters.Remove "PROJ_ID"
111 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
 111 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
112 
	OraDatabase.Parameters.Remove "BRANCH_COMMENTS"
 112 
	OraDatabase.Parameters.Remove "BRANCH_COMMENTS"
113
113
114 
End Sub
 114 
End Sub
115 
'--------------------------------------------------------------------------------------------------------------------------------
 115 
'--------------------------------------------------------------------------------------------------------------------------------
116 
Sub EditBranch ()
 116 
Sub EditBranch ()
117 
	On Error Resume Next
 117 
	On Error Resume Next
118
118
119 
	OraDatabase.Parameters.Add "BRANCH_ID", 		Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
119 
	OraDatabase.Parameters.Add "BRANCH_ID", 		Request("branch_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
120 
	OraDatabase.Parameters.Add "BRANCH_NAME", 		Request("branch_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 120 
	OraDatabase.Parameters.Add "BRANCH_NAME", 		Request("branch_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
121 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK",	Request("rm_vtree_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
121 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK",	Request("rm_vtree_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
122 
	OraDatabase.Parameters.Add "BRANCH_COMMENTS",   Request("branch_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
122 
	OraDatabase.Parameters.Add "BRANCH_COMMENTS",   Request("branch_comments"), ORAPARM_INPUT, ORATYPE_VARCHAR2
123
123
124 
	objEH.TryORA ( OraSession )
 124 
	objEH.TryORA ( OraSession )
125
125
126 
	OraDatabase.ExecuteSQL _
 126 
	OraDatabase.ExecuteSQL _
127 
	"BEGIN   pk_Project.Update_Branch ( :BRANCH_ID, :BRANCH_NAME, :RM_PROJECTS_FK, :BRANCH_COMMENTS );   END;"
 127 
	"BEGIN   pk_Project.Update_Branch ( :BRANCH_ID, :BRANCH_NAME, :RM_PROJECTS_FK, :BRANCH_COMMENTS );   END;"
128
128
129 
	objEH.CatchORA ( OraSession )
 129 
	objEH.CatchORA ( OraSession )
130
130
131
131
132 
	OraDatabase.Parameters.Remove "BRANCH_NAME"
 132 
	OraDatabase.Parameters.Remove "BRANCH_NAME"
133 
	OraDatabase.Parameters.Remove "BRANCH_ID"
 133 
	OraDatabase.Parameters.Remove "BRANCH_ID"
134 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
 134 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
135 
	OraDatabase.Parameters.Remove "BRANCH_COMMENTS"
 135 
	OraDatabase.Parameters.Remove "BRANCH_COMMENTS"
136
136
137 
End Sub
 137 
End Sub
138 
'--------------------------------------------------------------------------------------------------------------------------------
 138 
'--------------------------------------------------------------------------------------------------------------------------------
139 
%>
 139 
%>
140 
<%
 140 
<%
141 
'------------ RUN BEFORE PAGE RENDER ----------
 141 
'------------ RUN BEFORE PAGE RENDER ----------
142 
' --- Get Form details from DB ---
 142 
' --- Get Form details from DB ---
143 
'Call GetFormDetails ( Request("bom_id"), objFormCollector )
 143 
'Call GetFormDetails ( Request("bom_id"), objFormCollector )
144 
 
 144 
 
145 
' --- Load Validation Rules ---
 145 
' --- Load Validation Rules ---
146 
Call objForm.LoadValidationRules ( Array("branch_name","branch_comments"), OraDatabase )		' Load Validation Rules
 146 
Call objForm.LoadValidationRules ( Array("branch_name","branch_comments"), OraDatabase )		' Load Validation Rules
147 
 
 147 
 
148 
' --- Enter Form Validation Rule Changes here... ----
 148 
' --- Enter Form Validation Rule Changes here... ----
149 
'----------------------------------------------------
 149 
'----------------------------------------------------
150 
 
 150 
 
151 
' --- RUN onPostBack ---
 151 
' --- RUN onPostBack ---
152 
If Request("doit") <> "" Then
 152 
If Request("doit") <> "" Then
153 
	If objForm.IsValidOnPostBack Then
 153 
	If objForm.IsValidOnPostBack Then
154 
		' --- Form is Valid ---
 154 
		' --- Form is Valid ---
155
155
156 
		Select Case Request("action")
 156 
		Select Case Request("action")
157 
			Case "new"
 157 
			Case "new"
158 
				Call AddBranch()
 158 
				Call AddBranch()
159 
			Case "edit"
 159 
			Case "edit"
160 
				Call EditBranch()
 160 
				Call EditBranch()
161
161
162 
		End Select
 162 
		End Select
163
163
164
164
165 
		If objEH.Finally Then
 165 
		If objEH.Finally Then
166 
			Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )
 166 
			Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )
167 
		End If
 167 
		End If
168
168
169 
	End If
 169 
	End If
170
170
171
171
172
172
173 
End If
 173 
End If
174 
 
 174 
 
175 
'----------------------------------------------
 175 
'----------------------------------------------
176 
%>
 176 
%>
177 
<html>
 177 
<html>
178 
<head>
 178 
<head>
179 
<title>Deployment Manager</title>
 179 
<title>Deployment Manager</title>
180 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 180 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
181 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 181 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
182 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 182 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
183 
<script language="JavaScript" src="scripts/common.js"></script>
 183 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
184 
</head>
 184 
<script language="JavaScript" src="scripts/common.js"></script>
185 
 
 185 
</head>
186 
<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.branch_name.focus();"<%End If%>>
 186 
 
187 
<!-- HEADER ++++++++++++++++ -->
 187 
<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.branch_name.focus();"<%End If%>>
188 
<!--#include file="_header.asp"-->
 188 
<!-- HEADER ++++++++++++++++ -->
189 
<!-- +++++++++++++++++++++++ -->
 189 
<!--#include file="_header.asp"-->
190 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
 190 
<!-- +++++++++++++++++++++++ -->
191 
<!--#include file="_main_menu_admin.asp"-->
 191 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
192 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 192 
<!--#include file="_main_menu_admin.asp"-->
193 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 193 
<!-- +++++++++++++++++++++++++++++++++++++ -->
194 
  <tr>
 194 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
195 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 195 
  <tr>
196 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
 196 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
197 
	<!--#include file="_admin_project_browser.asp"-->
 197 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
198 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
 198 
	<!--#include file="_admin_project_browser.asp"-->
199 
	</td>
 199 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
200 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 200 
	</td>
201 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 201 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
202 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 202 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
203 
      <tr>
 203 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
204 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
 204 
      <tr>
205 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
 205 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
206 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 206 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
207 
		<!--#include file="_tabs_definition.asp"-->
 207 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
208 
		<%
 208 
		<!--#include file="_tabs_definition.asp"-->
209 
		Set objTabControl = New TabControl
 209 
		<%
210 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
 210 
		Set objTabControl = New TabControl
211 
		objTabControl.TabStyle = "StyleWinXP"
 211 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
212 
		objTabControl.AddTabDefnition ( arrAdminProjectsTabDef )
 212 
		objTabControl.TabStyle = "StyleWinXP"
213 
		objTabControl.SelectByName ("Iterations")
 213 
		objTabControl.AddTabDefnition ( arrAdminProjectsTabDef )
214 
		objTabControl.Render ()
 214 
		objTabControl.SelectByName ("Iterations")
215 
		%>
 215 
		objTabControl.Render ()
216 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 216 
		%>
217 
		</td>
 217 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
218 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
 218 
		</td>
219 
        </tr>
 219 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
220 
      <tr>
 220 
        </tr>
221 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 221 
      <tr>
222 
        <td background="images/bg_bage_0.gif">
 222 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
223 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 223 
        <td background="images/bg_bage_0.gif">
224 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 224 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
225 
		</td>
 225 
		<!-- +++++++++++++++++++++++++++++++++++ -->
226 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 226 
		</td>
227 
          <tr>
 227 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
228 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
 228 
          <tr>
229 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 229 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
230 
          </tr>
 230 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
231 
        </table></td>
 231 
          </tr>
232 
        </tr>
 232 
        </table></td>
233 
      <tr>
 233 
        </tr>
234 
        <td>&nbsp;</td>
 234 
      <tr>
235 
        <td><br><br>
 235 
        <td>&nbsp;</td>
236 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 236 
        <td><br><br>
237 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 237 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
238 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
 238 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
239 
		  <%
 239 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
240 
		  Call GetIterations ( aIterationCollector, parProj_id )
 240 
		  <%
241
241 
		  Call GetIterations ( aIterationCollector, parProj_id )
242
242
243 
		  %>
 243
244 
            <tr>
 244 
		  %>
245 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 245 
            <tr>
246 
                <tr>
 246 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
247 
                  <td width="1" background="images/bg_bage_0.gif"></td>
 247 
                <tr>
248 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Iteration Name </td>
 248 
                  <td width="1" background="images/bg_bage_0.gif"></td>
249 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Manager Iteration </td>
 249 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Iteration Name </td>
250 
				  <td width="60%" background="images/bg_bage_0.gif" class="body_col" nowrap>Comments</td>
 250 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Manager Iteration </td>
251 
				  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Hide</td>
 251 
				  <td width="60%" background="images/bg_bage_0.gif" class="body_col" nowrap>Comments</td>
252 
                  <td background="images/bg_bage_0.gif">&nbsp;</td>
 252 
				  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Hide</td>
253 
                </tr>
 253 
                  <td background="images/bg_bage_0.gif">&nbsp;</td>
254 
				<%
 254 
                </tr>
255 
				If NOT IsNull(aIterationCollector) Then
 255 
				<%
256 
					LastRow = Ubound( aIterationCollector, 2 )
 256 
				If NOT IsNull(aIterationCollector) Then
257 
					For i = 0 To LastRow
 257 
					LastRow = Ubound( aIterationCollector, 2 )
258 
					%>
 258 
					For i = 0 To LastRow
259 
					<%If parAction = "" Then%>
 259 
					%>
260 
					<!-- NORMAL ROW +++++++++++++++++++ -->
 260 
					<%If parAction = "" Then%>
261 
	                <tr>
 261 
					<!-- NORMAL ROW +++++++++++++++++++ -->
262 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
 262 
	                <tr>
263 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(1, i)%></td>
 263 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
264 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(3, i)%></td>
 264 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(1, i)%></td>
265 
					  <td bgcolor="#FFFFFF" class="body_row"><%=objFormater.TextToHtml( aIterationCollector(5, i) )%></td>
 265 
	                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(3, i)%></td>
266 
					  <td bgcolor="#FFFFFF" align="center" background="images/bg_bage_0.gif"><a href="_ShowHideBranch.asp?rfile=<%=SCRIPT_NAME%>&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="ShowProgress();"><%=GetTick ( aIterationCollector(4, i) )%></a></td>
 266 
					  <td bgcolor="#FFFFFF" class="body_row"><%=objFormater.TextToHtml( aIterationCollector(5, i) )%></td>
267 
	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveBranch.asp?rfile=<%=SCRIPT_NAME%>&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aIterationCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>
 267 
					  <td bgcolor="#FFFFFF" align="center" background="images/bg_bage_0.gif"><a href="_ShowHideBranch.asp?rfile=<%=SCRIPT_NAME%>&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="ShowProgress();"><%=GetTick ( aIterationCollector(4, i) )%></a></td>
268 
	                </tr>
 268 
	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveBranch.asp?rfile=<%=SCRIPT_NAME%>&branch_id=<%=aIterationCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aIterationCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>
269 
					<!-- +++++++++++++++++++++++++++++++++ -->
 269 
	                </tr>
270
270 
					<!-- +++++++++++++++++++++++++++++++++ -->
271 
					<%Else%>
 271
272
272 
					<%Else%>
273 
						<%If CStr(aIterationCollector(0, i)) <> parBranch_id Then%>
 273
274 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
 274 
						<%If CStr(aIterationCollector(0, i)) <> parBranch_id Then%>
275 
						<tr>
 275 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
276 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
 276 
						<tr>
277 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(1, i)%></td>
 277 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
278 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(3, i)%></td>
 278 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(1, i)%></td>
279 
						  <td bgcolor="#FFFFFF" class="body_row"><%=objFormater.TextToHtml( aIterationCollector(5, i) )%></td>
 279 
		                  <td valign="top" bgcolor="#FFFFFF" class="body_row" nowrap><%=aIterationCollector(3, i)%></td>
280 
						  <td align="center" bgcolor="#FFFFFF" nowrap background="images/bg_bage_0.gif"><%=GetTick ( aIterationCollector(4, i) )%></td>
 280 
						  <td bgcolor="#FFFFFF" class="body_row"><%=objFormater.TextToHtml( aIterationCollector(5, i) )%></td>
281 
		                  <td align="center" nowrap background="images/bg_bage_0.gif">&nbsp;</td>
 281 
						  <td align="center" bgcolor="#FFFFFF" nowrap background="images/bg_bage_0.gif"><%=GetTick ( aIterationCollector(4, i) )%></td>
282 
		                </tr>
 282 
		                  <td align="center" nowrap background="images/bg_bage_0.gif">&nbsp;</td>
283 
						<!-- +++++++++++++++++++++++++++++++++ -->
 283 
		                </tr>
284 
						<%Else%>
 284 
						<!-- +++++++++++++++++++++++++++++++++ -->
285 
						<!-- EDIT ROW ++++++++++++++++++++++++ -->
 285 
						<%Else%>
286 
						<input type="hidden" name="action" value="edit">
 286 
						<!-- EDIT ROW ++++++++++++++++++++++++ -->
287 
						<tr>
 287 
						<input type="hidden" name="action" value="edit">
288 
		                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 288 
						<tr>
289 
		                  <td background="images/bg_note.gif" class="body_row" valign="top">
 289 
		                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
290 
						  <input type="text" name="branch_name" class='form_iname' value="<%=objForm.GetValue( "branch_name", aIterationCollector(1, i) )%>">
 290 
		                  <td background="images/bg_note.gif" class="body_row" valign="top">
291 
						  <%=objForm.Validate ("branch_name")%>
 291 
						  <input type="text" name="branch_name" class='form_iname' value="<%=objForm.GetValue( "branch_name", aIterationCollector(1, i) )%>">
292 
						  </td>
 292 
						  <%=objForm.Validate ("branch_name")%>
293 
		                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMBranchesCombo( aIterationCollector(2, i), objProjCollector.Item("rm_projects_fk") )%></td>
 293 
						  </td>
294 
						  <td background="images/bg_note.gif">
 294 
		                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMBranchesCombo( aIterationCollector(2, i), objProjCollector.Item("rm_projects_fk") )%></td>
295 
						  <textarea cols="60" rows="5" name="branch_comments" class='form_iname'><%=objForm.GetValue( "branch_comments", aIterationCollector(5, i) )%></textarea>
 295 
						  <td background="images/bg_note.gif">
296 
				  		  <%=objForm.Validate ("branch_comments")%>
 296 
						  <textarea cols="60" rows="5" name="branch_comments" class='form_iname'><%=objForm.GetValue( "branch_comments", aIterationCollector(5, i) )%></textarea>
297 
						  </td>
 297 
				  		  <%=objForm.Validate ("branch_comments")%>
298 
						  <td background="images/bg_note.gif">&nbsp;</td>
 298 
						  </td>
299 
		                  <td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
 299 
						  <td background="images/bg_note.gif">&nbsp;</td>
300 
		                </tr>
 300 
		                  <td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
301 
						<!-- +++++++++++++++++++++++++++++++++ -->
 301 
		                </tr>
302 
						<%End If%>
 302 
						<!-- +++++++++++++++++++++++++++++++++ -->
303 
					<%End If%>
 303 
						<%End If%>
304
304 
					<%End If%>
305
305
306 
				<%
 306
307 
					Next
 307 
				<%
308
308 
					Next
309 
				End If
 309
310 
				%>
 310 
				End If
311
311 
				%>
312
312
313 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
 313
314 
				<%If parAction = "new" Then%>
 314 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
315
315 
				<%If parAction = "new" Then%>
316 
				<input type="hidden" name="action" value="new">
 316
317 
				<tr>
 317 
				<input type="hidden" name="action" value="new">
318 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 318 
				<tr>
319 
                  <td background="images/bg_note.gif" class="body_row" valign="top">
 319 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
320 
				  <input type="text" name="branch_name" class='form_iname' value="<%=Request("branch_name")%>">
 320 
                  <td background="images/bg_note.gif" class="body_row" valign="top">
321 
				  <%=objForm.Validate ("branch_name")%>
 321 
				  <input type="text" name="branch_name" class='form_iname' value="<%=Request("branch_name")%>">
322 
				  </td>
 322 
				  <%=objForm.Validate ("branch_name")%>
323 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMBranchesCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
 323 
				  </td>
324 
				  <td background="images/bg_note.gif" class="body_row" valign="top">
 324 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMBranchesCombo( Request("rm_vtree_fk"), objProjCollector.Item("rm_projects_fk") )%></td>
325 
				  <textarea cols="60" rows="3" name="branch_comments" class='form_iname'><%=Request("branch_comments")%></textarea>
 325 
				  <td background="images/bg_note.gif" class="body_row" valign="top">
326 
				  <%=objForm.Validate ("branch_comments")%>
 326 
				  <textarea cols="60" rows="3" name="branch_comments" class='form_iname'><%=Request("branch_comments")%></textarea>
327 
				  </td>
 327 
				  <%=objForm.Validate ("branch_comments")%>
328 
				  <td background="images/bg_note.gif" class="body_row" valign="top">&nbsp;</td>
 328 
				  </td>
329 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
 329 
				  <td background="images/bg_note.gif" class="body_row" valign="top">&nbsp;</td>
330 
                </tr>
 330 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
331 
				<%End If%>
 331 
                </tr>
332 
				<!-- +++++++++++++++++++++++++++++++++ -->
 332 
				<%End If%>
333
333 
				<!-- +++++++++++++++++++++++++++++++++ -->
334
334
335 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
 335
336 
				<%If parAction = "" Then%>
 336 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
337 
				<tr>
 337 
				<%If parAction = "" Then%>
338 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>
 338 
				<tr>
339 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 339 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>
340 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 340 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
341 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 341 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
342 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 342 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
343 
                  <td bgcolor="#FFFFFF">&nbsp;</td>
 343 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
344 
                </tr>
 344 
                  <td bgcolor="#FFFFFF">&nbsp;</td>
345 
				<%End If%>
 345 
                </tr>
346 
				<!-- +++++++++++++++++++++++++++++++++ -->
 346 
				<%End If%>
347
347 
				<!-- +++++++++++++++++++++++++++++++++ -->
348 
              </table></td>
 348
349 
            </tr>
 349 
              </table></td>
350 
		  <%=objPMod.ComposeHiddenTags()%>
 350 
            </tr>
351 
		  <input type="hidden" name="branch_id" value="<%=parBranch_id%>">
 351 
		  <%=objPMod.ComposeHiddenTags()%>
352 
		  <input type="hidden" name="doit" value="true">
 352 
		  <input type="hidden" name="branch_id" value="<%=parBranch_id%>">
353 
		  </form>
 353 
		  <input type="hidden" name="doit" value="true">
354 
          </table>
 354 
		  </form>
355 
          </td>
 355 
          </table>
356 
        <td valign="top"></td>
 356 
          </td>
357 
        </tr>
 357 
        <td valign="top"></td>
358 
    </table>
 358 
        </tr>
359 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 359 
    </table>
360 
	</td>
 360 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
361 
  </tr>
 361 
	</td>
362 
  <tr>
 362 
  </tr>
363 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
 363 
  <tr>
364 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 364 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
365 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 365 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
366 
  </tr>
 366 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
367 
  <tr>
 367 
  </tr>
368 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 368 
  <tr>
369 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 369 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
370 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 370 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
371 
  </tr>
 371 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
372 
</table>
 372 
  </tr>
373 
<!-- FOOTER ++++++++++++++++ -->
 373 
</table>
374 
<!--#include file="_footer.asp"-->
 374 
<!-- FOOTER ++++++++++++++++ -->
375 
<!-- +++++++++++++++++++++++ -->
 375 
<!--#include file="_footer.asp"-->
376 
</body>
 376 
<!-- +++++++++++++++++++++++ -->
377 
</html>
 377 
</body>
378 
<%
 378 
</html>
379 
'------------ RUN AFTER PAGE RENDER -----------
 379 
<%
380 
Set objPMod = Nothing
 380 
'------------ RUN AFTER PAGE RENDER -----------
381 
Set objTabControl = Nothing
 381 
Set objPMod = Nothing
382 
'----------------------------------------------
 382 
Set objTabControl = Nothing
- 
 
 383 
'----------------------------------------------
383 
%><!--#include file="common/globals_destructor.asp"-->
 384 
%><!--#include file="common/globals_destructor.asp"-->
384 

            385