Subversion Repositories DevTools

Rev

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

Rev 6181 Rev 6184
Line 440... Line 440...
440 
    ' Check if form submit is happening
 440 
    ' Check if form submit is happening
441 
    If CBool(Request("action")) Then
 441 
    If CBool(Request("action")) Then
442 
 
 442 
 
443 
       Dim RepeatSeconds
 443 
       Dim RepeatSeconds
444 
       Dim ScheduledDateTime
 444 
       Dim ScheduledDateTime
- 
 
 445 
       Dim sErrorMsg
445 
 
 446 
 
446 
       ' determine if insert/update is enabled by permissions
 447 
       ' determine if insert/update is enabled by permissions
447 
       If NOT UserCanAddOrEditThisDaemonInst(parProj_id, ReleaseMode, parOp_code) Then
 448 
       If NOT UserCanAddOrEditThisDaemonInst(parProj_id, ReleaseMode, parOp_code) Then
448 
          ' redirect to an error message
 449 
          ' redirect to an error message
449 
          Call sMessageAdd (1, "You have been denied permission to add/update daemon instructions for the specified release.")
 450 
          Call sMessageAdd (1, "You have been denied permission to add/update daemon instructions for the specified release.")
450 
          Exit Sub
 451 
          Exit Sub
451 
       End If
 452 
       End If
452 
 
 453 
 
453 
       ' do daemon instruction validation, continuing only if it passes
 454 
       ' do daemon instruction validation, continuing only if it passes
454 
       If ValidateDaemonInstruction(parOp_code, parRtag_id, parPv_id) = True Then
 455 
       If ValidateDaemonInstruction(parOp_code, parRtag_id, parPv_id, sErrorMsg) = True Then
455 
 
 456 
 
456 
          ' Setup the repeat seconds count according to the radio button value
 457 
          ' Setup the repeat seconds count according to the radio button value
457 
          If IsNull(Request("repeat_inst")) OR Request("repeat_inst") = "" OR Request("repeat_inst") = "No" Then
 458 
          If IsNull(Request("repeat_inst")) OR Request("repeat_inst") = "" OR Request("repeat_inst") = "No" Then
458 
             RepeatSeconds = 0
 459 
             RepeatSeconds = 0
459 
          Else
 460 
          Else
Line 513... Line 514...
513 
            Else
 514 
            Else
514 
               Call OpenInParentWindow (parRfile & "?rtag_id=" & parRtag_id & "&pv_id=" & parPv_id)
 515 
               Call OpenInParentWindow (parRfile & "?rtag_id=" & parRtag_id & "&pv_id=" & parPv_id)
515 
            End If
 516 
            End If
516 
            Call CloseWindow
 517 
            Call CloseWindow
517 
         End If
 518 
         End If
- 
 
 519 
       Else
- 
 
 520 
        sMessage = sErrorMsg
- 
 
 521 
        sMessageType = 1
518 
       End If
 522 
       End If
519 
    End If
 523 
    End If
520 
End Sub
 524 
End Sub
521 
%>
 525 
%>
522 
<%
 526 
<%