Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 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"-->
19 rsolanki 15 
<!--#include file="common/formating.asp"-->
13 rsolanki 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 
'----------------------------------------------------------------------------------------------------------------------------------------------
19 rsolanki 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 
 
13 rsolanki 58 
%>
59 
<%
60 
'------------ RUN BEFORE PAGE RENDER ----------
61 
'----------------------------------------------
62 
%>
63 
<html>
64 
<head>
65 
<title>Deployment Manager</title>
66 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
67 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
68 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
19 rsolanki 69 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
13 rsolanki 70 
<script language="JavaScript" src="scripts/common.js"></script>
71 
</head>
72 
 
73 
<body leftmargin="0" topmargin="0">
74 
<!-- HEADER ++++++++++++++++ -->
75 
<!--#include file="_header.asp"-->
76 
<!-- +++++++++++++++++++++++ -->
77 
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
78 
<!--#include file="_main_menu.asp"-->
79 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
80 
<!-- +++++++++++++++++++++++++++++++++++++ -->
81 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
82 
  <tr>
83 
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
84 
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
85 
  </tr>
86 
  <tr>
87 
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
88 
    <td background="images/bg_bage_0.gif">&nbsp;</td>
89 
  </tr>
90 
  <tr>
91 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
92 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
93 
  </tr>
94 
</table>
95 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
96 
  <tr>
97 
    <td width="1%" align="center" valign="top"><img src="images/dm_logo_vert.gif" width="119" height="35" vspace="10"></td>
98 
    <td width="100%">&nbsp;</td>
99 
    <td width="1%" rowspan="2" align="right" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
100 
      <tr>
101 
        <td align="right" valign="top"><img src="images/<%=GetIllustration%>"></td>
102 
      </tr>
103 
      <tr>
104 
        <td valign="top" background="images/bg_favourits.gif"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
105 
            <tr>
106 
              <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
107 
                <tr>
108 
                  <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
109 
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
110 
                  <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
111 
                </tr>
112 
                <tr>
113 
                  <td colspan="3" background="images/bg_favourits2.gif">
114 
				  <table width="100%"  border="0" cellspacing="5" cellpadding="0">
115 
				    <form name="FormName" method="get" action="CommingSoon.asp">
116 
                      <tr>
117 
                        <td valign="top" class="fav_txt"><span class="fav_head">Quick Search </span><br>
118 
                            <br>
119 
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
120 
                              <tr>
121 
                                <td nowrap class="fav_txt">Search in Deployment Manager: </td>
122 
                              </tr>
123 
                              <tr>
124 
                                <td nowrap><input name="keyword" type="text" class="form_ivalue" size="30">
125 
                                  <input name="Submit" type="submit" class="body_txt" value="Search"></td>
126 
                              </tr>
127 
                            </table>
128 
                            </td>
129 
                      </tr>
130 
					</form>
131 
                  </table>
132 
				  </td>
133 
                </tr>
134 
                <tr>
135 
                  <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
136 
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
137 
                  <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
138 
                </tr>
139 
              </table>
140 
                <br>
141 
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
142 
                  <tr>
143 
                    <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
144 
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
145 
                    <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
146 
                  </tr>
147 
                  <tr>
148 
                    <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
149 
                        <tr>
150 
                          <td valign="top" class="fav_txt"><span class="fav_head">Additional Tools</span><br>
151 
                              <br>                        <table width="100%"  border="0" cellspacing="0" cellpadding="2">
152 
                                <tr>
153 
                                  <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>
154 
                                </tr>
155 
								<tr>
156 
                                  <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>
157 
                                </tr>
158 
                                <tr>
159 
                                  <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>
160 
                                </tr>
161 
								<tr>
162 
                                  <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>
163 
                                </tr>
19 rsolanki 164 
<!--                                 <tr>
15 rsolanki 165 
                                  <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>
13 rsolanki 166 
                                </tr>
15 rsolanki 167 
                                <tr>
168 
                                  <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>
19 rsolanki 169 
                                </tr>	 -->
13 rsolanki 170 
 
171 
                              </table>
172 
                              <br>
173 
                          </td>
174 
                        </tr>
175 
                    </table></td>
176 
                  </tr>
177 
                  <tr>
178 
                    <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
179 
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
180 
                    <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
181 
                  </tr>
182 
                </table>
183 
                  <br>
184 
                </td>
185 
            </tr>
186 
          </table>
187 
            <br>
188 
            <br>
189 
            <br></td>
190 
      </tr>
191 
    </table></td>
192 
  </tr>
193 
  <tr>
194 
    <td valign="bottom"><img src="images/ill_dm_symbol.jpg" width="146" height="300"></td>
195 
    <td valign="top"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
19 rsolanki 196 
 
13 rsolanki 197 
      <tr>
198 
        <td>
19 rsolanki 199 
		<!-- MESSAGE BOARD ---------------------------------------------->
200 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
201 
                    <tr>
202 
                      <td colspan="2" class="body_sect">Message Board</td>
203 
                    </tr>
204 
                    <tr>
205 
                      <td align="center" width="1%" nowrap class="body_txt" background="images/bg_table_col.gif">Due
206 
                        Date</td>
207 
                      <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>
208 
                    </tr>
209 
                    <%
210 
					Dim rsTemp, msgScript
211 
					Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
212 
						  If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
213 
						  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
214 
						  	If rsTemp.Fields("due_date") <> "" Then
215 
								msgScript = "schedule"
216 
							Else
217 
								msgScript = "memo"
218 
							End If%>
219 
                    <tr>
220 
                      <td align="center" valign="top" nowrap>
221 
                        <%If rsTemp.Fields("due_date") <> "" Then%>
222 
                        <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>
223 
                        <img src="images/i_clock.gif" width="14" height="14" border="0"></a>
224 
                        <%Else%>
225 
                        <img src="images/h_trsp_dot.gif" width="1" height="25">
226 
                        <%End If%>
227 
                      </td>
228 
                      <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>
229 
                    </tr>
230 
                    <tr>
231 
                      <td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
232 
                    </tr>
233 
                    <%rsTemp.MoveNext
234 
				  		  WEnd
235 
						  rsTemp.Close
236 
						  Set rsTemp = nothing
237 
						  %>
238 
                    <tr>
239 
                      <td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
240 
                      <td align="right"></td>
241 
                    </tr>
242 
                  </table>
243 
                  <!-- MESSAGE BOARD END ---------------------------------------------->
244 
 
13 rsolanki 245 
		<!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
246 
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
247 
          <tr>
248 
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
249 
              <tr>
250 
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">&nbsp;Project Name</td>
251 
              </tr>
252 
            </table></td>
253 
			<td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
254 
          </tr>
255 
<%
256 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
257 
'objAccessControl.BeginRegion ( "oProjectList" )
258 
If objAccessControl.IsVisible ( "oProjectList" ) Then
259 
%>
260 
		  <%
261 
		  OraDatabase.Parameters.Add "PROJ_ID", 	dbPARproj_id, 	ORAPARM_INPUT, ORATYPE_NUMBER
262 
		  OraDatabase.Parameters.Add "BRANCH_ID", 	dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER
263 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectBrowser.sql") , ORADYN_DEFAULT )
264 
 
265 
		  Set objRepeater = New Repeater
266 
 
267 
		  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
268 
 
269 
		  <%If rsQry("branch_id") <> 0 Then%>
270 
                <tr>
271 
                  <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>
272 
				  <td class="body_rowlite"><%=objFormater.TextToHtml(rsQry("branch_comments").Value)%></td>
273 
                </tr>
274 
		  <%Else%>
275 
		  	<%
276 
			objRepeater.ControlObject = "oProjectList"
277 
 
278 
			With objRepeater
279 
				.TableName = "DM_PROJECTS"
280 
				.RowId = rsQry("proj_id")
281 
				.Enabled = _
282 
					"<tr>" &_
283 
                  	"<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>" &_
284 
                 	"<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
285 
					"</tr>"
286 
 
287 
				.Disabled = _
288 
					"<tr>" &_
289 
	                "<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>" &_
290 
					"<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
291 
					"</tr>"
292 
 
293 
				.Render ( objAccessControl )
294 
			End With
295 
		  	%>
296 
		  <%End If%>
297 
 
298 
		  <%rsQry.MoveNext%>
299 
 
300 
		  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
301 
          <tr>
302 
            <td colspan="2" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
303 
          </tr>
304 
		  <%End If%>
305 
 
306 
		  <%
307 
		  WEnd
308 
 
309 
		  rsQry.Close
310 
		  Set rsQry = Nothing
311 
		  OraDatabase.Parameters.Remove "PROJ_ID"
312 
		  OraDatabase.Parameters.Remove "BRANCH_ID"
313 
		  %>
314 
 
315 
<%
316 
End If
317 
'objAccessControl.EndRegion ( "oProjectList" )
318 
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
319 
%>
320 
          <tr>
321 
            <td colspan="2" background="images/bg_table_border.gif">
322 
			 <table width="100%"  border="0" cellspacing="1" cellpadding="2">
323 
              <tr>
324 
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
325 
              </tr>
326 
             </table>
327 
			</td>
328 
          </tr>
329 
         </table>
330 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
331 
		</td>
332 
      </tr>
333 
      <tr>
334 
        <td>
335 
		<!-- OTHER REPORTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
336 
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
337 
		</td>
338 
      </tr>
339 
    </table></td>
340 
  </tr>
341 
</table>
342 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
343 
  <tr>
344 
    <td><img src="images/spacer.gif" width="8" height="20"></td>
345 
  </tr>
346 
</table>
347 
<!-- FOOTER ++++++++++++++++ -->
348 
<!--#include file="_footer.asp"-->
349 
<!-- +++++++++++++++++++++++ -->
350 
</body>
351 
</html>
352 
<%
353 
'------------ RUN AFTER PAGE RENDER -----------
354 
Set objPMod = Nothing
355 
Set objCrumbs = Nothing
356 
'----------------------------------------------
357 
%><!--#include file="common/globals_destructor.asp"-->