Subversion Repositories DevTools

Rev

Rev 149 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 149 Rev 153
Line 184... Line 184...
184 
         Dim rsQry
 184 
         Dim rsQry
185 
         Dim bInProgress
 185 
         Dim bInProgress
186 
         Dim bIsReady
 186 
         Dim bIsReady
187 
         Dim bIsOverdue
 187 
         Dim bIsOverdue
188 
         Dim daemonInstId  ' This variable is needed to support the action buttons to Edit/Delete
 188 
         Dim daemonInstId  ' This variable is needed to support the action buttons to Edit/Delete
189 
         Dim bEditEnabled
 - 
 
190 
         Dim bResetInProgressEnabled
 189 
         Dim bResetInProgressEnabled
191 
         Dim sortClause
 190 
         Dim sortClause
192 
         Dim sortText
 191 
         Dim sortText
193 
 
 192 
 
194 
         ' determine if user can reset the in-progress state of a daemon instruction
 193 
         ' determine if user can reset the in-progress state of a daemon instruction
Line 289... Line 288...
289 
            Else
 288 
            Else
290 
               bIsReady = False
 289 
               bIsReady = False
291 
            End If
 290 
            End If
292 
 
 291 
 
293 
 
 292 
 
294 
            ' determine if editing is enabled by permissions
 - 
 
295 
            bEditEnabled = True
 - 
 
296 
            If objAccessControl.UserLogedIn Then
 - 
 
297 
               If NOT objAccessControl.IsDataActive ("PROJECTS", rsQry("proj_id"), "EditProjects") OR NOT objAccessControl.IsDataVisible ("PROJECTS", rsQry("proj_id"), "EditProjects")  Then
 - 
 
298 
                  bEditEnabled = False
 - 
 
299 
               ElseIf NOT objAccessControl.IsDataActive ("PROJECTS", rsQry("proj_id"), enumDB_PERMISSION_TYPE_ACTIVE) Then
 - 
 
300 
                  bEditEnabled = False
 - 
 
301 
               ElseIf ( rsQry("official") <> enumDB_RELEASE_IN_OPEN_MODE ) Then
 - 
 
302 
                  If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
 - 
 
303 
                     bEditEnabled = False
 - 
 
304 
                  End If
 - 
 
305 
               End If
 - 
 
306 
            Else
 - 
 
307 
               bEditEnabled = False
 - 
 
308 
            End If
 - 
 
309 
 
 - 
 
310 
            %>
 293 
            %>
311 
            <tr>
 294 
            <tr>
312 
               <input type="hidden" name="DAEMON_INSTRUCTIONS_ID_" & daemonInstId value=daemonInstId>
 295 
               <input type="hidden" name="DAEMON_INSTRUCTIONS_ID_" & daemonInstId value=daemonInstId>
313 
 
 296 
 
314 
               <td></td>
 297 
               <td></td>
Line 369... Line 352...
369 
                     NO
 352 
                     NO
370 
                  <%End If%>
 353 
                  <%End If%>
371 
               </td>
 354 
               </td>
372 
 
 355 
 
373 
               <td align="left" valign="top" class="body_txt">
 356 
               <td align="left" valign="top" class="body_txt">
374 
                  <%If bEditEnabled Then%>
 357 
                  <%If UserCanAddOrEditThisDaemonInst(rsQry("proj_id"), rsQry("official"), rsQry("OP_CODE")) Then%>
375 
                     <%Call objBtnControl.Render ( Array("btnEditDaemonInst", "btnDeleteDaemonInst"), objAccessControl )%>
 358 
                     <%Call objBtnControl.Render ( Array("btnEditDaemonInst", "btnDeleteDaemonInst"), objAccessControl )%>
376 
                  <%Else%>
 359 
                  <%Else%>
377 
                     No Edit Permission
 360 
                     No Edit Permission
378 
                  <%End If%>
 361 
                  <%End If%>
379 
               </td>
 362 
               </td>
Line 428... Line 411...
428 
         </tr>
 411 
         </tr>
429 
         <tr>
 412 
         <tr>
430 
            <td valign="top" class="help_txt">4)</td>
 413 
            <td valign="top" class="help_txt">4)</td>
431 
            <td valign="top" class="help_txt">Instructions with scheduled times 5 days or older will be deleted automatically.</td>
 414 
            <td valign="top" class="help_txt">Instructions with scheduled times 5 days or older will be deleted automatically.</td>
432 
         </tr>
 415 
         </tr>
- 
 
 416 
         <tr>
- 
 
 417 
            <td valign="top" class="help_txt">5)</td>
- 
 
 418 
            <td valign="top" class="help_txt">Add/Edit/Delete Permissions will vary depending upon Operation, Release Mode, and User Permissions.</td>
- 
 
 419 
         </tr>
433 
 
 420 
 
434 
      </table>
 421 
      </table>
435 
 
 422 
 
436 
      <%=objPMod.ComposeHiddenTags()%>
 423 
      <%=objPMod.ComposeHiddenTags()%>
437 
      <input type="hidden" name="action" value="true">
 424 
      <input type="hidden" name="action" value="true">