Subversion Repositories DevTools

Rev

Rev 5590 | Rev 6543 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'|                                                   |
4 
'|			          _front_explorer				 |
5 
'|                                                   |
6 
'=====================================================
7 
%>
8 
<%
9 
'------------ Variable Definition -------------
10 
Dim rsProj
11 
Dim rsTemp
12 
Dim parListBy
13 
'------------ Constants Declaration -----------
14 
Const hlColor 	   = "#E3B62D"
15 
'------------ Variable Init -------------------
16 
parListBy = Request("listby")
17 
If parListBy = "" Then parListBy = 3	' Default visible list is Projects
18 
'----------------------------------------------
19 
%>
20 
<%
21 
'-----------------------------------------------------------------------------------------------------------------------
22 
Function Set_Row_Style ( SSLink )
23 
	Set_Row_Style = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'"""
24 
End Function
25 
'-----------------------------------------------------------------------------------------------------------------------
26 
Function Get_Projects
27 
	Get_Projects = _
6070 dpurdie 28 
	"select unique p.* from release_tags rt, projects p where rt.PROJ_ID = p.PROJ_ID and rt.official in ('N','R','C','P') ORDER BY p.proj_name ASC"
119 ghuddy 29 
End Function
30 
'-----------------------------------------------------------------------------------------------------------------------
6070 dpurdie 31 
Function Get_All_Projects
32 
	Get_All_Projects = _
33 
	"select p.* from projects p ORDER BY p.proj_name ASC"
34 
End Function
35 
'-----------------------------------------------------------------------------------------------------------------------
119 ghuddy 36 
Function Format_Full_Name ( SSfullname )
37 
	If InStr( SSfullname, " " ) = 0 Then
38 
		' No space in full_name
39 
		Format_Full_Name = SSfullname
40 
 
41 
	Else
42 
		' Proper full_name found
43 
 
44 
		Format_Full_Name = Left( SSfullname, InStr( SSfullname, " " )  )
45 
 
46 
	End If
47 
 
48 
End Function
49 
'-----------------------------------------------------------------------------------------------------------------------
50 
Sub GenerateAtoZ()
51 
	Dim letter, LROW_ONE, LROW_TWO, URL
52 
 
53 
	' Declare array of letters for browsing
54 
	LROW_ONE = Array("#","A","B","C","D","E","F","G","H","I","J","K","L","M")
55 
	LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
56 
 
57 
 
58 
	Response.write "<table width='180'  border='0' cellspacing='1' cellpadding='2'>"
59 
 
60 
	' Render first row
61 
	Response.write "<tr>"
62 
 
63 
	For Each letter In LROW_ONE
64 
		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>"
65 
	Next
66 
 
67 
	Response.write "</tr>"
68 
 
69 
 
70 
	' Render second row
71 
	Response.write "<tr>"
72 
	Response.write "<td bgcolor='#DDB02C' align='center' class='form_txt_link'>&nbsp;</td>"
73 
	For Each letter In LROW_TWO
74 
		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>"
75 
	Next
76 
 
77 
	Response.write "</tr>"
78 
 
79 
	Response.write "</table>"
80 
 
81 
End Sub
82 
'-----------------------------------------------------------------------------------------------------------------------
83 
%>
84 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
85 
		<tr>
86 
	  		<td>
87 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
88 
			  	<form name="fromlist">
89 
                <tr>
90 
                  <td nowrap>
6070 dpurdie 91 
				  <select name="listby" class='form_item' onChange="Visible ('DIVLIST1','none','DIVLIST2','none','DIVLIST3','none', 'DIVLIST4', 'none'); Visible('DIVLIST' + this.value,'block');">
119 ghuddy 92 
					<option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by Projects</option>
6070 dpurdie 93 
					<option value="4" <%If parListBy = "4" Then%>selected<%End If%>>View by Projects - ALL</option>
119 ghuddy 94 
					<option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
95 
					<option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
96 
				  </select>
97 
				  </td>
98 
                </tr>
99 
				</form>
2365 dpurdie 100 
            </table>
119 ghuddy 101 
			</td>
102 
		</tr>
103 
		<tr>
104 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
105 
        </tr>
106 
	</table>
107 
 
108 
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
109 
	<DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
110 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
111 
		<tr>
112 
		   <td>
113 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
114 
                <tr>
115 
                  <td nowrap>
116 
				    <table width="100" border="0" cellspacing="0" cellpadding="0">
117 
                      <form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
118 
                        <tr>
119 
                          <td colspan="2" class="form_item">Find Package</td>
120 
                        </tr>
121 
                        <tr>
122 
                          <td valign="top" class="form_txt"><input name="pkgname" type="text" class="form_item" size="25" value="<%=Request("pkgname")%>">
123 
                          </td>
124 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
125 
                        </tr>
126 
					  	<tr>
127 
                          <td colspan="2" class="form_item">Browse</td>
128 
                        </tr>
129 
					  	<tr>
130 
	                      <td colspan="2"><%Call GenerateAtoZ()%></td>
131 
	                    </tr>
132 
						<input type="hidden" name="listby" value="1">
133 
                      </form>
134 
		          </table>
135 
 
136 
				  </td>
137 
                </tr>
138 
            </table>
139 
		</td>
140 
		<tr>
141 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
142 
        </tr>
143 
	</table>
144 
	</DIV>
145 
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
146 
	<DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
147 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
148 
		<tr>
149 
			<td>
150 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
151 
                <tr>
152 
                  <td nowrap>
153 
				    <table width="100" border="0" cellspacing="0" cellpadding="0">
154 
                      <form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
155 
                        <tr>
156 
                          <td colspan="2" class="form_item">Find File</td>
157 
                        </tr>
158 
                        <tr>
159 
                          <td valign="top" class="form_txt"><input name="filename" type="text" class="form_item" size="25" value="<%=Request("filename")%>">
160 
                          </td>
161 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
162 
                        </tr>
163 
					  	<tr>
164 
                          <td colspan="2" class="form_item">HINTS:<br>
165 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br></td>
166 
                        </tr>
167 
						<input type="hidden" name="listby" value="2">
168 
                      </form>
169 
		          </table>
170 
 
171 
				  </td>
172 
                </tr>
173 
            </table>
174 
		</td>
175 
		<tr>
176 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
177 
        </tr>
178 
	</table>
179 
	</DIV>
180 
<!-- LIST BY PROJECT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
181 
	<DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
182 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
183 
 
184 
		<%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0))
185 
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
186 
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>>
187 
          <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><a href="rtree.asp?proj_id=<%=rsProj.Fields("proj_id")%>" class="form_txt_link"><%=UCase(rsProj.Fields("proj_name"))%></a></td>
188 
        </tr>
189 
        <tr>
190 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
191 
        </tr>
192 
		<%rsProj.MoveNext
193 
	    WEnd%>
194 
		<%If rsProj.RecordCount < 1 Then%>
195 
			<tr>
196 
	          <td nowrap class="err_alert"><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><b>No projects available!</b></td>
197 
	        </tr>
198 
	        <tr>
199 
	          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
200 
	        </tr>
201 
		<%End If%>
202 
		<tr>
5061 dpurdie 203 
		<%If (canActionControl("CreateNewProject")) Then%>
5590 dpurdie 204 
          <td align="right"><a href="#" onClick="MM_openVixIFrame('_wform_new_project.asp','Create a New Project')"><img src="images/bt_new_project.gif" width="16" height="16" border="0" vspace="5" hspace="5" align="absmiddle" alt="Create new Project" title="Create new Project"></a></td>
119 ghuddy 205 
        </tr>
206 
		<%End If%>
207 
	</table>
208 
	</DIV>
6070 dpurdie 209 
<!-- LIST BY PROJECT ALL ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
210 
	<DIV name="DIVLIST4" id="DIVLIST4" style="display:none;">
211 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
212 
 
213 
		<%Set rsProj = OraDatabase.DbCreateDynaset( Get_All_Projects, cint(0))
214 
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
215 
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>>
216 
          <td nowrap><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><a href="rtree.asp?proj_id=<%=rsProj.Fields("proj_id")%>" class="form_txt_link"><%=UCase(rsProj.Fields("proj_name"))%></a></td>
217 
        </tr>
218 
        <tr>
219 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
220 
        </tr>
221 
		<%rsProj.MoveNext
222 
	    WEnd%>
223 
		<%If rsProj.RecordCount < 1 Then%>
224 
			<tr>
225 
	          <td nowrap class="err_alert"><img src="images/h_trsp_dot.gif" width="16" height="16" align="absmiddle" vspace="4"><b>No projects available!</b></td>
226 
	        </tr>
227 
	        <tr>
228 
	          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
229 
	        </tr>
230 
		<%End If%>
231 
		<tr>
232 
		<%If (canActionControl("CreateNewProject")) Then%>
233 
          <td align="right"><a href="#" onClick="MM_openVixIFrame('_wform_new_project.asp','Create a New Project')"><img src="images/bt_new_project.gif" width="16" height="16" border="0" vspace="5" hspace="5" align="absmiddle" alt="Create new Project" title="Create new Project"></a></td>
234 
        </tr>
235 
		<%End If%>
236 
	</table>
237 
	</DIV>
238 
 
119 ghuddy 239 
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
240 
 
241 
<script language="JavaScript" type="text/javascript">
242 
<!--
243 
 
244 
// Set List visibility
6070 dpurdie 245 
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none","DIVLIST4","none");
119 ghuddy 246 
Visible ("DIVLIST<%=parListBy%>","block");
247 
 
248 
//-->
249 
</script>
250 
 
251