Subversion Repositories DevTools

Rev

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

Rev 167 Rev 4979
Line 32... Line 32...
32 
Dim RecordCount
 32 
Dim RecordCount
33 
 
 33 
 
34 
Dim display_name
 34 
Dim display_name
35 
Dim machine_hostname
 35 
Dim machine_hostname
36 
Dim gbe_id
 36 
Dim gbe_id
- 
 
 37 
Dim active, activeChecked
37 
Dim description
 38 
Dim description
38 
 
 39 
 
39 
'------------ CONSTANTS DECLARATION -----------
 40 
'------------ CONSTANTS DECLARATION -----------
40 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 41 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
41 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 42 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
Line 81... Line 82...
81 
      OraDatabase.Parameters.Add "BMCON_ID",              Request("bmcon_id"),              ORAPARM_INPUT, ORATYPE_NUMBER
 82 
      OraDatabase.Parameters.Add "BMCON_ID",              Request("bmcon_id"),              ORAPARM_INPUT, ORATYPE_NUMBER
82 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
 83 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
83 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 84 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
84 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
 85 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
85 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
 86 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 87 
      OraDatabase.Parameters.Add "ACTIVE",                Request("active"),                ORAPARM_INPUT, ORATYPE_CHAR
86 
 
 88 
 
87 
      objEH.TryORA ( OraSession )
 89 
      objEH.TryORA ( OraSession )
88 
      On Error Resume Next
 90 
      On Error Resume Next
89 
 
 91 
 
90 
      OraDatabase.ExecuteSQL _
 92 
      OraDatabase.ExecuteSQL _
91 
      "BEGIN  PK_BUILDAPI.UPDATE_BUILD_MACHINE(:BMCON_ID, :DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION);  END;"
 93 
      "BEGIN  PK_BUILDAPI.UPDATE_BUILD_MACHINE(:BMCON_ID, :DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION, :ACTIVE);  END;"
92 
 
 94 
 
93 
      objEH.CatchORA ( OraSession )
 95 
      objEH.CatchORA ( OraSession )
94 
 
 96 
 
95 
      OraDatabase.Parameters.Remove "BMCON_ID"
 97 
      OraDatabase.Parameters.Remove "BMCON_ID"
96 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
 98 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
97 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
 99 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
98 
      OraDatabase.Parameters.Remove "GBE_ID"
 100 
      OraDatabase.Parameters.Remove "GBE_ID"
99 
      OraDatabase.Parameters.Remove "DESCRIPTION"
 101 
      OraDatabase.Parameters.Remove "DESCRIPTION"
- 
 
 102 
      OraDatabase.Parameters.Remove "ACTIVE"
100 
 
 103 
 
101 
      If objEH.Finally Then
 104 
      If objEH.Finally Then
102 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
 105 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
103 
         Call CloseWindow()
 106 
         Call CloseWindow()
104 
      End If
 107 
      End If
Line 109... Line 112...
109 
   Else
 112 
   Else
110 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
 113 
      OraDatabase.Parameters.Add "DISPLAY_NAME",          Request("display_name"),          ORAPARM_INPUT, ORATYPE_VARCHAR2
111 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 114 
      OraDatabase.Parameters.Add "MACHINE_HOSTNAME",      Request("machine_hostname"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
112 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
 115 
      OraDatabase.Parameters.Add "GBE_ID",                Request("gbe_id"),                ORAPARM_INPUT, ORATYPE_NUMBER
113 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
 116 
      OraDatabase.Parameters.Add "DESCRIPTION",           Request("description"),           ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 117 
      OraDatabase.Parameters.Add "ACTIVE",                Request("active"),                ORAPARM_INPUT, ORATYPE_CHAR
114 
 
 118 
 
115 
      objEH.TryORA ( OraSession )
 119 
      objEH.TryORA ( OraSession )
116 
      On Error Resume Next
 120 
      On Error Resume Next
117 
 
 121 
 
118 
      OraDatabase.ExecuteSQL _
 122 
      OraDatabase.ExecuteSQL _
119 
      "BEGIN  PK_BUILDAPI.ADD_BUILD_MACHINE(:DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION);  END;"
 123 
      "BEGIN  PK_BUILDAPI.ADD_BUILD_MACHINE(:DISPLAY_NAME, :MACHINE_HOSTNAME, :GBE_ID, :DESCRIPTION, :ACTIVE);  END;"
120 
 
 124 
 
121 
      objEH.CatchORA ( OraSession )
 125 
      objEH.CatchORA ( OraSession )
122 
 
 126 
 
123 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
 127 
      OraDatabase.Parameters.Remove "DISPLAY_NAME"
124 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
 128 
      OraDatabase.Parameters.Remove "MACHINE_HOSTNAME"
125 
      OraDatabase.Parameters.Remove "GBE_ID"
 129 
      OraDatabase.Parameters.Remove "GBE_ID"
126 
      OraDatabase.Parameters.Remove "DESCRIPTION"
 130 
      OraDatabase.Parameters.Remove "DESCRIPTION"
- 
 
 131 
      OraDatabase.Parameters.Remove "ACTIVE"
127 
 
 132 
 
128 
      If objEH.Finally Then
 133 
      If objEH.Finally Then
129 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
 134 
         Call OpenInParentWindow ("admin_build_machine.asp?bmcon_id="&Request("bmcon_id"))
130 
         Call CloseWindow()
 135 
         Call CloseWindow()
131 
      End If
 136 
      End If
Line 197... Line 202...
197
202
198 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 203 
            Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
199 
 
 204 
 
200 
            display_name            =   rsTemp("display_name")
 205 
            display_name            =   rsTemp("display_name")
201 
            machine_hostname        =   rsTemp("machine_hostname")
 206 
            machine_hostname        =   rsTemp("machine_hostname")
202 
            gbe_id   =   rsTemp("gbe_id")
 207 
            gbe_id                  =   rsTemp("gbe_id")
- 
 
 208 
            active                  =   rsTemp("active")
203 
            description = rsTemp("description")
 209 
            description             =   rsTemp("description")
- 
 
 210 
 
- 
 
 211 
            activeChecked = ""
- 
 
 212 
            if active = "Y" Then activeChecked = "checked"
- 
 
 213 
 
204 
 
 214 
 
205 
            rsTemp.Close()
 215 
            rsTemp.Close()
206 
            Set rsTemp = Nothing
216 
            Set rsTemp = Nothing
207 
 
 217 
          Else
- 
 
 218 
            activeChecked = "checked"
208 
          End If%>
 219 
          End If%>
209
220
210 
         <table width="50%" border="0">
 221 
         <table width="50%" border="0">
211 
            <tr>
 222 
            <tr>
212 
               <td><span class="body_txt">Display Name</span></td>
 223 
               <td><span class="body_txt">Display Name</span></td>
Line 223... Line 234...
223 
            <tr>
 234 
            <tr>
224 
               <td><span class="body_txt">GBE_MACHTYPE</span></td>
 235 
               <td><span class="body_txt">GBE_MACHTYPE</span></td>
225 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "size=1 class='body_txt'" )%></td>
 236 
               <td><%=objFormComponent.Combo ( "gbe_id", GetMachtype( gbe_id ), FALSE, "size=1 class='body_txt'" )%></td>
226 
            </tr>
 237 
            </tr>
227 
            <tr>
 238 
            <tr>
- 
 
 239 
               <td><span class="body_txt">Allow Use</span></td>
- 
 
 240 
               <td>
- 
 
 241 
                  <input type="checkbox" name="active" value="Y" <%=activeChecked%>>
- 
 
 242 
                  <span class="body_txt">Allow users to add this machine to a build set</span>
- 
 
 243 
               </td>
- 
 
 244 
            </tr>
- 
 
 245 
            <tr>
228 
               <td><span class="body_txt">Description</span></td>
 246 
               <td><span class="body_txt">Description</span></td>
229 
               <td>
 247 
               <td>
230 
                  <textarea name="Description" cols=50 rows=5 class='body_txt'><%=Description%></textarea>
 248 
                  <textarea name="Description" cols=50 rows=5 class='body_txt'><%=Description%></textarea>
231 
               </td>
 249 
               </td>
232 
            </tr>
 250 
            </tr>