Subversion Repositories DevTools

Rev

Rev 3929 | Blame | Compare with Previous | Last modification | View Log | RSS feed

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                      MEMBERS                                      |
'|        NOTIFICATIONS - My Packages                    |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.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"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim rsTemp
Dim parProjId
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parProjId = Request("proj_id")
objPMod.PersistInQryString("proj_id")
If parProjId = "" then parProjId = 0
'----------------------------------------------

Function NoSpace( txt )
    NoSpace = Replace( txt, " ", "&nbsp;")
End Function

Function Get_My_Packages ( NNuser_id )
        Get_My_Packages = _
        " SELECT rc.rtag_id, pv.pv_id, pkg.pkg_name, pv.pkg_version, proj.proj_name, rt.rtag_name, pkg.pkg_id "&_
        "  FROM packages pkg,"&_
        "       package_versions pv, "&_
        "       release_content rc,"&_
        "       release_tags rt,"&_
        "       projects proj"&_
        " WHERE pv.pkg_id = pkg.pkg_id"&_
        "   AND rc.pv_id = pv.pv_id"&_
        "   AND rc.rtag_id = rt.rtag_id"&_
        "   AND rt.proj_id = proj.proj_id "&_
        "   AND rt.official = 'N'"&_
        "   AND pv.owner_id = "& NNuser_id &_
        " ORDER BY UPPER(pkg.pkg_name),pv.pv_id, UPPER(proj.proj_name) "
End Function
%>
<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">
<!--
function checkUncheckAll(theElement) {
     var theForm = theElement.form, z = 0;
         for(z=0; z<theForm.length;z++){
      if(theForm[z].type == 'checkbox' && theForm[z].name != 'checkall' && theForm[z].disabled != true){
          theForm[z].checked = theElement.checked;
          }
     }
    }
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<!-- TIPS LAYERS -------------------------------------->
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
<!----------------------------------------------------->
<!-- HEADER -->
<!--#include file="_header.asp"-->
<!-- BODY ---->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
      <!-- MEMBERS MENU ---------------------------------------------->
          <!--#include file="members_menu_def.asp"-->
          <%Call Member_Menu( "notifications" )%>
      <!--  MEMBERS MENU END ------------------------------------------>
    </td>
    <td width="1%" valign="top" background="images/bg_member_light.gif"><a href="index.asp" class="form_txt_link"><img src="images/i_home.gif" width="13" height="12" border="0" align="absmiddle">Exit</a></td>
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
      <!------------------------------------------->
      <br>
      <span class="mmb_ttl">Notifications</span><br>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <form name="changeowner" method="post" action="members_change_owner.asp">
        <tr>
          <td width="1%">&nbsp;</td>
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
          <td width="1%">&nbsp;</td>
        </tr>
        <tr>
          <td align="left" valign="top" width="1%" background="images/bg_member_dark.gif"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
        </tr>
        <tr>
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
          <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
              You are currently the owner of the following packages. <br>
              NOTE: You will be notified when your package is ready to be build.<br>
              <br>
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
                <tr>
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field"><INPUT type=checkbox name="checkall" value="Check All" onClick="checkUncheckAll(this);"></td>
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Package Name and Version&nbsp;</td>
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">Location</td>
                </tr>
                                <%
                                Dim currPv_id
                                currPv_id = -1
                                Set rsTemp = OraDatabase.DbCreateDynaset( Get_My_Packages( objAccessControl.UserId ), cint(0))
                            While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
                                %>
                                <%If CStr( currPv_id ) <> CStr(rsTemp("pv_id")) Then%>
                <tr>
                  <td background="images/bg_form_lightgray.gif" class="form_item"><input type="checkbox" name="pv_list" value="<%=rsTemp("pv_id")%>"></td>
                  <td background="images/bg_form_lightgray.gif" class="form_item"><a href="dependencies.asp?pv_id=<%=rsTemp("pv_id")%>&rtag_id=<%=rsTemp("rtag_id")%>" class="txt_linked"><%=NoSpace(rsTemp("pkg_name") &"&nbsp;"& rsTemp("pkg_version"))%></a></td>
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=NoSpace(rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name"))%></td>
                </tr>
                                <%currPv_id = rsTemp("pv_id")%>
                                <%Else%>
                                <tr>
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
                  <td background="images/bg_form_lightgray.gif" class="form_item"></td>
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=NoSpace(rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name"))%></td>
                </tr>
                                <%End If%>
                                <%rsTemp.MoveNext
                    WEnd%>
                                <%If rsTemp.RecordCount = 0 Then%>
                                <tr>
                  <td background="images/bg_form_lightgray.gif" class="form_item" colspan="3">You do not own any packages.</td>
                </tr>
                                <%End If%>
              </table>
              <p>                <%If rsTemp.RecordCount <> 0 Then%>
                <input name="Submit" type="submit" class="form_btn" value="Change Owner">
                <%End If%>
                            </p>
              <p>&nbsp;</p>

                          </form>
      </table>
      <!-------------------------------------------------------->
    </td>
    <td rowspan="2" valign="bottom" width="100%" background="images/bg_member_light.gif" align="right"><img src="images/bg_img_view.gif" width="249" height="144" vspace="10" hspace="10"></td>
  </tr>
  <tr>
    <td valign="bottom" align="center" background="images/bg_member_dark.gif"><img src="images/img_members.gif" width="81" height="57" vspace="20" hspace="30"></td>
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
  </tr>
</table>
<!-- FOOTER -->
<!--#include file="_footer.asp"-->
</body>
</html>
<%
Call Destroy_All_Objects
%>