Subversion Repositories DevTools

Rev

Rev 119 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%
2
'=====================================================
3
'					REMOVE PACKAGES
4
' 				         PAGE
5
'=====================================================
6
%>
7
<!--#include file="_tabs.asp"-->
8
<%
9
'------------ Variable Definition -------------
10
Dim parPv_id
11
Dim rsLocRel
12
'------------ Constants Declaration -----------
13
'------------ Variable Init -------------------
14
parPv_id = QStrPar("pv_id")
15
'----------------------------------------------
16
%>
17
<%
18
Function Get_Local_Release_Pkgs ( NNrtag_id )
19
	Get_Local_Release_Pkgs = _
20
	"  SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, vi.view_name"&_
21
	"    FROM PACKAGES pkg, package_versions pv, release_content rel, views vi"&_
22
	"   WHERE pkg.pkg_id = pv.pkg_id"&_
23
    "     AND pv.pv_id = rel.pv_id"&_
24
    "    AND vi.view_id = rel.base_view_id"&_
25
    "     AND rel.rtag_id = "& NNrtag_id &_
26
	"   ORDER BY vi.view_name ASC, UPPER(pkg.pkg_name) ASC"
27
End Function
28
 
29
 
30
Function Make_Separator ( SSname )
31
	Dim sepLen, chrBefore, chrAfter
32
	sepLen = 40		'separator length
33
	chrBefore = (sepLen - Len(SSname)) \ 2
34
	chrAfter = sepLen - Len(SSname) - chrBefore
35
	Make_Separator = String(chrBefore, "_")& UCase(SSname) &String(chrAfter, "_")
36
End Function
37
%>
38
<table width="650" border="0" cellspacing="0" cellpadding="0">
39
  <tr> 
40
    <td> 
41
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
42
        <tr> 
43
          <td width="1%">&nbsp;</td>
44
          <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
45
          <td width="1%">&nbsp;</td>
46
        </tr>
47
        <tr> 
48
          <td width="1%">&nbsp;</td>
49
          <td> 
50
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
51
              <tr> 
52
                <td nowrap class="form_ttl">REMOVE package(s)</td>
53
                <td align="right" valign="bottom">
54
                  <!-- TABS -->
55
				  &nbsp;
56
                </td>
57
              </tr>
58
            </table>
59
          </td>
60
          <td width="1%">&nbsp;</td>
61
        </tr>
62
        <tr> 
63
          <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
64
          <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>
65
          <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
66
        </tr>
67
        <tr> 
68
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
69
          <td bgcolor="#FFFFFF" valign="top"> 
70
            <!-- Body -->
71
           <table width="100%" border="0" cellspacing="1" cellpadding="2">
72
			<form name="removepkgs" method="post" action="_remove_packages.asp" onSubmit="MM_validateForm('RMpv_id','Package selection','R');return document.MM_returnValue">
73
              <tr> 
74
			      <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
75
			      <td width="1%" nowrap class="form_group" valign="bottom">PACKAGES<a href="javascript:;" onMouseOver="formTips.show('addoldpkg')" onMouseOut="formTips.hide()"><img src="images/i_help.gif" width="12" height="12" hspace="2" align="absmiddle" border="0" ></a></td>
76
			      <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
77
              </tr>
78
              <tr> 
79
                <td width="1%">&nbsp;</td>
80
                <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
81
			      <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
82
			        <select name="RMpv_id" size="30" multiple class="form_item">
83
				  <%
84
				  Dim currGroup, pv_idSelected
85
				  currGroup = ""
86
				  pv_idSelected = ""
87
				  Set rsLocRel = OraDatabase.DbCreateDynaset( Get_Local_Release_Pkgs ( parRtag_id ), cint(0))
88
				  While ((NOT rsLocRel.BOF) AND (NOT rsLocRel.EOF))%>
89
				  	<%
90
					If parPv_id = CStr(rsLocRel.Fields("pv_id")) Then
91
						pv_idSelected = "selected"
92
					Else
93
						pv_idSelected = ""
94
					End If
95
					%>
96
				  	<%If currGroup <> rsLocRel.Fields("view_name") Then%>
97
						<%currGroup = rsLocRel.Fields("view_name")%>
98
						<option value=""><%=Make_Separator ( currGroup )%></option>
99
						<option value="<%=rsLocRel.Fields("pv_id")%>" <%=pv_idSelected%>><%=rsLocRel("pkg_name") &" "& rsLocRel("pkg_version")%></option>
100
					<%Else%>
101
						<option value="<%=rsLocRel.Fields("pv_id")%>" <%=pv_idSelected%>><%=rsLocRel("pkg_name") &" "& rsLocRel("pkg_version")%></option>
102
					<%End If%>
103
				  <%
104
				  	rsLocRel.MoveNext
105
				  WEnd
106
				  rsLocRel.Close
107
				  Set rsLocRel = nothing
108
				  %>  
109
			        </select>
110
                  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
111
				  <input type="hidden" name="action" value="true">
112
				  </td>
113
              </tr>
114
              <tr> 
115
                <td width="1%">&nbsp;</td>
116
      			<td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
117
                <td nowrap width="100%" class="body_scol"> 
118
        		  <input type="submit" name="btn" value="Remove" class="form_btn">
119
                  <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();">
120
				  <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
121
				  <br><br>
122
                </td>
123
              </tr>
124
			</form>
125
            </table>
126
            <!-- END Body-->
127
          </td>
128
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
129
        </tr>
130
        <tr> 
131
          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
132
          <td background="images/lbox_bg_blue.gif"></td>
133
          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
134
        </tr>
135
      </table>
136
    </td>
137
  </tr>
138
</table>