WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/form_view_release_licencing.asp

 <!--#include file="_access_control_login.asp"-->
 <!--#include file="_access_control_general.asp"-->
 <!--#include file="_access_control_project.asp"-->
 <%
 '------------ Variable Definition -------------
+Dim bShowAll
+Dim sPrevPage
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
+bShowAll = Request("ShowAll")
+sPrevPage = QStrParDefault("prevPage", Request.ServerVariables("HTTP_REFERER"))
 '--------------------------------------------------------------------------------------------------------------------------
 '  release_licencing_query_string
+'
 '  DESCRIPTION
 '  INPUTS
 '     NNrtag_id : The release tag to be used in the query string
+'
 Function release_licencing_query_string(NNrtag_id)
-   release_licencing_query_string = "SELECT * FROM ("&_
+   release_licencing_query_string = _
+                    "WITH AllPkgLic AS " &_
+                    "  (SELECT pkg_id, " &_
-                                    "      SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, lcs.name AS licenceName"&_
+                    "    listagg(name, ',') within GROUP ( " &_
+                    "  ORDER BY name) AS Name " &_
+                    "  FROM " &_
+                    "    (SELECT pv.pkg_id, " &_
+                    "      ld.name, " &_
-                                    "        FROM release_content rc, package_versions pv, packages pkg, licencing lcng, licences lcs"&_
+                    "      row_number() over (partition BY pv.pkg_id, ld.name order by pv.pkg_id) AS rn " &_
-                                    "       WHERE rc.rtag_id = "& CStr(NNrtag_id) &_
+                    "    FROM LICENCING lg, " &_
-                                    "         AND pv.pv_id = rc.pv_id "&_
+                    "      LICENCES ld , " &_
-                                    "         AND pkg.pkg_id = pv.pkg_id "&_
+                    "      package_versions pv " &_
-                                    "         AND pv.pv_id (+) = lcng.pv_id "&_
+                    "    WHERE lg.pv_id = pv.pv_id " &_
-                                    "         AND lcng.licence (+) = lcs.licence "&_
+                    "    AND lg.LICENCE = ld.LICENCE " &_
+                    "    ) " &_
+                    "  WHERE rn = 1 " &_
+                    "  GROUP BY pkg_id " &_
+                    "  ), " &_
+                    "  AllPvIDs AS " &_
-                                    "      UNION "&_
+                    "  ( SELECT DISTINCT * " &_
+                    "  FROM " &_
-                                    "      SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, lcs.name AS licenceName"&_
+                    "    ( SELECT pv_id FROM RELEASE_CONTENT rc WHERE rc.rtag_id = :rtag_id " &_
+                    "    UNION " &_
-                                    "        FROM work_in_progress wip, package_versions pv, packages pkg, licencing lcng, licences lcs"&_
+                    "    SELECT pv_id FROM work_in_progress wip WHERE wip.rtag_id = :rtag_id " &_
+                    "    UNION " &_
+                    "    SELECT pv_id " &_
+                    "    FROM planned pl " &_
-                                    "       WHERE wip.rtag_id = "& CStr(NNrtag_id) &_
+                    "    WHERE pl.rtag_id   = :rtag_id " &_
-                                    "         AND pv.pv_id = wip.pv_id "&_
+                    "    AND (pl.operation IS NULL " &_
-                                    "         AND pkg.pkg_id = pv.pkg_id "&_
+                    "    OR pl.operation    = 'R') " &_
+                    "    ) " &_
+                    "  ) " &_
-                                    "         AND pv.pv_id (+) = lcng.pv_id "&_
+                    "SELECT DISTINCT pv.pv_id, " &_
+                    "  pkg.pkg_name, " &_
+                    "  pv.pkg_version, " &_
+                    "  pv.v_ext, " &_
+                    "  pv.pv_description, " &_
-                                    "         AND lcng.licence (+) = lcs.licence "&_
+                    "  lcs.name AS licenceName , " &_
+                    "  CASE " &_
+                    "    WHEN al.NAME  IS NOT NULL " &_
-                                    "      UNION "&_
+                    "    AND lcs.name  IS NOT NULL " &_
-                                    "      SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, lcs.name AS licenceName"&_
+                    "    AND ( lcs.name = al.NAME ) " &_
+                    "    THEN NULL " &_
+                    "    ELSE al.NAME " &_
+                    "  END AS OTHERLICENSES " &_
+                    "FROM AllPvIDs rc, " &_
-                                    "        FROM planned pl, package_versions pv, packages pkg, licencing lcng, licences lcs"&_
+                    "  package_versions pv, " &_
+                    "  packages pkg, " &_
-                                    "       WHERE pl.rtag_id = "& CStr(NNrtag_id) &_
+                    "  licencing lcng, " &_
+                    "  licences lcs, " &_
+                    "  AllPkgLic al " &_
-                                    "         AND pv.pv_id = pl.pv_id "&_
+                    "WHERE pv.pv_id   = rc.pv_id " &_
-                                    "         AND pkg.pkg_id = pv.pkg_id "&_
+                    "AND pkg.pkg_id   = pv.pkg_id " &_
-                                    "         AND (pl.operation IS NULL OR pl.operation = 'R') "&_
+                    "AND pv.pv_id     = lcng.pv_id (+) " &_
+                    "AND lcng.licence = lcs.licence (+) " &_
-                                    "         AND pv.pv_id (+) = lcng.pv_id "&_
+                    "AND pv.pkg_id    = al.pkg_id(+) " &_
-                                    "         AND lcng.licence (+) = lcs.licence "&_
+                    "AND ((lcng.licence is not null) OR ('" & bShowAll & "' is not null)) " &_
-                                    ") ORDER BY UPPER(pkg_name), UPPER(v_ext), pv_id DESC, UPPER(licenceName)"
+                    "ORDER BY Upper( pkg.pkg_name), " &_
+                    "  Upper(pv.pkg_version) "
 End Function
 '--------------------------------------------------------------------------------------------------------------------------
 '  PV_ID_ListHTML
+'
 Function PV_ID_ListHTML
    Dim rsQry
    Dim html_string
+   OraDatabase.Parameters.Add "RTAG_ID", parRtag_Id, ORAPARM_INPUT, ORATYPE_NUMBER
    Set rsQry = OraDatabase.DbCreateDynaset( release_licencing_query_string(parRtag_Id), cint(0) )
+   OraDatabase.Parameters.Remove "PV_ID"
    '--- Render rows ---
    Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
       ' BEGIN ROW
       html_string = html_string & "<tr>"
       ' PACKAGE NAME
-      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("pkg_name") & "</td>"
+      html_string = html_string & "<td nowrap class='body_rowg'>"
+      html_string = html_string & "<a href=dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id & ">" & rsQry("pkg_name") & "</a>"
+      html_string = html_string & "</td>"
       ' PACKAGE VERSION
       If IsNull(rsQry("v_ext")) Then
          html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("pkg_version") & "</td>"
       Else
       End If
       ' PACKAGE EXTENSION
       html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("v_ext") & "</td>"
+      ' PACKAGE Short Description
+      html_string = html_string & "<td class='body_rowg'>" & rsQry("pv_description") & "</td>"
       ' LICENCE NAME
       html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("licenceName") & "</td>"
+      ' Other Licenses
+      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("otherlicenses") & "</td>"
+      ' Edit License
+      Dim sonclick
+      sonclick="""MM_openVixIFrame('_wform_change_licence.asp?pv_id="& rsQry("pv_id") &"&rtag_id="& parRtag_id &"','Change License')"""
+      Dim data
+      If canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer") Then
+        data = "<a href='javascript:;' onClick=" & sonclick & " class='body_txt'>" &_
+               "<img src='images/i_edit.gif' width='12' height='12' border='0'>" &_
+               "</a>"
+     Else
+        data = "<img src='images/i_edit_disable.gif' width='12' height='12' border='0'>"
+     End If
+      html_string = html_string & "<td nowrap class='body_rowg'>" & data & "</td>"
       ' END ROW
       html_string = html_string & "</tr>"
       rsQry.MoveNext
 <script language="JavaScript" src="scripts/remote_scripting.js"></script>
 <!-- DROPDOWN MENUS -->
 <!--#include file="_jquery_includes.asp"-->
 <!--#include file="_menu_def.asp"-->
 <script language="JavaScript1.2" src="images/popup_menu.js"></script>
+<!-- TIPS -->
+<script language="JavaScript" src="images/tipster.js"></script>
+<script language="JavaScript" src="images/_help_tips.js"></script>
+<script language="JavaScript" type="text/javascript">
+<!--
+formTips.tips.h_licenses       = stdTip(300, 'License', 'A list of licenses found on this version of this package' +
+                                                          '<p>Licenses are specified for a specific version of a package.' +
+                                                          '<p>A package may have several licenses and the packages licenses may chnage over time.'
+                                                          );
+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' +
+                                                          'for this package.' +
+                                                          '<p>Licenses are specified for a specific version of a package.' +
+                                                          '<p>A package may have several licenses and the packages licenses may chnage over time.'
+                                                          );
+</script>
 </head>
 <!-- HEADER -->
 <!--#include file="_header.asp"-->
 <!-- BODY ---->
    Call objFormComponent.FormStart()
    %>
    <tr>
       <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
       <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
-         <table width="10" border="0" cellspacing="0" cellpadding="0">
+         <table width="95%" border="0" cellspacing="0" cellpadding="0">
             <tr>
                <td width="1%"></td>
                <td width="100%">
                   <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                   <!--#include file="messages/_msg_inline.asp"-->
                   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                   <br>
                   <table width="100%"  border="0" cellspacing="2" cellpadding="0">
                      <tr>
-                        <td width="9%" valign="top"></td>
+                        <td valign="top"></td>
                         <tr>
                            <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Name</td>
                            <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Version</td>
                            <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package Extension</td>
+                           <td valign="top" background="images/bg_table_col.gif" class="body_col">Short Description</td>
+                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Licences<%=Quick_Help("h_licenses")%></td>
+                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Other Licenses<%=Quick_Help("h_other")%></td>
-                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Licences</td>
+                           <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Edit</td>
                            <td valign="top">
                         </tr>
                         <%=PV_ID_ListHTML()%>
                         <tr>
                            <td class="form_iname">&nbsp;</td>
                <td background="images/lbox_bgside_white.gif">&nbsp;</td>
             </tr>
             <tr>
                <td background="images/bg_action_norm.gif" ></td>
                <td align="right" background="images/bg_action_norm.gif" >
-                  <input name="btn_submit" type="reset" class="form_btn" value="OK", onClick="history.back();">
+                  <input name="btn_submit" type="reset" class="form_btn" value="OK", onClick="location.href='<%=sPrevPage%>';">
+                  <%If IsEmpty(bShowAll) Then%>
+                  <input name="showAll" type="submit" class="form_btn" value="Show All">
+                  <%Else%>
+                  <input name="showNone" type="submit" class="form_btn" value="Hide Unspecified">
+                  <%End If%>
                </td>
+                  <input name="prevPage" type="hidden" value="<%=sPrevPage%>">
                <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
             </tr>
             <tr>
                <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
                <td background="images/lbox_bg_blue.gif"></td>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_view_release_licencing.asp – Rev 6070 → 6077