Subversion Repositories DevTools

Rev

Rev 6783 | Rev 6827 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|				    ADMIN Page	             		        	 |
6
'|                 PROJECTS                       	 |
7
'|                                            			 |
8
'=====================================================
9
%>
10
<%
11
Option explicit
12
' Good idea to set when using redirect
13
Response.Expires = 0	' always load the page, dont store
14
%>
15
<!--#include file="common/conf.asp"-->
16
<!--#include file="common/globals.asp"-->
17
<!--#include file="common/formating.asp"-->
18
<!--#include file="common/qstr.asp"-->
19
<!--#include file="common/common_subs.asp"-->
20
<!--#include file="sec/Crypt.asp"-->
21
<!--#include file="common/_form_window_common.asp"-->
22
<!--#include file="_action_buttons.asp"-->
23
 
24
<!--#include file="class/classActionButtonControl.asp"-->
25
 
26
<%
27
'------------ ACCESS CONTROL ------------------
28
%>
6181 dpurdie 29
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 30
<!--#include file="_access_control_general.asp"-->
31
<%
32
'------------ Variable Definition -------------
33
Dim objBtnControl
34
Dim rsProj
5983 dpurdie 35
Dim bCanEdit
5357 dpurdie 36
'------------ Constants Declaration -----------
37
'------------ Variable Init -------------------
38
Set objBtnControl = New ActionButtonControl
5983 dpurdie 39
bCanEdit = canActionControl("CreateNewProject")
5357 dpurdie 40
'----------------------------------------------
41
%>
42
<%
43
'-----------------------------------------------------------------------------------------------------------------------
44
Function Get_Projects
45
	Get_Projects = _
46
	" SELECT * FROM projects ORDER BY proj_name ASC"
47
End Function
48
'-----------------------------------------------------------------------------------------------------------------------
49
%>
50
<html>
51
<head>
52
<title>Project Administration</title>
53
<link rel="shortcut icon" href="<%=FavIcon%>"/>
54
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
55
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 56
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
57
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
58
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5590 dpurdie 59
<!--#include file="_jquery_includes.asp"-->
5357 dpurdie 60
<!-- DROPDOWN MENUS -->
61
<!--#include file="_menu_def.asp"-->
6579 dpurdie 62
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 63
</head>
64
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
65
<!-- HEADER -->
66
<!--#include file="_header.asp"-->
67
<div class="div_table">
6793 dpurdie 68
  <table align=center border="0" cellspacing="1" cellpadding="2" class='stdBrown'>
69
      <caption>Project Information</caption>
70
      <thead>
71
        <tr>
72
          <th nowrap>Project Name </th>
73
          <th nowrap>Code Review Base URL</th>
74
          <th nowrap>JIRA Key</th>
75
          <th >&nbsp;</th>
76
        </tr>
77
      </thead>
78
            <%Set rsProj = OraDatabase.DbCreateDynaset( Get_Projects, cint(0))
79
        While ((NOT rsProj.BOF) AND (NOT rsProj.EOF))
80
        %>
5357 dpurdie 81
      <tr>
6793 dpurdie 82
        <td nowrap><%=UCase(rsProj.Fields("proj_name"))%></td>
83
        <td nowrap><%=rsProj.Fields("base_url")%></td>
84
        <td nowrap><%=rsProj.Fields("jira_key")%></td>
85
        <td align="center" nowrap>
86
        <%If bCanEdit Then%>
87
            <a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_projects.asp?proj_id=<%=rsProj.Fields("proj_id")%>','Edit Project Config')"><%=LIMG_EDIT%></a>
88
        <%Else%>
89
            <%=LIMG_EDIT_DISABLED%>
90
        <%End If%>
5357 dpurdie 91
        </td>
92
      </tr>
6793 dpurdie 93
      <%rsProj.MoveNext
94
      WEnd%>
95
        <%If rsProj.RecordCount < 1 Then%>
96
            <tr> 
97
                <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>
98
            </tr>
99
            <tr> 
100
                <td background="images/bg_home_orglite.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
101
            </tr>
102
        <%End If%>
5357 dpurdie 103
    </table>
6793 dpurdie 104
</div>
5957 dpurdie 105
<!-- FOOTER -->
106
<!--#include file="_footer.asp"-->
5357 dpurdie 107
</body>
108
</html>