Subversion Repositories DevTools

Rev

Rev 129 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
129 ghuddy 5 
'|                       MEMBERS                     |
6 
'|                    NOTIFICATIONS                  |
119 ghuddy 7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
129 ghuddy 12 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<%
20 
'------------ ACCESS CONTROL ------------------
21 
%>
22 
<!--#include file="_access_control_login.asp"-->
23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsTemp
27 
Dim parPv_list
28 
'------------ Constants Declaration -----------
29 
'------------ Variable Init -------------------
30 
If Request("pv_list") <> "" Then
129 ghuddy 31 
   parPv_list = Request("pv_list")
119 ghuddy 32 
Else
129 ghuddy 33 
   parPv_list = -1
119 ghuddy 34 
End If
35 
'----------------------------------------------
36 
%>
37 
<%
38 
Function Get_Packages ( NNpv_list )
129 ghuddy 39 
   Get_Packages = _
40 
   " SELECT rc.rtag_id, pv.pv_id, pkg.pkg_name, pv.pkg_version, proj.proj_name, rt.rtag_name, rt.rtag_name "&_
41 
   "  FROM packages pkg,"&_
42 
   "       package_versions pv, "&_
43 
   "       release_content rc,"&_
44 
   "       release_tags rt,"&_
45 
   "       projects proj"&_
46 
   " WHERE pv.pkg_id = pkg.pkg_id"&_
47 
   "   AND rc.pv_id = pv.pv_id"&_
48 
   "   AND rc.rtag_id = rt.rtag_id"&_
49 
   "   AND rt.proj_id = proj.proj_id "&_
50 
   "   AND rt.official = 'N'"&_
51 
   "   AND pv.pv_id IN ( "& NNpv_list &" )"&_
52 
   " ORDER BY pv.pv_id, UPPER(pkg.pkg_name), UPPER(proj.proj_name) "
119 ghuddy 53 
End Function
54 
 
55 
 
56 
Function Users_List ( )
129 ghuddy 57 
   Users_List = _
58 
   " SELECT usr.user_id, usr.full_name"&_
59 
   "   FROM users usr"&_
60 
   "  WHERE usr.is_disabled IS NULL"&_
61 
   "  ORDER BY UPPER(usr.full_name)"
119 ghuddy 62 
End Function
63 
 
64 
 
65 
Sub Update_Owner ( NNpv_list, NNown_id )
129 ghuddy 66 
   objEH.TryORA ( OraSession )
67 
   On Error Resume Next
68 
   OraDatabase.ExecuteSQL _
69 
   " UPDATE package_versions"&_
70 
   "    SET owner_id = "& NNown_id &_
71 
   "  WHERE pv_id IN ( "& NNpv_list &" )"
72 
   objEH.CatchORA ( OraSession )
119 ghuddy 73 
End Sub
74 
%>
75 
<%
76 
'Process submition
77 
If CBool(QStrPar("action")) Then
129 ghuddy 78 
   Call Update_Owner ( parPv_list, Request("own_id") )
79 
 
80 
   Response.Redirect ( "members_notifications.asp" )
81 
 
119 ghuddy 82 
Else
129 ghuddy 83 
   '------------ Action Requirements -------------------
84 
   If NOT objAccessControl.UserLogedIn Then
85 
      ' NOT AUTHENTICATED
86 
      Response.Redirect("login.asp?rfile=members_notifications.asp")
87 
   ElseIf parPv_list = -1 Then
88 
      ' missing pkg_list
89 
      Response.Redirect ( "members_notifications.asp" )
90 
 
91 
   End If
92 
 
119 ghuddy 93 
End If
94 
%>
95 
<html>
96 
<head>
97 
<title>Release Manager</title>
98 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
99 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
100 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
101 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
102 
<script language="JavaScript" src="images/common.js"></script>
103 
</head>
104 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
105 
<!-- TIPS LAYERS -------------------------------------->
106 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
107 
<!----------------------------------------------------->
108 
<!-- HEADER -->
109 
<%If objAccessControl.UserLogedIn Then%>
110 
<div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="#"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%> disabled" title="Logout from <%=objAccessControl.UserName%> disabled"></a></div>
111 
<%End If%>
112 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 113 
  <tr>
119 ghuddy 114 
    <td><a href="index.asp"><img src="images/b_release_manager.jpg" width="467" height="50" border="0"></a></td>
115 
    <td valign="bottom" align="right">&nbsp;</td>
116 
  </tr>
129 ghuddy 117 
  <tr>
119 ghuddy 118 
    <td align=left noWrap valign=center width=150 background="images/h_dot.gif" height="1"></td>
119 
    <td background="images/h_dot.gif" height="1"></td>
120 
  </tr>
121 
</table>
122 
<!-- BODY ---->
123 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 124 
  <tr>
125 
    <td width="1%" background="images/bg_member_dark.gif" valign="top">
119 ghuddy 126 
      <!-- MEMBERS MENU ---------------------------------------------->
129 ghuddy 127 
     <!--#include file="members_menu_def.asp"-->
128 
     <%Call Member_Menu( "notifications" )%>
119 ghuddy 129 
      <!--  MEMBERS MENU END ------------------------------------------>
130 
    </td>
131 
    <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>
129 ghuddy 132 
    <td rowspan="2" valign="top" width="1%" background="images/bg_member_light.gif" nowrap>
119 ghuddy 133 
      <!------------------------------------------->
134 
      <br>
135 
      <span class="mmb_ttl">Change Owner</span><br>
136 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
129 ghuddy 137 
     <form name="changeowner" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('own_id','New Owner','R');return document.MM_returnValue;">
138 
        <tr>
119 ghuddy 139 
          <td width="1%">&nbsp;</td>
140 
          <td align="right"><img src="images/h_trsp_dot.gif" width="500" height="30"></td>
141 
          <td width="1%">&nbsp;</td>
142 
        </tr>
129 ghuddy 143 
        <tr>
119 ghuddy 144 
          <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>
145 
            <td background="images/bg_member_dark.gif" align="left" class="wform_ttl">&nbsp;</td>
146 
          <td align="right" valign="top" width="1%" background="images/bg_member_dark.gif">&nbsp;</td>
147 
        </tr>
129 ghuddy 148 
        <tr>
119 ghuddy 149 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
150 
          <td bgcolor="#FFFFFF" valign="top" class="form_item"> <br>
151 
              Select new owner and click Apply.<br><br>
152 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
129 ghuddy 153 
                <tr>
119 ghuddy 154 
                  <td width="1%" nowrap class="form_field">Package Name and Version&nbsp;</td>
155 
                  <td width="100%" class="form_field">Location</td>
156 
                </tr>
157 
                <%
129 ghuddy 158 
            Set rsTemp = OraDatabase.DbCreateDynaset( Get_Packages( parPv_list ), cint(0))
159 
             While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
160 
            %>
161 
                <tr>
119 ghuddy 162 
                  <td class="form_item"><%=rsTemp("pkg_name") &" "& rsTemp("pkg_version")%></td>
163 
                  <td class="form_item"><%=rsTemp("proj_name") &" &gt; "& rsTemp("rtag_name") %></td>
164 
                </tr>
165 
                <%rsTemp.MoveNext
129 ghuddy 166 
              WEnd%>
119 ghuddy 167 
              </table>
168 
              <br>
169 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
170 
                <tr>
171 
                  <td background="images/bg_form_lightbluedark.gif" class="form_field">New Owner</td>
172 
                </tr>
173 
                <tr>
174 
                  <td background="images/bg_form_lightgray.gif">
129 ghuddy 175 
                <select name="own_id" class="form_item">
176 
                  <option></option>
177 
               <%
178 
               Dim rsUsers
179 
               Set rsUsers = OraDatabase.DbCreateDynaset( Users_List(), cint(0))
180 
               While ((NOT rsUsers.BOF) AND (NOT rsUsers.EOF))%>
181 
                      <option value="<%=rsUsers.Fields("user_id")%>"><%=rsUsers.Fields("full_name")%></option>
182 
      <%            rsUsers.MoveNext
183 
               WEnd
184 
               rsUsers.Close
185 
               set rsUsers = nothing
186 
               %>
187 
               </select>
188 
              </td>
119 ghuddy 189 
                </tr>
190 
              </table>
191 
              <br>
129 ghuddy 192 
           <input type="hidden" name="pv_list" value="<%=parPv_list%>">
193 
           <input type="hidden" name="action" value="true">
119 ghuddy 194 
              <input name="Submit" type="submit" class="form_btn" value="Apply">
129 ghuddy 195 
           <input name="Submit" type="reset" class="form_btn" value="Cancel" onClick="history.back()">
196 
           <br><br>
119 ghuddy 197 
            </td>
198 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
199 
        </tr>
129 ghuddy 200 
        <tr>
119 ghuddy 201 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
202 
          <td background="images/bg_member_dark.gif"></td>
203 
          <td width="1%" background="images/bg_member_dark.gif" valign="bottom" align="right"><img src="images/h_trsp_dot.gif" width="13" height="13"></td>
204 
        </tr>
129 ghuddy 205 
      </form>
119 ghuddy 206 
      </table>
207 
      <!-------------------------------------------------------->
208 
    </td>
209 
    <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>
210 
  </tr>
129 ghuddy 211 
  <tr>
119 ghuddy 212 
    <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>
213 
    <td background="images/bg_member_light.gif" valign="top"><img src="images/h_trsp_dot.gif" width="100" height="400"></td>
214 
  </tr>
215 
</table>
216 
<!-- FOOTER -->
217 
<!--#include file="_footer.asp"-->
218 
</body>
219 
</html>
220 
<%
221 
Call Destroy_All_Objects
129 ghuddy 222 
%>