Subversion Repositories DevTools

Rev

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

Rev 6879 Rev 7063
Line 230... Line 230...
230 
    End If
 230 
    End If
231 
 
 231 
 
232 
    OraDatabase.Parameters.Remove "RTAG_ID"
 232 
    OraDatabase.Parameters.Remove "RTAG_ID"
233 
 
 233 
 
234 
End Function
 234 
End Function
235 
 
 - 
 
236 
'--------------------------------------------------------------------------------------------------------------------------
 - 
 
237 
Function Indefinitely_Paused()
 - 
 
238 
   Dim rsQry2
 - 
 
239 
   Dim query_string2
 - 
 
240 
 
 - 
 
241 
   Indefinitely_Paused = False
 - 
 
242 
 
 - 
 
243 
   query_string2 = " select * from run_level_schedule rls where rls.indefinite_pause = 'P'"
 - 
 
244 
 
 - 
 
245 
   Set rsQry2 = OraDatabase.DbCreateDynaset( query_string2, ORADYN_DEFAULT )
 - 
 
246 
   If rsQry2.RecordCount > 0 Then
 - 
 
247 
      Indefinitely_Paused = True
 - 
 
248 
   End If
 - 
 
249 
End Function
 - 
 
250 
'--------------------------------------------------------------------------------------------------------------------------
 235 
'--------------------------------------------------------------------------------------------------------------------------
251 
Sub BuildMenuPane
 236 
Sub BuildMenuPane
252 
    If parRtagId <> 0 Then %>
 237 
    If parRtagId <> 0 Then %>
253 
    <fieldset class=body_rowg>
 238 
    <fieldset class=body_rowg>
254 
        <legend class="body_scol">Build Menu</legend>
 239 
        <legend class="body_scol">Build Menu</legend>