WebSVN – DevTools – /ManagerSuite/Release_Manager/branches/dpurdie/_wform_new

<%@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"-->
Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/branches/dpurdie/_wform_new_package.asp @ 1499 – Rev
