Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|	           		RequestProjectRelease.asp     	 |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0	' always load the page, dont store
13
%>
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<%
20
'------------ Variable Definition -------------
21
Dim rsTemp
22
Dim PageInfoHash
23
Dim	Query_String
24
Dim	Auto
25
'------------ Constants Declaration -----------
26
'------------ Variable Init -------------------
27
Set PageInfoHash = CreateObject("Scripting.Dictionary")
28
'----------------------------------------------
29
%>
30
<%
31
'------------------------------------------------------------------------------------------------------------------------
32
'------------------------------------------------------------------------------------------------------------------------
33
%>
34
<%
35
'------------------------ MAIN LINE ---------------------------------
36
'--------------------------------------------------------------------
37
%>
38
<table width="100%" border="0" cellspacing="1" cellpadding="1">
39
	<tr>
40
		<td background="images/bg_form_lightbluedark.gif">		
41
			<table width="100%" border="0" cellspacing="1" cellpadding="3">
42
				<tr> 
43
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Release</td>
44
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
45
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
46
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Lines Of Code</td>
47
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Unit Tested</td>
48
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autotested</td>
49
					<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Branches</td>
50
				</tr>
51
 
52
				<%
53
				OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER 
54
 
55
				Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0))
56
 
57
				OraDatabase.Parameters.Remove "PROJ_ID"
58
 
59
				If rsTemp.RecordCount < 1 Then
60
				%>
61
				<tr> 
62
					<td background="images/bg_form_lightgray.gif" nowrap>&nbsp;</td>
63
				</tr>
64
				<%
65
				Else
66
 
67
				While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
68
				Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
69
				%>
70
 
71
        <tr> 
72
          <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
73
						<SPAN id="IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>" style="display:block;">
74
							<a href="javascript:;" class="txt_linked" onClick="RequestReleasePackages('?rtag_id=<%=rsTemp("rtag_id")%>', '<%=rsTemp("rtag_id")%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("rtag_name")%></a>
75
						</SPAN>							
76
						<SPAN id="IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>" style="display:none;">
77
							<a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVRTAG_<%=rsTemp("rtag_id")%>', 'IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>', 'IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("rtag_name")%></a>
78
						</SPAN>
79
					</td>
80
					<td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("last_build_time")%></td>
81
					<td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>)</td>
82
					<td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("lines_of_code")%></td>
83
					<td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("unit_tested")%></td>
84
					<td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("autotested")%></td>
85
					<td nowrap class="body_txt" background="images/bg_form_lightgray.gif"><%=rsTemp("branches")%></td>
86
        </tr>
87
				<tr> 
88
					<td nowrap class="body_txt" colspan="6">
89
					  <DIV id="DIVRTAG_<%=rsTemp("rtag_id")%>" style="display:none;"><%=enumLOADING%></DIV>
90
					</td>
91
				</tr>
92
 
93
				<%rsTemp.MoveNext	
94
				WEnd
95
				rsTemp.Close
96
				Set rsTemp = nothing
97
 
98
				End If
99
				%>
100
			</table>
101
    </td>						
102
  </tr>
103
</table>
104
<br>
105
 
106
<%
107
Call Destroy_All_Objects
108
%>