Subversion Repositories DevTools

Rev

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

Rev 6881 Rev 7395
Line 96... Line 96...
96 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
 96 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
97 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
 97 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
98 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
 98 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
99 
      outobjDetails.Item ("build_age") = rsQry("build_age")
 99 
      outobjDetails.Item ("build_age") = rsQry("build_age")
100 
      outobjDetails.Item ("lxr") = rsQry("lxr")
 100 
      outobjDetails.Item ("lxr") = rsQry("lxr")
- 
 
 101 
      outobjDetails.Item ("s3sync") = rsQry("s3sync")
101 
      If rsQry("assoc_mass_ref") <> "" Then
 102 
      If rsQry("assoc_mass_ref") <> "" Then
102 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
 103 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
103 
      End If
 104 
      End If
104 
   Else
 105 
   Else
105 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
 106 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
Line 112... Line 113...
112 
'--------------------------------------------------------------------------------------------------------------------------
 113 
'--------------------------------------------------------------------------------------------------------------------------
113 
Sub UpdateReleaseDetails ()
 114 
Sub UpdateReleaseDetails ()
114 
 
 115 
 
115 
   Dim State    : State    = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)
 116 
   Dim State    : State    = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)
116 
   Dim lxrState : lxrState = Iif(CheckBoxValue(request("lxr")),"Y","N")
 117 
   Dim lxrState : lxrState = Iif(CheckBoxValue(request("lxr")),"Y","N")
- 
 
 118 
   Dim s3State  : s3State = Iif(CheckBoxValue(request("s3sync")),"Y","N")
117 
   Dim bAge     : bAge = Request("build_age")
 119 
   Dim bAge     : bAge = Request("build_age")
118 
   If bAge = 0 Then bAge = NULL
120 
   If bAge = 0 Then bAge = NULL
119 
 
 121 
 
120 
   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
121 
   OraDatabase.Parameters.Add "RTAG_NAME",          Trim(Request("rtag_name")),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 123 
   OraDatabase.Parameters.Add "RTAG_NAME",          Trim(Request("rtag_name")),      ORAPARM_INPUT, ORATYPE_VARCHAR2
Line 126... Line 128...
126 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",     Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
 128 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",     Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
127 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 129 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
128 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
 130 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
129 
   OraDatabase.Parameters.Add "BUILD_AGE",          bAge,   ORAPARM_INPUT, ORATYPE_NUMBER
 131 
   OraDatabase.Parameters.Add "BUILD_AGE",          bAge,   ORAPARM_INPUT, ORATYPE_NUMBER
130 
   OraDatabase.Parameters.Add "LXR",                lxrState,   ORAPARM_INPUT, ORATYPE_CHAR
 132 
   OraDatabase.Parameters.Add "LXR",                lxrState,   ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 133 
   OraDatabase.Parameters.Add "S3SYNC",             s3State,   ORAPARM_INPUT, ORATYPE_CHAR
131 
 
 134 
 
132 
   objEH.ErrorRedirect = FALSE
 135 
   objEH.ErrorRedirect = FALSE
133 
   On Error Resume Next
 136 
   On Error Resume Next
134 
   objEH.TryORA ( OraSession )
 137 
   objEH.TryORA ( OraSession )
135 
 
 138 
 
Line 143... Line 146...
143 
               " :CONFIG_SPEC_BRANCH," &_
 146 
               " :CONFIG_SPEC_BRANCH," &_
144 
               " :OWNER_EMAIL," &_
 147 
               " :OWNER_EMAIL," &_
145 
               " :USER_ID," &_
 148 
               " :USER_ID," &_
146 
               " :STATE," &_
 149 
               " :STATE," &_
147 
               " :BUILD_AGE," &_
 150 
               " :BUILD_AGE," &_
148 
               " :LXR" &_
 151 
               " :LXR," &_
- 
 
 152 
               " :S3SYNC" &_
149 
   "); END;"
 153 
   "); END;"
150 
 
 154 
 
151 
   objEH.CatchORA ( OraSession )
 155 
   objEH.CatchORA ( OraSession )
152 
 
 156 
 
153 
   OraDatabase.Parameters.Remove "RTAG_ID"
 157 
   OraDatabase.Parameters.Remove "RTAG_ID"
Line 159... Line 163...
159 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
 163 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
160 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
 164 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
161 
   OraDatabase.Parameters.Remove "STATE"
 165 
   OraDatabase.Parameters.Remove "STATE"
162 
   OraDatabase.Parameters.Remove "BUILD_AGE"
 166 
   OraDatabase.Parameters.Remove "BUILD_AGE"
163 
   OraDatabase.Parameters.Remove "LXR"
 167 
   OraDatabase.Parameters.Remove "LXR"
- 
 
 168 
   OraDatabase.Parameters.Remove "S3SYNC"
164 
 
 169 
 
165 
End Sub
 170 
End Sub
166 
'--------------------------------------------------------------------------------------------------------------------------
 171 
'--------------------------------------------------------------------------------------------------------------------------
167 
%>
 172 
%>
168 
<%
 173 
<%
Line 361... Line 366...
361 
                        </td>
 366 
                        </td>
362 
                        <td valign="top"></td>
 367 
                        <td valign="top"></td>
363 
 
 368 
 
364 
                     </tr>
 369 
                     </tr>
365 
 
 370 
 
- 
 
 371 
					 <tr>
- 
 
 372 
                        <td valign="top" nowrap class="form_iname">Sync to S3</td>
- 
 
 373 
 
- 
 
 374 
                        <td valign="top" nowrap>
- 
 
 375 
                            <input type="checkbox" name="s3sync"  <%=iif(CheckBoxValue(objForm.GetValue( "s3sync", objFormCollector.Item("s3sync") )), "checked ","")%><%=ctrlDisabled%> >
- 
 
 376 
                        </td>
- 
 
 377 
                        <td valign="top"></td>
- 
 
 378 
 
- 
 
 379 
                     </tr>
366 
 
 380 
 
367 
                     <tr>
 381 
                     <tr>
368 
                        <td class="form_iname">&nbsp;</td>
 382 
                        <td class="form_iname">&nbsp;</td>
369 
                        <td>&nbsp;</td>
 383 
                        <td>&nbsp;</td>
370 
                        <td class="val_err"></td>
 384 
                        <td class="val_err"></td>