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

 Call objPMod.StoreParameter ( "rfile", "form_view_release_licencing.asp" )
 '------------ ACCESS CONTROL ------------------
 %>
 <!--#include file="_access_control_login.asp"-->
 <!--#include file="_access_control_general.asp"-->
-<!--#include file="_access_control_project.asp"-->
 <%
 '------------ Variable Definition -------------
 Dim bShowAll
 Dim bShowAny
-Dim sPrevPage
-Dim bOrdered
+Dim bAllCots
-Dim sOrderCheck
 Dim sAllCheck
 Dim sAnyCheck
+Dim sAllCots
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 bShowAll = Request("ShowAll")
 bShowAny = Request("ShowAny")
-bOrdered = Request("ordered") <> ""
+bAllCots = Request("allCots")
-If bOrdered       Then sOrderCheck = " Checked "
+If bAllCots <> "" Then sAllCots = " Checked "
 If bShowAny <> "" Then sAnyCheck = " Checked "
 If bShowAll <> "" Then sAllCheck = " Checked "
 '--------------------------------------------------------------------------------------------------------------------------
 '  release_licencing_query_string
                     "WHERE pv.pv_id   = rc.pv_id " &_
                     "AND pkg.pkg_id   = pv.pkg_id " &_
                     "AND pv.pv_id     = lcng.pv_id (+) " &_
                     "AND lcng.licence = lcs.licence (+) " &_
                     "AND pv.pkg_id    = al.pkg_id(+) " &_
-                    "AND ((lcng.licence is not null) OR ('" & bShowAll & "' is not null) OR ( (al.name is not null) AND ('" & bShowAny & "' is not null) )) "
-    If bOrdered Then
+                    "AND ( " &_
-        release_licencing_query_string = release_licencing_query_string &_
+                        "(lcng.licence is not null) OR ('" & bShowAll & "' is not null)" &_
-                    "ORDER BY Upper(licenceName), Upper( pkg.pkg_name), " &_
+                        " OR ( (al.name is not null) AND ('" & bShowAny & "' is not null) )" &_
-                    "  Upper(pv.pkg_version) "
+                        " OR ((UPPER(pv.v_ext) = '.COTS') AND ('" & bAllCots & "' is not null))" &_
-    Else
+                    ") " &_
-        release_licencing_query_string = release_licencing_query_string &_
                     "ORDER BY Upper( pkg.pkg_name), " &_
                     "  Upper(pv.pkg_version) "
-    End If
 End Function
 '--------------------------------------------------------------------------------------------------------------------------
 '  PV_ID_ListHTML
+'
 '  DESCRIPTION
 '     Constructs the HTML to render the rows of package names, versions and extensions, and licences
+'
-Function PV_ID_ListHTML
+Sub 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 class='csvData'>"
+      Response.Write "<tr class='csvData body_rowg top'>"
       ' PACKAGE NAME
-      html_string = html_string & "<td nowrap class='body_rowg'>"
+      Response.Write "<td>"
-      html_string = html_string & "<a href=dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id & ">" & rsQry("pkg_name") & "</a>"
+      Response.Write "<a href=dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id & ">" & rsQry("pkg_name") & "</a>"
-      html_string = html_string & "</td>"
+      Response.Write "</td>"
       ' PACKAGE VERSION
       If IsNull(rsQry("v_ext")) Then
-         html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("pkg_version") & "</td>"
+         Response.Write "<td>" & rsQry("pkg_version") & "</td>"
       Else
-         html_string = html_string & "<td nowrap class='body_rowg'>" & Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) ) & "</td>"
+         Response.Write "<td>" & Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) ) & "</td>"
       End If
       ' PACKAGE EXTENSION
-      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("v_ext") & "</td>"
+      Response.Write "<td>" & rsQry("v_ext") & "</td>"
       ' PACKAGE Short Description
-      html_string = html_string & "<td class='body_rowg'>" & rsQry("pv_description") & "</td>"
+      Response.Write "<td>" & rsQry("pv_description") & "</td>"
       ' LICENCE NAME
-      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("licenceName") & "</td>"
+      Response.Write "<td>" & rsQry("licenceName") & "</td>"
       ' Other Licences
-      html_string = html_string & "<td nowrap class='body_rowg'>" & rsQry("otherlicenses") & "</td>"
+      Response.Write "<td>" & 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
                "</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>"
+      Response.Write "<td>" & data & "</td>"
       ' END ROW
-      html_string = html_string & "</tr>"
+      Response.Write "</tr>"
       rsQry.MoveNext
-      ' ROW SEPERATOR
-      If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
-         html_string = html_string & "<tr><td colspan='8' style='border-bottom: 1pt solid #dad7c8;'></td></tr>"
-      End If
    Loop
    ' destroy objects
    rsQry.Close()
    Set rsQry = nothing
-   ' return result
-   PV_ID_ListHTML = html_string
-End Function
+End Sub
 '--------------------------------------------------------------------------------------------------------------------------
-'----------------------------------------------
 Sub LeftPanelContent
    objFormComponent.FormName = "FormName"
    objFormComponent.Method = "get"
    objFormComponent.Action = ScriptName
    Call objFormComponent.FormStart()
 %>
 <fieldset class="body_rowg fset">
     <legend>Options</legend>
-    <input     name="ordered" type="checkbox" class="form_btn" <%=sOrderCheck%> value=1 onChange="this.form.submit()">Ordered
+        <input name="showAny" type="checkbox" class="form_btn" <%=sAnyCheck%> value=1 onChange="this.form.submit()">Show Any<%=Quick_Help("h_showAny")%>
-    <br><input name="showAny" type="checkbox" class="form_btn" <%=sAnyCheck%>   value=1 onChange="this.form.submit()">Show Any<%=Quick_Help("h_showAny")%>
+    <br><input name="allCots" type="checkbox" class="form_btn" <%=sAllCots%>  value=1 onChange="this.form.submit()">Show All COTS<%=Quick_Help("h_allCots")%>
-    <br><input name="showAll" type="checkbox" class="form_btn" <%=sAllCheck%>   value=1 onChange="this.form.submit()">Show All<%=Quick_Help("h_showAll")%>
+    <br><input name="showAll" type="checkbox" class="form_btn" <%=sAllCheck%> value=1 onChange="this.form.submit()">Show All<%=Quick_Help("h_showAll")%>
     <br><input name="rtag_id" type="hidden" value=<%=parRtag_Id%>
 </fieldset>
    <%
    Call objFormComponent.FormEnd()
    '-- FROM END ----------------------------------------------------------------------------------------------------------------
    %>
             <div class="rounded_box">
                <div style="background-color: white;border-left: white solid 10px;border-right: white solid 10px;">
                     <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                     <!--#include file="messages/_msg_inline.asp"-->
                     <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-                    <table width="100%" class="embedded_table etable">
+                    <table width="100%" class="embedded_table etable underline" id='pkgLicences'>
-                        <tr>
-                           <td valign="top"></td>
+                        <thead class="body_hcol">
-                           <tr>
+                            <tr>
-                              <th valign="top" nowrap class="body_hcol">Package Name</th>
+                              <th valign="top" nowrap >Package Name</th>
-                              <th valign="top" nowrap class="body_hcol">Package Version</th>
+                              <th valign="top" nowrap >Package Version</th>
-                              <th valign="top" nowrap class="body_hcol">Package Extension</th>
+                              <th valign="top" nowrap >Package Extension</th>
-                              <th valign="top"        class="body_hcol">Short Description</th>
+                              <th valign="top"        >Short Description</th>
-                              <th valign="top" nowrap class="body_hcol">Licences<%=Quick_Help("h_licences")%></th>
+                              <th valign="top" nowrap >Licences<%=Quick_Help("h_licences")%></th>
-                              <th valign="top" nowrap class="body_hcol">Other Licences<%=Quick_Help("h_other")%></th>
+                              <th valign="top" nowrap >Other Licences<%=Quick_Help("h_other")%></th>
-                              <th valign="top" nowrap class="body_hcol noCsv">Edit</th>
+                              <th valign="top" nowrap class="noCsv">Edit</th>
                            </tr>
+                        </thead>
+                        <tbody>
-                           <%=PV_ID_ListHTML()%>
+                           <%Call PV_ID_ListHTML%>
-                        </tr>
+                        </tbody>
                     </table>
                </div>
             </div>
          </td>
       </tr>
       <meta http-equiv="Pragma" content="no-cache">
       <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
       <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
       <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
       <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
-<script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
+      <script language="JavaScript" src="scripts/remote_scripting.js?ver=<%=VixVerNum%>"></script>
       <!-- DROPDOWN MENUS -->
+      <%bJqueryDataTables = TRUE%>
-<%bCsvExport = True%>
+      <%bCsvExport = True%>
       <!--#include file="_jquery_includes.asp"-->
       <!--#include file="_menu_def.asp"-->
       <script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
 <!-- TIPS -->
 <script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
                                                           '<p>A package may have several licences and the packages licences may change over time.'
                                                           );
 formTips.tips.h_showAny       = stdTip(300, 'Show Any', 'Show packages, in this Release, that have a licence in any release, not just this release.');
 formTips.tips.h_showAll       = stdTip(300, 'Show All', 'Show all packages in this Release, not just those with a licence.');
+formTips.tips.h_allCots       = stdTip(300, 'All COTS', 'Force the inclusion of COTS packages as these should have licencing information.');
+</script>
+<script language="JavaScript" type="text/javascript">
+	$(document).ready(function() {
+		/* Init DataTables */
+        table = $("#pkgLicences").DataTable({
+            "paging":   false,
+            "info":     true,
+            dom: "frti",
+            ordering: true,
+            order: [[ 0, "asc" ]],
+            lengthChange : false,
+            columns: [
+               { width: "5%", className: "dt-nowrap"},
+               { width: "5%", className: "dt-nowrap"},
+               { width: "1%", className: "dt-nowrap"  },
+               { orderable: false, searchable: false },
+               { className: "dt-nowrap" },
+               { width: "1%", orderable: true, className: "dt-nowrap" },
+               { width: "40px", orderable: false, searchable: false },
+           ],
+        });
+    });
 </script>
    </head>
    <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
       <!-- HEADER -->
       <!--#include file="_header.asp"-->
                 <%Call MainPanelContent%>
             </td>
          </tr>
          <tr>
             <td class="panel_bg" valign="bottom" align="center" height="350">
-                <img src="images/img_gears.png" vspace="20" hspace="30"></td>
+                <img src="images/img_padlock.png" vspace="20" hspace="30"></td>
          </tr>
       </table>
       <!-- FOOTER -->
       <!--#include file="_footer.asp"-->
    </body>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_view_release_licencing.asp – Rev 6699 → 6701