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 22... Line 22...
22 
<!--#include file="_access_control_general.asp"-->
 22 
<!--#include file="_access_control_general.asp"-->
23 
<!--#include file="_access_control_action_project.asp"-->
 23 
<!--#include file="_access_control_action_project.asp"-->
24 
<%
 24 
<%
25 
'------------ Variable Definition -------------
 25 
'------------ Variable Definition -------------
26 
Dim parRtagId
 26 
Dim parRtagId
27 
Dim canDelete
 27 
Dim canModify
28 
'------------ Constants Declaration -----------
 28 
'------------ Constants Declaration -----------
29 
 
 29 
 
30 
Const LIMG_NDEL          = "<img src='icons/i_remove.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 30 
Const LIMG_NDEL          = "<img src='icons/i_remove.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
31 
Const LIMG_NDEL_DISABLED = "<img src='icons/i_remove_dis.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
 31 
Const LIMG_NDEL_DISABLED = "<img src='icons/i_remove_dis.gif' width='16' height='16' hspace='2' border='0' align='absmiddle' class='lessOpacity'>"
32 
 
 32 
 
33 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
34 
canDelete = canActionControlInProject("AdminView")
 34 
canModify = canActionControl("ConfigureReplication")
35 
'------------ Variable Init -------------------
 35 
'------------ Variable Init -------------------
36 
parRtagId = Request("rtag_id")
 36 
parRtagId = Request("rtag_id")
37 
objPMod.PersistInQryString("rtag_id")
 37 
objPMod.PersistInQryString("rtag_id")
38 
'--------------------------------------------------------------------------------------------------------------------------
 38 
'--------------------------------------------------------------------------------------------------------------------------
39 
'  PV_ID_ListHTML
 39 
'  PV_ID_ListHTML
Line 105... Line 105...
105 
      ' Project Active
 105 
      ' Project Active
106 
      activeChecked = IIF(rsQry("BR_ENABLED") = "Y", "checked", "" )
 106 
      activeChecked = IIF(rsQry("BR_ENABLED") = "Y", "checked", "" )
107 
      btnText = "Operation not available"
 107 
      btnText = "Operation not available"
108 
      btnClass = ""
 108 
      btnClass = ""
109 
      btnDisable = "disabled"
 109 
      btnDisable = "disabled"
110 
      If canDelete AND isaRelease Then
 110 
      If canModify AND isaRelease Then
111 
         btnText = "Toggle Replication State"
 111 
         btnText = "Toggle Replication State"
112 
         btnClass = "class=btn_enable"
 112 
         btnClass = "class=btn_enable"
113 
         btnDisable = ""
 113 
         btnDisable = ""
114 
      End If
 114 
      End If
115 
 
 115 
 
Line 120... Line 120...
120 
 
 120 
 
121 
     ' Delete Operation
 121 
     ' Delete Operation
122 
     Dim DelUserImage : DelUserImage = LIMG_NDEL_DISABLED
 122 
     Dim DelUserImage : DelUserImage = LIMG_NDEL_DISABLED
123 
     btnText = "Operation not available"
 123 
     btnText = "Operation not available"
124 
     btnClass = ""
 124 
     btnClass = ""
125 
     If canDelete AND isaRelease Then
 125 
     If canModify AND isaRelease Then
126 
         DelUserImage = LIMG_NDEL
 126 
         DelUserImage = LIMG_NDEL
127 
         btnText = "Remove this replica"
 127 
         btnText = "Remove this replica"
128 
         btnClass = "class=btn_delete"
 128 
         btnClass = "class=btn_delete"
129 
     End If
 129 
     End If
130 
 
 130 
 
Line 287... Line 287...
287 
                        <%=PV_ID_ListHTML()%>
 287 
                        <%=PV_ID_ListHTML()%>
288 
                  </table>
 288 
                  </table>
289 
                  <table class="full_table">
 289 
                  <table class="full_table">
290 
                     <tr>
 290 
                     <tr>
291 
                        <td align="right" nowrap valign="bottom" class="abtnItem" title="Add New Replication Targets">
 291 
                        <td align="right" nowrap valign="bottom" class="abtnItem" title="Add New Replication Targets">
292 
                        <%If canDelete Then%>
 292 
                        <%If canModify Then%>
293 
                           <a href="javascript:;" onClick="MM_openVixIFrame('wAddReleaseReplica.asp?rtag_id=<%=DB_RTAG_ID%>','Add Release Replication')">
 293 
                           <a href="javascript:;" onClick="MM_openVixIFrame('wAddReleaseReplica.asp?rtag_id=<%=DB_RTAG_ID%>','Add Release Replication')">
294 
                              <img src="icons/btn_add.gif" width="13" height="13" align="absmiddle" border="0" hspace="3" >
 294 
                              <img src="icons/btn_add.gif" width="13" height="13" align="absmiddle" border="0" hspace="3" >
295 
                              Add Release Replica
 295 
                              Add Release Replica
296 
                           </a>
 296 
                           </a>
297 
                        <%Else%>
 297 
                        <%Else%>