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



Sub AddRelease ()
    On Error Resume Next
    
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID",    Request("source_rtag_id"),  ORAPARM_INPUT, ORATYPE_NUMBER 
    OraDatabase.Parameters.Add "PROJ_ID",           Request("proj_id"),     ORAPARM_INPUT, ORATYPE_NUMBER 
    OraDatabase.Parameters.Add "RTAG_NAME",         Trim(Request("rtag_name")),       ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "RTAG_DESCRIPTION",  Trim(Request("rtag_description")), ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER 
    OraDatabase.Parameters.Add "IS_BRANCH",         Request("branch"),  ORAPARM_INPUT, ORATYPE_CHAR
    OraDatabase.Parameters.Add "OMODE",             Request("mode"),    ORAPARM_INPUT, ORATYPE_CHAR
    
    objEH.TryORA ( OraSession )

'------------ RUN BEFORE PAGE RENDER ----------
' --- Get Form details from DB ---
Call GetFormDetails ( parSourceRtagId, objFormCollector )
 
' --- Load Validation Rules ---
objForm.UpdateRules ("id='rtag_name' IsRequired='Y' IsName='Y' MinStringLength='2' MaxStringLength='150'")
objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")
objForm.UpdateRules ("id='config_spec_branch' IsRequired='N' IsName='Y' MaxStringLength='4000' MinStringLength='10'")
 
' --- Enter Form Validation Rule Changes here... ----
'----------------------------------------------------
 
' --- RUN onPostBack ---

        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
        <br>
        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
          <tr>
            <td nowrap class="form_iname" valign="top">Release Name </td>
            <td valign="top" nowrap>
                <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%>
            </td>
            <td valign="top"><%=objForm.Validate ("rtag_name")%></td>
          </tr>
          <tr>
            <td nowrap class="form_iname" valign="top">Branch Release</td>
            <td valign="top" nowrap class="form_iname">

          </tr>
          <tr>
            <td nowrap class="form_iname" valign="top">Release Mode</td>
            <td valign="top" nowrap class="form_iname">
              <input name="mode" type="radio" value="N" checked>Open
              <input name="mode" type="radio" value="Y" <%=iif(Request("mode") = "Y", " checked","")%>>Closed
              <input name="mode" type="radio" value="A" <%=iif(Request("mode") = "A", " checked","")%>>Archived</td>
            <td valign="top"></td>
          </tr>
          <tr>
            <td valign="top" nowrap class="form_iname">Comments</td>
            <td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>

Rev 6070	Rev 6543
Line 77...	Line 77...
77	`Sub AddRelease ()`	77	`Sub AddRelease ()`
78	`On Error Resume Next`	78	`On Error Resume Next`
79		79
80	`OraDatabase.Parameters.Add "SOURCE_RTAG_ID", Request("source_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	80	`OraDatabase.Parameters.Add "SOURCE_RTAG_ID", Request("source_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
81	`OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	81	`OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
82	`OraDatabase.Parameters.Add "RTAG_NAME", Request("rtag_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	82	`OraDatabase.Parameters.Add "RTAG_NAME", Trim(Request("rtag_name")), ORAPARM_INPUT, ORATYPE_VARCHAR2`
83	`OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2`	83	`OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Trim(Request("rtag_description")), ORAPARM_INPUT, ORATYPE_VARCHAR2`
84	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	84	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
85	`OraDatabase.Parameters.Add "IS_BRANCH", Request("branch"), ORAPARM_INPUT, ORATYPE_CHAR`	85	`OraDatabase.Parameters.Add "IS_BRANCH", Request("branch"), ORAPARM_INPUT, ORATYPE_CHAR`
86	`OraDatabase.Parameters.Add "OMODE", Request("mode"), ORAPARM_INPUT, ORATYPE_CHAR`	86	`OraDatabase.Parameters.Add "OMODE", Request("mode"), ORAPARM_INPUT, ORATYPE_CHAR`
87		87
88	`objEH.TryORA ( OraSession )`	88	`objEH.TryORA ( OraSession )`
Line 105...	Line 105...
105	`'------------ RUN BEFORE PAGE RENDER ----------`	105	`'------------ RUN BEFORE PAGE RENDER ----------`
106	`' --- Get Form details from DB ---`	106	`' --- Get Form details from DB ---`
107	`Call GetFormDetails ( parSourceRtagId, objFormCollector )`	107	`Call GetFormDetails ( parSourceRtagId, objFormCollector )`
108		108
109	`' --- Load Validation Rules ---`	109	`' --- Load Validation Rules ---`
110	`objForm.UpdateRules ("id='rtag_name' IsRequired='Y'")`	110	`objForm.UpdateRules ("id='rtag_name' IsRequired='Y' IsName='Y' MinStringLength='2' MaxStringLength='150'")`
111	`objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")`	111	`objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")`
-		112	`objForm.UpdateRules ("id='config_spec_branch' IsRequired='N' IsName='Y' MaxStringLength='4000' MinStringLength='10'")`
112		113
113	`' --- Enter Form Validation Rule Changes here... ----`	114	`' --- Enter Form Validation Rule Changes here... ----`
114	`'----------------------------------------------------`	115	`'----------------------------------------------------`
115		116
116	`' --- RUN onPostBack ---`	117	`' --- RUN onPostBack ---`
Line 190...	Line 191...
190	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`	191	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
191	`<br>`	192	`<br>`
192	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`	193	`<table width="100%" border="0" cellspacing="2" cellpadding="0">`
193	`<tr>`	194	`<tr>`
194	`<td nowrap class="form_iname" valign="top">Release Name </td>`	195	`<td nowrap class="form_iname" valign="top">Release Name </td>`
-		196	`<td valign="top" nowrap>`
195	`<td valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objFormCollector.Item("rtag_name"), "class='form_ivalue' size='60'" )%></td>`	197	`<%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%>`
-		198	`</td>`
196	`<td valign="top"><%=objForm.Validate ("rtag_name")%></td>`	199	`<td valign="top"><%=objForm.Validate ("rtag_name")%></td>`
197	`</tr>`	200	`</tr>`
198	`<tr>`	201	`<tr>`
199	`<td nowrap class="form_iname" valign="top">Branch Release</td>`	202	`<td nowrap class="form_iname" valign="top">Branch Release</td>`
200	`<td valign="top" nowrap class="form_iname">`	203	`<td valign="top" nowrap class="form_iname">`
Line 204...	Line 207...
204	`</tr>`	207	`</tr>`
205	`<tr>`	208	`<tr>`
206	`<td nowrap class="form_iname" valign="top">Release Mode</td>`	209	`<td nowrap class="form_iname" valign="top">Release Mode</td>`
207	`<td valign="top" nowrap class="form_iname">`	210	`<td valign="top" nowrap class="form_iname">`
208	`<input name="mode" type="radio" value="N" checked>Open`	211	`<input name="mode" type="radio" value="N" checked>Open`
209	`<input name="mode" type="radio" value="Y" >Closed`	212	`<input name="mode" type="radio" value="Y" <%=iif(Request("mode") = "Y", " checked","")%>>Closed`
210	`<input name="mode" type="radio" value="A" >Archived</td>`	213	`<input name="mode" type="radio" value="A" <%=iif(Request("mode") = "A", " checked","")%>>Archived</td>`
211	`<td valign="top"></td>`	214	`<td valign="top"></td>`
212	`</tr>`	215	`</tr>`
213	`<tr>`	216	`<tr>`
214	`<td valign="top" nowrap class="form_iname">Comments</td>`	217	`<td valign="top" nowrap class="form_iname">Comments</td>`
215	`<td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>`	218	`<td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_add_release.asp – Rev 6070 → 6543