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