Subversion Repositories DevTools

Rev

Rev 5590 | Rev 6543 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5590 Rev 6070
Line 23... Line 23...
23 
	Set_Row_Style = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'"""
 23 
	Set_Row_Style = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'"""
24 
End Function
 24 
End Function
25 
'-----------------------------------------------------------------------------------------------------------------------
 25 
'-----------------------------------------------------------------------------------------------------------------------
26 
Function Get_Projects
 26 
Function Get_Projects
27 
	Get_Projects = _
 27 
	Get_Projects = _
- 
 
 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"
- 
 
 29 
End Function
- 
 
 30 
'-----------------------------------------------------------------------------------------------------------------------
- 
 
 31 
Function Get_All_Projects
- 
 
 32 
	Get_All_Projects = _
28 
	" SELECT * FROM projects ORDER BY proj_name ASC"
 33 
	"select p.* from projects p ORDER BY p.proj_name ASC"
29 
End Function
 34 
End Function
30 
'-----------------------------------------------------------------------------------------------------------------------
 35 
'-----------------------------------------------------------------------------------------------------------------------
31 
Function Format_Full_Name ( SSfullname )
 36 
Function Format_Full_Name ( SSfullname )
32 
	If InStr( SSfullname, " " ) = 0 Then
 37 
	If InStr( SSfullname, " " ) = 0 Then
33 
		' No space in full_name
 38 
		' No space in full_name
Line 74... Line 79...
74 
	Response.write "</table>"
 79 
	Response.write "</table>"
75
80
76 
End Sub
 81 
End Sub
77 
'-----------------------------------------------------------------------------------------------------------------------
 82 
'-----------------------------------------------------------------------------------------------------------------------
78 
%>
 83 
%>
79 
 
 - 
 
80 
 
 - 
 
81 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 84 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
82 
		<tr>
85 
		<tr>
83 
	  		<td>
 86 
	  		<td>
84 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 87 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
85 
			  	<form name="fromlist">
 88 
			  	<form name="fromlist">
86 
                <tr>
 89 
                <tr>
87 
                  <td nowrap>
 90 
                  <td nowrap>
88 
				  <select name="listby" class='form_item' onChange="Visible ('DIVLIST1','none','DIVLIST2','none','DIVLIST3','none'); Visible('DIVLIST' + this.value,'block');">
 91 
				  <select name="listby" class='form_item' onChange="Visible ('DIVLIST1','none','DIVLIST2','none','DIVLIST3','none', 'DIVLIST4', 'none'); Visible('DIVLIST' + this.value,'block');">
89 
					<option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by Projects</option>
 92 
					<option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by Projects</option>
- 
 
 93 
					<option value="4" <%If parListBy = "4" Then%>selected<%End If%>>View by Projects - ALL</option>
90 
					<option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
 94 
					<option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
91 
					<option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
 95 
					<option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
92 
				  </select>
 96 
				  </select>
93
- 
 
94 
				  </td>
 97 
				  </td>
95 
                </tr>
 98 
                </tr>
96 
				</form>
 99 
				</form>
97 
            </table>
 100 
            </table>
98 
			</td>
 101 
			</td>
Line 201... Line 204...
201 
          <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>
 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>
202 
        </tr>
 205 
        </tr>
203 
		<%End If%>
 206 
		<%End If%>
204 
	</table>
 207 
	</table>
205 
	</DIV>
208 
	</DIV>
- 
 
 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 
 
206 
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 239 
<!-- END OF LIST BY ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
207 
 
 240 
 
208 
<script language="JavaScript" type="text/javascript">
 241 
<script language="JavaScript" type="text/javascript">
209 
<!--
242 
<!--
210 
 
 243 
 
211 
// Set List visibility
 244 
// Set List visibility
212 
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none");
 245 
Visible ("DIVLIST1","none","DIVLIST2","none","DIVLIST3","none","DIVLIST4","none");
213 
Visible ("DIVLIST<%=parListBy%>","block");
 246 
Visible ("DIVLIST<%=parListBy%>","block");
214 
 
 247 
 
215 
//-->
 248 
//-->
216 
</script>
 249 
</script>
217
250