Rev 5442 | Rev 5658 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Edit Release |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/_form_window_common.asp"--><%' Set rfile parameter. This is a return page after LoginCall objPMod.StoreParameter ( "rfile", "rtree.asp" )'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><!--#include file="_access_control_project.asp"--><%'------------ Variable Definition -------------Dim objSortHelperDim rsQryDim ctrlDisabled, bCanEditDim returnUrl'------------ Constants Declaration -----------'------------ Variable Init -------------------If canActionControlInProject("CreateNewRelease") or canActionControlInProject("ConfigureRelease") ThenctrlDisabled = ""bCanEdit = TRUEElsectrlDisabled = "disabled"bCanEdit = FALSEEnd 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 usreturnUrl = Request("returnUrl")If returnUrl = "" ThenreturnUrl = Request.ServerVariables ("HTTP_REFERER")' It MUST have an rtag idIf InStr(returnUrl,"rtag_id") = 0 ThenDim joiner : joiner = "?"If InStr(returnUrl,"?") <> 0 Then joiner = "&"returnUrl = returnUrl & joiner & "rtag_id=" & Request("rtag_id")End IfEnd If'----------------------------------------------%><%'--------------------------------------------------------------------------------------------------------------------------Sub GetFormDetails ( nRtagId, ByRef outobjDetails )Dim rsQry, queryOraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBERquery = _" SELECT rt.* "&_" FROM RELEASE_TAGS rt"&_" WHERE rt.RTAG_ID = :RTAG_ID"Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )OraDatabase.Parameters.Remove "RTAG_ID"If rsQry.RecordCount > 0 ThenoutobjDetails.Item ("rtag_id") = rsQry("rtag_id")outobjDetails.Item ("proj_id") = rsQry("proj_id")outobjDetails.Item ("rtag_name") = rsQry("rtag_name")outobjDetails.Item ("description") = rsQry("description")outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")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")If rsQry("assoc_mass_ref") <> "" ThenoutobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")End IfElseErr.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagIdEnd IfrsQry.CloseSet rsQry = NothingEnd Sub'--------------------------------------------------------------------------------------------------------------------------Sub UpdateReleaseDetails ()On Error Resume NextDim StateIf request("product_state_used") = "on" Then State = "Y" Else State = NULLDim lxrStateIf Request("lxr") = "on" Then lxrState = "Y" Else lxrState = "N"OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "RTAG_NAME", Request("rtag_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "OWNER_EMAIL", Request("owner_email"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "PARENT_RTAG_ID", Request("parent_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "MASSREF_RTAG_ID", Request("massref_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "STATE", State, ORAPARM_INPUT, ORATYPE_VARCHAROraDatabase.Parameters.Add "BUILD_AGE", Request("build_age"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "LXR", lxrState, ORAPARM_INPUT, ORATYPE_CHARobjEH.TryORA ( OraSession )OraDatabase.ExecuteSQL _"BEGIN PK_RELEASE.UPDATE_RELEASE ( " &_" :RTAG_ID, " &_" :RTAG_NAME," &_" :RTAG_DESCRIPTION," &_" :PARENT_RTAG_ID," &_" :MASSREF_RTAG_ID," &_" :CONFIG_SPEC_BRANCH," &_" :OWNER_EMAIL," &_" :USER_ID," &_" :STATE," &_" :BUILD_AGE," &_" :LXR" &_"); END;"objEH.CatchORA ( OraSession )OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "RTAG_NAME"OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"OraDatabase.Parameters.Remove "CONFIG_SPEC_BRANCH"OraDatabase.Parameters.Remove "OWNER_EMAIL"OraDatabase.Parameters.Remove "USER_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"End Sub'--------------------------------------------------------------------------------------------------------------------------%><%'------------ 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") <> "" ThenIf objForm.IsValidOnPostBack Then' --- Form is Valid ---If bCanEdit ThenCall UpdateReleaseDetails()If objEH.Finally ThenCall OpenInWindow ( returnUrl )End IfElseCall OpenInWindow ( returnUrl )End IfEnd IfEnd If'----------------------------------------------%><html><head><title>Release Manager</title><link rel="shortcut icon" href="<%=FavIcon%>"/><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onLoad="FormName.rtag_name.focus();"><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"></div><!-- TIPS LAYERS --------------------------------------><div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10"> </div><!-----------------------------------------------------><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><%'-- FROM START ---------------------------------------------------------------------------------------------------------objFormComponent.FormName = "FormName"objFormComponent.Action = ScriptNameIf NOT bCanEdit ThenobjFormComponent.IsReadonlyAction = enumDB_YESEnd IfCall objFormComponent.FormStart()%><tr><td width="1" background="images/bg_home_orange.gif" valign="top"></td><td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0"><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></table></td><td width="1%"></td></tr><tr><td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td><td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td><td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td></tr><tr><td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td><td bgcolor="#FFFFFF" valign="top"><!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ --><!--#include file="messages/_msg_inline.asp"--><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><br><table width="100%" border="0" cellspacing="2" cellpadding="0"><tr><td width="19%" valign="top" nowrap class="form_iname">Release Name </td><td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%></td><td width="9%" valign="top"><%=objForm.Validate ("rtag_name")%></td></tr><tr><td nowrap class="form_iname" valign="top">Parent Release </td><td valign="top" nowrap class="form_iname"><%OraDatabase.Parameters.Add "PROJ_ID", objFormCollector.Item("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBERSet rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )OraDatabase.Parameters.Remove "USER_ID"OraDatabase.Parameters.Remove "PROJ_ID"%><select name="parent_rtag_id" class="form_item" <%=ctrlDisabled%>><option value="<%=objFormCollector.Item("rtag_id")%>">---ROOT---</option><%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%><option value="<%=rsQry("rtag_id")%>" <%If ( cLng( rsQry("rtag_id") ) = cLng(objFormCollector.Item("parent_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option><%rsQry.MoveNextWEnd%></select></td><td valign="top"></td></tr><tr><td valign="top" nowrap class="form_iname">Comments</td><td valign="top"><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue( "rtag_description", objFormCollector.Item("description") ), 10, 60, "class='form_ivalue'" )%></td><td valign="top"><%=objForm.Validate ("rtag_description")%></td></tr><tr><td valign="top" nowrap class="form_iname">Clearcase Support Profile Branch</td><td valign="top" nowrap><%=objFormComponent.TextBox ( "config_spec_branch", objForm.GetValue( "config_spec_branch", objFormCollector.Item("config_spec_branch") ), "class='form_ivalue' size='60'" )%></td><td valign="top"><%=objForm.Validate ("config_spec_branch")%></td></tr><tr><td valign="top" nowrap class="form_iname">Autobuild Notification Emails</td><td valign="top" nowrap><%=objFormComponent.TextBox ( "owner_email", objForm.GetValue( "owner_email", objFormCollector.Item("owner_email") ), "class='form_ivalue' size='60'" )%></td><td valign="top"></td></tr><tr><%If objFormCollector.Item("proj_id") <> 2 Then%><td nowrap class="form_iname" valign="top">Associated MASS REF </td><td valign="top" nowrap class="form_iname"><%OraDatabase.Parameters.Add "PROJ_ID", 2, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBERSet rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseVersionTree.sql") , ORADYN_DEFAULT )OraDatabase.Parameters.Remove "USER_ID"OraDatabase.Parameters.Remove "PROJ_ID"%><select name="massref_rtag_id" class="form_item" disabled <%=ctrlDisabled%>><option value="">---None---</option><%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)%><option value="<%=rsQry("rtag_id")%>"<%If ( cLng( rsQry("rtag_id") ) = cLng(objFormCollector.Item("massref_rtag_id")) ) Then%>selected<%End If%>><%=rsQry("rtag_name")%></option><%rsQry.MoveNextWEnd%></select> [No longer supported]</td><td valign="top"></td><%End If%></tr><tr><td valign="top" nowrap class="form_iname">Configured To Use Product States</td><%If IsNull(objFormCollector.Item("product_state_used")) Then%><td valign="top"><input type="checkbox" name="product_state_used" <%=ctrlDisabled%>></td><%Else%><td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td><%End If%><td valign="top"></td></tr><tr><td valign="top" nowrap class="form_iname">Build Age before warning</td><td valign="top" nowrap><%=objFormComponent.TextBox ( "build_age", objForm.GetValue( "build_age", objFormCollector.Item("build_age") ), "class='form_ivalue' size='5'" )%></td><td valign="top"></td></tr><tr><td valign="top" nowrap class="form_iname">LXR Support</td><td valign="top" nowrap><input type="checkbox" name="lxr" <%=iif(objForm.GetValue( "lxr", objFormCollector.Item("lxr") ) = "Y", "checked ","")%><%=ctrlDisabled%> ></td><td valign="top"></td></tr><tr><td class="form_iname"> </td><td> </td><td class="val_err"></td></tr></table></td><td background="images/lbox_bgside_white.gif"> </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'" )%> <%End If%><%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", returnUrl )%><%=objPMod.ComposeHiddenTags()%><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><tr><td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td><td background="images/lbox_bg_blue.gif"></td><td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td></tr></table><!-- ACTION BUTTONS ----------------------------------------------><!-- ACTION BUTTONS END ------------------------------------------></td><td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td></tr><tr><td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td><td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td></tr><%Call objFormComponent.FormEnd()'-- FROM END ----------------------------------------------------------------------------------------------------------------%></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>