| Line 29... |
Line 29... |
| 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 |
Dim bCanEdit
|
| 34 |
'------------ Constants Declaration -----------
|
35 |
'------------ Constants Declaration -----------
|
| 35 |
'------------ Variable Init -------------------
|
36 |
'------------ Variable Init -------------------
|
| 36 |
Set objBtnControl = New ActionButtonControl
|
37 |
Set objBtnControl = New ActionButtonControl
|
| - |
|
38 |
bCanEdit = canActionControl("CreateNewProject")
|
| 37 |
'----------------------------------------------
|
39 |
'----------------------------------------------
|
| 38 |
%>
|
40 |
%>
|
| 39 |
<%
|
41 |
<%
|
| 40 |
'-----------------------------------------------------------------------------------------------------------------------
|
42 |
'-----------------------------------------------------------------------------------------------------------------------
|
| 41 |
Function Get_Projects
|
43 |
Function Get_Projects
|
| 42 |
Get_Projects = _
|
44 |
Get_Projects = _
|
| 43 |
" SELECT * FROM projects ORDER BY proj_name ASC"
|
45 |
" SELECT * FROM projects ORDER BY proj_name ASC"
|
| 44 |
End Function
|
46 |
End Function
|
| 45 |
'-----------------------------------------------------------------------------------------------------------------------
|
47 |
'-----------------------------------------------------------------------------------------------------------------------
|
| 46 |
%>
|
48 |
%>
|
| 47 |
<%
|
- |
|
| 48 |
'-------------Page Access Condition-------------------------------------------------------------------------------------
|
- |
|
| 49 |
If NOT canActionControl("ConfigureBuildService") Then
|
- |
|
| 50 |
Call Destroy_All_Objects
|
- |
|
| 51 |
Response.Redirect("message.asp?msg=401-9")
|
- |
|
| 52 |
End If
|
- |
|
| 53 |
%>
|
- |
|
| 54 |
|
- |
|
| 55 |
|
- |
|
| 56 |
<html>
|
49 |
<html>
|
| 57 |
<head>
|
50 |
<head>
|
| 58 |
<title>Project Administration</title>
|
51 |
<title>Project Administration</title>
|
| 59 |
<link rel="shortcut icon" href="<%=FavIcon%>"/>
|
52 |
<link rel="shortcut icon" href="<%=FavIcon%>"/>
|
| 60 |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
53 |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
| Line 102... |
Line 95... |
| 102 |
<td background="images/bg_bage_0.gif" align="center"></td>
|
95 |
<td background="images/bg_bage_0.gif" align="center"></td>
|
| 103 |
<td bgcolor="#FFFFFF" class="body_row" nowrap><%=UCase(rsProj.Fields("proj_name"))%></td>
|
96 |
<td bgcolor="#FFFFFF" class="body_row" nowrap><%=UCase(rsProj.Fields("proj_name"))%></td>
|
| 104 |
<td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("base_url")%></td>
|
97 |
<td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("base_url")%></td>
|
| 105 |
<td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("jira_key")%></td>
|
98 |
<td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsProj.Fields("jira_key")%></td>
|
| 106 |
<td align="center" nowrap background="images/bg_bage_0.gif">
|
99 |
<td align="center" nowrap background="images/bg_bage_0.gif">
|
| - |
|
100 |
<%If bCanEdit Then%>
|
| 107 |
<a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_projects.asp?proj_id=<%=rsProj.Fields("proj_id")%>','Edit Project Config')"><img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle"></a></td>
|
101 |
<a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_projects.asp?proj_id=<%=rsProj.Fields("proj_id")%>','Edit Project Config')"><img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle"></a>
|
| - |
|
102 |
<%Else%>
|
| - |
|
103 |
<img class="lessOpacity" src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle">
|
| - |
|
104 |
<%End If%>
|
| - |
|
105 |
</td>
|
| 108 |
</tr>
|
106 |
</tr>
|
| 109 |
<%rsProj.MoveNext
|
107 |
<%rsProj.MoveNext
|
| 110 |
WEnd%>
|
108 |
WEnd%>
|
| 111 |
<%If rsProj.RecordCount < 1 Then%>
|
109 |
<%If rsProj.RecordCount < 1 Then%>
|
| 112 |
<tr>
|
110 |
<tr>
|