Subversion Repositories DevTools

Rev

Rev 6579 | Rev 6701 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6579 Rev 6699
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|         View Release Licencing Details            |
 5 
'|          Edit/View Build Configuration            |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
Option explicit
 8 
%>
9 
' Good idea to set when using redirect
 9 
<%
10 
Response.Expires = 0  ' always load the page, dont store
 10 
Option explicit
11 
%>
 11 
' Good idea to set when using redirect
12 
<!--#include file="common/conf.asp"-->
 12 
Response.Expires = 0   ' always load the page, dont store
13 
<!--#include file="common/globals.asp"-->
 13 
%>
14 
<!--#include file="common/formating.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/qstr.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/_form_window_common.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
18 
<%
 18 
<!--#include file="common/common_subs.asp"-->
19 
' Make sure rtag_id is always present
 19 
<!--#include file="common/_form_window_common.asp"-->
20 
If Request("rtag_id") = "" Then
 20 
<%
21 
    Call Destroy_All_Objects
 21 
' Make sure rtag_id is always present
22 
	Response.Redirect("index.asp")
 22 
If Request("rtag_id") = "" Then
23 
End If
 23 
    Call Destroy_All_Objects
24 
 
 24 
	Response.Redirect("index.asp")
25 
' Set rfile parameter. This is a return page after Login
 25 
End If
26 
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
 26 
 
27 
'------------ ACCESS CONTROL ------------------
 27 
' Set rfile parameter. This is a return page after Login
28 
%>
 28 
Call objPMod.StoreParameter ( "rfile", "form_view_release_licencing.asp" )
29 
<!--#include file="_access_control_login.asp"-->
 29 
'------------ ACCESS CONTROL ------------------
30 
<!--#include file="_access_control_general.asp"-->
 30 
%>
31 
<!--#include file="_access_control_project.asp"-->
 31 
<!--#include file="_access_control_login.asp"-->
32 
<%
 32 
<!--#include file="_access_control_general.asp"-->
33 
'------------ Variable Definition -------------
 33 
<!--#include file="_access_control_project.asp"-->
34 
Dim bShowAll
 34 
<%
35 
Dim bShowAny
 35 
'------------ Variable Definition -------------
36 
Dim bShowNone
 36 
Dim bShowAll
37 
Dim sPrevPage
 37 
Dim bShowAny
38 
'------------ Constants Declaration -----------
 38 
Dim sPrevPage
39 
 
 39 
Dim bOrdered
40 
'------------ Variable Init -------------------
 40 
Dim sOrderCheck
41 
sPrevPage = QStrParDefault("prevPage", Request.ServerVariables("HTTP_REFERER"))
 41 
Dim sAllCheck
42 
bShowAll = Request("ShowAll")
 42 
Dim sAnyCheck
43 
bShowAny = Request("ShowAny")
 43 
'------------ Constants Declaration -----------
44 
bShowNone = Request("ShowNone")
 44 
'------------ Variable Init -------------------
45 
If isEmpty(bShowAll) AND isEmpty(bShowAny) Then
 45 
bShowAll = Request("ShowAll")
46 
    bShowNone = TRUE
 46 
bShowAny = Request("ShowAny")
47 
End If
 47 
bOrdered = Request("ordered") <> ""
48 
 
 48
49 
 
 49 
If bOrdered       Then sOrderCheck = " Checked "
50 
'--------------------------------------------------------------------------------------------------------------------------
 50 
If bShowAny <> "" Then sAnyCheck = " Checked "
51 
'  release_licencing_query_string
 51 
If bShowAll <> "" Then sAllCheck = " Checked "
52 
'
 52 
 
53 
'  DESCRIPTION
 53 
'--------------------------------------------------------------------------------------------------------------------------
54 
'     Constructs a query string using the provided release tag, designed to elicit
 54 
'  release_licencing_query_string
55 
'     a list of PV_ID's, thier package names, versions and extensions, and licencing
 55 
'
56 
'     associations from the release. Only those PV_IDs with one or more licencing
 56 
'  DESCRIPTION
57 
'     associations are returned.
 57 
'     Constructs a query string using the provided release tag, designed to elicit
58 
'
 58 
'     a list of PV_ID's, thier package names, versions and extensions, and licencing
59 
'  INPUTS
 59 
'     associations from the release. Only those PV_IDs with one or more licencing
60 
'     NNrtag_id : The release tag to be used in the query string
 60 
'     associations are returned.
61 
'
 61 
'
62 
Function release_licencing_query_string(NNrtag_id)
 62 
'  INPUTS
63 
 
 63 
'     NNrtag_id : The release tag to be used in the query string
64 
   release_licencing_query_string = _
 64 
'
65 
                    "WITH AllPkgLic AS " &_
 65 
Function release_licencing_query_string(NNrtag_id)
66 
                    "  (SELECT pkg_id, " &_
 66 
 
67 
                    "    listagg(name, ',') within GROUP ( " &_
 67 
   release_licencing_query_string = _
68 
                    "  ORDER BY name) AS Name " &_
 68 
                    "WITH AllPkgLic AS " &_
69 
                    "  FROM " &_
 69 
                    "  (SELECT pkg_id, " &_
70 
                    "    (SELECT pv.pkg_id, " &_
 70 
                    "    listagg(name, ',') within GROUP ( " &_
71 
                    "      ld.name, " &_
 71 
                    "  ORDER BY name) AS Name " &_
72 
                    "      row_number() over (partition BY pv.pkg_id, ld.name order by pv.pkg_id) AS rn " &_
 72 
                    "  FROM " &_
73 
                    "    FROM LICENCING lg, " &_
 73 
                    "    (SELECT pv.pkg_id, " &_
74 
                    "      LICENCES ld , " &_
 74 
                    "      ld.name, " &_
75 
                    "      package_versions pv " &_
 75 
                    "      row_number() over (partition BY pv.pkg_id, ld.name order by pv.pkg_id) AS rn " &_
76 
                    "    WHERE lg.pv_id = pv.pv_id " &_
 76 
                    "    FROM LICENCING lg, " &_
77 
                    "    AND lg.LICENCE = ld.LICENCE " &_
 77 
                    "      LICENCES ld , " &_
78 
                    "    ) " &_
 78 
                    "      package_versions pv " &_
79 
                    "  WHERE rn = 1 " &_
 79 
                    "    WHERE lg.pv_id = pv.pv_id " &_
80 
                    "  GROUP BY pkg_id " &_
 80 
                    "    AND lg.LICENCE = ld.LICENCE " &_
81 
                    "  ), " &_
 81 
                    "    ) " &_
82 
                    "  AllPvIDs AS " &_
 82 
                    "  WHERE rn = 1 " &_
83 
                    "  ( SELECT DISTINCT * " &_
 83 
                    "  GROUP BY pkg_id " &_
84 
                    "  FROM " &_
 84 
                    "  ), " &_
85 
                    "    ( SELECT pv_id FROM RELEASE_CONTENT rc WHERE rc.rtag_id = :rtag_id " &_
 85 
                    "  AllPvIDs AS " &_
86 
                    "    UNION " &_
 86 
                    "  ( SELECT DISTINCT * " &_
87 
                    "    SELECT pv_id FROM work_in_progress wip WHERE wip.rtag_id = :rtag_id " &_
 87 
                    "  FROM " &_
88 
                    "    UNION " &_
 88 
                    "    ( SELECT pv_id FROM RELEASE_CONTENT rc WHERE rc.rtag_id = :rtag_id " &_
89 
                    "    SELECT pv_id " &_
 89 
                    "    UNION " &_
90 
                    "    FROM planned pl " &_
 90 
                    "    SELECT pv_id FROM work_in_progress wip WHERE wip.rtag_id = :rtag_id " &_
91 
                    "    WHERE pl.rtag_id   = :rtag_id " &_
 91 
                    "    UNION " &_
92 
                    "    AND (pl.operation IS NULL " &_
 92 
                    "    SELECT pv_id " &_
93 
                    "    OR pl.operation    = 'R') " &_
 93 
                    "    FROM planned pl " &_
94 
                    "    ) " &_
 94 
                    "    WHERE pl.rtag_id   = :rtag_id " &_
95 
                    "  ) " &_
 95 
                    "    AND (pl.operation IS NULL " &_
96 
                    "SELECT DISTINCT pv.pv_id, " &_
 96 
                    "    OR pl.operation    = 'R') " &_
97 
                    "  pkg.pkg_name, " &_
 97 
                    "    ) " &_
98 
                    "  pv.pkg_version, " &_
 98 
                    "  ) " &_
99 
                    "  pv.v_ext, " &_
 99 
                    "SELECT DISTINCT pv.pv_id, " &_
100 
                    "  pv.pv_description, " &_
 100 
                    "  pkg.pkg_name, " &_
101 
                    "  lcs.name AS licenceName , " &_
 101 
                    "  pv.pkg_version, " &_
102 
                    "  CASE " &_
 102 
                    "  pv.v_ext, " &_
103 
                    "    WHEN al.NAME  IS NOT NULL " &_
 103 
                    "  pv.pv_description, " &_
104 
                    "    AND lcs.name  IS NOT NULL " &_
 104 
                    "  lcs.name AS licenceName , " &_
105 
                    "    AND ( lcs.name = al.NAME ) " &_
 105 
                    "  CASE " &_
106 
                    "    THEN NULL " &_
 106 
                    "    WHEN al.NAME  IS NOT NULL " &_
107 
                    "    ELSE al.NAME " &_
 107 
                    "    AND lcs.name  IS NOT NULL " &_
108 
                    "  END AS OTHERLICENSES " &_
 108 
                    "    AND ( lcs.name = al.NAME ) " &_
109 
                    "FROM AllPvIDs rc, " &_
 109 
                    "    THEN NULL " &_
110 
                    "  package_versions pv, " &_
 110 
                    "    ELSE al.NAME " &_
111 
                    "  packages pkg, " &_
 111 
                    "  END AS OTHERLICENSES " &_
112 
                    "  licencing lcng, " &_
 112 
                    "FROM AllPvIDs rc, " &_
113 
                    "  licences lcs, " &_
 113 
                    "  package_versions pv, " &_
114 
                    "  AllPkgLic al " &_
 114 
                    "  packages pkg, " &_
115 
                    "WHERE pv.pv_id   = rc.pv_id " &_
 115 
                    "  licencing lcng, " &_
116 
                    "AND pkg.pkg_id   = pv.pkg_id " &_
 116 
                    "  licences lcs, " &_
117 
                    "AND pv.pv_id     = lcng.pv_id (+) " &_
 117 
                    "  AllPkgLic al " &_
118 
                    "AND lcng.licence = lcs.licence (+) " &_
 118 
                    "WHERE pv.pv_id   = rc.pv_id " &_
119 
                    "AND pv.pkg_id    = al.pkg_id(+) " &_
 119 
                    "AND pkg.pkg_id   = pv.pkg_id " &_
120 
                    "AND ((lcng.licence is not null) OR ('" & bShowAll & "' is not null) OR ( (al.name is not null) AND ('" & bShowAny & "' is not null) )) " &_
 120 
                    "AND pv.pv_id     = lcng.pv_id (+) " &_
121 
                    "ORDER BY Upper( pkg.pkg_name), " &_
 121 
                    "AND lcng.licence = lcs.licence (+) " &_
122 
                    "  Upper(pv.pkg_version) "
 122 
                    "AND pv.pkg_id    = al.pkg_id(+) " &_
123
123 
                    "AND ((lcng.licence is not null) OR ('" & bShowAll & "' is not null) OR ( (al.name is not null) AND ('" & bShowAny & "' is not null) )) "
124 
End Function
 124 
 
125 
 
 125 
    If bOrdered Then
126 
 
 126 
        release_licencing_query_string = release_licencing_query_string &_
127 
'--------------------------------------------------------------------------------------------------------------------------
 127 
                    "ORDER BY Upper(licenceName), Upper( pkg.pkg_name), " &_
128 
'  PV_ID_ListHTML
 128 
                    "  Upper(pv.pkg_version) "
129 
'
 129 
    Else
130 
'  DESCRIPTION
 130 
 
131 
'     Constructs the HTML to render the rows of package names, versions and extensions, and licences
 131 
        release_licencing_query_string = release_licencing_query_string &_
132 
'
 132 
                    "ORDER BY Upper( pkg.pkg_name), " &_
133 
Function PV_ID_ListHTML
 133 
                    "  Upper(pv.pkg_version) "
134 
   Dim rsQry
 134 
    End If
135 
   Dim html_string
 135 
End Function
136 
 
 136 
 
137 
 
 137 
 
138 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_Id, ORAPARM_INPUT, ORATYPE_NUMBER
 138 
'--------------------------------------------------------------------------------------------------------------------------
139 
   Set rsQry = OraDatabase.DbCreateDynaset( release_licencing_query_string(parRtag_Id), cint(0) )
 139 
'  PV_ID_ListHTML
140 
   OraDatabase.Parameters.Remove "PV_ID"
 140 
'
141 
 
 141 
'  DESCRIPTION
142 
   '--- Render rows ---
 142 
'     Constructs the HTML to render the rows of package names, versions and extensions, and licences
143 
   Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 143 
'
144 
 
 144 
Function PV_ID_ListHTML
145 
      ' BEGIN ROW
 145 
   Dim rsQry
146 
      html_string = html_string & "<tr>"
 146 
   Dim html_string
147 
 
 147 
 
148 
      ' PACKAGE NAME
 148 
 
149 
      html_string = html_string & "<td nowrap class='body_rowg'>"
 149 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_Id, ORAPARM_INPUT, ORATYPE_NUMBER
150 
      html_string = html_string & "<a href=dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id & ">" & rsQry("pkg_name") & "</a>"
 150 
   Set rsQry = OraDatabase.DbCreateDynaset( release_licencing_query_string(parRtag_Id), cint(0) )
151 
      html_string = html_string & "</td>"
 151 
   OraDatabase.Parameters.Remove "PV_ID"
152 
 
 152 
 
153 
      ' PACKAGE VERSION
 153 
   '--- Render rows ---
154 
      If IsNull(rsQry("v_ext")) Then
 154 
   Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
155 
         html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("pkg_version") & "</td>"
 155 
 
156 
      Else
 156 
      ' BEGIN ROW
157 
         html_string = html_string & "<td nowrap class='body_rowg'>" & Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) ) & "</td>"
 157 
      html_string = html_string & "<tr class='csvData'>"
158 
      End If
 158 
 
159 
 
 159 
      ' PACKAGE NAME
160 
      ' PACKAGE EXTENSION
 160 
      html_string = html_string & "<td nowrap class='body_rowg'>"
161 
      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("v_ext") & "</td>"
 161 
      html_string = html_string & "<a href=dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id & ">" & rsQry("pkg_name") & "</a>"
162 
 
 162 
      html_string = html_string & "</td>"
163 
      ' PACKAGE Short Description
 163 
 
164 
      html_string = html_string & "<td class='body_rowg'>" & rsQry("pv_description") & "</td>"
 164 
      ' PACKAGE VERSION
165 
 
 165 
      If IsNull(rsQry("v_ext")) Then
166 
      ' LICENCE NAME
 166 
         html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("pkg_version") & "</td>"
167 
      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("licenceName") & "</td>"
 167 
      Else
168 
 
 168 
         html_string = html_string & "<td nowrap class='body_rowg'>" & Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) ) & "</td>"
169 
      ' Other Licenses
 169 
      End If
170 
      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("otherlicenses") & "</td>"
 170 
 
171 
 
 171 
      ' PACKAGE EXTENSION
172 
      ' Edit License
 172 
      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("v_ext") & "</td>"
173 
      Dim sonclick
 173 
 
174 
      sonclick="""MM_openVixIFrame('_wform_change_licence.asp?pv_id="& rsQry("pv_id") &"&rtag_id="& parRtag_id &"','Change License')"""
 174 
      ' PACKAGE Short Description
175 
      Dim data
 175 
      html_string = html_string & "<td class='body_rowg'>" & rsQry("pv_description") & "</td>"
176 
 
 176 
 
177 
      If canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer") Then
 177 
      ' LICENCE NAME
178 
        data = "<a href='javascript:;' onClick=" & sonclick & " class='body_txt'>" &_
 178 
      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("licenceName") & "</td>"
179 
               "<img src='images/i_edit.gif' width='12' height='12' border='0'>" &_
 179 
 
180 
               "</a>"
 180 
      ' Other Licences
181 
     Else
 181 
      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("otherlicenses") & "</td>"
182 
        data = "<img src='images/i_edit_disable.gif' width='12' height='12' border='0'>"
 182 
 
183 
     End If
 183 
      ' Edit License
184 
 
 184 
      Dim sonclick
185 
      html_string = html_string & "<td nowrap class='body_rowg'>" & data & "</td>"
 185 
      sonclick="""MM_openVixIFrame('_wform_change_licence.asp?pv_id="& rsQry("pv_id") &"&rtag_id="& parRtag_id &"','Change License')"""
186 
 
 186 
      Dim data
187 
      ' END ROW
 187 
 
188 
      html_string = html_string & "</tr>"
 188 
      If canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer") Then
189 
 
 189 
        data = "<a href='javascript:;' onClick=" & sonclick & " class='body_txt'>" &_
190 
      rsQry.MoveNext
 190 
               "<img src='images/i_edit.gif' width='12' height='12' border='0'>" &_
191 
 
 191 
               "</a>"
192 
      ' ROW SEPERATOR
 192 
     Else
193 
      If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 193 
        data = "<img src='images/i_edit_disable.gif' width='12' height='12' border='0'>"
194 
         html_string = html_string & "<tr><td colspan='8' background='images/bg_table_border.gif'><img src='images/spacer.gif' width='1' height='1'></td></tr>"
 194 
     End If
195 
      End If
 195 
 
196 
   Loop
 196 
      html_string = html_string & "<td nowrap class='body_rowg'>" & data & "</td>"
197 
 
 197 
 
198 
   ' destroy objects
 198 
      ' END ROW
199 
   rsQry.Close()
 199 
      html_string = html_string & "</tr>"
200 
   Set rsQry = nothing
 200 
 
201 
 
 201 
      rsQry.MoveNext
202 
   ' return result
 202 
 
203 
   PV_ID_ListHTML = html_string
 203 
      ' ROW SEPERATOR
204 
End Function
 204 
      If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
205 
 
 205 
         html_string = html_string & "<tr><td colspan='8' style='border-bottom: 1pt solid #dad7c8;'></td></tr>"
206 
'--------------------------------------------------------------------------------------------------------------------------
 206 
      End If
207 
'--------------------------------------------------------------------------------------------------------------------------
 207 
   Loop
208 
'------------ RUN BEFORE PAGE RENDER ----------
 208 
 
209 
 
 209 
   ' destroy objects
210 
 
 210 
   rsQry.Close()
211 
 
 211 
   Set rsQry = nothing
212 
'----------------------------------------------
 212 
 
213 
%>
 213 
   ' return result
214 
 
 214 
   PV_ID_ListHTML = html_string
215 
<html>
 215 
End Function
216 
<head>
 216 
 
217 
<title>Release Manager</title>
 217 
'--------------------------------------------------------------------------------------------------------------------------
218 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 218 
 
219 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 219 
'----------------------------------------------
220 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 220 
Sub LeftPanelContent
221 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
 221 
   objFormComponent.FormName = "FormName"
222 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
 222 
   objFormComponent.Method = "get"
223 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
 223 
   objFormComponent.Action = ScriptName
224 
<script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
 224 
   Call objFormComponent.FormStart()
225 
<!-- DROPDOWN MENUS -->
 225 
%>
226 
<!--#include file="_jquery_includes.asp"-->
 226 
 
227 
<!--#include file="_menu_def.asp"-->
 227 
<fieldset class="body_rowg fset">
228 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 228 
    <legend>Options</legend>
229 
<!-- TIPS -->
 229 
    <input     name="ordered" type="checkbox" class="form_btn" <%=sOrderCheck%> value=1 onChange="this.form.submit()">Ordered
230 
<script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
 230 
    <br><input name="showAny" type="checkbox" class="form_btn" <%=sAnyCheck%>   value=1 onChange="this.form.submit()">Show Any<%=Quick_Help("h_showAny")%>
231 
<script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
 231 
    <br><input name="showAll" type="checkbox" class="form_btn" <%=sAllCheck%>   value=1 onChange="this.form.submit()">Show All<%=Quick_Help("h_showAll")%>
232 
<script language="JavaScript" type="text/javascript">
 232 
    <br><input name="rtag_id" type="hidden" value=<%=parRtag_Id%>
233 
<!--
 233 
</fieldset>
234 
formTips.tips.h_licenses       = stdTip(300, 'License', 'A list of licenses found on this version of this package' +
 234 
   <%
235 
                                                          '<p>Licenses are specified for a specific version of a package.' +
235 
   Call objFormComponent.FormEnd()
236 
                                                          '<p>A package may have several licenses and the packages licenses may chnage over time.'
236 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
237 
                                                          );
 237 
   %>
238 
formTips.tips.h_other       = stdTip(300, 'Other License', 'A list of licenses found in others versions of this package, if they differ from the one specified' +
 238 
<%
239 
                                                          'for this package.' +
 239 
End Sub
240 
                                                          '<p>Licenses are specified for a specific version of a package.' +
240 
'----------------------------------------------
241 
                                                          '<p>A package may have several licenses and the packages licenses may chnage over time.'
241 
Sub MainPanelContent
242 
                                                          );
 242 
%>
243 
</script>
 243 
   <table class="embedded_table" style="margin-bottom:20px" width="90%">
244 
</head>
 244 
      <tr>
245 
<!-- HEADER -->
 245 
         <td>
246 
<!--#include file="_header.asp"-->
 246 
            <!-- Box Title -->
247 
<!-- BODY ---->
 247 
            <div class="form_ttl nowrap" align="left">
248 
 
 248 
                 VIEW RELEASE LICENCING DETAILS
249 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 249 
            </div>
250 
   <%
 250 
         </td>
251 
   '-- FROM START ---------------------------------------------------------------------------------------------------------
 251 
      </tr>
252 
 
 252 
      <tr>
253 
   objFormComponent.FormName = "FormName"
 253 
         <td>
254 
   objFormComponent.Method = "post"
 254 
            <!-- Box Content -->
255 
   objFormComponent.Action = ScriptName & "?rtag_id=" & parRtag_Id
 255 
            <div class="rounded_box">
256 
   Call objFormComponent.FormStart()
 256 
               <div style="background-color: white;border-left: white solid 10px;border-right: white solid 10px;">
257 
   %>
 257 
                    <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
258 
   <tr>
 258 
                    <!--#include file="messages/_msg_inline.asp"-->
259 
      <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
 259 
                    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
260 
      <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
 260 
                    <table width="100%" class="embedded_table etable">
261 
         <table width="95%" border="0" cellspacing="0" cellpadding="0">
 261 
                        <tr>
262 
            <tr>
 262 
                           <td valign="top"></td>
263 
               <td width="1%"></td>
 263 
                           <tr>
264 
               <td width="100%">
 264 
                              <th valign="top" nowrap class="body_hcol">Package Name</th>
265 
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 265 
                              <th valign="top" nowrap class="body_hcol">Package Version</th>
266 
                     <tr>
 266 
                              <th valign="top" nowrap class="body_hcol">Package Extension</th>
267 
                        <td nowrap class="body_txt"></td>
 267 
                              <th valign="top"        class="body_hcol">Short Description</th>
268 
                     </tr>
 268 
                              <th valign="top" nowrap class="body_hcol">Licences<%=Quick_Help("h_licences")%></th>
269 
                  </table>
 269 
                              <th valign="top" nowrap class="body_hcol">Other Licences<%=Quick_Help("h_other")%></th>
270 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 270 
                              <th valign="top" nowrap class="body_hcol noCsv">Edit</th>
271 
                     <tr>
 271 
                           </tr>
272 
                        <td nowrap class="form_ttl"><p>&nbsp;</p>
 272 
                           <%=PV_ID_ListHTML()%>
273 
                           <p>VIEW RELEASE LICENCING DETAILS</p>
 273 
                        </tr>
274 
                        </td>
 274 
                    </table>
275 
                        <td align="right" valign="bottom"></td>
 275 
               </div>
276 
                     </tr>
 276 
            </div>
277 
                  </table>
 277 
         </td>
278 
               </td>
 278 
      </tr>
279 
               <td width="1%"></td>
 279 
   </table>
280 
            </tr>
 280 
<%
281 
            <tr>
 281 
End Sub
282 
               <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 282 
'------------------------------------------------------------------------------
283 
               <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 283 
%>
284 
               <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 284 
<html>
285 
            </tr>
 285 
   <head>
286 
            <tr>
 286 
      <title>Release Manager</title>
287 
               <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 287 
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
288 
               <td bgcolor="#FFFFFF" valign="top">
 288 
      <meta http-equiv="Pragma" content="no-cache">
289 
                  <%
 289 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
290 
                  %>
 290 
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
291 
                  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 291 
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
292 
                  <!--#include file="messages/_msg_inline.asp"-->
 292 
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
293 
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 293 
<script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
294 
                  <br>
 294 
      <!-- DROPDOWN MENUS -->
295 
                  <table width="100%"  border="0" cellspacing="2" cellpadding="0">
 295 
<%bCsvExport = True%>
296 
                     <tr>
 296 
      <!--#include file="_jquery_includes.asp"-->
297 
                        <td valign="top"></td>
 297 
      <!--#include file="_menu_def.asp"-->
298 
                        <tr>
 298 
      <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
299 
                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Name</td>
 299 
<!-- TIPS -->
300 
                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Version</td>
 300 
<script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
301 
                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Extension</td>
 301 
<script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
302 
                           <td valign="top" background="images/bg_table_col.gif" class="body_col">Short Description</td>
 302 
<script language="JavaScript" type="text/javascript">
303 
                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Licences<%=Quick_Help("h_licenses")%></td>
 303 
<!--
304 
                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Other Licenses<%=Quick_Help("h_other")%></td>
 304 
formTips.tips.h_licences       = stdTip(300, 'License', 'A list of licences found on this version of this package' +
305 
                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
 305 
                                                          '<p>Licences are specified for a specific version of a package.' +
306 
                           <td valign="top">
 306 
                                                          '<p>A package may have several licences and the packages licences may change over time.'
307 
                        </tr>
 307 
                                                          );
308 
                        <%=PV_ID_ListHTML()%>
 308 
formTips.tips.h_other       = stdTip(300, 'Other License', 'A list of licences found in others versions of this package, if they differ from the one specified' +
309 
                        <tr>
 309 
                                                          'for this package.' +
310 
                           <td class="form_iname">&nbsp;</td>
 310 
                                                          '<p>Licences are specified for a specific version of a package.' +
311 
                           <td>&nbsp;</td>
 311 
                                                          '<p>A package may have several licences and the packages licences may change over time.'
312 
                           <td class="val_err"></td>
 312 
                                                          );
313 
                        </tr>
 313 
 
314 
                     </tr>
 314 
formTips.tips.h_showAny       = stdTip(300, 'Show Any', 'Show packages, in this Release, that have a licence in any release, not just this release.');
315 
                  </table>
 315 
formTips.tips.h_showAll       = stdTip(300, 'Show All', 'Show all packages in this Release, not just those with a licence.');
316 
               </td>
 316 
 
317 
               <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 317 
</script>
318 
            </tr>
 318 
   </head>
319 
            <tr>
 319 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
320 
               <td background="images/bg_action_norm.gif" ></td>
 320 
      <!-- HEADER -->
321 
               <td align="right" background="images/bg_action_norm.gif" >
 321 
      <!--#include file="_header.asp"-->
322 
                  <input name="btn_submit" type="reset" class="form_btn" value="OK", onClick="location.href='<%=sPrevPage%>';">
 322 
      <!-- BODY ---->
323 
                  <%If NOT IsEmpty(bShowNone)Then%>
 323 
      <table class="full_table">
324 
                  <input name="showAny" type="submit" class="form_btn" value="Show Any">
 324 
         <tr>
325 
                  <%ElseIf NOT IsEmpty(bShowAny) Then%>
 325 
            <td width="146px" class="panel_bg" valign="top">
326 
                  <input name="showAll" type="submit" class="form_btn" value="Show All">
 326 
                <%Call LeftPanelContent%>
327 
                  <%Else%>
 327 
            </td>
328 
                  <input name="showNone" type="submit" class="form_btn" value="Hide Unspecified">
 328 
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
329 
                  <%End If%>
 329 
                <%Call MainPanelContent%>
330 
               </td>
 330 
            </td>
331 
                  <input name="prevPage" type="hidden" value="<%=sPrevPage%>">
 331 
         </tr>
332 
               <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 332 
         <tr>
333 
            </tr>
 333 
            <td class="panel_bg" valign="bottom" align="center" height="350">
334 
            <tr>
 334 
                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
335 
               <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 335 
         </tr>
336 
               <td background="images/lbox_bg_blue.gif"></td>
 336 
      </table>
337 
               <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 337 
      <!-- FOOTER -->
338 
            </tr>
 338 
      <!--#include file="_footer.asp"-->
339 
         </table>
 339 
   </body>
340 
      </td>
 340 
</html>
341 
      <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 341 
 
342 
   </tr>
 - 
 
343 
   <tr>
 - 
 
344 
      <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
 - 
 
345 
      <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 - 
 
346 
   </tr>
 - 
 
347 
   <%
 - 
 
348 
   Call objFormComponent.FormEnd()
 - 
 
349 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
 - 
 
350 
   %>
 - 
 
351 
</table>
 - 
 
352 
<!-- FOOTER -->
 - 
 
353 
<!--#include file="_footer.asp"-->
 - 
 
354 
</body>
 - 
 
355 
</html>
 -