Subversion Repositories DevTools

Rev

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

Rev 6070 Rev 6543
Line 45... Line 45...
45
45
46 
	End If
 46 
	End If
47
47
48 
End Function
 48 
End Function
49 
'-----------------------------------------------------------------------------------------------------------------------
 49 
'-----------------------------------------------------------------------------------------------------------------------
50 
Sub GenerateAtoZ()
 50 
Sub GenerateAtoZ(idx, page,emode)
51 
	Dim letter, LROW_ONE, LROW_TWO, URL
 51 
	Dim letter, LROW_ONE, LROW_TWO, LROW3, URL
52
52
53 
	' Declare array of letters for browsing
 53 
	' Declare array of letters for browsing
54 
	LROW_ONE = Array("#","A","B","C","D","E","F","G","H","I","J","K","L","M")
 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")
 55 
	LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
- 
 
 56 
	LROW3    = Array("1","2","3","4","5","6","7","8","9","0","*")
56
57
57
58
58 
	Response.write "<table width='180'  border='0' cellspacing='1' cellpadding='2'>"
 59 
	Response.write "<table width='180'  border='0' cellspacing='1' cellpadding='2'>"
59
60
60 
	' Render first row
 61 
	' Render first row
61 
	Response.write "<tr>"
 - 
 
62
- 
 
63 
	For Each letter In LROW_ONE
 62 
	For Each letter In LROW_ONE
- 
 
 63 
		Response.write "<td width='10' bgcolor='#DDB02C' align='center'>"
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>"
 64 
        Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
65 
	Next
 65 
	Next
66
- 
 
67 
	Response.write "</tr>"
 66 
	Response.write "</tr>"
68
67
69
68
70 
	' Render second row
 69 
	' Render second row
71 
	Response.write "<tr>"
 70 
	Response.write "<tr>"
72 
	Response.write "<td bgcolor='#DDB02C' align='center' class='form_txt_link'>&nbsp;</td>"
 - 
 
73 
	For Each letter In LROW_TWO
 71 
	For Each letter In LROW_TWO
- 
 
 72 
		Response.write "<td bgcolor='#DDB02C' align='center'>"
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>"
 73 
        Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
75 
	Next
 74 
	Next
76
- 
 
77 
	Response.write "</tr>"
 75 
	Response.write "</tr>"
- 
 
 76
- 
 
 77 
    If eMode Then
- 
 
 78 
    	' Render 3rd row
- 
 
 79 
    	Response.write "<tr>"
- 
 
 80 
    	For Each letter In LROW3
- 
 
 81 
    		Response.write "<td bgcolor='#DDB02C' align='center'>"
- 
 
 82 
            Response.Write "<a href ='"&page&"?listby="&idx&"&browse="& Server.URLEncode( letter ) &"' class='form_txt_link'>"& letter &"</a></td>"
- 
 
 83 
    	Next
- 
 
 84 
    	Response.write "</tr>"
- 
 
 85 
    End If
78
86
79 
	Response.write "</table>"
 87 
	Response.write "</table>"
80
88
81 
End Sub
 89 
End Sub
82 
'-----------------------------------------------------------------------------------------------------------------------
 90 
'-----------------------------------------------------------------------------------------------------------------------
83 
%>
 91 
%>
Line 86... Line 94...
86 
	  		<td>
 94 
	  		<td>
87 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
 95 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
88 
			  	<form name="fromlist">
 96 
			  	<form name="fromlist">
89 
                <tr>
 97 
                <tr>
90 
                  <td nowrap>
 98 
                  <td nowrap>
- 
 
 99 
                  <script type="text/javascript">
- 
 
 100 
                  $(document).ready(function(){
- 
 
 101 
                    // Force focus to the inputbox when the page is rendered
- 
 
 102 
                    setInputFocus(<%=parListBy%>);
- 
 
 103 
                  });
- 
 
 104 
                  // Set required div visible and give the input box focus
- 
 
 105 
                  function setDivVisible(divNum) {
- 
 
 106 
                    var ii;
- 
 
 107 
                    for (ii=1; ii<=5; ii++) {
- 
 
 108 
                        Visible('DIVLIST' + ii, 'none')
- 
 
 109 
                    }
- 
 
 110 
                    Visible('DIVLIST' + divNum, 'block');
- 
 
 111 
                    setInputFocus(divNum);
- 
 
 112 
                  }
- 
 
 113 
                  // Set focus to the input box - set cursor to end of text
- 
 
 114 
                  function setInputFocus(divNum){
- 
 
 115 
                    var input = $("#DIVFOCUS" + divNum );
- 
 
 116 
                    input.focus();
- 
 
 117 
                    var tmpStr = input.val();
- 
 
 118 
                    input.val('');
- 
 
 119 
                    input.val(tmpStr);
- 
 
 120 
                  }
- 
 
 121 
                  </script>
91 
				  <select name="listby" class='form_item' onChange="Visible ('DIVLIST1','none','DIVLIST2','none','DIVLIST3','none', 'DIVLIST4', 'none'); Visible('DIVLIST' + this.value,'block');">
 122 
				  <select name="listby" class='form_item' onChange="setDivVisible(this.value);">
92 
					<option value="3" <%If parListBy = "3" Then%>selected<%End If%>>View by Projects</option>
 123 
					<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>
 124 
					<option value="4" <%If parListBy = "4" Then%>selected<%End If%>>View by Projects - ALL</option>
- 
 
 125 
					<option value="5" <%If parListBy = "5" Then%>selected<%End If%>>View by Releases</option>
94 
					<option value="1" <%If parListBy = "1" Then%>selected<%End If%>>View by Packages</option>
 126 
					<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>
 127 
					<option value="2" <%If parListBy = "2" Then%>selected<%End If%>>View by Files</option>
96 
				  </select>
 128 
				  </select>
97 
				  </td>
 129 
				  </td>
98 
                </tr>
 130 
                </tr>
Line 102... Line 134...
102 
		</tr>
134 
		</tr>
103 
		<tr>
135 
		<tr>
104 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 136 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
105 
        </tr>
 137 
        </tr>
106 
	</table>
 138 
	</table>
- 
 
 139 
<!-- LIST BY RELEASES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 140 
	<DIV name="DIVLIST5" id="DIVLIST5" style="display:none;">
- 
 
 141 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
- 
 
 142 
		<tr>
- 
 
 143 
		   <td>
- 
 
 144 
              <table width="100%"  border="0" cellspacing="0" cellpadding="10">
- 
 
 145 
                <tr>
- 
 
 146 
                  <td nowrap>
- 
 
 147 
				    <table width="100" border="0" cellspacing="0" cellpadding="0">
- 
 
 148 
                      <form name="release_search" method="get" action="view_by_release.asp" onSubmit="MM_validateForm('releasename','Release keyword','R');return document.MM_returnValue">
- 
 
 149 
                        <tr>
- 
 
 150 
                          <td colspan="2" class="form_item">Find Release</td>
- 
 
 151 
                        </tr>
- 
 
 152 
                        <tr>
- 
 
 153 
                          <td valign="top" class="form_txt"><input id="DIVFOCUS5" name="releasename" type="text" class="form_item" size="25" value="<%=Request("releasename")%>">
- 
 
 154 
                          </td>
- 
 
 155 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
- 
 
 156 
                        </tr>
- 
 
 157 
					  	<tr>
- 
 
 158 
                          <td colspan="2" class="form_item">Browse</td>
- 
 
 159 
                        </tr>
- 
 
 160 
					  	<tr>
- 
 
 161 
	                      <td colspan="2"><%Call GenerateAtoZ(5,"view_by_release.asp", true)%></td>
- 
 
 162 
	                    </tr>
- 
 
 163 
						<input type="hidden" name="listby" value="5">
- 
 
 164 
                      </form>
- 
 
 165 
		          </table>
- 
 
 166
- 
 
 167 
				  </td>
- 
 
 168 
                </tr>
- 
 
 169 
            </table>
- 
 
 170 
		</td>
- 
 
 171 
		<tr>
- 
 
 172 
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
- 
 
 173 
        </tr>
- 
 
 174 
	</table>
- 
 
 175 
	</DIV>
107
176
108 
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 177 
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
109 
	<DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
 178 
	<DIV name="DIVLIST1" id="DIVLIST1" style="display:none;">
110 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
 179 
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
111 
		<tr>
180 
		<tr>
Line 117... Line 186...
117 
                      <form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
 186 
                      <form name="pkg_search" method="get" action="view_by_package.asp" onSubmit="MM_validateForm('pkgname','Package keyword','R');return document.MM_returnValue">
118 
                        <tr>
 187 
                        <tr>
119 
                          <td colspan="2" class="form_item">Find Package</td>
 188 
                          <td colspan="2" class="form_item">Find Package</td>
120 
                        </tr>
 189 
                        </tr>
121 
                        <tr>
 190 
                        <tr>
122 
                          <td valign="top" class="form_txt"><input name="pkgname" type="text" class="form_item" size="25" value="<%=Request("pkgname")%>">
 191 
                          <td valign="top" class="form_txt"><input id="DIVFOCUS1" name="pkgname" type="text" class="form_item" size="25" value="<%=Request("pkgname")%>">
123 
                          </td>
 192 
                          </td>
124 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
 193 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
125 
                        </tr>
 194 
                        </tr>
126 
					  	<tr>
 195 
					  	<tr>
127 
                          <td colspan="2" class="form_item">Browse</td>
 196 
                          <td colspan="2" class="form_item">Browse</td>
128 
                        </tr>
 197 
                        </tr>
129 
					  	<tr>
198 
					  	<tr>
130 
	                      <td colspan="2"><%Call GenerateAtoZ()%></td>
 199 
	                      <td colspan="2"><%Call GenerateAtoZ(1,"view_by_package.asp",false)%></td>
131 
	                    </tr>
 200 
	                    </tr>
132 
						<input type="hidden" name="listby" value="1">
 201 
						<input type="hidden" name="listby" value="1">
133 
                      </form>
 202 
                      </form>
134 
		          </table>
 203 
		          </table>
135
204
Line 154... Line 223...
154 
                      <form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
 223 
                      <form name="pkg_search" method="get" action="view_by_file.asp" onSubmit="MM_validateForm('filename','File keyword','R');return document.MM_returnValue">
155 
                        <tr>
 224 
                        <tr>
156 
                          <td colspan="2" class="form_item">Find File</td>
 225 
                          <td colspan="2" class="form_item">Find File</td>
157 
                        </tr>
 226 
                        </tr>
158 
                        <tr>
 227 
                        <tr>
159 
                          <td valign="top" class="form_txt"><input name="filename" type="text" class="form_item" size="25" value="<%=Request("filename")%>">
 228 
                          <td valign="top" class="form_txt"><input id="DIVFOCUS2" name="filename" type="text" class="form_item" size="25" value="<%=Request("filename")%>">
160 
                          </td>
 229 
                          </td>
161 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
 230 
                          <td class="form_txt"><input type="submit" name="btn" value="Go" class="form_btn_comp"></td>
162 
                        </tr>
 231 
                        </tr>
163 
					  	<tr>
 232 
					  	<tr>
164 
                          <td colspan="2" class="form_item">HINTS:<br>
 233 
                          <td colspan="2" class="form_item">HINTS:<br>- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br></td>
165 
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br></td>
 - 
 
166 
                        </tr>
234 
                        </tr>
167 
						<input type="hidden" name="listby" value="2">
 235 
						<input type="hidden" name="listby" value="2">
168 
                      </form>
 236 
                      </form>
169 
		          </table>
 237 
		          </table>
170
238