Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
5355 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          Default	 				 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
17 
<!--#include file="common/_explorer_common.asp"-->
18 
<%
19 
'------------ ACCESS CONTROL ------------------
20 
%>
21 
<!--#include file="_access_control_general.asp"-->
22 
<%
23 
'------------ VARIABLE DEFINITION -------------
24 
Dim rsQry
25 
Dim StateId, StateTypeEnum
26 
Dim objFormCollector
27 
Dim parState_id
28 
Dim RowColor
29 
Dim aIllustrations
30 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
32 
Set objFormCollector = CreateObject("Scripting.Dictionary")
33 
parState_id = Request("state_id")
34 
RowColor = NULL
35 
aIllustrations = Array( "fimg_business.jpg", _
36 
						"fimg_erg_software.jpg", _
37 
						"fimg_global_leader.jpg", _
38 
						"fimg_train.jpg" )
39 
'------------ CONDITIONS ----------------------
40 
'----------------------------------------------
41 
%>
42 
<%
43 
'----------------------------------------------------------------------------------------------------------------------------------------------
44 
Function GetIllustration ()
45 
	Dim numOfIllustrations
46 
 
47 
	numOfIllustrations = UBound ( aIllustrations )
48 
 
49 
	GetIllustration = aIllustrations ( ( Day(Date) Mod numOfIllustrations )  )
50 
End Function
51 
'----------------------------------------------------------------------------------------------------------------------------------------------
52 
Function Get_Messages
53 
	Get_Messages = _
54 
	" SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2"
55 
End Function
56 
'-----------------------------------------------------------------------------------------------------------------------
57 
 
58 
%>
59 
<%
60 
'------------ RUN BEFORE PAGE RENDER ----------
61 
'----------------------------------------------
62 
%>
63 
<html>
64 
<head>
65 
<title>Deployment Manager</title>
66 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
67 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
68 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
69 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
70 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
71 
<script language="JavaScript" src="scripts/common.js"></script>
72 
</head>
73 
 
74 
<body leftmargin="0" topmargin="0">
75 
<!-- HEADER ++++++++++++++++ -->
76 
<!--#include file="_header.asp"-->
77 
<!-- +++++++++++++++++++++++ -->
78 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
79 
<!--#include file="_main_menu.asp"-->
80 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
81 
<!-- +++++++++++++++++++++++++++++++++++++ -->
82 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
83 
  <tr>
84 
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
85 
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
86 
  </tr>
87 
  <tr>
88 
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
89 
    <td background="images/bg_bage_0.gif">&nbsp;</td>
90 
  </tr>
91 
  <tr>
92 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
93 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
94 
  </tr>
95 
</table>
96 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
97 
  <tr>
98 
    <td width="1%" align="center" valign="top"><img src="images/dm_logo_vert.gif" width="119" height="35" vspace="10"></td>
99 
    <td width="100%">&nbsp;</td>
100 
    <td width="1%" rowspan="2" align="right" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
101 
      <tr>
102 
        <td align="right" valign="top"><img src="images/<%=GetIllustration%>"></td>
103 
      </tr>
104 
      <tr>
105 
        <td valign="top" background="images/bg_favourits.gif"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
106 
            <tr>
107 
              <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
108 
                <tr>
109 
                  <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
110 
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
111 
                  <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
112 
                </tr>
113 
                <tr>
114 
                  <td colspan="3" background="images/bg_favourits2.gif">
115 
				  <table width="100%"  border="0" cellspacing="5" cellpadding="0">
116 
				    <form name="FormName" method="get" action="CommingSoon.asp">
117 
                      <tr>
118 
                        <td valign="top" class="fav_txt"><span class="fav_head">Quick Search </span><br>
119 
                            <br>
120 
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
121 
                              <tr>
122 
                                <td nowrap class="fav_txt">Search in Deployment Manager: </td>
123 
                              </tr>
124 
                              <tr>
125 
                                <td nowrap><input name="keyword" type="text" class="form_ivalue" size="30">
126 
                                  <input name="Submit" type="submit" class="body_txt" value="Search"></td>
127 
                              </tr>
128 
                            </table>
129 
                            </td>
130 
                      </tr>
131 
					</form>
132 
                  </table>
133 
				  </td>
134 
                </tr>
135 
                <tr>
136 
                  <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
137 
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
138 
                  <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
139 
                </tr>
140 
              </table>
141 
                <br>
142 
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
143 
                  <tr>
144 
                    <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
145 
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
146 
                    <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
147 
                  </tr>
148 
                  <tr>
149 
                    <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
150 
                        <tr>
151 
                          <td valign="top" class="fav_txt"><span class="fav_head">Additional Tools</span><br>
152 
                              <br>                        <table width="100%"  border="0" cellspacing="0" cellpadding="2">
153 
                                <tr>
154 
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_product.gif" width="19" height="19" hspace="2" border="0" align="absmiddle">Product Finder</a></td>
155 
                                </tr>
156 
								<tr>
157 
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_open_product.gif" width="19" height="18" hspace="2" border="0" align="absmiddle">Component Finder</a></td>
158 
                                </tr>
159 
                                <tr>
160 
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_bug.gif" width="16" height="15" hspace="3" border="0" align="absmiddle">Issue Finder</a></td>
161 
                                </tr>
162 
								<tr>
163 
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_notification_setup.gif" width="16" height="15" hspace="3" border="0" align="absmiddle">Notifications Setup</a></td>
164 
                                </tr>
165 
<!--                                 <tr>
166 
                                  <td><a href="diffmerge.asp" class="fav_link"><img src="images/abtn_merge_manager.gif" width="19" height="19" hspace="2" border="0" align="absmiddle">SBOM Merge Manager</a></td>
167 
                                </tr>
168 
                                <tr>
169 
                                  <td><a href="diff.asp" class="fav_link"><img src="images/i_results.gif" width="19" height="19" hspace="2" border="0" align="absmiddle">SBOM Version Difference Report</a></td>
170 
                                </tr>	 -->
171 
 
172 
                              </table>
173 
                              <br>
174 
                          </td>
175 
                        </tr>
176 
                    </table></td>
177 
                  </tr>
178 
                  <tr>
179 
                    <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
180 
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
181 
                    <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
182 
                  </tr>
183 
                </table>
184 
                  <br>
185 
                </td>
186 
            </tr>
187 
          </table>
188 
            <br>
189 
            <br>
190 
            <br></td>
191 
      </tr>
192 
    </table></td>
193 
  </tr>
194 
  <tr>
195 
    <td valign="bottom"><img src="images/ill_dm_symbol.jpg" width="146" height="300"></td>
196 
    <td valign="top"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
197 
 
198 
      <tr>
199 
        <td>
200 
		<!-- MESSAGE BOARD ---------------------------------------------->
201 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
202 
                    <tr>
203 
                      <td colspan="2" class="body_sect">Message Board</td>
204 
                    </tr>
205 
                    <tr>
206 
                      <td align="center" width="1%" nowrap class="body_txt" background="images/bg_table_col.gif">Due
207 
                        Date</td>
208 
                      <td width="100%" background="images/bg_table_col.gif" align="right"><a href="javascript:;" onClick="MM_openBrWindow('_wform_schedule_add.asp','ReleaseManager','resizable=yes,width=400,height=300')"><img src="images/i_schedule.gif" width="16" height="15" border="0" hspace="4" vspace="2" alt="Schedule a Task" title="Schedule a Task"></a><a href="javascript:;" onClick="MM_openBrWindow('_wform_memo_add.asp','ReleaseManager','resizable=yes,width=400,height=300')"><img src="images/i_memo.gif" width="12" height="15" border="0" hspace="4" vspace="2" alt="Memo" title="Memo"></a></td>
209 
                    </tr>
210 
                    <%
211 
					Dim rsTemp, msgScript
212 
					Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
213 
						  If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
214 
						  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
215 
						  	If rsTemp.Fields("due_date") <> "" Then
216 
								msgScript = "schedule"
217 
							Else
218 
								msgScript = "memo"
219 
							End If%>
220 
                    <tr>
221 
                      <td align="center" valign="top" nowrap>
222 
                        <%If rsTemp.Fields("due_date") <> "" Then%>
223 
                        <a href="javascript:;" onClick="MM_openBrWindow('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=EuroDate(rsTemp.Fields("due_date"))%><br>
224 
                        <img src="images/i_clock.gif" width="14" height="14" border="0"></a>
225 
                        <%Else%>
226 
                        <img src="images/h_trsp_dot.gif" width="1" height="25">
227 
                        <%End If%>
228 
                      </td>
229 
                      <td valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, "<br>")%></a></td>
230 
                    </tr>
231 
                    <tr>
232 
                      <td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
233 
                    </tr>
234 
                    <%rsTemp.MoveNext
235 
				  		  WEnd
236 
						  rsTemp.Close
237 
						  Set rsTemp = nothing
238 
						  %>
239 
                    <tr>
240 
                      <td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
241 
                      <td align="right"></td>
242 
                    </tr>
243 
                  </table>
244 
                  <!-- MESSAGE BOARD END ---------------------------------------------->
245 
 
246 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
247 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
248 
          <tr>
249 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
250 
              <tr>
251 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">&nbsp;Project Name</td>
252 
              </tr>
253 
            </table></td>
254 
			<td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
255 
          </tr>
256 
<%
257 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
258 
'objAccessControl.BeginRegion ( "oProjectList" )
259 
If objAccessControl.IsVisible ( "oProjectList" ) Then
260 
%>
261 
		  <%
262 
		  OraDatabase.Parameters.Add "PROJ_ID", 	dbPARproj_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
263 
		  OraDatabase.Parameters.Add "BRANCH_ID", 	dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER
264 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectBrowser.sql") , ORADYN_DEFAULT )
265 
 
266 
		  Set objRepeater = New Repeater
267 
 
268 
		  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
269 
 
270 
		  <%If rsQry("branch_id") <> 0 Then%>
271 
                <tr>
272 
                  <td nowrap valign="top"><img src='images/spacer.gif' width='16' height='18' align='absmiddle'><a href="BomStates.asp?proj_id=<%=rsQry("proj_id")%>&branch_id=<%=rsQry("branch_id")%>" class="menu_link"><%=Expander ( rsQry("expand") )%><%=PBSelector ( rsQry("branch_name").Value, dbPARbranch_id, rsQry("branch_id"), 1 )%></a></td>
273 
				  <td class="body_rowlite"><%=objFormater.TextToHtml(rsQry("branch_comments").Value)%></td>
274 
                </tr>
275 
		  <%Else%>
276 
		  	<%
277 
			objRepeater.ControlObject = "oProjectList"
278 
 
279 
			With objRepeater
280 
				.TableName = "DM_PROJECTS"
281 
				.RowId = rsQry("proj_id")
282 
				.Enabled = _
283 
					"<tr>" &_
284 
                  	"<td nowrap><a href='"& SCRIPT_NAME &"?proj_id="& rsQry("proj_id") &"' class='menu_link'>"& Expander ( rsQry("expand") ) & PBSelector ( rsQry("proj_name").Value, dbPARproj_id, rsQry("proj_id"), 0 ) &"</a> </td>" &_
285 
                 	"<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
286 
					"</tr>"
287 
 
288 
				.Disabled = _
289 
					"<tr>" &_
290 
	                "<td nowrap class='body_txtdisabled' colspan='2'><img src='images/spacer.gif' width='9' height='9' align='absmiddle'><img src='icons/i_world_off.gif' hspace='5' align='absmiddle'>"& rsQry("proj_name").Value &"</td>" &_
291 
					"<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
292 
					"</tr>"
293 
 
294 
				.Render ( objAccessControl )
295 
			End With
296 
		  	%>
297 
		  <%End If%>
298 
 
299 
		  <%rsQry.MoveNext%>
300 
 
301 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
302 
          <tr>
303 
            <td colspan="2" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
304 
          </tr>
305 
		  <%End If%>
306 
 
307 
		  <%
308 
		  WEnd
309 
 
310 
		  rsQry.Close
311 
		  Set rsQry = Nothing
312 
		  OraDatabase.Parameters.Remove "PROJ_ID"
313 
		  OraDatabase.Parameters.Remove "BRANCH_ID"
314 
		  %>
315 
 
316 
<%
317 
End If
318 
'objAccessControl.EndRegion ( "oProjectList" )
319 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
320 
%>
321 
          <tr>
322 
            <td colspan="2" background="images/bg_table_border.gif">
323 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
324 
              <tr>
325 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
326 
              </tr>
327 
             </table>
328 
			</td>
329 
          </tr>
330 
         </table>
331 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
332 
		</td>
333 
      </tr>
334 
      <tr>
335 
        <td>
336 
		<!-- OTHER REPORTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
337 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
338 
		</td>
339 
      </tr>
340 
    </table></td>
341 
  </tr>
342 
</table>
343 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
344 
  <tr>
345 
    <td><img src="images/spacer.gif" width="8" height="20"></td>
346 
  </tr>
347 
</table>
348 
<!-- FOOTER ++++++++++++++++ -->
349 
<!--#include file="_footer.asp"-->
350 
<!-- +++++++++++++++++++++++ -->
351 
</body>
352 
</html>
353 
<%
354 
'------------ RUN AFTER PAGE RENDER -----------
355 
Set objPMod = Nothing
356 
Set objCrumbs = Nothing
357 
'----------------------------------------------
13 rsolanki 358 
%><!--#include file="common/globals_destructor.asp"-->