Subversion Repositories DevTools

Rev

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

Rev 129 Rev 5357
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 
%>
18 
<!--#include file="common/conf.asp"-->
 18 
<!--#include file="common/conf.asp"-->
19 
<!--#include file="common/globals.asp"-->
 19 
<!--#include file="common/globals.asp"-->
20 
<!--#include file="common/formating.asp"-->
 20 
<!--#include file="common/formating.asp"-->
21 
<!--#include file="common/qstr.asp"-->
 21 
<!--#include file="common/qstr.asp"-->
22 
<!--#include file="common/common_subs.asp"-->
 22 
<!--#include file="common/common_subs.asp"-->
23 
<!--#include file="common/common_dbedit.asp"-->
 23 
<!--#include file="common/common_dbedit.asp"-->
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")
46 
parPv_id = QStrPar("pv_id")
 46 
parPv_id = QStrPar("pv_id")
47 
'parMinEnv = Get_parMinEnv ( QStrPar("minenv") )
 47 
'parMinEnv = Get_parMinEnv ( QStrPar("minenv") )
48 
'----------------------------------------------
 48 
'----------------------------------------------
49 
%>
 49 
%>
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 
   objEH.TryORA ( OraSession )
84 
   On Error Resume Next
 84 
   On Error Resume Next
85 
 
 85 
 
86 
   OraDatabase.ExecuteSQL _
 86 
   OraDatabase.ExecuteSQL _
87 
   " BEGIN Build_Tree ( :RTAG_ID, :SESSION_NUM ); END;"
 87 
   " BEGIN Build_Tree ( :RTAG_ID, :SESSION_NUM ); END;"
88 
 
 88 
 
89 
   objEH.CatchORA ( OraSession )
 89 
   objEH.CatchORA ( OraSession )
90 
 
 90 
 
91 
   outSessionNum = OraDatabase.Parameters("SESSION_NUM").Value
 91 
   outSessionNum = OraDatabase.Parameters("SESSION_NUM").Value
92 
   OraDatabase.Parameters.Remove "RTAG_ID"
 92 
   OraDatabase.Parameters.Remove "RTAG_ID"
93 
   OraDatabase.Parameters.Remove "SESSION_NUM"
 93 
   OraDatabase.Parameters.Remove "SESSION_NUM"
94 
End Sub
 94 
End Sub
95 
 
 95 
 
96 
 
 96 
 
97 
Sub Delete_Build_Tree ( nSessionNum )
 97 
Sub Delete_Build_Tree ( nSessionNum )
98 
   objEH.TryORA ( OraSession )
 98 
   objEH.TryORA ( OraSession )
99 
   On Error Resume Next
 99 
   On Error Resume Next
100 
 
 100 
 
101 
   OraDatabase.ExecuteSQL _
 101 
   OraDatabase.ExecuteSQL _
102 
   " DELETE FROM TEMP_TREE_BROWSE WHERE session_num = "& nSessionNum
 102 
   " DELETE FROM TEMP_TREE_BROWSE WHERE session_num = "& nSessionNum
103 
 
 103 
 
104 
   objEH.CatchORA ( OraSession )
 104 
   objEH.CatchORA ( OraSession )
105 
End Sub
 105 
End Sub
106 
%>
 106 
%>
107 
<html>
 107 
<html>
108 
<head>
 108 
<head>
109 
<title>Release Manager</title>
 109 
<title>Release Manager</title>
110 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 110 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
111 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 111 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
112 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 112 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
113 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 113 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
114 
<script language="JavaScript" src="images/common.js"></script>
 114 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
115 
<!-- DROPDOWN MENUS -->
 115 
<script language="JavaScript" src="images/common.js"></script>
116 
<!--#include file="_menu_def.asp"-->
 116 
<!-- DROPDOWN MENUS -->
117 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 117 
<!--#include file="_menu_def.asp"-->
118 
</head>
 118 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
119 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 119 
</head>
120 
<!-- MENU LAYERS -------------------------------------->
 120 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
121 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 121 
<!-- MENU LAYERS -------------------------------------->
122 
  <!----------------------------------------------------->
 122 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
123 
</div>
 123 
  <!----------------------------------------------------->
124 
<!-- HEADER -->
 124 
</div>
125 
<!--#include file="_header.asp"-->
 125 
<!-- HEADER -->
126 
<!-- BODY ---->
 126 
<!--#include file="_header.asp"-->
127 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 127 
<!-- BODY ---->
128 
   <tr>
 128 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 
      <td valign="top" width="1" background="images/bg_bage.gif">
 129 
   <tr>
130 
      <!-- LEFT -->
 130 
      <td valign="top" width="1" background="images/bg_bage.gif">
131 
      </td>
 131 
      <!-- LEFT -->
132 
      <td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 132 
      </td>
133 
      <td valign="top" width="100%">
 133 
      <td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
134 
      <!-- MIDDLE -->
 134 
      <td valign="top" width="100%">
135 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 135 
      <!-- MIDDLE -->
136 
        <tr>
 136 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
137 
          <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td>
 137 
        <tr>
138 
          <td width="100%" background="images/bg_action_norm.gif"></td>
 138 
          <td width="1%" background="images/bg_action_norm.gif"><IMG height=35 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>
 139 
          <td width="100%" background="images/bg_action_norm.gif"></td>
140 
        </tr>
 140 
          <td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td>
141 
        <!-- PACKAGE PROPERTIES ----------------------------  -->
 141 
        </tr>
142 
          <%'Call RenderPackageProperties ()%>
 142 
        <!-- PACKAGE PROPERTIES ----------------------------  -->
143 
        <tr>
 143 
          <%'Call RenderPackageProperties ()%>
144 
          <td background="images/bg_lght_gray.gif">&nbsp;</td>
 144 
        <tr>
145 
          <td valign="bottom" background="images/bg_lght_gray.gif">
 145 
          <td background="images/bg_lght_gray.gif">&nbsp;</td>
146 
            <table width="100" border="0" cellspacing="0" cellpadding="0">
 146 
          <td valign="bottom" background="images/bg_lght_gray.gif">
147 
              <tr>
 147 
            <table width="100" border="0" cellspacing="0" cellpadding="0">
148 
                <td><IMG height=1 src="images/spacer.gif" width=150></td>
 148 
              <tr>
149 
                <td>
 149 
                <td><IMG height=1 src="images/spacer.gif" width=150></td>
150 
              <!-- TABS ------------------------------------->
 150 
                <td>
151 
              <%'Call Generate_Tab_Menu ( TABarray1, "Build Order", "orange" )%>
 151 
              <!-- TABS ------------------------------------->
152 
              </td>
 152 
              <%'Call Generate_Tab_Menu ( TABarray1, "Build Order", "orange" )%>
153 
              </tr>
 153 
              </td>
154 
            </table>
 154 
              </tr>
155 
          </td>
 155 
            </table>
156 
          <td background="images/bg_lght_gray.gif">&nbsp;</td>
 156 
          </td>
157 
        </tr>
 157 
          <td background="images/bg_lght_gray.gif">&nbsp;</td>
158 
        <tr>
 158 
        </tr>
159 
          <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
 159 
        <tr>
160 
          <td background="images/lbox_bg_orange.gif">
 160 
          <td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td>
161 
         <!-- TAB ACTION BUTTONS ------------------------------------->
 161 
          <td background="images/lbox_bg_orange.gif">
162 
         </td>
 162 
         <!-- TAB ACTION BUTTONS ------------------------------------->
163 
          <td background="images/lbox_bg_orange.gif">&nbsp;</td>
 163 
         </td>
164 
        </tr>
 164 
          <td background="images/lbox_bg_orange.gif">&nbsp;</td>
165 
        <tr>
 165 
        </tr>
166 
          <td></td>
 166 
        <tr>
167 
          <td valign="top">
 167 
          <td></td>
168 
         <!-- BUILD ORDER --------------------------------------------->
 168 
          <td valign="top">
169 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
 169 
         <!-- BUILD ORDER --------------------------------------------->
170 
              <tr>
 170 
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
171 
                <td width="1%" align="center" background="images/bg_form_lightbluedark.gif" class="form_field">Steps</td>
 171 
              <tr>
172 
                <td width="100%" background="images/bg_form_lightbluedark.gif">&nbsp;
 172 
                <td width="1%" align="center" background="images/bg_form_lightbluedark.gif" class="form_field">Steps</td>
173 
           <%
 173 
                <td width="100%" background="images/bg_form_lightbluedark.gif">&nbsp;
174 
            Dim currLevel, SessionNum, link, stepNum
 174 
           <%
175 
            currLevel = 0
 175 
            Dim currLevel, SessionNum, link, stepNum
176 
            stepNum = 0
 176 
            currLevel = 0
177 
            Call Generate_Build_Tree ( parRtag_id, SessionNum )      ' Generate Tree
 177 
            stepNum = 0
178 
 
 178 
            Call Generate_Build_Tree ( parRtag_id, SessionNum )      ' Generate Tree
179 
           %>
 179 
 
180 
           <!--------------- UP THE TREE ---------------->
 180 
           %>
181 
           <%Set rsOrder = OraDatabase.DbCreateDynaset( Get_Build_Order ( parRtag_id ), cint(0))%>
 181 
           <!--------------- UP THE TREE ---------------->
182 
           <%Do While ((NOT rsOrder.BOF) AND (NOT rsOrder.EOF))%>
 182 
           <%Set rsOrder = OraDatabase.DbCreateDynaset( Get_Build_Order ( parRtag_id ), cint(0))%>
183 
           <%link = "dependencies.asp?pv_id="& rsOrder("pv_id") &"&rtag_id="& parRtag_id%>
 183 
           <%Do While ((NOT rsOrder.BOF) AND (NOT rsOrder.EOF))%>
184 
           <%If currLevel <> CInt( rsOrder("step_num") ) Then%>
 184 
           <%link = "dependencies.asp?pv_id="& rsOrder("pv_id") &"&rtag_id="& parRtag_id%>
185 
              <%
 185 
           <%If currLevel <> CInt( rsOrder("step_num") ) Then%>
186 
              currLevel = CInt( rsOrder("step_num") )
 186 
              <%
187 
              stepNum = stepNum + 1
 187 
              currLevel = CInt( rsOrder("step_num") )
188 
            %>
 188 
              stepNum = stepNum + 1
189 
            </td>
 189 
            %>
190 
           </tr>
 190 
            </td>
191 
              <tr>
 191 
           </tr>
192 
                 <%If IsNull(rsOrder("UNRESOLVED")) Then%>
 192 
              <tr>
193 
               <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 193 
                 <%If IsNull(rsOrder("UNRESOLVED")) Then%>
194 
               <%Else%>
 194 
               <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
195 
               <td bgcolor="#FF3C3C"></td>
 195 
               <%Else%>
196 
               <td bgcolor="#FFECEC" align="center" class="err_alert" nowrap><b>Circular dependency detected!</b></td>
 196 
               <td bgcolor="#FF3C3C"></td>
197 
               <%End If%>
 197 
               <td bgcolor="#FFECEC" align="center" class="err_alert" nowrap><b>Circular dependency detected!</b></td>
198 
               </tr>
 198 
               <%End If%>
199 
              <tr>
 199 
               </tr>
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>
 200 
              <tr>
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>
 201 
               <td align="center" <%If IsNull(rsOrder("UNRESOLVED")) Then%>background="images/bg_form_lightbluedark.gif"<%Else%>bgcolor="#FF3C3C"<%End If%> class="lbox_ttl"><%=stepNum%></td>
202 
           <%Else%>
 202 
               <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>
203 
               <a href="<%=link%>" class="sublbox_item"><%=rsOrder("pkg_name") &"&nbsp;&nbsp;"& rsOrder("v_ext")%></a><br>
 203 
           <%Else%>
204 
           <%End If%>
 204 
               <a href="<%=link%>" class="sublbox_item"><%=rsOrder("pkg_name") &"&nbsp;&nbsp;"& rsOrder("v_ext")%></a><br>
205 
           <%rsOrder.MoveNext
 205 
           <%End If%>
206 
           Loop%>
 206 
           <%rsOrder.MoveNext
207 
           <%
 207 
           Loop%>
208 
           '  Clean up temporary table
 208 
           <%
209 
           Call Delete_Build_Tree ( SessionNum )   ' Clean UP
 209 
           '  Clean up temporary table
210 
           %>
 210 
           Call Delete_Build_Tree ( SessionNum )   ' Clean UP
211 
             </td>
 211 
           %>
212 
              </tr>
 212 
             </td>
213 
           <tr>
 213 
              </tr>
214 
                <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 214 
           <tr>
215 
              </tr>
 215 
                <td colspan="2" background="images/bg_form_lightbluedark_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
216 
            </table>
 216 
              </tr>
217 
         <br><br>
 217 
            </table>
218 
         <!------------------------------------------------------------>
 218 
         <br><br>
219 
         </td>
 219 
         <!------------------------------------------------------------>
220 
          <td>&nbsp;</td>
 220 
         </td>
221 
        </tr>
 221 
          <td>&nbsp;</td>
222 
      </table>
 222 
        </tr>
223 
      <!-- END MIDDLE -------->
 223 
      </table>
224 
      </td>
 224 
      <!-- END MIDDLE -------->
225 
   </tr>
 225 
      </td>
226 
</table>
 226 
   </tr>
227 
<!-- FOOTER -->
 227 
</table>
228 
<!--#include file="_footer.asp"-->
 228 
<!-- FOOTER -->
229 
</body>
 229 
<!--#include file="_footer.asp"-->
230 
</html>
 230 
</body>
231 
 
 231 
</html>
- 
 
 232