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



<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim rsQry
Dim parSourceRtagId
Dim isSnapshot
Dim isBranch
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parSourceRtagId = Request("source_rtag_id")
objPMod.PersistInQryString("proj_id")
isSnapshot = RequestBool("snapshot", FALSE)
isBranch = RequestBool("branch", FALSE)
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )

    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",         Iif(isBranch, "Y", "N"),            ORAPARM_INPUT, ORATYPE_CHAR
    OraDatabase.Parameters.Add "OMODE",             Request("mode"),                    ORAPARM_INPUT, ORATYPE_CHAR
    OraDatabase.Parameters.Add "ORTAGID",           NULL,                               ORAPARM_OUTPUT,ORATYPE_NUMBER
    
    objEH.ErrorRedirect = FALSE
    On Error Resume Next
    objEH.TryORA ( OraSession )
    
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE, :ORTAGID);   END;"
 
    objEH.CatchORA ( OraSession )
    
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
    OraDatabase.Parameters.Remove "PROJ_ID"
    OraDatabase.Parameters.Remove "RTAG_NAME"
    OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"
    OraDatabase.Parameters.Remove "USER_ID"
    OraDatabase.Parameters.Remove "IS_BRANCH"
    OraDatabase.Parameters.Remove "OMODE"
    OraDatabase.Parameters.Remove "ORTAGID"
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------

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'")
 
 
' --- Enter Form Validation Rule Changes here... ----
'----------------------------------------------------
 
' --- RUN onPostBack ---

'-- FROM START ---------------------------------------------------------------------------------------------------------
objFormComponent.FormName = "FormName"
objFormComponent.Action = ScriptName
Call objFormComponent.FormStart()
Dim fName : fName = objFormCollector.Item("rtag_name") 
Dim cmtPrefix : cmtPrefix = iif(isSnapshot, "Snapshot of ", "Cloned from ") 
Dim Comment
Comment = Request("rtag_description") 
If Comment = "" Then
    Comment = objFormCollector.Item("description")
    If fName <> "" AND NOT isSnapshot Then
        If Comment <> "" Then Comment = Comment & vbCrLf 
        Comment = Comment & cmtPrefix & "'" & fName & "'"
    End If
End If
Dim  rtagName
rtagName = Request("rtag_name") 
If rtagName = "" Then
    If fName <> "" Then rtagName = cmtPrefix & fName
End If
 
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td class='bg_panel'></td>
    <td width="100%" rowspan="2" align="center" bgcolor="#EEEFEF">
        <div>
            <div class=panel>
                <div class='rounded_box_caption'>
                    <%=Iif(isSnapshot, "Create Snapshot", "New Release")%>
                <div>
                <div class = "rounded_box">
                    <div>
                        <%
                        If isSnapshot Then
                            Call Messenger ( "A snapshot will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
                        ElseIf parSourceRtagId <> "" Then
                            Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
                        End If
                        %>
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->    
                        <!--#include file="messages/_msg_inline.asp"-->

                            <td nowrap>
                            <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", rtagName ), "class='form_ivalue' size='60'" )%>
                            </td>
                            <td><%=objForm.Validate ("rtag_name")%></td>
                          </tr>
                          <%If NOT isSnapshot Then%>
                          <tr>
                            <td nowrap class="form_iname">Branch Release</td>
                            <td nowrap class="form_iname">
                              <input name="branch" type="radio" value="N" checked>No
                              <input name="branch" type="radio" value="Y" <%=iif(isBranch, " checked","")%>>Yes</td>
                            <td></td>
                          </tr>
                          <%End If%>
                          <tr>
                            <td nowrap class="form_iname">Release Mode</td>
                            <td nowrap class="form_iname">
                              <%If isSnapshot Then%>
                              <input name="mode" type="radio" value="S" checked>Snapshot
                              <%Else%>
                              <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
                              <%End If%>
                            </td>
                          </tr>
                          <tr>
                            <td nowrap class="form_iname top">Comments</td>
                            <td><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue("rtag_description", Comment ), 10, 60, "class='form_ivalue'" )%></td>
                            <td><%=objForm.Validate ("rtag_description")%></td>

Rev 7468	Rev 7493
Line 28...	Line 28...
28	`<!--#include file="_access_control_project.asp"-->`	28	`<!--#include file="_access_control_project.asp"-->`
29	`<%`	29	`<%`
30	`'------------ Variable Definition -------------`	30	`'------------ Variable Definition -------------`
31	`Dim rsQry`	31	`Dim rsQry`
32	`Dim parSourceRtagId`	32	`Dim parSourceRtagId`
-		33	`Dim isSnapshot`
-		34	`Dim isBranch`
33	`'------------ Constants Declaration -----------`	35	`'------------ Constants Declaration -----------`
34	`'------------ Variable Init -------------------`	36	`'------------ Variable Init -------------------`
35	`parSourceRtagId = Request("source_rtag_id")`	37	`parSourceRtagId = Request("source_rtag_id")`
36	`objPMod.PersistInQryString("proj_id")`	38	`objPMod.PersistInQryString("proj_id")`
-		39	`isSnapshot = RequestBool("snapshot", FALSE)`
-		40	`isBranch = RequestBool("branch", FALSE)`
37	`'----------------------------------------------`	41	`'----------------------------------------------`
38	`%>`	42	`%>`
39	`<%`	43	`<%`
40	`'--------------------------------------------------------------------------------------------------------------------------`	44	`'--------------------------------------------------------------------------------------------------------------------------`
41	`Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )`	45	`Sub GetFormDetails ( nSourceRtagId, ByRef outobjDetails )`
Line 80...	Line 84...
80	`OraDatabase.Parameters.Add "SOURCE_RTAG_ID", Request("source_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	84	`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`	85	`OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
82	`OraDatabase.Parameters.Add "RTAG_NAME", Trim(Request("rtag_name")), ORAPARM_INPUT, ORATYPE_VARCHAR2`	86	`OraDatabase.Parameters.Add "RTAG_NAME", Trim(Request("rtag_name")), ORAPARM_INPUT, ORATYPE_VARCHAR2`
83	`OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Trim(Request("rtag_description")), ORAPARM_INPUT, ORATYPE_VARCHAR2`	87	`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`	88	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
85	`OraDatabase.Parameters.Add "IS_BRANCH", Request("branch"), ORAPARM_INPUT, ORATYPE_CHAR`	89	`OraDatabase.Parameters.Add "IS_BRANCH", Iif(isBranch, "Y", "N"), ORAPARM_INPUT, ORATYPE_CHAR`
86	`OraDatabase.Parameters.Add "OMODE", Request("mode"), ORAPARM_INPUT, ORATYPE_CHAR`	90	`OraDatabase.Parameters.Add "OMODE", Request("mode"), ORAPARM_INPUT, ORATYPE_CHAR`
-		91	`OraDatabase.Parameters.Add "ORTAGID", NULL, ORAPARM_OUTPUT,ORATYPE_NUMBER`
87		92
88	`objEH.ErrorRedirect = FALSE`	93	`objEH.ErrorRedirect = FALSE`
89	`On Error Resume Next`	94	`On Error Resume Next`
90	`objEH.TryORA ( OraSession )`	95	`objEH.TryORA ( OraSession )`
91		96
92	`OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE ); END;"`	97	`OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE, :ORTAGID); END;"`
93		98
94	`objEH.CatchORA ( OraSession )`	99	`objEH.CatchORA ( OraSession )`
95		100
96	`OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"`	101	`OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"`
97	`OraDatabase.Parameters.Remove "PROJ_ID"`	102	`OraDatabase.Parameters.Remove "PROJ_ID"`
98	`OraDatabase.Parameters.Remove "RTAG_NAME"`	103	`OraDatabase.Parameters.Remove "RTAG_NAME"`
99	`OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"`	104	`OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"`
100	`OraDatabase.Parameters.Remove "USER_ID"`	105	`OraDatabase.Parameters.Remove "USER_ID"`
101	`OraDatabase.Parameters.Remove "IS_BRANCH"`	106	`OraDatabase.Parameters.Remove "IS_BRANCH"`
102	`OraDatabase.Parameters.Remove "OMODE"`	107	`OraDatabase.Parameters.Remove "OMODE"`
-		108	`OraDatabase.Parameters.Remove "ORTAGID"`
103	`End Sub`	109	`End Sub`
104	`'--------------------------------------------------------------------------------------------------------------------------`	110	`'--------------------------------------------------------------------------------------------------------------------------`
105	`%>`	111	`%>`
106	`<%`	112	`<%`
107	`'------------ RUN BEFORE PAGE RENDER ----------`	113	`'------------ RUN BEFORE PAGE RENDER ----------`
Line 109...	Line 115...
109	`Call GetFormDetails ( parSourceRtagId, objFormCollector )`	115	`Call GetFormDetails ( parSourceRtagId, objFormCollector )`
110		116
111	`' --- Load Validation Rules ---`	117	`' --- Load Validation Rules ---`
112	`objForm.UpdateRules ("id='rtag_name' IsRequired='Y' IsName='Y' MinStringLength='2' MaxStringLength='150'")`	118	`objForm.UpdateRules ("id='rtag_name' IsRequired='Y' IsName='Y' MinStringLength='2' MaxStringLength='150'")`
113	`objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")`	119	`objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")`
114	`objForm.UpdateRules ("id='config_spec_branch' IsRequired='N' IsName='Y' MaxStringLength='4000' MinStringLength='10'")`	-
115		120
116	`' --- Enter Form Validation Rule Changes here... ----`	121	`' --- Enter Form Validation Rule Changes here... ----`
117	`'----------------------------------------------------`	122	`'----------------------------------------------------`
118		123
119	`' --- RUN onPostBack ---`	124	`' --- RUN onPostBack ---`
Line 156...	Line 161...
156	`'-- FROM START ---------------------------------------------------------------------------------------------------------`	161	`'-- FROM START ---------------------------------------------------------------------------------------------------------`
157	`objFormComponent.FormName = "FormName"`	162	`objFormComponent.FormName = "FormName"`
158	`objFormComponent.Action = ScriptName`	163	`objFormComponent.Action = ScriptName`
159	`Call objFormComponent.FormStart()`	164	`Call objFormComponent.FormStart()`
160	`Dim fName : fName = objFormCollector.Item("rtag_name")`	165	`Dim fName : fName = objFormCollector.Item("rtag_name")`
-		166	`Dim cmtPrefix : cmtPrefix = iif(isSnapshot, "Snapshot of ", "Cloned from ")`
161	`Dim Comment`	167	`Dim Comment`
162	`Comment = Request("rtag_description")`	168	`Comment = Request("rtag_description")`
163	`If Comment = "" Then`	169	`If Comment = "" Then`
164	`Comment = objFormCollector.Item("description")`	170	`Comment = objFormCollector.Item("description")`
165	`If fName <> "" Then`	171	`If fName <> "" AND NOT isSnapshot Then`
166	`If Comment <> "" Then Comment = Comment & vbCrLf`	172	`If Comment <> "" Then Comment = Comment & vbCrLf`
167	`Comment = Comment & "Cloned from '" & fName & "'"`	173	`Comment = Comment & cmtPrefix & "'" & fName & "'"`
168	`End If`	174	`End If`
169	`End If`	175	`End If`
170	`Dim rtagName`	176	`Dim rtagName`
171	`rtagName = Request("rtag_name")`	177	`rtagName = Request("rtag_name")`
172	`If rtagName = "" Then`	178	`If rtagName = "" Then`
173	`If fName <> "" Then rtagName = "Cloned from " & fName`	179	`If fName <> "" Then rtagName = cmtPrefix & fName`
174	`End If`	180	`End If`
175		181
176	`%>`	182	`%>`
177	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`	183	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
178	`<tr>`	184	`<tr>`
179	`<td class='bg_panel'></td>`	185	`<td class='bg_panel'></td>`
180	`<td width="100%" rowspan="2" align="center" bgcolor="#EEEFEF">`	186	`<td width="100%" rowspan="2" align="center" bgcolor="#EEEFEF">`
181	`<div>`	187	`<div>`
182	`<div class=panel>`	188	`<div class=panel>`
183	`<div class='rounded_box_caption'>`	189	`<div class='rounded_box_caption'>`
184	`New Release`	190	`<%=Iif(isSnapshot, "Create Snapshot", "New Release")%>`
185	`<div>`	191	`<div>`
186	`<div class = "rounded_box">`	192	`<div class = "rounded_box">`
187	`<div>`	193	`<div>`
188	`<%`	194	`<%`
-		195	`If isSnapshot Then`
-		196	`Call Messenger ( "A snapshot will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )`
189	`If parSourceRtagId <> "" Then`	197	`ElseIf parSourceRtagId <> "" Then`
190	`Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )`	198	`Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )`
191	`End If`	199	`End If`
192	`%>`	200	`%>`
193	`<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->`	201	`<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
194	`<!--#include file="messages/_msg_inline.asp"-->`	202	`<!--#include file="messages/_msg_inline.asp"-->`
Line 201...	Line 209...
201	`<td nowrap>`	209	`<td nowrap>`
202	`<%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", rtagName ), "class='form_ivalue' size='60'" )%>`	210	`<%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", rtagName ), "class='form_ivalue' size='60'" )%>`
203	`</td>`	211	`</td>`
204	`<td><%=objForm.Validate ("rtag_name")%></td>`	212	`<td><%=objForm.Validate ("rtag_name")%></td>`
205	`</tr>`	213	`</tr>`
-		214	`<%If NOT isSnapshot Then%>`
206	`<tr>`	215	`<tr>`
207	`<td nowrap class="form_iname">Branch Release</td>`	216	`<td nowrap class="form_iname">Branch Release</td>`
208	`<td nowrap class="form_iname">`	217	`<td nowrap class="form_iname">`
209	`<input name="branch" type="radio" value="N" checked>No`	218	`<input name="branch" type="radio" value="N" checked>No`
210	`<input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>`	219	`<input name="branch" type="radio" value="Y" <%=iif(isBranch, " checked","")%>>Yes</td>`
211	`<td></td>`	220	`<td></td>`
212	`</tr>`	221	`</tr>`
-		222	`<%End If%>`
213	`<tr>`	223	`<tr>`
214	`<td nowrap class="form_iname">Release Mode</td>`	224	`<td nowrap class="form_iname">Release Mode</td>`
215	`<td nowrap class="form_iname">`	225	`<td nowrap class="form_iname">`
-		226	`<%If isSnapshot Then%>`
-		227	`<input name="mode" type="radio" value="S" checked>Snapshot`
-		228	`<%Else%>`
216	`<input name="mode" type="radio" value="N" checked>Open`	229	`<input name="mode" type="radio" value="N" checked>Open`
217	`<input name="mode" type="radio" value="Y" <%=iif(Request("mode") = "Y", " checked","")%>>Closed`	230	`<input name="mode" type="radio" value="Y" <%=iif(Request("mode") = "Y", " checked","")%>>Closed`
218	`<input name="mode" type="radio" value="A" <%=iif(Request("mode") = "A", " checked","")%>>Archived`	231	`<input name="mode" type="radio" value="A" <%=iif(Request("mode") = "A", " checked","")%>>Archived`
219	`<input name="mode" type="radio" value="S" <%=iif(Request("mode") = "S", " checked","")%>>Snapshot</td>`	232	`<%End If%>`
220	`<td></td>`	233	`</td>`
221	`</tr>`	234	`</tr>`
222	`<tr>`	235	`<tr>`
223	`<td nowrap class="form_iname top">Comments</td>`	236	`<td nowrap class="form_iname top">Comments</td>`
224	`<td><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue("rtag_description", Comment ), 10, 60, "class='form_ivalue'" )%></td>`	237	`<td><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue("rtag_description", Comment ), 10, 60, "class='form_ivalue'" )%></td>`
225	`<td><%=objForm.Validate ("rtag_description")%></td>`	238	`<td><%=objForm.Validate ("rtag_description")%></td>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_add_release.asp – Rev 7468 → 7493