Subversion Repositories DevTools

Rev

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

Rev 6873 Rev 6877
Line 18... Line 18...
18
'----------------------------------------------
18
'----------------------------------------------
19
%>
19
%>
20
<%
20
<%
21
'-----------------------------------------------------------------------------------------------------------------------
21
'-----------------------------------------------------------------------------------------------------------------------
22
Function Set_Row_Style ( SSLink )
22
Function Set_Row_Style ( SSLink )
23
	Set_Row_Style = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'"""
23
	Set_Row_Style = "class='bg_navPane pointer' 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"
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"
Line 131... Line 131...
131
				</form>
131
				</form>
132
            </table>
132
            </table>
133
			</td>
133
			</td>
134
		</tr> 
134
		</tr> 
135
		<tr> 
135
		<tr> 
136
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
136
          <td class='bg_dialog_line'></td>
137
        </tr>
137
        </tr>
138
	</table>
138
	</table>
139
<!-- LIST BY RELEASES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
139
<!-- LIST BY RELEASES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
140
	<DIV name="DIVLIST5" id="DIVLIST5" style="display:none;">
140
	<DIV name="DIVLIST5" id="DIVLIST5" style="display:none;">
141
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
141
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
Line 167... Line 167...
167
				  </td>
167
				  </td>
168
                </tr>
168
                </tr>
169
            </table>            
169
            </table>            
170
		</td>
170
		</td>
171
		<tr> 
171
		<tr> 
172
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
172
          <td class='bg_dialog_line'></td>
173
        </tr>
173
        </tr>
174
	</table>
174
	</table>
175
	</DIV>
175
	</DIV>
176
	
176
	
177
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
177
<!-- LIST BY PACKAGE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
Line 205... Line 205...
205
				  </td>
205
				  </td>
206
                </tr>
206
                </tr>
207
            </table>            
207
            </table>            
208
		</td>
208
		</td>
209
		<tr> 
209
		<tr> 
210
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
210
          <td class='bg_dialog_line'></td>
211
        </tr>
211
        </tr>
212
	</table>
212
	</table>
213
	</DIV>
213
	</DIV>
214
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
214
<!-- LIST BY FILES AND FOLDERS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
215
	<DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
215
	<DIV name="DIVLIST2" id="DIVLIST2" style="display:none;">
Line 239... Line 239...
239
				  </td>
239
				  </td>
240
                </tr>
240
                </tr>
241
            </table>            
241
            </table>            
242
		</td>
242
		</td>
243
		<tr> 
243
		<tr> 
244
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
244
          <td class='bg_dialog_line'></td>
245
        </tr>		
245
        </tr>		
246
	</table>
246
	</table>
247
	</DIV>
247
	</DIV>
248
<!-- LIST BY PROJECT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
248
<!-- LIST BY PROJECT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
249
	<DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
249
	<DIV name="DIVLIST3" id="DIVLIST3" style="display:none;">
Line 253... Line 253...
253
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
253
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
254
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>> 
254
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>> 
255
          <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>
255
          <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>
256
        </tr>
256
        </tr>
257
        <tr> 
257
        <tr> 
258
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
258
          <td class='bg_dialog_line'></td>
259
        </tr>
259
        </tr>
260
		<%rsProj.MoveNext
260
		<%rsProj.MoveNext
261
	    WEnd%>
261
	    WEnd%>
262
		<%If rsProj.RecordCount < 1 Then%>
262
		<%If rsProj.RecordCount < 1 Then%>
263
			<tr> 
263
			<tr> 
264
	          <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>
264
	          <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>
265
	        </tr>
265
	        </tr>
266
	        <tr> 
266
	        <tr> 
267
	          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
267
	          <td class='bg_dialog_line'></td>
268
	        </tr>
268
	        </tr>
269
		<%End If%>
269
		<%End If%>
270
		<tr> 
270
		<tr> 
271
		<%If (canActionControl("CreateNewProject")) Then%>
271
		<%If (canActionControl("CreateNewProject")) Then%>
272
          <td align="right" class=pointer 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" title="Create new Project"></td>
272
          <td align="right" class=pointer 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" title="Create new Project"></td>
Line 282... Line 282...
282
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
282
		While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))%>
283
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>> 
283
        <tr <%=Set_Row_Style( "rtree.asp?proj_id="&  rsProj.Fields("proj_id") )%>> 
284
          <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>
284
          <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>
285
        </tr>
285
        </tr>
286
        <tr> 
286
        <tr> 
287
          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
287
          <td class='bg_dialog_line'></td>
288
        </tr>
288
        </tr>
289
		<%rsProj.MoveNext
289
		<%rsProj.MoveNext
290
	    WEnd%>
290
	    WEnd%>
291
		<%If rsProj.RecordCount < 1 Then%>
291
		<%If rsProj.RecordCount < 1 Then%>
292
			<tr> 
292
			<tr> 
293
	          <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>
293
	          <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>
294
	        </tr>
294
	        </tr>
295
	        <tr> 
295
	        <tr> 
296
	          <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
296
	          <td class='bg_dialog_line'></td>
297
	        </tr>
297
	        </tr>
298
		<%End If%>
298
		<%End If%>
299
		<tr> 
299
		<tr> 
300
		<%If (canActionControl("CreateNewProject")) Then%>
300
		<%If (canActionControl("CreateNewProject")) Then%>
301
            <td align="right" class=pointer 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" title="Create new Project"></td>
301
            <td align="right" class=pointer 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" title="Create new Project"></td>