Subversion Repositories DevTools

Rev

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

Rev 5981 Rev 5982
Line 26... Line 26...
26 
'------------ ACCESS CONTROL ------------------
 26 
'------------ ACCESS CONTROL ------------------
27 
%>
 27 
%>
28 
<!--#include file="_access_control_general.asp"-->
 28 
<!--#include file="_access_control_general.asp"-->
29 
<%
 29 
<%
30 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
- 
 
 31 
Dim canEdit
31 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
- 
 
 34 
canEdit = canActionControl("ConfigureLicenses") AND canActionControl("ConfigureBuildService")
33 
'----------------------------------------------
 35 
'----------------------------------------------
34 
%>
 36 
%>
35 
 
 - 
 
36 
 
 - 
 
37 
 
 - 
 
38 
<%
 - 
 
39 
' Page Access Condition
 - 
 
40 
If NOT canActionControl("ConfigureBuildService") Then
 - 
 
41 
    Call Destroy_All_Objects
 - 
 
42 
    Response.Redirect("message.asp?msg=401-9")
 - 
 
43 
End If
 - 
 
44 
%>
 - 
 
45 
<html>
 37 
<html>
46 
<head>
 38 
<head>
47 
 
 - 
 
48 
<title>Licence Administration</title>
 39 
<title>Licence Administration</title>
49 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 40 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
50 
 
 - 
 
51 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 41 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
52 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 42 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
53 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 43 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
54 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 44 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
55 
<script language="JavaScript" src="images/common.js"></script>
 45 
<script language="JavaScript" src="images/common.js"></script>
Line 97... Line 87...
97 
              %>
 87 
              %>
98 
              <tr>
88 
              <tr>
99 
                <td background="images/bg_bage_0.gif"></td>
 89 
                <td background="images/bg_bage_0.gif"></td>
100 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=name%></td>
 90 
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=name%></td>
101 
                <td bgcolor="#FFFFFF" class="body_row" nowrap style="padding-right:0px">
 91 
                <td bgcolor="#FFFFFF" class="body_row" nowrap style="padding-right:0px">
- 
 
 92 
                  <%If canEdit Then%>
102 
                    <a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_licences.asp?lic_id=<%=lic_id%>','Edit Licence Name')">
 93 
                    <a href="javascript:;" onclick="MM_openVixIFrame('_wform_edit_licences.asp?lic_id=<%=lic_id%>','Edit Licence Name')">
103 
                        <img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle">
 94 
                        <img src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle">
104 
                    </a>
 95 
                    </a>
- 
 
 96 
                  <%Else%>
- 
 
 97 
                        <img class ="lessOpacity" src="icons/i_edit.gif" width="16" height="16" hspace="2" border="0" align="absmiddle">
- 
 
 98 
                  <%End If%>
105 
                </td>
 99 
                </td>
106 
              </tr>
100 
              </tr>
107 
              <%
 101 
              <%
108 
              rsQry.MoveNext()
 102 
              rsQry.MoveNext()
109 
          Wend
 103 
          Wend
110 
          rsQry.Close()
 104 
          rsQry.Close()
111 
          Set rsQry = nothing
 105 
          Set rsQry = nothing
112 
          %>
 106 
          %>
113
107 
        <%If canEdit Then%>
114 
        <tr>
 108 
        <tr>
115 
            <td background="images/bg_bage_0.gif"></td>
 109 
            <td background="images/bg_bage_0.gif"></td>
116 
            <td bgcolor="#FFFFFF" class="body_row" nowrap colspan="2">
 110 
            <td bgcolor="#FFFFFF" class="body_row" nowrap colspan="2">
117 
                <a href=""><%Call Action_Buttons("Add Licence")%></a>
 111 
                <a href=""><%Call Action_Buttons("Add Licence")%></a>
118 
            </td>
 112 
            </td>
119 
        </tr>
 113 
        </tr>
120 
 
 - 
 
- 
 
 114 
        <%End If%>
121 
    </table>
 115 
    </table>
122 
    <%=objPMod.ComposeHiddenTags()%>
 116 
    <%=objPMod.ComposeHiddenTags()%>
123 
    <input type="hidden" name="action" value="true">
 117 
    <input type="hidden" name="action" value="true">
124 
    <%Call objFormComponent.FormEnd()%>
 118 
    <%Call objFormComponent.FormEnd()%>
125 
    </table>
 119 
    </table>