Subversion Repositories DevTools

Rev

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

Rev 5523 Rev 5590
Line 94... Line 94...
94 
          OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 94 
          OraDatabase.Parameters.Add "RCON_ID",         Request("rcon_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
95 
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
 95 
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
96 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 96 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
97 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 97 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
98 
 
 98 
 
- 
 
 99 
          objEH.ErrorRedirect = FALSE
99 
          objEH.TryORA ( OraSession )
 100 
          objEH.TryORA ( OraSession )
100 
          On Error Resume Next
 101 
          On Error Resume Next
101 
 
 102 
 
102 
          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.UPDATE_DAEMON_CONFIG(:RCON_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
 103 
          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.UPDATE_DAEMON_CONFIG(:RCON_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
103 
          OraSession.CommitTrans
 104 
          OraSession.CommitTrans
Line 121... Line 122...
121 
          OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
 122 
          OraDatabase.Parameters.Add "RTAG_ID",         Request("rtag_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
122 
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
 123 
          OraDatabase.Parameters.Add "BMCON_ID",        bmcon_id,                   ORAPARM_INPUT, ORATYPE_NUMBER
123 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
 124 
          OraDatabase.Parameters.Add "DAEMON_MODE",     Request("daemon_mode"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
124 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 125 
          OraDatabase.Parameters.Add "GBE_BUILDFILTER", Request("gbe_buildfilter"), ORAPARM_INPUT, ORATYPE_VARCHAR2
125 
 
 126 
 
- 
 
 127 
          objEH.ErrorRedirect = FALSE
126 
          objEH.TryORA ( OraSession )
 128 
          objEH.TryORA ( OraSession )
127 
          On Error Resume Next
 129 
          On Error Resume Next
128 
 
 130 
 
129 
          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.ADD_DAEMON_CONFIG(:RTAG_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
 131 
          OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.ADD_DAEMON_CONFIG(:RTAG_ID, :BMCON_ID, :DAEMON_MODE, :GBE_BUILDFILTER);  END;"
130 
 
 132 
 
Line 159... Line 161...
159 
</head>
 161 
</head>
160 
 
 162 
 
161 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bmcon_id.focus();">
 163 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.bmcon_id.focus();">
162 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 164 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
163 
   <tr>
 165 
   <tr>
164 
      <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add/Update DAEMON</span> <br>
 166 
      <td bgcolor="#FFFFFF" class="body_txt">
165 
         Add a new DAEMON or edit an existing DAEMON.
 167 
         Add a new DAEMON or edit an existing DAEMON.
166 
      </td>
 168 
      </td>
167 
   </tr>
 169 
   </tr>
168 
 
 170 
 
169 
   <%
 171 
   <%
170 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
 172 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
171 
   objFormComponent.FormName = "FormName"
 173 
   objFormComponent.FormName = "FormName"
- 
 
 174 
   objFormComponent.FormClass = "form_tight"
172 
   objFormComponent.Action = ScriptName
 175 
   objFormComponent.Action = ScriptName
173 
   objFormComponent.OnSubmit = "ShowProgress();"
 176 
   objFormComponent.OnSubmit = "ShowProgress();"
174 
   Call objFormComponent.FormStart()
 177 
   Call objFormComponent.FormStart()
175 
 
 - 
 
176 
   %>
 178 
   %>
177 
   <tr>
 179 
   <tr>
178 
      <td background="images/bg_login.gif">
 - 
 
179 
         <table width="50%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
180 
            <tr>
 - 
 
181 
               <td><%=ProgressBar()%></td>
 - 
 
182 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Add/Update">
 - 
 
183 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
 - 
 
184 
               </td>
 - 
 
185 
            </tr>
 - 
 
186 
         </table>
 - 
 
187 
      </td>
 - 
 
188 
   </tr>
 - 
 
189 
   <tr>
 - 
 
190 
      <td>
 180 
      <td>
191 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 181 
         <!-- LOCAL ERROR +++++++++++++++++++++++++++++++++++++++++++++++ -->
192 
         <%Call Messenger ( sMessage , 3, "100%" )%>
 182 
         <%Call Messenger ( sMessage , 3, "100%" )%>
193 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 183 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
194 
         <!--#include file="messages/_msg_inline.asp"-->
 184 
         <!--#include file="messages/_msg_inline.asp"-->
195 
         <%
 185 
         <%
196 
         '  Determine if any daemons have been configured in this release
 186 
         '  Determine if any daemons have been configured in this release
Line 285... Line 275...
285 
               <tr>
 275 
               <tr>
286 
                  <td><span class="body_txt">GBE_BUILDFILTER</span></td>
 276 
                  <td><span class="body_txt">GBE_BUILDFILTER</span></td>
287 
                  <td><input name="gbe_buildfilter" type="text" class="body_txt" size="80" value="<%=gbe_buildfilter%>"></td>
 277 
                  <td><input name="gbe_buildfilter" type="text" class="body_txt" size="80" value="<%=gbe_buildfilter%>"></td>
288 
               </tr>
 278 
               </tr>
289 
            </tr>
 279 
            </tr>
- 
 
 280 
         </table>
- 
 
 281 
      </td>
- 
 
 282 
   </tr>
- 
 
 283 
   <tr>
- 
 
 284 
      <td bgcolor=#FFFFFF>
- 
 
 285 
         <table class="full_table">
290 
            <tr>
 286 
            <tr>
- 
 
 287 
               <td><%=ProgressBar()%></td>
291 
               <td>&nbsp;</td>
 288 
               <td align="right">
- 
 
 289 
                  <input name="btn" type="submit" class="form_btn" value="Add/Update">
- 
 
 290 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onclick="parent.closeIFrame();">
292 
               <td>&nbsp;</td>
 291 
               </td>
293 
            </tr>
 292 
            </tr>
294 
         </table>
 293 
         </table>
295 
      </td>
 294 
      </td>
296 
   </tr>
 295 
   </tr>
297 
   <%=objPMod.ComposeHiddenTags()%>
 296 
   <%=objPMod.ComposeHiddenTags()%>