Subversion Repositories DevTools

Rev

Rev 5061 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5061 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|				    ADMIN Page	             		        	 |
 5 
'|				    ADMIN Page	             		        	 |
6 
'|                 PROJECTS                       	 |
 6 
'|                 PROJECTS                       	 |
7 
'|                                            			 |
 7 
'|                                            			 |
8 
'=====================================================
 8 
'=====================================================
9 
%>
 9 
%>
10 
<%
 10 
<%
11 
Option explicit
 11 
Option explicit
12 
' Good idea to set when using redirect
 12 
' Good idea to set when using redirect
13 
Response.Expires = 0	' always load the page, dont store
 13 
Response.Expires = 0	' always load the page, dont store
14 
%>
 14 
%>
15 
<!--#include file="common/conf.asp"-->
 15 
<!--#include file="common/conf.asp"-->
16 
<!--#include file="common/globals.asp"-->
 16 
<!--#include file="common/globals.asp"-->
17 
<!--#include file="common/formating.asp"-->
 17 
<!--#include file="common/formating.asp"-->
18 
<!--#include file="common/qstr.asp"-->
 18 
<!--#include file="common/qstr.asp"-->
19 
<!--#include file="common/common_subs.asp"-->
 19 
<!--#include file="common/common_subs.asp"-->
20 
<!--#include file="sec/Crypt.asp"-->
 20 
<!--#include file="sec/Crypt.asp"-->
21 
<!--#include file="common/_form_window_common.asp"-->
 21 
<!--#include file="common/_form_window_common.asp"-->
22 
<!--#include file="_action_buttons.asp"-->
 22 
<!--#include file="_action_buttons.asp"-->
23 
 
 23 
 
24 
<!--#include file="class/classActionButtonControl.asp"-->
 24 
<!--#include file="class/classActionButtonControl.asp"-->
25 
 
 25 
 
26 
<%
 26 
<%
27 
'------------ ACCESS CONTROL ------------------
 27 
'------------ ACCESS CONTROL ------------------
28 
%>
 28 
%>
29 
<!--#include file="_access_control_general.asp"-->
 29 
<!--#include file="_access_control_general.asp"-->
30 
<%
 30 
<%
31 
'------------ Variable Definition -------------
 31 
'------------ Variable Definition -------------
32 
Dim objBtnControl
 32 
Dim objBtnControl
33 
Dim rsProj
 33 
Dim rsProj
34 
'------------ Constants Declaration -----------
 34 
'------------ Constants Declaration -----------
35 
'------------ Variable Init -------------------
 35 
'------------ Variable Init -------------------
36 
Set objBtnControl = New ActionButtonControl
 36 
Set objBtnControl = New ActionButtonControl
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
%>
 38 
%>
39 
<%
 39 
<%
40 
'-----------------------------------------------------------------------------------------------------------------------
 40 
'-----------------------------------------------------------------------------------------------------------------------
41 
Function Get_Projects
 41 
Function Get_Projects
42 
	Get_Projects = _
 42 
	Get_Projects = _
43 
	" SELECT * FROM projects ORDER BY proj_name ASC"
 43 
	" SELECT * FROM projects ORDER BY proj_name ASC"
44 
End Function
 44 
End Function
45 
'-----------------------------------------------------------------------------------------------------------------------
 45 
'-----------------------------------------------------------------------------------------------------------------------
46 
%>
 46 
%>
47 
<%
 47 
<%
48 
'-------------Page Access Condition-------------------------------------------------------------------------------------
 48 
'-------------Page Access Condition-------------------------------------------------------------------------------------
49 
If NOT canActionControl("ConfigureBuildService") Then
 49 
If NOT canActionControl("ConfigureBuildService") Then
50 
	Response.Redirect("message.asp?msg=401-9")
 50 
	Response.Redirect("message.asp?msg=401-9")
51 
End If
 51 
End If
52 
%>
 52 
%>
53 
 
 53 
 
54 
 
 54 
 
55 
<html>
 55 
<html>
56 
<head>
 56 
<head>
57 
 
 57 
 
58 
<title>Project Administration</title>
 58 
<title>Project Administration</title>
59 
 
 59 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
60 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 60 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
61 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 61 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
62 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 62 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
63 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 63 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
64 
<script language="JavaScript" src="images/common.js"></script>
 64 
<script language="JavaScript" src="images/common.js"></script>
65 
<!-- DROPDOWN MENUS -->
 65 
<!-- DROPDOWN MENUS -->
66 
<!--#include file="_menu_def.asp"-->
 66 
<!--#include file="_menu_def.asp"-->
67 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 67 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
68 
</head>
 68 
</head>
69 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 69 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
70 
<!-- MENU LAYERS -------------------------------------->
 70 
<!-- MENU LAYERS -------------------------------------->
71 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
71 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
72 
</div>
 72 
</div>
73 
<!-- TIPS LAYERS -------------------------------------->
 73 
<!-- TIPS LAYERS -------------------------------------->
74 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 74 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
75 
<!-- HEADER -->
 75 
<!-- HEADER -->
76 
<!--#include file="_header.asp"-->
 76 
<!--#include file="_header.asp"-->
77 
<div class="div_table">
 77 
<div class="div_table">
78 
  <%
 78 
  <%
79 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
 79 
  '-- FROM START ---------------------------------------------------------------------------------------------------------
80 
  objFormComponent.FormName = "ProjectAdmin"
 80 
  objFormComponent.FormName = "ProjectAdmin"
81 
  objFormComponent.Action = ScriptName
 81 
  objFormComponent.Action = ScriptName
82 
  objFormComponent.OnSubmit = "ShowProgress();"
 82 
  objFormComponent.OnSubmit = "ShowProgress();"
83 
  Call objFormComponent.FormStart()
 83 
  Call objFormComponent.FormStart()
84 
  %>
 84 
  %>
85 
    <table border="0" cellspacing="0" cellpadding="0">
 85 
    <table border="0" cellspacing="0" cellpadding="0">
86 
      <tr>
 86 
      <tr>
87 
        <td background="images/bg_bage_0a.gif">
 87 
        <td background="images/bg_bage_0a.gif">
88 
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
 88 
          <table width="100%"  border="0" cellspacing="1" cellpadding="2">
89 
            <tr>
 89 
            <tr>
90 
              <td width="1%" background="images/bg_bage_0.gif"></td>
 90 
              <td width="1%" background="images/bg_bage_0.gif"></td>
91 
              <td width="200px" background="images/bg_bage_0.gif" class="body_col" nowrap>Project Name </td>
 91 
              <td width="200px" background="images/bg_bage_0.gif" class="body_col" nowrap>Project Name </td>
92 
              <td width="400px" background="images/bg_bage_0.gif" class="body_col" nowrap>Code Review Base URL</td>
 92 
              <td width="400px" background="images/bg_bage_0.gif" class="body_col" nowrap>Code Review Base URL</td>
93 
              <td width="100px" background="images/bg_bage_0.gif" class="body_col" nowrap>JIRA Key</td>
 93 
              <td width="100px" background="images/bg_bage_0.gif" class="body_col" nowrap>JIRA Key</td>
94 
              <td width="1%" background="images/bg_bage_0.gif">&nbsp;</td>
 94 
              <td width="1%" background="images/bg_bage_0.gif">&nbsp;</td>
95 
            </tr>
 95 
            </tr>
96 
					  <!-- NORMAL ROW +++++++++++++++++++ -->
 96 
					  <!-- NORMAL ROW +++++++++++++++++++ -->
97 
				    <%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0))
 97 
				    <%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0))
98 
		        While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))
 98 
		        While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))
99 
		        %>
 99 
		        %>
100 
	          <tr>
 100 
	          <tr>
101 
	            <td background="images/bg_bage_0.gif" align="center"></td>
 101 
	            <td background="images/bg_bage_0.gif" align="center"></td>
102 
	            <td bgcolor="#FFFFFF" class="body_row" nowrap><%=UCase(rsProj.Fields("proj_name"))%></td>
 102 
	            <td bgcolor="#FFFFFF" class="body_row" nowrap><%=UCase(rsProj.Fields("proj_name"))%></td>
103 
	            <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("base_url")%></td>
 103 
	            <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("base_url")%></td>
104 
	            <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("jira_key")%></td>
 104 
	            <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("jira_key")%></td>
105 
	            <td align="center" nowrap background="images/bg_bage_0.gif"><a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_projects.asp?proj_id=<%=rsProj.Fields("proj_id")%>','ProjectEdit','scrollbars=no,resizable=yes,width=600,height=150')"><img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle"></a></td>
 105 
	            <td align="center" nowrap background="images/bg_bage_0.gif"><a href="javascript:;" onclick="MM_openBrWindow('_wform_edit_projects.asp?proj_id=<%=rsProj.Fields("proj_id")%>','ProjectEdit','scrollbars=no,resizable=yes,width=600,height=150')"><img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle"></a></td>
106 
	          </tr>
 106 
	          </tr>
107 
	          <%rsProj.MoveNext
 107 
	          <%rsProj.MoveNext
108 
	          WEnd%>
 108 
	          WEnd%>
109 
		        <%If rsProj.RecordCount < 1 Then%>
 109 
		        <%If rsProj.RecordCount < 1 Then%>
110 
			      <tr>
110 
			      <tr>
111 
	            <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>
 111 
	            <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>
112 
	          </tr>
 112 
	          </tr>
113 
	          <tr>
113 
	          <tr>
114 
	            <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 114 
	            <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
115 
	          </tr>
 115 
	          </tr>
116 
		        <%End If%>
 116 
		        <%End If%>
117 
					  <!-- +++++++++++++++++++++++++++++++++ -->
 117 
					  <!-- +++++++++++++++++++++++++++++++++ -->
118 
					</table>
 118 
					</table>
119 
        </td>
 119 
        </td>
120 
      </tr>
 120 
      </tr>
121 
		  <%=objPMod.ComposeHiddenTags()%>
 121 
		  <%=objPMod.ComposeHiddenTags()%>
122 
		  <input type="hidden" name="action" value="true">
 122 
		  <input type="hidden" name="action" value="true">
123 
		  <%Call objFormComponent.FormEnd()%>
 123 
		  <%Call objFormComponent.FormEnd()%>
124 
    </table>
 124 
    </table>
125 
  </div>
 125 
  </div>
126 
</body>
 126 
</body>
127 
</html>
 127 
</html>
128 
<!-- FOOTER -->
 128 
<!-- FOOTER -->
129 
<!--#include file="_footer.asp"-->
 129 
<!--#include file="_footer.asp"-->
130 
<%
 130 
<%
131 
Call Destroy_All_Objects
 131 
Call Destroy_All_Objects
132 
%>
 132 
%>
133 

            133