Subversion Repositories DevTools

Rev

Rev 5123 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5123 Rev 5157
Line 225... Line 225...
225 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_table">
 225 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_table">
226 
 
 226 
 
227 
   <form name="run_level_schedule">
 227 
   <form name="run_level_schedule">
228 
      <tr>
 228 
      <tr>
229 
         <td>
 229 
         <td>
- 
 
 230 
          <%
- 
 
 231 
          Dim rsInfinite, infiniteValue
- 
 
 232 
          Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
- 
 
 233 
          infiniteValue = rsInfinite.RecordCount
- 
 
 234 
          %>
230 
          <fieldset>
 235 
          <fieldset>
231 
          <legend class="body_txt">Build Daemon Control</legend>
 236 
          <legend class="body_txt">Build Daemon Control
- 
 
 237 
          <%If infiniteValue <> 0 Then%>
- 
 
 238 
            <b><span class='err_alert'>WARNING!!! </span>Daemons Set To Indefinite Pause.</b>
- 
 
 239 
          <%End If%>
- 
 
 240 
          </legend>
232 
            <table width="100%"  class="embedded_table">
 241 
            <table width="100%"  class="embedded_table">
233 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 242 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
234 
               <tr>
 243 
               <tr>
235 
                  <td>
 244 
                  <td>
236 
                  <table><tr><td>
 - 
 
237 
                  <%
 245 
                  <%
- 
 
 246 
                  If infiniteValue = 0 Then
238 
                  If bReadOnly Then
 247 
                      If bReadOnly Then
239 
                    Call Action_Buttons ( "Add Schedule Disable" )
 248 
                        Call Action_Buttons ( "Indefinite Pause Disable" )
- 
 
 249 
                      Else
- 
 
 250 
                        Call Action_Buttons ( "Indefinite Pause" )
- 
 
 251 
                      End If
240 
                  Else
 252 
                  Else
241 
                    Call Action_Buttons ( "Add Schedule" )
 - 
 
242 
                  End If
 - 
 
243 
                  %>
 - 
 
244 
 
 - 
 
245 
                  <td>
 - 
 
246 
                  <%
 - 
 
247 
                  Dim rsInfinite, infiniteValue
 - 
 
248 
 
 - 
 
249 
                  Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
 - 
 
250 
 
 - 
 
251 
                  infiniteValue = rsInfinite.RecordCount
 - 
 
252 
 
 - 
 
253 
                  If bReadOnly Then
 253 
                      If bReadOnly Then
254 
                    If infiniteValue = 0 Then
 - 
 
255 
                  %>
 - 
 
256 
                     <%Call Action_Buttons ( "Indefinite Pause Disable" )%></td>
 254 
                        Call Action_Buttons ( "Indefinite Pause Disable" )
257 
                  <%Else%>
 - 
 
258 
                     <%Call Action_Buttons ( "Resume Disable" )%></td>
 - 
 
259 
                  <%End If
 - 
 
260 
                  Else
 255 
                      Else
261 
                    If infiniteValue = 0 Then
 - 
 
262 
                  %>
 - 
 
263 
                     <%Call Action_Buttons ( "Indefinite Pause" )%></td>
 - 
 
264 
                  <%Else%>
 - 
 
265 
                     <%Call Action_Buttons ( "Resume" )%></td>
 256 
                        Call Action_Buttons ( "Resume" )
266 
                  <%End If
 257 
                      End If
267 
                  End If
 258 
                  End If
268 
 
 - 
 
269 
                  rsInfinite.Close()
 - 
 
270 
                  Set rsInfinite = Nothing
 - 
 
271 
 
 - 
 
272 
                  On Error Resume Next
 - 
 
273 
                  objEH.TryORA ( OraSession )
 - 
 
274 
 
 - 
 
275 
                  OraDatabase.ExecuteSQL _
 - 
 
276 
                  "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
 - 
 
277 
 
 - 
 
278 
                  objEH.CatchORA ( OraSession )
 - 
 
279 
 
 - 
 
280 
                  %>
 259 
                  %>
281 
                  </td></<tr></table>
 - 
 
282 
               </tr>
 260 
               </tr>
283 
            </table>
 261 
            </table>
284 
            </fieldset>
 262 
            </fieldset>
285 
            <%
 263 
            <%
- 
 
 264 
            rsInfinite.Close()
- 
 
 265 
            Set rsInfinite = Nothing
- 
 
 266 
 
- 
 
 267 
            On Error Resume Next
- 
 
 268 
            objEH.TryORA ( OraSession )
- 
 
 269 
            OraDatabase.ExecuteSQL "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
- 
 
 270 
            objEH.CatchORA ( OraSession )
- 
 
 271 
            %>
- 
 
 272 
            <!-- +++++++++++++++++++++++++++++++++++ -->
- 
 
 273 
            <%
286 
            ' Load some action buttons
 274 
            ' Load some action buttons
287 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
 275 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
288 
            objBtnControl.ButtonSpacer = 1
 276 
            objBtnControl.ButtonSpacer = 1
289 
            objBtnControl.ReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_DISABLE
 277 
            objBtnControl.ReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_DISABLE
290 
            if bReadOnly Then objBtnControl.IsReadonlyAction = enumDB_YES
 278 
            if bReadOnly Then objBtnControl.IsReadonlyAction = enumDB_YES
291 
            %>
 279 
            %>
292 
            <%If infiniteValue <> 0 Then %>
 - 
 
293 
               <table width="100%"  class="embedded_table" bgcolor="#FFCC00">
 - 
 
294 
                  <tr>
 - 
 
295 
                     <td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!! </span>Daemons Set To Indefinite Pause.<b></td>
 - 
 
296 
                  </tr>
 - 
 
297 
               </table>
 - 
 
298 
            <%End If%>
 - 
 
299 
 
 280 
 
300 
            <!-- +++++++++++++++++++++++++++++++++++ -->
 - 
 
301 
            <fieldset>
 281 
            <fieldset>
302 
            <legend class="body_txt">Scheduled Outages</legend>
 282 
            <legend class="body_txt">Scheduled Outages</legend>
303 
 
 283 
 
304 
            <table width="100%"  class="embedded_table" bgcolor="#FFCC00">
 284 
            <table width="100%"  class="embedded_table" bgcolor="#FFCC00">
305 
               <tr>
 285 
               <tr>
Line 323... Line 303...
323 
 
 303 
 
324 
               '--- Render rows ---
 304 
               '--- Render rows ---
325 
               Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 305 
               Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
326 
                  scheduled_id = rsQry("scheduled_id")
 306 
                  scheduled_id = rsQry("scheduled_id")
327 
 
 307 
 
328 
                  If NOT IsNull(rsQry("scheduled_pause")) Then
 308 
                  If NOT IsNull(rsQry("scheduled_resume")) Then
329 
                    Dim tpause,tresume, trepeat
 309 
                    Dim tpause,tresume, trepeat
330 
                    If rsQry("repeat") = 1  Then
 310 
                    If rsQry("repeat") = 1  Then
331 
                        tpause = rsQry("fmt_pause_time")
 311 
                        tpause = rsQry("fmt_pause_time")
332 
                        tresume = rsQry("fmt_resume_time")
 312 
                        tresume = rsQry("fmt_resume_time")
333 
                        trepeat = "Daily"
 313 
                        trepeat = "Daily"
334 
                    ElseIf rsQry("repeat") = 7  Then
 314 
                    ElseIf rsQry("repeat") = 7  Then
335 
                        tpause = rsQry("fmt_pause_day")
 315 
                        tpause = rsQry("fmt_pause_day")
336 
                        tresume = rsQry("fmt_resume_day")
 316 
                        tresume = rsQry("fmt_resume_time")
337 
                        trepeat = "Weekly"
 317 
                        trepeat = "Weekly"
338 
                    ElseIf rsQry("repeat") = 0  Then
 318 
                    ElseIf rsQry("repeat") = 0  Then
339 
                        tpause = rsQry("fmt_pause")
 319 
                        tpause = rsQry("fmt_pause")
340 
                        tresume = rsQry("fmt_resume")
 320 
                        tresume = rsQry("fmt_resume")
341 
                        trepeat = "Once Only"
 321 
                        trepeat = "Once Only"
Line 361... Line 341...
361 
               Loop
 341 
               Loop
362 
 
 342 
 
363 
               rsQry.Close()
 343 
               rsQry.Close()
364 
               Set rsQry = Nothing
 344 
               Set rsQry = Nothing
365 
               %>
 345 
               %>
- 
 
 346 
            <tr><td colspan=4><hr><tr>
- 
 
 347 
                <%
- 
 
 348 
                If bReadOnly Then
- 
 
 349 
                    Call Action_Buttons ( "Add Schedule Disable" )
- 
 
 350 
                Else
- 
 
 351 
                    Call Action_Buttons ( "Add Schedule" )
- 
 
 352 
                End If
- 
 
 353 
                %>
- 
 
 354 
            </tr>
366 
            </table>
 355 
            </table>
367 
            </fieldset>
 356 
            </fieldset>
368 
         </td>
 357 
         </td>
369 
      </tr>
 358 
      </tr>
370 
   </form>
 359 
   </form>