WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/form_edit_release.asp



      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
      outobjDetails.Item ("build_age") = rsQry("build_age")
      outobjDetails.Item ("lxr") = rsQry("lxr")
      outobjDetails.Item ("s3manifest") = rsQry("s3manifest")
      If rsQry("assoc_mass_ref") <> "" Then
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
      End If
   Else
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId

'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateReleaseDetails ()
 
   Dim State    : State    = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)
   Dim lxrState : lxrState = Iif(CheckBoxValue(request("lxr")),"Y","N")
   Dim s3manifest  : s3manifest = Iif(CheckBoxValue(request("s3manifest")),"Y","N")
   Dim bAge     : bAge = Request("build_age")
   If NiceInt(bAge,0) = 0 Then bAge = NULL  
 
   OraDatabase.Parameters.Add "RTAG_ID",            Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "RTAG_NAME",          Trim(Request("rtag_name")),      ORAPARM_INPUT, ORATYPE_VARCHAR2

   OraDatabase.Parameters.Add "PARENT_RTAG_ID",     Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
   OraDatabase.Parameters.Add "BUILD_AGE",          bAge,   ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "LXR",                lxrState,   ORAPARM_INPUT, ORATYPE_CHAR
   OraDatabase.Parameters.Add "S3MANIFEST",         s3manifest,   ORAPARM_INPUT, ORATYPE_CHAR
 
   objEH.ErrorRedirect = FALSE
   On Error Resume Next
   objEH.TryORA ( OraSession )
 

               " :OWNER_EMAIL," &_
               " :USER_ID," &_
               " :STATE," &_
               " :BUILD_AGE," &_
               " :LXR," &_
               " :S3MANIFEST" &_
   "); END;"
 
   objEH.CatchORA ( OraSession )
 
   OraDatabase.Parameters.Remove "RTAG_ID"

   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
   OraDatabase.Parameters.Remove "STATE"
   OraDatabase.Parameters.Remove "BUILD_AGE"
   OraDatabase.Parameters.Remove "LXR"
   OraDatabase.Parameters.Remove "S3MANIFEST"
 
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%

                        </td>
                        <td valign="top"></td>
 
                     </tr>
 
                     <tr>
                        <td valign="top" nowrap class="form_iname">Generate Manifest to S3</td>
 
                        <td valign="top" nowrap>
                            <input type="checkbox" name="s3manifest"  <%=iif(CheckBoxValue(objForm.GetValue( "s3manifest", objFormCollector.Item("s3manifest") )), "checked ","")%><%=ctrlDisabled%> >
                        </td>
                        <td valign="top"></td>
 
                     </tr>
 

Rev 7417	Rev 7468
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	`outobjDetails.Item ("s3manifest") = rsQry("s3manifest")`
102	`If rsQry("assoc_mass_ref") <> "" Then`	102	`If rsQry("assoc_mass_ref") <> "" Then`
103	`outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")`	103	`outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")`
104	`End If`	104	`End If`
105	`Else`	105	`Else`
106	`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 113...	Line 113...
113	`'--------------------------------------------------------------------------------------------------------------------------`	113	`'--------------------------------------------------------------------------------------------------------------------------`
114	`Sub UpdateReleaseDetails ()`	114	`Sub UpdateReleaseDetails ()`
115		115
116	`Dim State : State = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)`	116	`Dim State : State = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)`
117	`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")`	118	`Dim s3manifest : s3manifest = Iif(CheckBoxValue(request("s3manifest")),"Y","N")`
119	`Dim bAge : bAge = Request("build_age")`	119	`Dim bAge : bAge = Request("build_age")`
120	`If NiceInt(bAge,0) = 0 Then bAge = NULL`	120	`If NiceInt(bAge,0) = 0 Then bAge = NULL`
121		121
122	`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`
123	`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 128...	Line 128...
128	`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`
129	`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`
130	`OraDatabase.Parameters.Add "STATE", State, ORAPARM_INPUT, ORATYPE_VARCHAR`	130	`OraDatabase.Parameters.Add "STATE", State, ORAPARM_INPUT, ORATYPE_VARCHAR`
131	`OraDatabase.Parameters.Add "BUILD_AGE", bAge, ORAPARM_INPUT, ORATYPE_NUMBER`	131	`OraDatabase.Parameters.Add "BUILD_AGE", bAge, ORAPARM_INPUT, ORATYPE_NUMBER`
132	`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`	133	`OraDatabase.Parameters.Add "S3MANIFEST", s3manifest, ORAPARM_INPUT, ORATYPE_CHAR`
134		134
135	`objEH.ErrorRedirect = FALSE`	135	`objEH.ErrorRedirect = FALSE`
136	`On Error Resume Next`	136	`On Error Resume Next`
137	`objEH.TryORA ( OraSession )`	137	`objEH.TryORA ( OraSession )`
138		138
Line 147...	Line 147...
147	`" :OWNER_EMAIL," &_`	147	`" :OWNER_EMAIL," &_`
148	`" :USER_ID," &_`	148	`" :USER_ID," &_`
149	`" :STATE," &_`	149	`" :STATE," &_`
150	`" :BUILD_AGE," &_`	150	`" :BUILD_AGE," &_`
151	`" :LXR," &_`	151	`" :LXR," &_`
152	`" :S3SYNC" &_`	152	`" :S3MANIFEST" &_`
153	`"); END;"`	153	`"); END;"`
154		154
155	`objEH.CatchORA ( OraSession )`	155	`objEH.CatchORA ( OraSession )`
156		156
157	`OraDatabase.Parameters.Remove "RTAG_ID"`	157	`OraDatabase.Parameters.Remove "RTAG_ID"`
Line 163...	Line 163...
163	`OraDatabase.Parameters.Remove "PARENT_RTAG_ID"`	163	`OraDatabase.Parameters.Remove "PARENT_RTAG_ID"`
164	`OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"`	164	`OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"`
165	`OraDatabase.Parameters.Remove "STATE"`	165	`OraDatabase.Parameters.Remove "STATE"`
166	`OraDatabase.Parameters.Remove "BUILD_AGE"`	166	`OraDatabase.Parameters.Remove "BUILD_AGE"`
167	`OraDatabase.Parameters.Remove "LXR"`	167	`OraDatabase.Parameters.Remove "LXR"`
168	`OraDatabase.Parameters.Remove "S3SYNC"`	168	`OraDatabase.Parameters.Remove "S3MANIFEST"`
169		169
170	`End Sub`	170	`End Sub`
171	`'--------------------------------------------------------------------------------------------------------------------------`	171	`'--------------------------------------------------------------------------------------------------------------------------`
172	`%>`	172	`%>`
173	`<%`	173	`<%`
Line 366...	Line 366...
366	`</td>`	366	`</td>`
367	`<td valign="top"></td>`	367	`<td valign="top"></td>`
368		368
369	`</tr>`	369	`</tr>`
370		370
371	`<tr>`	371	`<tr>`
372	`<td valign="top" nowrap class="form_iname">Sync to S3</td>`	372	`<td valign="top" nowrap class="form_iname">Generate Manifest to S3</td>`
373		373
374	`<td valign="top" nowrap>`	374	`<td valign="top" nowrap>`
375	`<input type="checkbox" name="s3sync" <%=iif(CheckBoxValue(objForm.GetValue( "s3sync", objFormCollector.Item("s3sync") )), "checked ","")%><%=ctrlDisabled%> >`	375	`<input type="checkbox" name="s3manifest" <%=iif(CheckBoxValue(objForm.GetValue( "s3manifest", objFormCollector.Item("s3manifest") )), "checked ","")%><%=ctrlDisabled%> >`
376	`</td>`	376	`</td>`
377	`<td valign="top"></td>`	377	`<td valign="top"></td>`
378		378
379	`</tr>`	379	`</tr>`
380		380

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_edit_release.asp – Rev 7417 → 7468