Subversion Repositories DevTools

Rev

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

Rev 6916 Rev 7063
Line 212... Line 212...
212 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_box">
 212 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_box">
213 
         <caption>Build Daemon Control</caption>
 213 
         <caption>Build Daemon Control</caption>
214 
   <form name="run_level_schedule">
 214 
   <form name="run_level_schedule">
215 
      <tr>
 215 
      <tr>
216 
         <td>
 216 
         <td>
217 
          <%
 - 
 
218 
          Dim rsInfinite, infiniteValue
 - 
 
219 
          Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
 - 
 
220 
          infiniteValue = rsInfinite.RecordCount
 - 
 
221 
          %>
 - 
 
222 
          <fieldset>
 217 
          <fieldset>
223 
          <legend class="body_txt">Build Daemon Control
 218 
          <legend class="body_txt">Build Daemon Control</legend>
224 
          <%If infiniteValue <> 0 Then%>
 - 
 
225 
            <b><span class='err_alert'>WARNING!!! </span>Daemons Set To Indefinite Pause.</b>
 - 
 
226 
          <%End If%>
 - 
 
227 
          </legend>
 - 
 
228 
            <table width="100%"  class="embedded_table" >
 219 
            <table width="100%"  class="embedded_table" >
229 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 220 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
230 
               <tr>
 221 
               <tr>
231 
                  <td>
 222 
                  <td>
232 
                  <%
 223 
                  <%
233 
                  If infiniteValue = 0 Then
 224 
                  If IndefPause Then
234 
                        Call Action_Buttons_State ( "Indefinite Pause", NOT bReadOnly )
 - 
 
235 
                  Else
 - 
 
236 
                        Call Action_Buttons_State ( "Resume", NOT bReadOnly )
 225 
                        Call Action_Buttons_State ( "Resume", NOT bReadOnly )
- 
 
 226 
                  Else
- 
 
 227 
                        Call Action_Buttons_State ( "Indefinite Pause", NOT bReadOnly )
237 
                  End If
 228 
                  End If
238 
                  %>
 229 
                  %>
239 
               </tr>
 230 
               </tr>
240 
            </table>
 231 
            </table>
241 
            </fieldset>
 232 
            </fieldset>
242 
            <%
 233 
            <%
243 
            rsInfinite.Close()
 - 
 
244 
            Set rsInfinite = Nothing
 - 
 
245 
 
 - 
 
246 
            On Error Resume Next
 234 
            On Error Resume Next
247 
            objEH.TryORA ( OraSession )
 235 
            objEH.TryORA ( OraSession )
248 
            OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
 236 
            OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
249 
            objEH.CatchORA ( OraSession )
 237 
            objEH.CatchORA ( OraSession )
250 
            %>
 238 
            %>