Subversion Repositories DevTools

<%
'=====================================================
'|                                                   |
'|                                _front_explorer                                |
'|                                                   |
'=====================================================
%>
<!--#include file="common/config.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<!--#include file="common/_form_window_common.asp"-->
<!--#include file="common/_rtree_common.asp"-->
<%
'------------ Variable Definition -------------
Dim rsProj
Dim rsTemp
Dim parListBy
'------------ Constants Declaration -----------
Const hlColor      = "#E3B62D"
'------------ Variable Init -------------------
parListBy = Request("listby")
If parListBy = "" Then parListBy = 3    ' Default visible list is BOMs
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------------
Function Set_Row_Style ( SSLink )
        Set_Row_Style = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'"""
End Function
'-----------------------------------------------------------------------------------------------------------------------
Function Get_Projects
        Get_Projects = _
        " SELECT * FROM projects ORDER BY proj_name ASC"
End Function
'-----------------------------------------------------------------------------------------------------------------------
Function Format_Full_Name ( SSfullname )
        If InStr( SSfullname, " " ) = 0 Then
                ' No space in full_name
                Format_Full_Name = SSfullname
                
        Else
                ' Proper full_name found
                
                Format_Full_Name = Left( SSfullname, InStr( SSfullname, " " )  )
                
        End If
        
End Function
'-----------------------------------------------------------------------------------------------------------------------
Sub GenerateAtoZ()
        Dim letter, LROW_ONE, LROW_TWO, URL
        
        ' Declare array of letters for browsing
        LROW_ONE = Array("#","A","B","C","D","E","F","G","H","I","J","K","L","M")
        LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
        
        
        Response.write "<table width='180'  border='0' cellspacing='1' cellpadding='2'>"
        
        ' Render first row
        Response.write "<tr>"
        
        For Each letter In LROW_ONE
                Response.write "<td width='10' bgcolor='#DDB02C' align='center'><a href='view_by_package.asp?listby=1&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
        Next
        
        Response.write "</tr>"
        
        
        ' Render second row
        Response.write "<tr>"
        Response.write "<td bgcolor='#DDB02C' align='center' class='form_txt_link'>&nbsp;</td>"
        For Each letter In LROW_TWO
                Response.write "<td bgcolor='#DDB02C' align='center'><a href='view_by_package.asp?listby=1&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
        Next
        
        Response.write "</tr>"
        
        Response.write "</table>"
        
End Sub
'-----------------------------------------------------------------------------------------------------------------------
%>
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
<script language="JavaScript" src="images/common.js"></script>

<!-- HEADER -->
<!--#include file="_header.asp"-->


        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                        <td>
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
                                <form name="fromlist">
                <tr>
                  <td nowrap>
                                  
                                  <select name="listby" class='form_item' onChange="Visible ('DIVLIST1','none','DIVLIST2','none','DIVLIST3','none'); Visible('DIVLIST' + this.value,'block');">
                                        <option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by BOMs</option>
                                        <option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
                                        <option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
                                  </select>
                                  
                                  </td>
                </tr>
                                </form>
            </table>            
                        </td>
                </tr> 
                <tr> 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>
        </table>
        
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
        <DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                   <td>
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
                <tr>
                  <td nowrap>
                                    <table width="100" border="0" cellspacing="0" cellpadding="0">
                      <form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
                        <tr>
                          <td colspan="2" class="form_item">Find Package</td>
                        </tr>
                        <tr>
                          <td valign="top" class="form_txt"><input name="pkgname" type="text" class="form_item" size="25" value="<%=Request("pkgname")%>">
                          </td>
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
                        </tr>
                                                <tr>
                          <td colspan="2" class="form_item">Browse</td>
                        </tr>
                                                <tr> 
                              <td colspan="2"><%Call GenerateAtoZ()%></td>
                            </tr>
                                                <input type="hidden" name="listby" value="1">
                      </form>
                          </table>
                                  
                                  </td>
                </tr>
            </table>            
                </td>
                <tr> 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>
        </table>
        </DIV>
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
        <DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                        <td>
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
                <tr>
                  <td nowrap>
                                    <table width="100" border="0" cellspacing="0" cellpadding="0">
                      <form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
                        <tr>
                          <td colspan="2" class="form_item">Find File</td>
                        </tr>
                        <tr>
                          <td valign="top" class="form_txt"><input name="filename" type="text" class="form_item" size="25" value="<%=Request("filename")%>">
                          </td>
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
                        </tr>
                                                <input type="hidden" name="listby" value="2">
                      </form>
                          </table>
                                  
                                  </td>
                </tr>
            </table>            
                </td>
                <tr> 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>           
        </table>
        </DIV>
<!-- LIST BY BOMS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
        <DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                        <td>
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
                <tr>
                  <td nowrap>
                                    <table width="100" border="0" cellspacing="0" cellpadding="0">
                      <form name="pkg_search" method="get" action="view_by_bom.asp" onSubmit="MM_validateForm('bomname','Bom keyword','R');return document.MM_returnValue">
                        <tr>
                          <td colspan="2" class="form_item">Find Bom</td>
                        </tr>
                        <tr>
                          <td valign="top" class="form_txt"><input name="bomname" type="text" class="form_item" size="25" value="<%=Request("bomname")%>">
                          </td>
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
                        </tr>
                                                <input type="hidden" name="listby" value="3">
                      </form>
                          </table>
                                  
                                  </td>
                </tr>
            </table>            
                </td>
                <tr> 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
        </tr>           
        </table>
        </DIV>  
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->

<script language="JavaScript" type="text/javascript">
<!-- 

// Set List visibility
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none");
Visible ("DIVLIST<%=parListBy%>","block");

//-->
</script>