Subversion Repositories DevTools

Rev

Rev 19 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                Default                                                |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_explorer_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim StateId, StateTypeEnum
Dim objFormCollector
Dim parState_id
Dim RowColor
Dim aIllustrations
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
Set objFormCollector = CreateObject("Scripting.Dictionary")
parState_id = Request("state_id")
RowColor = NULL
aIllustrations = Array( "fimg_business.jpg", _
                                                "fimg_erg_software.jpg", _
                                                "fimg_global_leader.jpg", _
                                                "fimg_train.jpg" )
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'----------------------------------------------------------------------------------------------------------------------------------------------
Function GetIllustration ()
        Dim numOfIllustrations
        
        numOfIllustrations = UBound ( aIllustrations )
        
        GetIllustration = aIllustrations ( ( Day(Date) Mod numOfIllustrations )  )
End Function
'----------------------------------------------------------------------------------------------------------------------------------------------
Function Get_Messages
        Get_Messages = _
        " SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2"
End Function
'-----------------------------------------------------------------------------------------------------------------------

%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
%>
<html>
<head>
<title>Deployment Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
<script language="JavaScript" src="scripts/common.js"></script>
</head>

<body leftmargin="0" topmargin="0">
<!-- HEADER ++++++++++++++++ -->
<!--#include file="_header.asp"-->
<!-- +++++++++++++++++++++++ -->
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
<!--#include file="_main_menu.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
<!-- +++++++++++++++++++++++++++++++++++++ -->
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
  </tr>
  <tr>
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
    <td background="images/bg_bage_0.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1%" align="center" valign="top"><img src="images/dm_logo_vert.gif" width="119" height="35" vspace="10"></td>
    <td width="100%">&nbsp;</td>
    <td width="1%" rowspan="2" align="right" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="right" valign="top"><img src="images/<%=GetIllustration%>"></td>
      </tr>
      <tr>
        <td valign="top" background="images/bg_favourits.gif"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
            <tr>
              <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
                  <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                </tr>
                <tr>
                  <td colspan="3" background="images/bg_favourits2.gif">
                                  <table width="100%"  border="0" cellspacing="5" cellpadding="0">
                                    <form name="FormName" method="get" action="CommingSoon.asp">
                      <tr>
                        <td valign="top" class="fav_txt"><span class="fav_head">Quick Search </span><br>
                            <br>
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td nowrap class="fav_txt">Search in Deployment Manager: </td>
                              </tr>
                              <tr>
                                <td nowrap><input name="keyword" type="text" class="form_ivalue" size="30">
                                  <input name="Submit" type="submit" class="body_txt" value="Search"></td>
                              </tr>
                            </table>
                            </td>
                      </tr>
                                        </form>
                  </table>
                                  </td>
                </tr>
                <tr>
                  <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
                  <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                </tr>
              </table>
                <br>
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
                    <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  </tr>
                  <tr>
                    <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
                        <tr>
                          <td valign="top" class="fav_txt"><span class="fav_head">Additional Tools</span><br>
                              <br>                        <table width="100%"  border="0" cellspacing="0" cellpadding="2">
                                <tr>
                                  <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>
                                </tr>
                                                                <tr>
                                  <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>
                                </tr>
                                <tr>
                                  <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>
                                </tr>
                                                                <tr>
                                  <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>
                                </tr>
<!--                                 <tr>
                                  <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>
                                </tr>
                                <tr>
                                  <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>
                                </tr>    -->                                                    
                                        
                              </table>                              
                              <br>
                          </td>
                        </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
                    <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  </tr>
                </table>
                  <br>
                </td>
            </tr>
          </table>
            <br>
            <br>
            <br></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td valign="bottom"><img src="images/ill_dm_symbol.jpg" width="146" height="300"></td>
    <td valign="top"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
        
      <tr>
        <td>
                <!-- MESSAGE BOARD ---------------------------------------------->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td colspan="2" class="body_sect">Message Board</td>
                    </tr>
                    <tr> 
                      <td align="center" width="1%" nowrap class="body_txt" background="images/bg_table_col.gif">Due 
                        Date</td>
                      <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>
                    </tr>
                    <%
                                        Dim rsTemp, msgScript
                                        Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
                                                  If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
                                                  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
                                                        If rsTemp.Fields("due_date") <> "" Then
                                                                msgScript = "schedule"
                                                        Else
                                                                msgScript = "memo"
                                                        End If%>
                    <tr> 
                      <td align="center" valign="top" nowrap> 
                        <%If rsTemp.Fields("due_date") <> "" Then%>
                        <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>
                        <img src="images/i_clock.gif" width="14" height="14" border="0"></a> 
                        <%Else%>
                        <img src="images/h_trsp_dot.gif" width="1" height="25"> 
                        <%End If%>
                      </td>
                      <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>
                    </tr>
                    <tr> 
                      <td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
                    </tr>
                    <%rsTemp.MoveNext
                                                  WEnd
                                                  rsTemp.Close
                                                  Set rsTemp = nothing
                                                  %>
                    <tr> 
                      <td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
                      <td align="right"></td>
                    </tr>
                  </table>
                  <!-- MESSAGE BOARD END ---------------------------------------------->
                                  
                <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <table width="100%"  border="0" cellspacing="3" cellpadding="0">
          <tr>
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
              <tr>
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">&nbsp;Project Name</td>
              </tr>
            </table></td>
                        <td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
          </tr>
<%
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
'objAccessControl.BeginRegion ( "oProjectList" )
If objAccessControl.IsVisible ( "oProjectList" ) Then
%>                
                  <%
                  OraDatabase.Parameters.Add "PROJ_ID",         dbPARproj_id,   ORAPARM_INPUT, ORATYPE_NUMBER 
                  OraDatabase.Parameters.Add "BRANCH_ID",       dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER 
                  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectBrowser.sql") , ORADYN_DEFAULT )
                  
                  Set objRepeater = New Repeater
                  
                  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
                  
                  <%If rsQry("branch_id") <> 0 Then%>
                <tr>
                  <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>
                                  <td class="body_rowlite"><%=objFormater.TextToHtml(rsQry("branch_comments").Value)%></td>
                </tr>
                  <%Else%>
                        <%
                        objRepeater.ControlObject = "oProjectList"
                        
                        With objRepeater
                                .TableName = "DM_PROJECTS"
                                .RowId = rsQry("proj_id")
                                .Enabled = _
                                        "<tr>" &_
                        "<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>" &_
                        "<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
                                        "</tr>"
                                
                                .Disabled = _
                                        "<tr>" &_
                        "<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>" &_
                                        "<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
                                        "</tr>"
                                        
                                .Render ( objAccessControl )
                        End With
                        %>
                  <%End If%>
                  
                  <%rsQry.MoveNext%>
                  
                  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
          <tr>
            <td colspan="2" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
          </tr>
                  <%End If%>
                  
                  <%
                  WEnd
                  
                  rsQry.Close
                  Set rsQry = Nothing
                  OraDatabase.Parameters.Remove "PROJ_ID"
                  OraDatabase.Parameters.Remove "BRANCH_ID"
                  %>

<%
End If
'objAccessControl.EndRegion ( "oProjectList" )
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
%>                
          <tr>
            <td colspan="2" background="images/bg_table_border.gif">
                         <table width="100%"  border="0" cellspacing="1" cellpadding="2">
              <tr>
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
              </tr>
             </table>
                        </td>
          </tr>
         </table>       
                <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                </td>
      </tr>
      <tr>
        <td>
                <!-- OTHER REPORTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                </td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="images/spacer.gif" width="8" height="20"></td>
  </tr>
</table>
<!-- FOOTER ++++++++++++++++ -->
<!--#include file="_footer.asp"-->
<!-- +++++++++++++++++++++++ -->
</body>
</html>
<%
'------------ RUN AFTER PAGE RENDER -----------
Set objPMod = Nothing
Set objCrumbs = Nothing
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->