Subversion Repositories DevTools

Rev

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

Rev 6877 Rev 6881
Line 27... Line 27...
27 
<!--#include file="_access_control_general.asp"-->
 27 
<!--#include file="_access_control_general.asp"-->
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 parProjId
 - 
 
33 
Dim parSourceRtagId
 32 
Dim parSourceRtagId
34 
'------------ Constants Declaration -----------
 33 
'------------ Constants Declaration -----------
35 
'------------ Variable Init -------------------
 34 
'------------ Variable Init -------------------
36 
parProjId = Request("proj_id")
 - 
 
37 
parSourceRtagId = Request("source_rtag_id")
 35 
parSourceRtagId = Request("source_rtag_id")
38 
objPMod.PersistInQryString("proj_id")
 36 
objPMod.PersistInQryString("proj_id")
39 
'----------------------------------------------
 37 
'----------------------------------------------
40 
%>
 38 
%>
41 
<%
 39 
<%
Line 48... Line 46...
48
46
49
47
50 
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID",    nSourceRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
48 
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID",    nSourceRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
51
49
52 
    query = _
 50 
    query = _
53 
    " SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  AS LOCATION"&_
 51 
    " SELECT pr.PROJ_NAME ||' > '|| rt.RTAG_NAME ||' ['|| rt.RTAG_VERSION ||'.'|| rt.RTAG_LIFE_CYCLE ||']'  AS LOCATION, "&_
- 
 
 52 
    " rt.RTAG_NAME," &_
- 
 
 53 
    " rt.DESCRIPTION" &_
54 
    "  FROM RELEASE_TAGS rt,"&_
 54 
    "  FROM RELEASE_TAGS rt,"&_
55 
    "      PROJECTS pr"&_
 55 
    "      PROJECTS pr"&_
56 
    " WHERE rt.PROJ_ID = pr.PROJ_ID"&_
 56 
    " WHERE rt.PROJ_ID = pr.PROJ_ID"&_
57 
    "   AND rt.RTAG_ID = :SOURCE_RTAG_ID"
 57 
    "   AND rt.RTAG_ID = :SOURCE_RTAG_ID"
58
58
Line 60... Line 60...
60
60
61 
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
 61 
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
62
62
63 
    If rsQry.RecordCount > 0 Then
 63 
    If rsQry.RecordCount > 0 Then
64 
        outobjDetails.Item ("location") = rsQry("location")
 64 
        outobjDetails.Item ("location") = rsQry("location")
- 
 
 65 
        outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
- 
 
 66 
        outobjDetails.Item ("description") = rsQry("description")
65
67
66 
    Else
 68 
    Else
67 
        Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
 69 
        Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nSourceRtagId="& nSourceRtagId
68
70
69 
    End If
 71 
    End If
Line 72... Line 74...
72 
    rsQry.Close
 74 
    rsQry.Close
73 
    Set rsQry = Nothing
 75 
    Set rsQry = Nothing
74 
End Sub
 76 
End Sub
75 
'--------------------------------------------------------------------------------------------------------------------------
 77 
'--------------------------------------------------------------------------------------------------------------------------
76 
Sub AddRelease ()
 78 
Sub AddRelease ()
77 
    On Error Resume Next
 - 
 
78
79
79 
    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
80 
    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
81 
    OraDatabase.Parameters.Add "RTAG_NAME",         Trim(Request("rtag_name")),       ORAPARM_INPUT, ORATYPE_VARCHAR2
 82 
    OraDatabase.Parameters.Add "RTAG_NAME",         Trim(Request("rtag_name")),         ORAPARM_INPUT, ORATYPE_VARCHAR2
82 
    OraDatabase.Parameters.Add "RTAG_DESCRIPTION",  Trim(Request("rtag_description")), ORAPARM_INPUT, ORATYPE_VARCHAR2
 83 
    OraDatabase.Parameters.Add "RTAG_DESCRIPTION",  Trim(Request("rtag_description")),  ORAPARM_INPUT, ORATYPE_VARCHAR2
83 
    OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
84 
    OraDatabase.Parameters.Add "USER_ID",           objAccessControl.UserId,            ORAPARM_INPUT, ORATYPE_NUMBER
84 
    OraDatabase.Parameters.Add "IS_BRANCH",         Request("branch"),  ORAPARM_INPUT, ORATYPE_CHAR
 85 
    OraDatabase.Parameters.Add "IS_BRANCH",         Request("branch"),                  ORAPARM_INPUT, ORATYPE_CHAR
85 
    OraDatabase.Parameters.Add "OMODE",             Request("mode"),    ORAPARM_INPUT, ORATYPE_CHAR
 86 
    OraDatabase.Parameters.Add "OMODE",             Request("mode"),                    ORAPARM_INPUT, ORATYPE_CHAR
86
87
- 
 
 88 
    objEH.ErrorRedirect = FALSE
- 
 
 89 
    On Error Resume Next
87 
    objEH.TryORA ( OraSession )
 90 
    objEH.TryORA ( OraSession )
88
91
89 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE );   END;"
 92 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE );   END;"
90 
 
 93 
 
91 
    objEH.CatchORA ( OraSession )
 94 
    objEH.CatchORA ( OraSession )
Line 147... Line 150...
147 
</head>
 150 
</head>
148 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();">
 151 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();">
149 
<!-- HEADER -->
 152 
<!-- HEADER -->
150 
<!--#include file="_header.asp"-->
 153 
<!--#include file="_header.asp"-->
151 
<!-- BODY ---->
 154 
<!-- BODY ---->
152 
 
 - 
 
153 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
154 
<%
 155 
<%
155 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 156 
'-- FROM START ---------------------------------------------------------------------------------------------------------
156 
objFormComponent.FormName = "FormName"
 157 
objFormComponent.FormName = "FormName"
157 
objFormComponent.Action = ScriptName
 158 
objFormComponent.Action = ScriptName
158 
Call objFormComponent.FormStart()
 159 
Call objFormComponent.FormStart()
- 
 
 160 
Dim fName : fName = objFormCollector.Item("rtag_name")
- 
 
 161 
Dim Comment
- 
 
 162 
Comment = Request("rtag_description")
- 
 
 163 
If Comment = "" Then
- 
 
 164 
    Comment = objFormCollector.Item("description")
- 
 
 165 
    If fName <> "" Then
- 
 
 166 
        If Comment <> "" Then Comment = Comment & vbCrLf
- 
 
 167 
        Comment = Comment & "Cloned from '" & fName & "'"
- 
 
 168 
    End If
- 
 
 169 
End If
- 
 
 170 
Dim  rtagName
- 
 
 171 
rtagName = Request("rtag_name")
- 
 
 172 
If rtagName = "" Then
- 
 
 173 
    If fName <> "" Then rtagName = "Cloned from " & fName
- 
 
 174 
End If
- 
 
 175 
 
159 
%>
 176 
%>
- 
 
 177 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
160 
  <tr>
178 
  <tr>
161 
    <td class='bg_panel'>
 179 
    <td class='bg_panel'></td>
- 
 
 180 
    <td width="100%" rowspan="2" align="center" bgcolor="#EEEFEF">
- 
 
 181 
        <div>
- 
 
 182 
            <div class=panel>
- 
 
 183 
                <div class='rounded_box_caption'>
- 
 
 184 
                    New Release
- 
 
 185 
                <div>
- 
 
 186 
                <div class = "rounded_box">
- 
 
 187 
                    <div>
- 
 
 188 
                        <%
- 
 
 189 
                        If parSourceRtagId <> "" Then
- 
 
 190 
                            Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
- 
 
 191 
                        End If
- 
 
 192 
                        %>
- 
 
 193 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 194 
                        <!--#include file="messages/_msg_inline.asp"-->
- 
 
 195 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
 196 
                    </div>
- 
 
 197 
                    <div class='PanelFrame'>
- 
 
 198 
                        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
- 
 
 199 
                          <tr>
- 
 
 200 
                            <td nowrap class="form_iname">Release Name </td>
- 
 
 201 
                            <td nowrap>
- 
 
 202 
                            <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", rtagName ), "class='form_ivalue' size='60'" )%>
- 
 
 203 
                            </td>
- 
 
 204 
                            <td><%=objForm.Validate ("rtag_name")%></td>
- 
 
 205 
                          </tr>
- 
 
 206 
                          <tr>
- 
 
 207 
                            <td nowrap class="form_iname">Branch Release</td>
- 
 
 208 
                            <td nowrap class="form_iname">
- 
 
 209 
                              <input name="branch" type="radio" value="N" checked>No
- 
 
 210 
                              <input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>
- 
 
 211 
                            <td></td>
- 
 
 212 
                          </tr>
- 
 
 213 
                          <tr>
- 
 
 214 
                            <td nowrap class="form_iname">Release Mode</td>
- 
 
 215 
                            <td nowrap class="form_iname">
- 
 
 216 
                              <input name="mode" type="radio" value="N" checked>Open
- 
 
 217 
                              <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</td>
- 
 
 219 
                            <td></td>
- 
 
 220 
                          </tr>
- 
 
 221 
                          <tr>
- 
 
 222 
                            <td nowrap class="form_iname top">Comments</td>
- 
 
 223 
                            <td><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue("rtag_description", Comment ), 10, 60, "class='form_ivalue'" )%></td>
- 
 
 224 
                            <td><%=objForm.Validate ("rtag_description")%></td>
- 
 
 225 
                          </tr>
- 
 
 226 
                        </table>
- 
 
 227 
                    </div>
- 
 
 228 
                    <div class='buttonPanel'>
- 
 
 229 
                        <!-- ACTION BUTTONS ---------------------------------------------->
- 
 
 230 
                        <%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
- 
 
 231 
                        <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
- 
 
 232 
                        <%=objPMod.ComposeHiddenTags()%>
- 
 
 233 
                        <input type="hidden" name="source_rtag_id" value="<%=parSourceRtagId%>">
- 
 
 234 
                        <input type="hidden" name="action" value="true">
- 
 
 235 
                        <!-- ACTION BUTTONS END  ------------------------------------------>
- 
 
 236 
                    </div>
- 
 
 237 
                </div>
- 
 
 238 
            </div>
- 
 
 239 
        </div>
162 
    </td>
 240 
    </td>
163 
    <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
 - 
 
164 
      <tr>
 - 
 
165 
        <td width="1%"></td>
 - 
 
166 
        <td width="100%">
 - 
 
167 
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
168 
            <tr>
 - 
 
169 
              <td nowrap class="form_ttl">NEW RELEASE </td>
 - 
 
170 
              <td align="right" valign="bottom"></td>
 - 
 
171 
            </tr>
 - 
 
172 
        </table></td>
 - 
 
173 
        <td width="1%"></td>
 - 
 
174 
      </tr>
 - 
 
175 
      <tr>
 - 
 
176 
        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 - 
 
177 
        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 - 
 
178 
        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 - 
 
179 
      </tr>
 - 
 
180 
      <tr>
 - 
 
181 
        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 - 
 
182 
        <td bgcolor="#FFFFFF" valign="top">
 - 
 
183 
        <%
 - 
 
184 
        If parSourceRtagId <> "" Then
 - 
 
185 
            Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
 - 
 
186 
        End If
 - 
 
187 
        %>
 - 
 
188 
        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
- 
 
189 
        <!--#include file="messages/_msg_inline.asp"-->
 - 
 
190 
        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 - 
 
191 
        <br>
 - 
 
192 
        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
 - 
 
193 
          <tr>
 - 
 
194 
            <td nowrap class="form_iname" valign="top">Release Name </td>
 - 
 
195 
            <td valign="top" nowrap>
 - 
 
196 
                <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%>
 - 
 
197 
            </td>
 - 
 
198 
            <td valign="top"><%=objForm.Validate ("rtag_name")%></td>
 - 
 
199 
          </tr>
 - 
 
200 
          <tr>
 - 
 
201 
            <td nowrap class="form_iname" valign="top">Branch Release</td>
 - 
 
202 
            <td valign="top" nowrap class="form_iname">
 - 
 
203 
              <input name="branch" type="radio" value="N" checked>No
 - 
 
204 
              <input name="branch" type="radio" value="Y" <%=iif(Request("branch") = "Y", " checked","")%>>Yes</td>
 - 
 
205 
            <td valign="top"></td>
 - 
 
206 
          </tr>
 - 
 
207 
          <tr>
 - 
 
208 
            <td nowrap class="form_iname" valign="top">Release Mode</td>
 - 
 
209 
            <td valign="top" nowrap class="form_iname">
 - 
 
210 
              <input name="mode" type="radio" value="N" checked>Open
 - 
 
211 
              <input name="mode" type="radio" value="Y" <%=iif(Request("mode") = "Y", " checked","")%>>Closed
 - 
 
212 
              <input name="mode" type="radio" value="A" <%=iif(Request("mode") = "A", " checked","")%>>Archived</td>
 - 
 
213 
            <td valign="top"></td>
 - 
 
214 
          </tr>
 - 
 
215 
          <tr>
 - 
 
216 
            <td valign="top" nowrap class="form_iname">Comments</td>
 - 
 
217 
            <td valign="top"><%=objFormComponent.TextArea ( "rtag_description", Request("rtag_description"), 10, 60, "class='form_ivalue'" )%></td>
 - 
 
218 
            <td valign="top"><%=objForm.Validate ("rtag_description")%></td>
 - 
 
219 
          </tr>
 - 
 
220 
          <tr>
 - 
 
221 
            <td width="10%" class="form_iname">&nbsp;</td>
 - 
 
222 
            <td width="1%">&nbsp;</td>
 - 
 
223 
            <td width="90%" class="val_err"></td>
 - 
 
224 
          </tr>
 - 
 
225 
        </table>
 - 
 
226
- 
 
227 
        </td>
 - 
 
228 
        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
229 
      </tr>
 - 
 
230 
      <tr>
 - 
 
231 
        <td class='bg_dialog'></td>
 - 
 
232 
        <td align="right" class='bg_dialog' >
 - 
 
233 
        <%=objFormComponent.SubmitButton ( "Submit", "class='form_btn'" )%>&nbsp;
 - 
 
234 
        <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
 - 
 
235 
        <%=objPMod.ComposeHiddenTags()%>
 - 
 
236 
        <input type="hidden" name="source_rtag_id" value="<%=parSourceRtagId%>">
 - 
 
237 
        <input type="hidden" name="action" value="true">
 - 
 
238 
        </td>
 - 
 
239 
        <td class='bg_dialog'><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 - 
 
240 
      </tr>
 - 
 
241 
      <tr>
 - 
 
242 
        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 - 
 
243 
        <td background="images/lbox_bg_blue.gif"></td>
 - 
 
244 
        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 - 
 
245 
      </tr>
 - 
 
246 
    </table>
 - 
 
247
- 
 
248 
    <!-- ACTION BUTTONS ---------------------------------------------->
 - 
 
249 
    <!-- ACTION BUTTONS END  ------------------------------------------></td>
 - 
 
250 
    <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 - 
 
251 
  </tr>
 241 
  </tr>
252 
  <tr>
- 
 
253 
    <td class='bg_panel_btm'><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
 - 
 
254 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 - 
 
255 
  </tr>
 - 
 
256 
<%
 242 
  <%
257 
Call objFormComponent.FormEnd()
 243 
  Call objFormComponent.FormEnd()
258 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 244 
  '-- FROM END -------------
259 
%>
245 
  %>
260 
</table>
 246 
</table>
261 
<!-- FOOTER -->
 247 
<!-- FOOTER -->
262 
<!--#include file="_footer.asp"-->
 248 
<!--#include file="_footer.asp"-->
263 
</body>
 249 
</body>
264 
</html>
 250 
</html>