Subversion Repositories DevTools

Rev

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

Rev 6499 Rev 6508
Line 28... Line 28...
28 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
29 
Dim rsTemp
 29 
Dim rsTemp
30 
Dim rsQry
 30 
Dim rsQry
31 
Dim canDelete : canDelete = FALSE
 31 
Dim canDelete : canDelete = FALSE
32 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
- 
 
 33 
Const LIMG_USER          = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
- 
 
 34 
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
33 
'------------ Variable Init -------------------
 35 
'------------ Variable Init -------------------
34 
canDelete = canActionControlInProject("AdminView")
 36 
canDelete = canActionControlInProject("AdminView")
35 
'----------------------------------------------
 37 
'----------------------------------------------
36 
%>
 38 
%>
37 
<html>
 39 
<html>
Line 156... Line 158...
156 
            <!-- DETAILS ------------------------------------------------->
 158 
            <!-- DETAILS ------------------------------------------------->
157 
            <br>
159 
            <br>
158 
                        <span class="body_colb">Package Notification Details</span><br>
 160 
                        <span class="body_colb">Package Notification Details</span><br>
159 
                        <table width="100%" border="0" cellspacing="1" cellpadding="3">
 161 
                        <table width="100%" border="0" cellspacing="1" cellpadding="3">
160 
                          <tr class="form_field_hdr">
162 
                          <tr class="form_field_hdr">
161 
                            <td nowrap width="1%" >Who&nbsp;</td>
 - 
 
162 
                            <td nowrap width="1%" >Enabled User<%=Quick_Help("enabledUser")%>&nbsp;</td>
 163 
                            <td nowrap width="1%" >Who<%=Quick_Help("enabledUser")%>&nbsp;</td>
163 
                            <td nowrap width="1%">Opr<%=Quick_Help("opr")%>&nbsp;&nbsp;</td>
 164 
                            <td nowrap width="1%">Opr<%=Quick_Help("opr")%>&nbsp;&nbsp;</td>
164 
                            <td nowrap width="97%">Project&nbsp;&nbsp;</td>
 165 
                            <td nowrap width="97%">Project&nbsp;&nbsp;</td>
165 
 
 166 
 
166 
                          </tr>
 167 
                          </tr>
167 
                          <%
 168 
                          <%
Line 177... Line 178...
177 
                            <td nowrap>&nbsp;</td>
 178 
                            <td nowrap>&nbsp;</td>
178 
                            <td nowrap>&nbsp;</td>
 179 
                            <td nowrap>&nbsp;</td>
179 
                          </tr>
 180 
                          </tr>
180 
                          <%End If%>
 181 
                          <%End If%>
181 
                          <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 182 
                          <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
182 
                                Dim userCheck : userCheck = ""
 183 
                                Dim userImage : userImage = LIMG_USER_DISABLED
183 
                                If isNull(rsTemp("is_DISABLED")) Then
 184 
                                If isNull(rsTemp("is_DISABLED")) Then
184 
                                    userCheck = "checked"
 185 
                                    userImage = LIMG_USER
185 
                                End If
 186 
                                End If
186 
 
 187 
 
187 
                                Dim btnDisabled: btnDisabled = "disabled"
 188 
                                Dim btnDisabled: btnDisabled = "disabled"
188 
                                If canDelete OR objAccessControl.UserId = rsTemp("user_id") Then
 189 
                                If canDelete OR objAccessControl.UserId = rsTemp("user_id") Then
189 
                                    btnDisabled = ""
 190 
                                    btnDisabled = ""
190 
                                End If
 191 
                                End If
191 
 
 192 
 
192 
                            %>
 193 
                            %>
193 
                          <tr class="form_item_grey" data-user_id="<%=rsTemp("user_id")%>" data-proj_id="<%=rsTemp("proj_id")%>" >
194 
                          <tr class="form_item_grey" data-user_id="<%=rsTemp("user_id")%>" data-proj_id="<%=rsTemp("proj_id")%>" >
194 
                            <td nowrap valign="top"><a href="mailto:<%=rsTemp("user_email")%>" title="<%=rsTemp("user_email")%>" class="txt_linked"><%=rsTemp("FULL_NAME")%></a></td>
 195 
                            <td nowrap valign="top"><a href="mailto:<%=rsTemp("user_email")%>" title="<%=rsTemp("user_email")%>" class="txt_linked"><%=userImage%><%=rsTemp("FULL_NAME")%></a></td>
195 
                            <td nowrap valign="top"><input type="checkbox" <%=userCheck%> disabled></td>
 - 
 
196 
                            <td nowrap valign="top"><button class="form_btn btn_delete" type="button" <%=btnDisabled%>>Delete</button></td>
 196 
                            <td nowrap valign="top"><button class="form_btn btn_delete" type="button" <%=btnDisabled%>>Delete</button></td>
197 
                            <td nowrap valign="top"><a href="rtree.asp?proj_id=<%=rsTemp("PROJ_ID")%>"><%=rsTemp("PROJ_NAME")%></a></td>
 197 
                            <td nowrap valign="top"><a href="rtree.asp?proj_id=<%=rsTemp("PROJ_ID")%>"><%=rsTemp("PROJ_NAME")%></a></td>
198 
                          </tr>
 198 
                          </tr>
199 
                          <%rsTemp.MoveNext
 199 
                          <%rsTemp.MoveNext
200 
                          WEnd
 200 
                          WEnd