Subversion Repositories DevTools

Rev

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

Rev 6775 Rev 6777
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 sPrevPage
 32 
Dim sPrevPage
33 
Dim parProjId
 33 
Dim parProjId
34 
Dim canDelete
 34 
Dim canModify
35 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
36 
 
 36 
 
37 
Const LIMG_NDEL          = "<img src='icons/i_remove.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 37 
Const LIMG_NDEL          = "<img src='icons/i_remove.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
38 
Const LIMG_NDEL_DISABLED = "<img src='icons/i_remove_dis.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
 38 
Const LIMG_NDEL_DISABLED = "<img src='icons/i_remove_dis.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
39 
 
 39 
 
40 
'------------ Variable Init -------------------
 40 
'------------ Variable Init -------------------
41 
parProjId = Request("proj_id")
 41 
parProjId = Request("proj_id")
42 
sPrevPage = QStrParDefault("prevPage", Request.ServerVariables("HTTP_REFERER"))
 42 
sPrevPage = QStrParDefault("prevPage", Request.ServerVariables("HTTP_REFERER"))
43 
canDelete = canActionControlInProject("AdminView")
 43 
canModify = canActionControl("ConfigureReplication")
44 
 
 44 
 
45 
'--------------------------------------------------------------------------------------------------------------------------
 45 
'--------------------------------------------------------------------------------------------------------------------------
46 
'  PV_ID_ListHTML
 46 
'  PV_ID_ListHTML
47 
'
 47 
'
48 
'  DESCRIPTION
 48 
'  DESCRIPTION
Line 100... Line 100...
100 
      ' Project Active
 100 
      ' Project Active
101 
      activeChecked = IIF(rsQry("BP_ENABLED") = "Y", "checked", "" )
 101 
      activeChecked = IIF(rsQry("BP_ENABLED") = "Y", "checked", "" )
102 
      btnText = "Operation not available"
 102 
      btnText = "Operation not available"
103 
      btnClass = ""
 103 
      btnClass = ""
104 
      btnDisable = "disabled"
 104 
      btnDisable = "disabled"
105 
      If canDelete AND inUse Then
 105 
      If canModify AND inUse Then
106 
         btnText = "Toggle Replication State"
 106 
         btnText = "Toggle Replication State"
107 
         btnClass = "class=btn_enable"
 107 
         btnClass = "class=btn_enable"
108 
         btnDisable = ""
 108 
         btnDisable = ""
109 
      End If
 109 
      End If
110 
 
 110 
 
Line 115... Line 115...
115 
 
 115 
 
116 
     ' Delete Operation
 116 
     ' Delete Operation
117 
     Dim DelUserImage : DelUserImage = LIMG_NDEL_DISABLED
 117 
     Dim DelUserImage : DelUserImage = LIMG_NDEL_DISABLED
118 
     btnText = "Operation not available"
 118 
     btnText = "Operation not available"
119 
     btnClass = ""
 119 
     btnClass = ""
120 
     If canDelete AND inUse Then
 120 
     If canModify AND inUse Then
121 
         DelUserImage = LIMG_NDEL
 121 
         DelUserImage = LIMG_NDEL
122 
         btnText = "Remove this replica"
 122 
         btnText = "Remove this replica"
123 
         btnClass = "class=btn_delete"
 123 
         btnClass = "class=btn_delete"
124 
     End If
 124 
     End If
125 
 
 125 
 
Line 297... Line 297...
297 
                            <%=PV_ID_ListHTML()%>
 297 
                            <%=PV_ID_ListHTML()%>
298 
                      </table>
 298 
                      </table>
299 
                      <table class="full_table">
 299 
                      <table class="full_table">
300 
                         <tr>
 300 
                         <tr>
301 
                            <td align="right" nowrap valign="bottom" class="abtnItem">
 301 
                            <td align="right" nowrap valign="bottom" class="abtnItem">
302 
                            <%If canDelete Then%>
 302 
                            <%If canModify Then%>
303 
                               <a href="javascript:;" onClick="MM_openVixIFrame('wAddProjReplica.asp?proj_id=<%=parProjId%>','Add Project Replication')">
 303 
                               <a href="javascript:;" onClick="MM_openVixIFrame('wAddProjReplica.asp?proj_id=<%=parProjId%>','Add Project Replication')">
304 
                                  <img src="icons/btn_add.gif" width="13" height="13" align="absmiddle" border="0" hspace="3" title="Add New Replication Targets">
 304 
                                  <img src="icons/btn_add.gif" width="13" height="13" align="absmiddle" border="0" hspace="3" title="Add New Replication Targets">
305 
                                  Add Project Replica
 305 
                                  Add Project Replica
306 
                               </a>
 306 
                               </a>
307 
                            <%Else%>
 307 
                            <%Else%>