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



<%
'------------ Variable Definition -------------
Dim objSortHelper
Dim rsQry
Dim State
Dim ctrlDisabled, bCanEdit
Dim returnUrl
 
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
If canActionControlInProject("CreateNewRelease") or canActionControlInProject("ConfigureRelease") Then
 
 
   ctrlDisabled = ""
   bCanEdit = TRUE
Else
   ctrlDisabled = "disabled"
   bCanEdit = FALSE
End If
 
' Maintain the page to goto after we process this one
'   Go back from whence we came
' Grab the referre on the first call so that postback does not confuse us

      State = "Y"
   Else
      State = NULL
   End If
 
   OraDatabase.Parameters.Add "RTAG_ID",            Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "RTAG_NAME",          Request("rtag_name"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",   Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "OWNER_EMAIL",        Request("owner_email"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "USER_ID",            objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER

'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
' --- Get Form details from DB ---
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
 
' --- Load Validation Rules ---
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )     ' Load Validation Rules
 
' --- Enter Form Validation Rule Changes here... ----

 
' --- RUN onPostBack ---
If Request("action") <> "" Then
   If objForm.IsValidOnPostBack Then
      ' --- Form is Valid ---
      If bCanEdit Then
         Call UpdateReleaseDetails()
         If objEH.Finally Then
            Call OpenInWindow ( returnUrl )
         End If
      Else

<table width="100%" border="0" cellspacing="0" cellpadding="0">
   <%
   '-- FROM START ---------------------------------------------------------------------------------------------------------
   objFormComponent.FormName = "FormName"
   objFormComponent.Action = ScriptName
   If NOT bCanEdit Then
      objFormComponent.IsReadonlyAction = enumDB_YES
   End If
   Call objFormComponent.FormStart()
   %>
   <tr>

            <tr>
               <td width="1%"></td>
               <td width="100%">
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                     <tr>
                        <%If bCanEdit Then%>
                           <td nowrap class="form_ttl">EDIT RELEASE DETAILS </td>
                        <%Else%>
                           <td nowrap class="form_ttl">VIEW RELEASE DETAILS </td>
                        <%End If%>
                        <td align="right" valign="bottom"></td>

            </tr>
 
            <tr>
               <td background="images/bg_action_norm.gif" ></td>
               <td align="right" background="images/bg_action_norm.gif" >
                  <%If bCanEdit Then%>
                     <%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
                  <%End If%>
                  <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", returnUrl )%>
                  <%=objPMod.ComposeHiddenTags()%>
                  <input type="hidden" name="rtag_id" value="<%=Request("rtag_id")%>">
                  <input type="hidden" name="returnUrl" value="<%=returnUrl%>">
                  <input type="hidden" name="action" value="true">
               </td>
               <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
            </tr>

Rev 4955	Rev 5061
Line 28...	Line 28...
28	`<%`	28	`<%`
29	`'------------ Variable Definition -------------`	29	`'------------ Variable Definition -------------`
30	`Dim objSortHelper`	30	`Dim objSortHelper`
31	`Dim rsQry`	31	`Dim rsQry`
32	`Dim State`	32	`Dim State`
33	`Dim ctrlDisabled`	33	`Dim ctrlDisabled, bCanEdit`
34	`Dim returnUrl`	34	`Dim returnUrl`
35		35
36	`'------------ Constants Declaration -----------`	36	`'------------ Constants Declaration -----------`
37	`'------------ Variable Init -------------------`	37	`'------------ Variable Init -------------------`
38	`If NOT objAccessControl.IsActive("CreateNewRelease") Then`	38	`If canActionControlInProject("CreateNewRelease") or canActionControlInProject("ConfigureRelease") Then`
39	`ctrlDisabled = "disabled"`	-
40	`Else`	-
41	`ctrlDisabled = ""`	39	`ctrlDisabled = ""`
-		40	`bCanEdit = TRUE`
-		41	`Else`
-		42	`ctrlDisabled = "disabled"`
-		43	`bCanEdit = FALSE`
42	`End If`	44	`End If`
43		45
44	`' Maintain the page to goto after we process this one`	46	`' Maintain the page to goto after we process this one`
45	`' Go back from whence we came`	47	`' Go back from whence we came`
46	`' Grab the referre on the first call so that postback does not confuse us`	48	`' Grab the referre on the first call so that postback does not confuse us`
Line 96...	Line 98...
96	`State = "Y"`	98	`State = "Y"`
97	`Else`	99	`Else`
98	`State = NULL`	100	`State = NULL`
99	`End If`	101	`End If`
100		102
101	`OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER`	103	`OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
102	`OraDatabase.Parameters.Add "RTAG_NAME", Request("rtag_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	104	`OraDatabase.Parameters.Add "RTAG_NAME", Request("rtag_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
103	`OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	105	`OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
104	`OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	106	`OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
105	`OraDatabase.Parameters.Add "OWNER_EMAIL", Request("owner_email"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	107	`OraDatabase.Parameters.Add "OWNER_EMAIL", Request("owner_email"), ORAPARM_INPUT, ORATYPE_VARCHAR2`
106	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	108	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
Line 131...	Line 133...
131	`'--------------------------------------------------------------------------------------------------------------------------`	133	`'--------------------------------------------------------------------------------------------------------------------------`
132	`%>`	134	`%>`
133	`<%`	135	`<%`
134	`'------------ RUN BEFORE PAGE RENDER ----------`	136	`'------------ RUN BEFORE PAGE RENDER ----------`
135	`' --- Get Form details from DB ---`	137	`' --- Get Form details from DB ---`
136	`Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )`	138	`Call GetFormDetails ( Request("rtag_id"), objFormCollector )`
137		139
138	`' --- Load Validation Rules ---`	140	`' --- Load Validation Rules ---`
139	`Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase ) ' Load Validation Rules`	141	`Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase ) ' Load Validation Rules`
140		142
141	`' --- Enter Form Validation Rule Changes here... ----`	143	`' --- Enter Form Validation Rule Changes here... ----`
Line 143...	Line 145...
143		145
144	`' --- RUN onPostBack ---`	146	`' --- RUN onPostBack ---`
145	`If Request("action") <> "" Then`	147	`If Request("action") <> "" Then`
146	`If objForm.IsValidOnPostBack Then`	148	`If objForm.IsValidOnPostBack Then`
147	`' --- Form is Valid ---`	149	`' --- Form is Valid ---`
148	`If objAccessControl.IsActive("CreateNewRelease") Then`	150	`If bCanEdit Then`
149	`Call UpdateReleaseDetails()`	151	`Call UpdateReleaseDetails()`
150	`If objEH.Finally Then`	152	`If objEH.Finally Then`
151	`Call OpenInWindow ( returnUrl )`	153	`Call OpenInWindow ( returnUrl )`
152	`End If`	154	`End If`
153	`Else`	155	`Else`
Line 187...	Line 189...
187	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`	189	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
188	`<%`	190	`<%`
189	`'-- FROM START ---------------------------------------------------------------------------------------------------------`	191	`'-- FROM START ---------------------------------------------------------------------------------------------------------`
190	`objFormComponent.FormName = "FormName"`	192	`objFormComponent.FormName = "FormName"`
191	`objFormComponent.Action = ScriptName`	193	`objFormComponent.Action = ScriptName`
192	`If NOT objAccessControl.IsActive("CreateNewRelease") Then`	194	`If NOT bCanEdit Then`
193	`objFormComponent.IsReadonlyAction = enumDB_YES`	195	`objFormComponent.IsReadonlyAction = enumDB_YES`
194	`End If`	196	`End If`
195	`Call objFormComponent.FormStart()`	197	`Call objFormComponent.FormStart()`
196	`%>`	198	`%>`
197	`<tr>`	199	`<tr>`
Line 201...	Line 203...
201	`<tr>`	203	`<tr>`
202	`<td width="1%"></td>`	204	`<td width="1%"></td>`
203	`<td width="100%">`	205	`<td width="100%">`
204	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`	206	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
205	`<tr>`	207	`<tr>`
206	`<%If objAccessControl.IsActive("CreateNewRelease") Then%>`	208	`<%If bCanEdit Then%>`
207	`<td nowrap class="form_ttl">EDIT RELEASE DETAILS </td>`	209	`<td nowrap class="form_ttl">EDIT RELEASE DETAILS </td>`
208	`<%Else%>`	210	`<%Else%>`
209	`<td nowrap class="form_ttl">VIEW RELEASE DETAILS </td>`	211	`<td nowrap class="form_ttl">VIEW RELEASE DETAILS </td>`
210	`<%End If%>`	212	`<%End If%>`
211	`<td align="right" valign="bottom"></td>`	213	`<td align="right" valign="bottom"></td>`
Line 325...	Line 327...
325	`</tr>`	327	`</tr>`
326		328
327	`<tr>`	329	`<tr>`
328	`<td background="images/bg_action_norm.gif" ></td>`	330	`<td background="images/bg_action_norm.gif" ></td>`
329	`<td align="right" background="images/bg_action_norm.gif" >`	331	`<td align="right" background="images/bg_action_norm.gif" >`
330	`<%If objAccessControl.IsActive("CreateNewRelease") Then%>`	332	`<%If bCanEdit Then%>`
331	`<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%> `	333	`<%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%> `
332	`<%End If%>`	334	`<%End If%>`
333	`<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", returnUrl )%>`	335	`<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", returnUrl )%>`
334	`<%=objPMod.ComposeHiddenTags()%>`	336	`<%=objPMod.ComposeHiddenTags()%>`
335	`<input type="hidden" name="rtag_id_list" value="<%=Request("rtag_id_list")%>">`	337	`<input type="hidden" name="rtag_id" value="<%=Request("rtag_id")%>">`
336	`<input type="hidden" name="returnUrl" value="<%=returnUrl%>">`	338	`<input type="hidden" name="returnUrl" value="<%=returnUrl%>">`
337	`<input type="hidden" name="action" value="true">`	339	`<input type="hidden" name="action" value="true">`
338	`</td>`	340	`</td>`
339	`<td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>`	341	`<td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>`
340	`</tr>`	342	`</tr>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/form_edit_release.asp @ 5061 – Rev 4955 → 5061