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">