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 101... Line 101...
101 
    If CInt(parOp_code) >= 0 Then
 101 
    If CInt(parOp_code) >= 0 Then
102 
 
 102 
 
103 
       Dim RepeatSeconds
 103 
       Dim RepeatSeconds
104 
       Dim ScheduledDateTime
 104 
       Dim ScheduledDateTime
105 
       Dim ReleaseMode
 105 
       Dim ReleaseMode
- 
 
 106 
       Dim sErrorMsg
106 
 
 107 
 
107 
       ReleaseMode = GetReleaseMode(parRtag_id)
 108 
       ReleaseMode = GetReleaseMode(parRtag_id)
108 
 
 109 
 
109 
       If NOT objAccessControl.UserLogedIn Then
 110 
       If NOT objAccessControl.UserLogedIn Then
110 
            sMessage = "User is no longer logged in"
 111 
            sMessage = "User is no longer logged in"
Line 115... Line 116...
115 
       End If
 116 
       End If
116 
 
 117 
 
117 
       If isNull(sMessage) Then
 118 
       If isNull(sMessage) Then
118 
 
 119 
 
119 
           ' do daemon instruction validation, continuing only if it passes
 120 
           ' do daemon instruction validation, continuing only if it passes
120 
           If ValidateDaemonInstruction(parOp_code, parRtag_id, parPv_id) = True Then
 121 
           If ValidateDaemonInstruction(parOp_code, parRtag_id, parPv_id, sErrorMsg) = True Then
121 
 
 122 
 
122 
             RepeatSeconds = 0
 123 
             RepeatSeconds = 0
123 
             ScheduledDateTime = ORA_SYSDATETIME
 124 
             ScheduledDateTime = ORA_SYSDATETIME
124 
 
 125 
 
125 
            ' We are adding a new record
 126 
            ' We are adding a new record
Line 138... Line 139...
138 
                Call OpenInParentWindow (parRfile & "?rtag_id=" & parRtag_id & "&pv_id=" & parPv_id)
 139 
                Call OpenInParentWindow (parRfile & "?rtag_id=" & parRtag_id & "&pv_id=" & parPv_id)
139 
                Call Destroy_All_Objects
 140 
                Call Destroy_All_Objects
140 
                Response.End
 141 
                Response.End
141 
             End If
 142 
             End If
142 
           Else
 143 
           Else
143 
            sMessage = "Invalid Request."
 144 
            sMessage = sErrorMsg
144 
            sMessageType = 1
 145 
            sMessageType = 1
145 
           End If
 146 
           End If
146 
       End If
 147 
       End If
147 
    Else
 148 
    Else
148 
        sMessage = "No action selected."
 149 
        sMessage = "No action selected."