Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|		           Build Order			             |
 5 
'|                  Build Order                      |
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 
<%
 14 
<%
15 
'To enable the script timeout to 20 mins
 15 
'To enable the script timeout to 20 mins
16 
Server.ScriptTimeout=1200
 16 
Server.ScriptTimeout=1200
17 
%>
 17 
%>
Line 24... Line 24...
24 
<!--#include file="_tabs.asp"-->
 24 
<!--#include file="_tabs.asp"-->
25 
<!--#include file="_action_buttons.asp"-->
 25 
<!--#include file="_action_buttons.asp"-->
26 
<%
 26 
<%
27 
' Make sure rtag_id is always present
 27 
' Make sure rtag_id is always present
28 
If Request("rtag_id") = "" Then
 28 
If Request("rtag_id") = "" Then
29 
	Response.Redirect("index.asp")
 29 
   Response.Redirect("index.asp")
30 
End If
 30 
End If
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
'------------ ACCESS CONTROL ------------------
 33 
'------------ ACCESS CONTROL ------------------
34 
%>
 34 
%>
35 
<!--#include file="_access_control_general.asp"-->
 35 
<!--#include file="_access_control_general.asp"-->
36 
<%
 36 
<%
37 
'------------ Variable Definition -------------
 37 
'------------ Variable Definition -------------
38 
Dim rsOrder
 38 
Dim rsOrder
39 
Dim parPv_id
 39 
Dim parPv_id
40 
'Dim parMinEnv		' show/hide whole environment
 40 
'Dim parMinEnv      ' show/hide whole environment
41 
'------------ Constants Declaration -----------
 41 
'------------ Constants Declaration -----------
42 
Const UP_THE_TREE = 1
 42 
Const UP_THE_TREE = 1
43 
Const DOWN_THE_TREE = -1
 43 
Const DOWN_THE_TREE = -1
44 
'------------ Variable Init -------------------
 44 
'------------ Variable Init -------------------
45 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 45 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
Line 50... Line 50...
50 
<%
 50 
<%
51 
Call Rebuild_Environment ( parRtag_id )
 51 
Call Rebuild_Environment ( parRtag_id )
52 
%>
 52 
%>
53 
<%
 53 
<%
54 
Function Get_Build_Order ( nRtag_id )
 54 
Function Get_Build_Order ( nRtag_id )
55 
	Get_Build_Order = _
 55 
   Get_Build_Order = _
56 
	"   SELECT bo.step_num, pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, bo.UNRESOLVED "&_
 56 
   "   SELECT bo.step_num, pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, bo.UNRESOLVED "&_
57 
	"	  FROM build_order bo,"&_
 57 
   "     FROM build_order bo,"&_
58 
	"		   package_versions pv,"&_
 58 
   "         package_versions pv,"&_
59 
	"		   packages pkg"&_
 59 
   "         packages pkg"&_
60 
	"	 WHERE bo.RTAG_ID = "& nRtag_id &_
 60 
   "    WHERE bo.RTAG_ID = "& nRtag_id &_
61 
	"	   AND bo.pv_id = pv.pv_id"&_
 61 
   "      AND bo.pv_id = pv.pv_id"&_
62 
	"	   AND pv.pkg_id = pkg.pkg_id"&_
 62 
   "      AND pv.pkg_id = pkg.pkg_id"&_
63 
	"	ORDER BY bo.STEP_NUM, UPPER(pkg.pkg_name)"
 63 
   "   ORDER BY bo.STEP_NUM, UPPER(pkg.pkg_name)"
64 
End Function
 64 
End Function
65 
 
 65 
 
66 
 
 66 
 
67 
Function Indent
 67 
Function Indent
68 
	Indent = "<img src='images/rex_images/_corrner.gif' width='26' height='16' border='0' align='absmiddle'>"
 68 
   Indent = "<img src='images/rex_images/_corrner.gif' width='26' height='16' border='0' align='absmiddle'>"
69 
End Function
 69 
End Function
70 
 
 70 
 
71 
 
 71 
 
72 
Function TabsFromStart ( SStabs )
 72 
Function TabsFromStart ( SStabs )
73 
	Dim widthimg
 73 
   Dim widthimg
74 
	widthimg = SStabs * 27
 74 
   widthimg = SStabs * 27
75 
	TabsFromStart = "<img src='images/h_trsp_dot.gif' width='"& widthimg &"' height='16' border='0' align='absmiddle'>"
 75 
   TabsFromStart = "<img src='images/h_trsp_dot.gif' width='"& widthimg &"' height='16' border='0' align='absmiddle'>"
76 
End Function
 76 
End Function
77 
 
 77 
 
78 
 
 78 
 
79 
Sub Generate_Build_Tree ( nRtag_id, outSessionNum )
 79 
Sub Generate_Build_Tree ( nRtag_id, outSessionNum )
80 
	OraDatabase.Parameters.Add "RTAG_ID", 		nRtag_id,	ORAPARM_INPUT, 	ORATYPE_NUMBER
 80 
   OraDatabase.Parameters.Add "RTAG_ID",       nRtag_id,   ORAPARM_INPUT,    ORATYPE_NUMBER
81 
	OraDatabase.Parameters.Add "SESSION_NUM", 	0, 			ORAPARM_OUTPUT, ORATYPE_NUMBER
 81 
   OraDatabase.Parameters.Add "SESSION_NUM",    0,          ORAPARM_OUTPUT, ORATYPE_NUMBER
82 
 
 82 
 
- 
 
 83 
   objEH.TryORA ( OraSession )
83 
	OraSession.BeginTrans
 84 
   On Error Resume Next
84
85 
 
85 
	OraDatabase.ExecuteSQL _
 86 
   OraDatabase.ExecuteSQL _
86 
	" BEGIN Build_Tree ( :RTAG_ID, :SESSION_NUM ); END;"
 87 
   " BEGIN Build_Tree ( :RTAG_ID, :SESSION_NUM ); END;"
87
88 
 
88 
  	OraSession.CommitTrans
 89 
   objEH.CatchORA ( OraSession )
89
90 
 
90 
	outSessionNum = OraDatabase.Parameters("SESSION_NUM").Value
91 
   outSessionNum = OraDatabase.Parameters("SESSION_NUM").Value
91 
	OraDatabase.Parameters.Remove "RTAG_ID"
 92 
   OraDatabase.Parameters.Remove "RTAG_ID"
92 
	OraDatabase.Parameters.Remove "SESSION_NUM"
 93 
   OraDatabase.Parameters.Remove "SESSION_NUM"
93 
End Sub
 94 
End Sub
94 
 
 95 
 
95 
 
 96 
 
96 
Sub Delete_Build_Tree ( nSessionNum )
 97 
Sub Delete_Build_Tree ( nSessionNum )
- 
 
 98 
   objEH.TryORA ( OraSession )
97 
	OraSession.BeginTrans
 99 
   On Error Resume Next
- 
 
 100 
 
98 
	OraDatabase.ExecuteSQL _
 101 
   OraDatabase.ExecuteSQL _
99 
	" DELETE FROM TEMP_TREE_BROWSE WHERE session_num = "& nSessionNum
 102 
   " DELETE FROM TEMP_TREE_BROWSE WHERE session_num = "& nSessionNum
- 
 
 103 
 
100 
  	OraSession.CommitTrans
 104 
   objEH.CatchORA ( OraSession )
101 
End Sub
 105 
End Sub
102 
%>
 106 
%>
103 
<html>
 107 
<html>
104 
<head>
 108 
<head>
105 
<title>Release Manager</title>
 109 
<title>Release Manager</title>
Line 112... Line 116...
112 
<!--#include file="_menu_def.asp"-->
 116 
<!--#include file="_menu_def.asp"-->
113 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 117 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
114 
</head>
 118 
</head>
115 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 119 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
116 
<!-- MENU LAYERS -------------------------------------->
 120 
<!-- MENU LAYERS -------------------------------------->
117 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
121 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
118 
  <!----------------------------------------------------->
 122 
  <!----------------------------------------------------->
119 
</div>
 123 
</div>
120 
<!-- HEADER -->
 124 
<!-- HEADER -->
121 
<!--#include file="_header.asp"-->
 125 
<!--#include file="_header.asp"-->
122 
<!-- BODY ---->
 126 
<!-- BODY ---->
123 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 127 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
124 
	<tr>
128 
   <tr>
125 
		<td valign="top" width="1" background="images/bg_bage.gif">
 129 
      <td valign="top" width="1" background="images/bg_bage.gif">
126 
		<!-- LEFT -->
 130 
      <!-- LEFT -->
127 
		</td>
 131 
      </td>
128 
		<td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 132 
      <td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
129 
		<td valign="top" width="100%">
 133 
      <td valign="top" width="100%">
130 
		<!-- MIDDLE -->
 134 
      <!-- MIDDLE -->
131 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
 135 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
132 
		  <tr>
 136 
        <tr>
133 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
 137 
          <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
134 
		    <td width="100%" background="images/bg_action_norm.gif"></td>
 138 
          <td width="100%" background="images/bg_action_norm.gif"></td>
135 
		    <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
 139 
          <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
136 
		  </tr>
 140 
        </tr>
137 
		  <!-- PACKAGE PROPERTIES ----------------------------  -->
 141 
        <!-- PACKAGE PROPERTIES ----------------------------  -->
138 
  		  <%'Call RenderPackageProperties ()%>
 142 
          <%'Call RenderPackageProperties ()%>
139 
		  <tr>
 143 
        <tr>
140 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
 144 
          <td background="images/bg_lght_gray.gif">&nbsp;</td>
141 
		    <td valign="bottom" background="images/bg_lght_gray.gif">
 145 
          <td valign="bottom" background="images/bg_lght_gray.gif">
142 
		      <table width="100" border="0" cellspacing="0" cellpadding="0">
 146 
            <table width="100" border="0" cellspacing="0" cellpadding="0">
143 
		        <tr>
 147 
              <tr>
144 
		          <td><IMG height=1 src="images/spacer.gif" width=150></td>
 148 
                <td><IMG height=1 src="images/spacer.gif" width=150></td>
145 
		          <td>
 149 
                <td>
146 
				  <!-- TABS ------------------------------------->
 150 
              <!-- TABS ------------------------------------->
147 
				  <%'Call Generate_Tab_Menu ( TABarray1, "Build Order", "orange" )%>
 151 
              <%'Call Generate_Tab_Menu ( TABarray1, "Build Order", "orange" )%>
148 
				  </td>
 152 
              </td>
149 
		        </tr>
 153 
              </tr>
150 
		      </table>
 154 
            </table>
151 
		    </td>
 155 
          </td>
152 
		    <td background="images/bg_lght_gray.gif">&nbsp;</td>
 156 
          <td background="images/bg_lght_gray.gif">&nbsp;</td>
153 
		  </tr>
 157 
        </tr>
154 
		  <tr>
 158 
        <tr>
155 
		    <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
 159 
          <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
156 
		    <td background="images/lbox_bg_orange.gif">
 160 
          <td background="images/lbox_bg_orange.gif">
157 
			<!-- TAB ACTION BUTTONS ------------------------------------->
 161 
         <!-- TAB ACTION BUTTONS ------------------------------------->
158 
			</td>
 162 
         </td>
159 
		    <td background="images/lbox_bg_orange.gif">&nbsp;</td>
 163 
          <td background="images/lbox_bg_orange.gif">&nbsp;</td>
160 
		  </tr>
 164 
        </tr>
161 
		  <tr>
 165 
        <tr>
162 
		    <td></td>
 166 
          <td></td>
163 
		    <td valign="top">
 167 
          <td valign="top">
164 
			<!-- BUILD ORDER --------------------------------------------->
 168 
         <!-- BUILD ORDER --------------------------------------------->
165 
			<table width="100%" border="0" cellspacing="1" cellpadding="2">
 169 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
166 
              <tr>
 170 
              <tr>
167 
                <td width="1%" align="center" background="images/bg_form_lightbluedark.gif" class="form_field">Steps</td>
 171 
                <td width="1%" align="center" background="images/bg_form_lightbluedark.gif" class="form_field">Steps</td>
168 
                <td width="100%" background="images/bg_form_lightbluedark.gif">&nbsp;
 172 
                <td width="100%" background="images/bg_form_lightbluedark.gif">&nbsp;
169 
			  <%
 173 
           <%
170 
				Dim currLevel, SessionNum, link, stepNum
 174 
            Dim currLevel, SessionNum, link, stepNum
171 
				currLevel = 0
 175 
            currLevel = 0
172 
				stepNum = 0
 176 
            stepNum = 0
173 
				Call Generate_Build_Tree ( parRtag_id, SessionNum )		' Generate Tree
 177 
            Call Generate_Build_Tree ( parRtag_id, SessionNum )      ' Generate Tree
174
178 
 
175 
			  %>
 179 
           %>
176 
			  <!--------------- UP THE TREE ---------------->
 180 
           <!--------------- UP THE TREE ---------------->
177 
			  <%Set rsOrder = OraDatabase.DbCreateDynaset( Get_Build_Order ( parRtag_id ), cint(0))%>
 181 
           <%Set rsOrder = OraDatabase.DbCreateDynaset( Get_Build_Order ( parRtag_id ), cint(0))%>
178 
			  <%Do While ((NOT rsOrder.BOF) AND (NOT rsOrder.EOF))%>
 182 
           <%Do While ((NOT rsOrder.BOF) AND (NOT rsOrder.EOF))%>
179 
			  <%link = "dependencies.asp?pv_id="& rsOrder("pv_id") &"&rtag_id="& parRtag_id%>
 183 
           <%link = "dependencies.asp?pv_id="& rsOrder("pv_id") &"&rtag_id="& parRtag_id%>
180 
			  <%If currLevel <> CInt( rsOrder("step_num") ) Then%>
 184 
           <%If currLevel <> CInt( rsOrder("step_num") ) Then%>
181 
			  	<%
 185 
              <%
182 
				  currLevel = CInt( rsOrder("step_num") )
 186 
              currLevel = CInt( rsOrder("step_num") )
183 
				  stepNum = stepNum + 1
 187 
              stepNum = stepNum + 1
184 
				%>
 188 
            %>
185 
				</td>
 189 
            </td>
186 
			  </tr>
 190 
           </tr>
187 
				  <tr>
 191 
              <tr>
188 
				  	<%If IsNull(rsOrder("UNRESOLVED")) Then%>
 192 
                 <%If IsNull(rsOrder("UNRESOLVED")) Then%>
189 
					<td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 193 
               <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
190 
					<%Else%>
 194 
               <%Else%>
191 
					<td bgcolor="#FF3C3C"></td>
 195 
               <td bgcolor="#FF3C3C"></td>
192 
					<td bgcolor="#FFECEC" align="center" class="err_alert" nowrap><b>Circular dependency detected!</b></td>
 196 
               <td bgcolor="#FFECEC" align="center" class="err_alert" nowrap><b>Circular dependency detected!</b></td>
193 
					<%End If%>
 197 
               <%End If%>
194 
			      </tr>
 198 
               </tr>
195 
				  <tr>
 199 
              <tr>
196 
					<td align="center" <%If IsNull(rsOrder("UNRESOLVED")) Then%>background="images/bg_form_lightbluedark.gif"<%Else%>bgcolor="#FF3C3C"<%End If%> class="lbox_ttl"><%=stepNum%></td>
 200 
               <td align="center" <%If IsNull(rsOrder("UNRESOLVED")) Then%>background="images/bg_form_lightbluedark.gif"<%Else%>bgcolor="#FF3C3C"<%End If%> class="lbox_ttl"><%=stepNum%></td>
197 
					<td class="body_txt" <%If NOT IsNull(rsOrder("UNRESOLVED")) Then%>bgcolor="#FFECEC"<%End If%>><a href="<%=link%>" class="sublbox_item"><%=rsOrder("pkg_name") &"&nbsp;&nbsp;"& rsOrder("v_ext")%></a><br>
 201 
               <td class="body_txt" <%If NOT IsNull(rsOrder("UNRESOLVED")) Then%>bgcolor="#FFECEC"<%End If%>><a href="<%=link%>" class="sublbox_item"><%=rsOrder("pkg_name") &"&nbsp;&nbsp;"& rsOrder("v_ext")%></a><br>
198 
			  <%Else%>
 202 
           <%Else%>
199 
			  	 <a href="<%=link%>" class="sublbox_item"><%=rsOrder("pkg_name") &"&nbsp;&nbsp;"& rsOrder("v_ext")%></a><br>
 203 
               <a href="<%=link%>" class="sublbox_item"><%=rsOrder("pkg_name") &"&nbsp;&nbsp;"& rsOrder("v_ext")%></a><br>
200 
			  <%End If%>
 204 
           <%End If%>
201 
			  <%rsOrder.MoveNext
 205 
           <%rsOrder.MoveNext
202 
			  Loop%>
 206 
           Loop%>
203 
			  <%
 207 
           <%
204 
			  '  Clean up temporary table
208 
           '  Clean up temporary table
205 
			  Call Delete_Build_Tree ( SessionNum )	' Clean UP
 209 
           Call Delete_Build_Tree ( SessionNum )   ' Clean UP
206 
			  %>
 210 
           %>
207 
			    </td>
 211 
             </td>
208 
              </tr>
 212 
              </tr>
209 
			  <tr>
 213 
           <tr>
210 
                <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 214 
                <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
211 
              </tr>
 215 
              </tr>
212 
            </table>
 216 
            </table>
213 
			<br><br>
 217 
         <br><br>
214 
			<!------------------------------------------------------------>
218 
         <!------------------------------------------------------------>
215 
			</td>
 219 
         </td>
216 
		    <td>&nbsp;</td>
 220 
          <td>&nbsp;</td>
217 
		  </tr>
 221 
        </tr>
218 
		</table>
 222 
      </table>
219 
		<!-- END MIDDLE -------->
 223 
      <!-- END MIDDLE -------->
220 
		</td>
 224 
      </td>
221 
	</tr>
 225 
   </tr>
222 
</table>
 226 
</table>
223 
<!-- FOOTER -->
 227 
<!-- FOOTER -->
224 
<!--#include file="_footer.asp"-->
 228 
<!--#include file="_footer.asp"-->
225 
</body>
 229 
</body>
226 
</html>
230 
</html>
227 
 
 231