| Line 52... |
Line 52... |
| 52 |
|
52 |
|
| 53 |
rsTemp.Close
|
53 |
rsTemp.Close
|
| 54 |
Set rsTemp = nothing
|
54 |
Set rsTemp = nothing
|
| 55 |
End Sub
|
55 |
End Sub
|
| 56 |
|
56 |
|
| - |
|
57 |
Sub Get_All_Base_Views ( NNnewgroup_id, nPkg_id )
|
| - |
|
58 |
Dim rsTemp, Query_String, aa
|
| - |
|
59 |
aa = NNnewgroup_id
|
| - |
|
60 |
|
| - |
|
61 |
Query_String = _
|
| - |
|
62 |
" SELECT vi.view_id, vi.view_name, bv.hint "&_
|
| - |
|
63 |
" FROM views vi,"&_
|
| - |
|
64 |
" ("&_
|
| - |
|
65 |
" SELECT DISTINCT rc.BASE_VIEW_ID, '> ' AS hint"&_
|
| - |
|
66 |
" FROM release_content rc,"&_
|
| - |
|
67 |
" package_versions pv"&_
|
| - |
|
68 |
" WHERE rc.pv_id = pv.pv_id"&_
|
| - |
|
69 |
" AND rc.pv_id IN ( "& nPkg_id &" )"&_
|
| - |
|
70 |
" ) bv"&_
|
| - |
|
71 |
" WHERE UPPER(vi.base_view) = 'Y'"&_
|
| - |
|
72 |
" AND bv.BASE_VIEW_ID (+) = vi.VIEW_ID"&_
|
| - |
|
73 |
" ORDER BY vi.view_name ASC"
|
| - |
|
74 |
|
| - |
|
75 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| - |
|
76 |
|
| - |
|
77 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
| - |
|
78 |
If NNnewgroup_id = CInt( rsTemp.Fields("view_id") ) OR NOT IsNull(rsTemp("hint")) Then
|
| - |
|
79 |
Response.write "<option value='"& rsTemp("view_id") &"' selected>"& rsTemp("hint") & rsTemp("view_name") &"</option>"
|
| - |
|
80 |
Else
|
| - |
|
81 |
Response.write "<option value='"& rsTemp("view_id") &"'>"& rsTemp("hint") & rsTemp("view_name") & "</option>"
|
| - |
|
82 |
End If
|
| - |
|
83 |
|
| - |
|
84 |
rsTemp.MoveNext
|
| - |
|
85 |
WEnd
|
| - |
|
86 |
|
| - |
|
87 |
rsTemp.Close
|
| - |
|
88 |
Set rsTemp = nothing
|
| - |
|
89 |
End Sub
|
| 57 |
|
90 |
|
| 58 |
Function Release_Groups ( SSrtag_id )
|
- |
|
| 59 |
|
- |
|
| 60 |
'Release_Groups = _
|
- |
|
| 61 |
'" SELECT vi.view_id, vi.view_name"&_
|
- |
|
| 62 |
'" FROM release_content rc, views vi"&_
|
- |
|
| 63 |
'" WHERE vi.view_id = rc.base_view_id AND rc.rtag_id = "& SSrtag_id &_
|
- |
|
| 64 |
'" GROUP BY vi.view_id, vi.view_name"&_
|
- |
|
| 65 |
'" ORDER BY vi.view_name ASC"
|
- |
|
| 66 |
Release_Groups = _
|
- |
|
| 67 |
"SELECT view_id, view_name"&_
|
- |
|
| 68 |
" FROM views "&_
|
- |
|
| 69 |
" WHERE base_view='Y'"&_
|
- |
|
| 70 |
"ORDER BY UPPER(view_name)"
|
- |
|
| 71 |
End Function
|
- |
|
| 72 |
%>
|
91 |
%>
|
| 73 |
<%
|
92 |
<%
|
| 74 |
'Process submition
|
93 |
'Process submition
|
| 75 |
If CBool(QStrPar("action")) AND (QStrPar("btn") = "Update") AND objAccessControl.UserLogedIn Then
|
94 |
If CBool(QStrPar("action")) AND (QStrPar("btn") = "Update") AND objAccessControl.UserLogedIn Then
|
| 76 |
Call Update_Pkg_Category ( QStrPar("rtag_id"), QStrPar("pv_id"), QStrPar("group_id") )
|
95 |
Call Update_Pkg_Category ( QStrPar("rtag_id"), QStrPar("pv_id"), QStrPar("group_id") )
|
| Line 124... |
Line 143... |
| 124 |
<tr>
|
143 |
<tr>
|
| 125 |
<td width="1%"> </td>
|
144 |
<td width="1%"> </td>
|
| 126 |
<td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Base View<a href="#" onMouseOver="formTips.show('group')" onMouseOut="formTips.hide()"><img src="images/i_help.gif" width="12" height="12" hspace="2" align="absmiddle" border="0" ></a></td>
|
145 |
<td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Base View<a href="#" onMouseOver="formTips.show('group')" onMouseOut="formTips.hide()"><img src="images/i_help.gif" width="12" height="12" hspace="2" align="absmiddle" border="0" ></a></td>
|
| 127 |
<td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
|
146 |
<td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
|
| 128 |
<select name="group_id" class="form_item">
|
147 |
<select name="group_id" class="form_item">
|
| 129 |
<%
|
- |
|
| 130 |
Dim rsRelGroups
|
- |
|
| 131 |
Set rsRelGroups = OraDatabase.DbCreateDynaset( Release_Groups( parRtag_id ), cint(0))
|
148 |
<%Call Get_All_Base_Views( CInt(pkgInfoHash.Item("base_view_id")), parPv_id )%>
|
| 132 |
While ((NOT rsRelGroups.BOF) AND (NOT rsRelGroups.EOF))%>
|
- |
|
| 133 |
<option <%If CInt(rsRelGroups.Fields("view_id")) = CInt(pkgInfoHash.Item("base_view_id")) Then%>selected<%End If%> value="<%=rsRelGroups.Fields("view_id")%>"><%=UCase(rsRelGroups.Fields("view_name"))%></option>
|
- |
|
| 134 |
<% rsRelGroups.MoveNext
|
- |
|
| 135 |
WEnd
|
- |
|
| 136 |
rsRelGroups.Close
|
- |
|
| 137 |
set rsRelGroups = nothing
|
- |
|
| 138 |
%>
|
- |
|
| 139 |
</select>
|
149 |
</select>
|
| 140 |
<a href="_wform_new_group.asp?movepkg=true&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>"><img src="images/i_new_group.gif" width="20" height="20" align="absmiddle" border="0" alt="Create NEW group" title="Create NEW group"></a>
|
150 |
<a href="_wform_new_group.asp?movepkg=true&pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>"><img src="images/i_new_group.gif" width="20" height="20" align="absmiddle" border="0" alt="Create NEW group" title="Create NEW group"></a>
|
| - |
|
151 |
<span class="rep_small">
|
| - |
|
152 |
<br>NOTE: Symbol '>' in Base View drop-down list is a suggestion where to place the package.
|
| - |
|
153 |
<br>Indicates views that contain the package in all Releases
|
| - |
|
154 |
</span>
|
| 141 |
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
|
155 |
<input type="hidden" name="pv_id" value="<%=parPv_id%>">
|
| 142 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
156 |
<input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
|
| 143 |
<input type="hidden" name="action" value="true">
|
157 |
<input type="hidden" name="action" value="true">
|
| 144 |
</td>
|
158 |
</td>
|
| 145 |
</tr>
|
159 |
</tr>
|