Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

Option explicit

Response.Expires = 0	' always load the page, dont store

%>

<%

'=====================================================

'					New Group

'=====================================================

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/common_dbedit.asp"-->

<!--#include file="common/_popup_window_common.asp"-->

<%

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_project.asp"-->

<%

'------------ Variable Definition -------------

Dim parGroup_id

Dim parFRgroup_id

Dim parNewgroup_id

Dim parPersonalView

Dim GroupExistsRET

Dim sessionName

Dim rsCateg

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

sessionName = "RELEASEMANAGER_PKGADDLIST"

parPersonalView = QStrPar("personal_view")

parGroup_id = QStrPar("group_id")

parNewgroup_id = QStrPar("newgroup_id")

If QStrPar("FRgroup_id") = "" Then

	If parNewgroup_id = "" Then

		parFRgroup_id = parGroup_id

	Else

		parFRgroup_id = parNewgroup_id

	End If

Else

	If parNewgroup_id = "" Then

		parFRgroup_id = QStrPar("FRgroup_id")

	Else

		parFRgroup_id = parNewgroup_id

	End If

End If

'----------------------------------------------

%>

<%

Function Pkgs_From_Session ( SSsessionName )

	Pkgs_From_Session = Session( SSsessionName )

End Function

Function Pkg_List ( SSsessionName )

	Dim strPkgSet

	strPkgSet = Pkgs_From_Session ( SSsessionName )

	If strPkgSet <> "" Then

		strPkgSet = Right(strPkgSet, Len(strPkgSet)-1 )		'remove first |

		strPkgSet = Left(strPkgSet, Len(strPkgSet)-1 )		'remove last |

		strPkgSet = Replace( strPkgSet, "||", "|" )

	End If

	Pkg_List = Split( strPkgSet, "|")

End Function

Sub Store_To_Session ( SSsessionName, SSkey, SSvalue )

	Dim tempStr

	tempStr = Pkgs_From_Session ( SSsessionName )

	'If InStr( tempStr, "|"& SSkey &"," ) <= 0 Then	'avoid duplicates

	Session( SSsessionName ) = tempStr &"|"& SSkey &","& SSvalue &"|"

	'End If

End Sub

Sub Store_To_Session_All ( SSsessionName, SSstr )

	Session( SSsessionName ) = SSstr

End Sub

Sub Remove_From_Session ( SSsessionName, SSpkgset )

	Dim tempStr, tempArr, Item

	tempArr = Pkg_List ( SSsessionName )

	tempStr = ""

	For Each Item In tempArr

		If StrComp( SSpkgset, Item ) <> 0  Then

			tempStr = tempStr & "|"& Item &"|"

		End If

	Next

	Call Store_To_Session_All ( SSsessionName, tempStr )

End Sub

Sub Remove_All_From_Session ( SSsessionName )

	Session( SSsessionName ) = ""

End Sub

Sub Get_All_Base_Views ( NNnewgroup_id )

	Dim rsTemp, Query_String

	Query_String = _

	" SELECT view_id, view_name"&_

	"  FROM views"&_

	" WHERE UPPER(base_view) = 'Y'"&_

	" ORDER BY view_name ASC"

	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) 

		If NNnewgroup_id = Cstr( rsTemp.Fields("view_id") ) Then

			'Response.write "<option value='"& rsTemp.Fields("view_id") &"' selected>"& rsTemp.Fields("view_name") &"</option>"

			Response.write "<option value='"& scriptName &"?personal_view="& parPersonalView &"&FRgroup_id="& rsTemp.Fields("view_id") &"&rtag_id="& parRtag_id &"&group_id="& rsTemp.Fields("view_id") &"' selected>"& rsTemp.Fields("view_name") &"</option>"

		Else

			'Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& rsTemp.Fields("view_name") &"</option>"

			Response.write "<option value='"& scriptName &"?personal_view="& parPersonalView &"&FRgroup_id="& rsTemp.Fields("view_id") &"&rtag_id="& parRtag_id &"&group_id="& rsTemp.Fields("view_id") &"'>"& rsTemp.Fields("view_name") &"</option>"

		End If

		rsTemp.MoveNext

	WEnd

	rsTemp.Close

	Set rsTemp = nothing

End Sub

Sub Get_All_Personal_Views ( NNuser_id )

	Dim rsTemp, Query_String

	If NNuser_id = "" Then Exit Sub

	Query_String = _

	" SELECT vi.view_id, vi.view_name"&_

	"  FROM view_settings vs,"&_

	"       views vi"&_

	" WHERE vs.view_id = vi.view_id"&_

	"   AND vs.user_id = vi.owner_id  "&_

	"   AND vs.user_id = "& NNuser_id &_

	"   AND vi.base_view = 'N'"&_

	" ORDER BY UPPER(vi.view_name)"

	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) 

		Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& rsTemp.Fields("view_name") &"</option>"

		rsTemp.MoveNext

	WEnd

	rsTemp.Close

	Set rsTemp = nothing

End Sub

%>

<%'Remove session contents if required

If QStrPar("scontrm") = "true" Then

	Call Remove_All_From_Session( sessionName )

	Call OpenInParentWindow("dependencies.asp?pv_id="& QStrPar("pv_id") &"&rtag_id="& QStrPar("rtag_id"))		' Open this page now so there is no confusion on submit

End If

%>

<%

'Process submition

If CBool(QStrPar("action")) AND (QStrPar("btn") = "ADD")  AND objAccessControl.UserLogedIn Then

	Call Store_To_Session ( sessionName, QStrPar("FRpname"), QStrPar("FRpversion") )

ElseIf CBool(QStrPar("action")) AND (QStrPar("FRpkgrm") <> "") AND objAccessControl.UserLogedIn Then

	Call Remove_From_Session ( sessionName, QStrPar("FRpkgrm") )

ElseIf CBool(QStrPar("action")) AND (QStrPar("btn") = "Create") AND objAccessControl.UserLogedIn Then

	%>

	<script language="JavaScript" type="text/javascript">

	opener.location='_add_new_packages.asp?personal_view=<%=parPersonalView%>&FRgroup_id=<%=parFRgroup_id%>&rtag_id=<%=parRtag_id%>&FRpkglist=<%=Pkgs_From_Session ( sessionName )%>';

	</script>

	<%

	Call Remove_All_From_Session( sessionName )

	Call CloseWindow

End If

%>

<html>

<head>

<title>Release Manager</title>

<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>

<script language="JavaScript" type="text/javascript">

// Verify if session is empty on CREATE 

<!--

function IsSessionEmpty() {

	if ('<%=Session( sessionName )%>'=='') {

		alert('Nothing to Create!\n\nType package name and version, then click ADD. Then click Create.');

   		document.sessionEmpty_returnValue = false;

	} else {

		MM_validateForm('group_id','Base View','R');

		if (document.MM_returnValue) {

			document.sessionEmpty_returnValue = true;

		} else {

			document.sessionEmpty_returnValue = false;

		}

	}

}

//-->

</script>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();window.document.addpkg.FRpname.focus();">

  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">

  	<form name="createpkg" method="post" action="<%=scriptName%>" >

    <tr> 

      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_pkg_off.gif" width="21" height="23" hspace="5"></td>

      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Create 

        NEW Package(s)</td>

      <td background="images/lbox_bg_blue.gif" align="right" width="50%"> 

        <input type="submit" name="btn" value="Create" class="form_btn_comp" onClick="IsSessionEmpty();return document.sessionEmpty_returnValue;">

        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">

		<input type="hidden" name="FRgroup_id" value="<%=parFRgroup_id%>">

		<input type="hidden" name="personal_view" value="<%=parPersonalView%>">

		<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">

		<input type="hidden" name="action" value="true">

      </td>

      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap> 

        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>

    </tr>

	</form>

    <tr> 

      <td height="100%" width="1%">&nbsp;</td>

      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif"> 

        <table width="100%" border="0" cellspacing="1" cellpadding="2">

		<form name="addpkg" method="post" action="<%=scriptName%>" >

          <tr> 

            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="20"></td>

            <td width="1%" nowrap class="form_group" valign="bottom">&nbsp;</td>

            <td nowrap width="1%">&nbsp; </td>

            <td nowrap width="100%">&nbsp;</td>

          </tr>

          <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>

            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package 

              Name </td>

            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Version</td>

          </tr>

          <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif"> 

              <input type="submit" name="btn" value="ADD" class="form_btn_comp" onClick="MM_validateForm('FRpname','Package Name','RisPackage','FRpversion','Package Version','RisVersionStr');return document.MM_returnValue">

            </td>

            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"> 

              <input type="text" name="FRpname" maxlength="50" class="form_item">

            </td>

            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"> 

              <input type="text" name="FRpversion" maxlength="50" class="form_item">

			  <input type="hidden" name="FRgroup_id" value="<%=parFRgroup_id%>">

			  <input type="hidden" name="personal_view" value="<%=parPersonalView%>">

			  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">

            </td>

          </tr>

		  <%

		  Dim pkgListArr, pkgSet, pkgDetailsArr

		  pkgListArr = Pkg_List ( sessionName )

		  'Print current package list%>

		  <%If UBound(pkgListArr) > -1 Then%>

			  <%For Each pkgSet In pkgListArr%>

			  <%

			  pkgDetailsArr = Split( pkgSet, "," )		' array contains [ package_name,version ]

			  %>

	          <tr> 

	            <td>&nbsp;</td>

	            <td nowrap class="form_field" align="center"><a href="<%=scriptName%>?action=true&FRpkgrm=<%=pkgDetailsArr(0)%>,<%=pkgDetailsArr(1)%>&group_id=<%=parGroup_id%>&rtag_id=<%=parRtag_id%>"><img src="images/i_remove_pkg.gif" width="15" height="14" border="0" alt="Remove"></a> 

	            </td>

	            <td nowrap class="form_item"><%=pkgDetailsArr(0)%></td>

	            <td nowrap class="form_item"><%=pkgDetailsArr(1)%></td>

	          </tr>

	          <tr> 

	            <td><img src="images/h_trsp_dot.gif" width="1" height="1"></td>

	            <td nowrap class="form_field" align="center" background="images/bg_form_lightbluedark_line.gif"></td>

	            <td nowrap class="form_item" background="images/bg_form_lightbluedark_line.gif"></td>

	            <td nowrap class="form_item" background="images/bg_form_lightbluedark_line.gif"></td>

	          </tr>

			  <%Next%>

		  <%End If%>

		  <%'----------- Base View --------------%>

		  <tr> 

            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="1"></td>

            <td width="1%" nowrap valign="bottom"></td>

            <td nowrap width="1%" class="form_item"></td>

            <td nowrap width="100%"></td>

          </tr>

		  <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>

            <td colspan="2" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">To Base View</td>

          </tr>

          <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>

            <td colspan="2" nowrap background="images/bg_form_lightbluedark.gif">

			  <select name="group_id" class="form_item" onChange="MM_jumpMenu('parent',this,0)">

				<option></option>

				<%Call Get_All_Base_Views( parGroup_id )%>

			  </select>

			  <a href="javascript:;" onClick="MM_openBrWindow('_wform_new_group.asp?rfile=<%=scriptName%>&rtag_id=<%=parRtag_id%>','ReleaseManagerNewCategory','resizable=yes,width=400,height=200')"><img src="images/i_new_group.gif" width="20" height="20" align="absmiddle" border="0" alt="Create NEW Base View" title="Create NEW Base View"></a> 

			</td>

          </tr>

		  <%'----------- Private View --------------%>

		  <%If QStrPar("Pview") <> "disable" Then%>

		  <tr> 

            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="1"></td>

            <td width="1%" nowrap valign="bottom"></td>

            <td nowrap width="1%" class="form_item"></td>

            <td nowrap width="100%"></td>

          </tr>

		  <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>

            <td colspan="2" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">To Personal View</td>

          </tr>

          <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>

            <td colspan="2" nowrap background="images/bg_form_lightbluedark.gif">

			  <select name="personal_view" class="form_item">

				<%Call Get_All_Personal_Views ( objAccessControl.UserId )%>

			  </select>

			</td>

          </tr>

		  <%End If%>

          <tr> 

            <td>&nbsp;</td>

            <td nowrap class="form_field">&nbsp;</td>

            <td nowrap> 

			 <input type="hidden" name="newgroup_id" value="<%=parNewgroup_id%>">

             <input type="hidden" name="action" value="true">

            </td>

            <td nowrap>&nbsp;</td>

          </tr>

		  </form>

        </table>

      </td>

    </tr>

    <tr> 

      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>

      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>

    </tr>

  </table>

</body>

</html>

<!-- DESTRUCTOR ------->

<!--#include file="common/destructor.asp"-->