Subversion Repositories DevTools

Rev

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

Rev 5096 Rev 5123
Line 104... Line 104...
104 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 104 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
105 
<script language="JavaScript" src="images/common.js"></script>
 105 
<script language="JavaScript" src="images/common.js"></script>
106 
<!-- DROPDOWN MENUS -->
 106 
<!-- DROPDOWN MENUS -->
107 
<!--#include file="_menu_def.asp"-->
 107 
<!--#include file="_menu_def.asp"-->
108 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 108 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
- 
 
 109 
<!-- StyleSheet Extensions -->
- 
 
 110 
<style>
- 
 
 111 
.pagebody {margin-left:auto; margin-right:auto; width:50%;border-width: 0px;border-spacing: 2px; zbackground-color: rgb(255, 204, 0)}
- 
 
 112 
.rounded_table {
- 
 
 113 
border-style: solid;
- 
 
 114 
border-top-width: 5px;
- 
 
 115 
border-bottom-width: 5px;
- 
 
 116 
xborder-radius: 13px;
- 
 
 117 
border-color: #FFCC00;
- 
 
 118 
border-left-width: 5px;
- 
 
 119 
border-right-width: 5px;
- 
 
 120 
border-spacing: 2px;
- 
 
 121 
}
- 
 
 122 
 
- 
 
 123 
</style>
- 
 
 124 
 
109 
</head>
 125 
</head>
110 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 126 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
111 
<!-- MENU LAYERS -------------------------------------->
 127 
<!-- MENU LAYERS -------------------------------------->
112 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 128 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
113 
</div>
 129 
</div>
114 
<!-- TIPS LAYERS -------------------------------------->
 130 
<!-- TIPS LAYERS -------------------------------------->
115 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 131 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
116 
<!-- HEADER -->
 132 
<!-- HEADER -->
117 
<!--#include file="_header.asp"-->
 133 
<!--#include file="_header.asp"-->
118 
 
 - 
 
- 
 
 134 
<!-- Body of the page -->
- 
 
 135 
<table class="pagebody">
119 
   <%
 136 
   <%
120 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
 137 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
121 
   Dim bReadOnly: bReadOnly = NOT canActionControl("ConfigureBuildService")
 138 
   Dim bReadOnly: bReadOnly = NOT canActionControl("ConfigureBuildService")
122 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
 139 
   objFormComponent.FormName = "UpdateBuildServiceConfig"
123 
   objFormComponent.Action = ScriptName
 140 
   objFormComponent.Action = ScriptName
Line 128... Line 145...
128 
   End If
 145 
   End If
129 
 
 146 
 
130 
   Call objFormComponent.FormStart()
 147 
   Call objFormComponent.FormStart()
131 
   %>
 148 
   %>
132 
   <tr>
 149 
   <tr>
133 
      <td background="images/bg_login.gif">
 150 
      <td>
134 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 151 
         <table width="100%"  class="embedded_table">
135 
            <tr>
 152 
            <tr>
136 
               <td><%=ProgressBar%></td>
 153 
               <td><%=ProgressBar%></td>
137 
               <td align="right">&nbsp;          </td>
 154 
               <td align="right">&nbsp;          </td>
138 
            </tr>
 155 
            </tr>
139 
         </table>
 156 
         </table>
140 
      </td>
 157 
      </td>
141 
   </tr>
 158 
   </tr>
142 
   <tr>
 159 
   <tr>
143 
      <td>
 160 
      <td>
144 
         <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 161 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_table">
145 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 162 
            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
146 
            <%If NOT objEH.Finally Then%>
 163 
            <%If NOT objEH.Finally Then%>
147 
               <tr>
 164 
               <tr>
148 
                  <td class="form_iname">&nbsp;</td>
 165 
                  <td class="form_iname">&nbsp;</td>
149 
                  <td>
 166 
                  <td>
Line 201... Line 218...
201 
  <input type="hidden" name="action" value="true">
 218 
  <input type="hidden" name="action" value="true">
202 
  <%
 219 
  <%
203 
  Call objFormComponent.FormEnd()
 220 
  Call objFormComponent.FormEnd()
204 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
 221 
  '-- FROM END ----------------------------------------------------------------------------------------------------------------
205 
   %>
 222 
   %>
- 
 
 223 
    <tr>
- 
 
 224 
        <td style="padding-top: 20px;">
- 
 
 225 
         <table width="100%" bgcolor="#FFCC00" class="embedded_table rounded_table">
206 
 
 226 
 
207 
   <form name="run_level_schedule">
 227 
   <form name="run_level_schedule">
208 
      <tr>
 228 
      <tr>
209 
         <td background="images/bg_login.gif">
 - 
 
210 
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
211 
               <tr>
 - 
 
212 
                  <td><%=ProgressBar%></td>
 - 
 
213 
                  <td align="right">&nbsp;          </td>
 - 
 
214 
               </tr>
 - 
 
215 
            </table>
 - 
 
216 
         </td>
 - 
 
217 
      </tr>
 - 
 
218 
      <tr>
 - 
 
219 
         <td>
 229 
         <td>
220 
            <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 - 
 
221 
               <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
222 
               <%If NOT objEH.Finally Then%>
 - 
 
223 
                  <tr>
 230 
          <fieldset>
224 
                     <td class="form_iname">&nbsp;</td>
 231 
          <legend class="body_txt">Build Daemon Control</legend>
225 
                     <td>
 - 
 
226 
                        <%objEH.DisplayMessage()%>
 - 
 
227 
                     </td>
 - 
 
228 
                     <td class="val_err"></td>
 - 
 
229 
                  </tr>
 - 
 
230 
               <%End If%>
 - 
 
231 
               <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
232 
            </table>
 - 
 
233 
            <table width="25%"  border="0" cellpadding="0">
 232 
            <table width="100%"  class="embedded_table">
234 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 233 
               <!-- BUTTONS CONTROL +++++++++++++++++++ -->
235 
               <tr>
 234 
               <tr>
236 
                  <td>
 235 
                  <td>
- 
 
 236 
                  <table><tr><td>
237 
                  <%
 237 
                  <%
238 
                  If bReadOnly Then
 238 
                  If bReadOnly Then
239 
                    Call Action_Buttons ( "Add Schedule Disable" )
 239 
                    Call Action_Buttons ( "Add Schedule Disable" )
240 
                  Else
 240 
                  Else
241 
                    Call Action_Buttons ( "Add Schedule" )
 241 
                    Call Action_Buttons ( "Add Schedule" )
242 
                  End If
 242 
                  End If
243 
                  %>
 243 
                  %>
244 
 
 244 
 
- 
 
 245 
                  <td>
245 
                  <%
 246 
                  <%
246 
                  Dim rsInfinite, infiniteValue
 247 
                  Dim rsInfinite, infiniteValue
247 
 
 248 
 
248 
                  Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
 249 
                  Set rsInfinite = OraDatabase.DbCreateDynaset( "select * from run_level_schedule where indefinite_pause is not null", ORADYN_DEFAULT )
249 
 
 250 
 
250 
                  infiniteValue = rsInfinite.RecordCount
 251 
                  infiniteValue = rsInfinite.RecordCount
251 
 
 252 
 
252 
                  If bReadOnly Then
 253 
                  If bReadOnly Then
253 
                    If infiniteValue = 0 Then
 254 
                    If infiniteValue = 0 Then
254 
                  %>
 255 
                  %>
255 
                     <td><%Call Action_Buttons ( "Indefinite Pause Disable" )%></td>
 256 
                     <%Call Action_Buttons ( "Indefinite Pause Disable" )%></td>
256 
                  <%Else%>
 257 
                  <%Else%>
257 
                     <td><%Call Action_Buttons ( "Resume Disable" )%></td>
 258 
                     <%Call Action_Buttons ( "Resume Disable" )%></td>
258 
                  <%End If
 259 
                  <%End If
259 
                  Else
 260 
                  Else
260 
                    If infiniteValue = 0 Then
 261 
                    If infiniteValue = 0 Then
261 
                  %>
 262 
                  %>
262 
                     <td><%Call Action_Buttons ( "Indefinite Pause" )%></td>
 263 
                     <%Call Action_Buttons ( "Indefinite Pause" )%></td>
263 
                  <%Else%>
 264 
                  <%Else%>
264 
                     <td><%Call Action_Buttons ( "Resume" )%></td>
 265 
                     <%Call Action_Buttons ( "Resume" )%></td>
265 
                  <%End If
 266 
                  <%End If
266 
                  End If
 267 
                  End If
267 
 
 268 
 
268 
                  rsInfinite.Close()
 269 
                  rsInfinite.Close()
269 
                  Set rsInfinite = Nothing
 270 
                  Set rsInfinite = Nothing
Line 275... Line 276...
275 
                  "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
 276 
                  "BEGIN PK_BUILDAPI.DELETE_OUT_OF_DATE_SCHEDULE;   END;"
276 
 
 277 
 
277 
                  objEH.CatchORA ( OraSession )
 278 
                  objEH.CatchORA ( OraSession )
278 
 
 279 
 
279 
                  %>
 280 
                  %>
- 
 
 281 
                  </td></<tr></table>
280 
               </tr>
 282 
               </tr>
281 
            </table>
 283 
            </table>
- 
 
 284 
            </fieldset>
282 
            <%
 285 
            <%
283 
            ' Load some action buttons
 286 
            ' Load some action buttons
284 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
 287 
            Call objBtnControl.LoadActionButtons ( Array("btnDeleteSchedule"), OraDatabase )
285 
            objBtnControl.ButtonSpacer = 1
 288 
            objBtnControl.ButtonSpacer = 1
286 
            objBtnControl.ReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_DISABLE
 289 
            objBtnControl.ReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_DISABLE
287 
            if bReadOnly Then objBtnControl.IsReadonlyAction = enumDB_YES
 290 
            if bReadOnly Then objBtnControl.IsReadonlyAction = enumDB_YES
288 
            %>
 291 
            %>
289 
            <%If infiniteValue <> 0 Then %>
 292 
            <%If infiniteValue <> 0 Then %>
290 
               <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 293 
               <table width="100%"  class="embedded_table" bgcolor="#FFCC00">
291 
                  <tr>
 294 
                  <tr>
292 
                     <td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!!</span>Daemons Set To Indefinite Pause.<b></td>
 295 
                     <td nowrap class="body_rowg"><b><span class='err_alert'>WARNING!!! </span>Daemons Set To Indefinite Pause.<b></td>
293 
                  </tr>
 296 
                  </tr>
294 
               </table>
 297 
               </table>
295 
            <%End If%>
 298 
            <%End If%>
296 
 
 299 
 
297 
            <!-- +++++++++++++++++++++++++++++++++++ -->
 300 
            <!-- +++++++++++++++++++++++++++++++++++ -->
- 
 
 301 
            <fieldset>
- 
 
 302 
            <legend class="body_txt">Scheduled Outages</legend>
- 
 
 303 
 
298 
            <table width="50%"  border="0" cellpadding="0" cellspacing="2" bgcolor="#FFCC00">
 304 
            <table width="100%"  class="embedded_table" bgcolor="#FFCC00">
299 
               <tr>
 305 
               <tr>
300 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED PAUSE</td>
 306 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED PAUSE</td>
301 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED RESUME</td>
 307 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">SCHEDULED RESUME</td>
302 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
 308 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">REPEAT</td>
- 
 
 309 
                  <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">OPR</td>
303 
 
 310 
 
304 
                  <td valign="top"></td>
 311 
                  <td valign="top"></td>
305 
               </tr>
 312 
               </tr>
306 
 
 313 
 
307 
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select rs.*," &_
 314 
               <%Set rsQry = OraDatabase.DbCreateDynaset( "select rs.*," &_
Line 355... Line 362...
355 
 
 362 
 
356 
               rsQry.Close()
 363 
               rsQry.Close()
357 
               Set rsQry = Nothing
 364 
               Set rsQry = Nothing
358 
               %>
 365 
               %>
359 
            </table>
 366 
            </table>
- 
 
 367 
            </fieldset>
360 
         </td>
 368 
         </td>
361 
      </tr>
 369 
      </tr>
362 
   </form>
 370 
   </form>
- 
 
 371 
</table>
- 
 
 372 
</table>
363 
 
 373 
 
364 
</body>
 - 
 
365 
</html>
 - 
 
366 
<!-- FOOTER -->
 374 
<!-- FOOTER -->
367 
<!--#include file="_footer.asp"-->
 375 
<!--#include file="_footer.asp"-->
- 
 
 376 
</body>
- 
 
 377 
</html>
368 
<%
 378 
<%
369 
Call Destroy_All_Objects
 379 
Call Destroy_All_Objects
370 
%>
 380 
%>