Subversion Repositories DevTools

Rev

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

Rev 149 Rev 153
Line 502... Line 502...
502 
' Check if form submit is happening
 502 
' Check if form submit is happening
503 
If CBool(Request("action")) Then
 503 
If CBool(Request("action")) Then
504 
 
 504 
 
505 
   Dim RepeatSeconds
 505 
   Dim RepeatSeconds
506 
   Dim ScheduledDateTime
 506 
   Dim ScheduledDateTime
507 
   Dim bEditEnabled
 - 
 
508 
   Dim ReleaseMode
 507 
   Dim ReleaseMode
509 
 
 508 
 
510 
   ' determine if insert/update is enabled by permissions
 - 
 
511 
   bEditEnabled = True
 - 
 
512 
   ReleaseMode = GetReleaseMode(parRtag_id)
 509 
   ReleaseMode = GetReleaseMode(parRtag_id)
513 
   If NOT objAccessControl.IsDataActive ("PROJECTS", parProj_id, "EditProjects") OR NOT objAccessControl.IsDataVisible ("PROJECTS", parProj_id, "EditProjects")  Then
 - 
 
514 
      bEditEnabled = False
 - 
 
515 
   ElseIf NOT objAccessControl.IsDataActive ("PROJECTS", parProj_id, enumDB_PERMISSION_TYPE_ACTIVE) Then
 - 
 
516 
      bEditEnabled = False
 - 
 
517 
   ElseIf ( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) Then
 - 
 
518 
      If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
 - 
 
519 
         bEditEnabled = False
 - 
 
520 
      End If
 - 
 
521 
   End If
 - 
 
522 
 
 510 
 
523 
   If NOT bEditEnabled Then
 511 
   ' determine if insert/update is enabled by permissions
- 
 
 512 
   if NOT UserCanAddOrEditThisDaemonInst(parProj_id, ReleaseMode, parOp_code) Then
524 
      ' redirect to an error message
 513 
      ' redirect to an error message
525 
      Call RaiseMsg(enum_MSG_ERROR, "You have been denied permission to add/update daemon instructions for the specified release.")
 514 
      Call RaiseMsg(enum_MSG_ERROR, "You have been denied permission to add/update daemon instructions for the specified release.")
526 
   End If
 515 
   End If
527 
 
 516 
 
528 
   ' do daemon instruction validation, continuing only if it passes
 517 
   ' do daemon instruction validation, continuing only if it passes