Subversion Repositories DevTools

<%
'=====================================================
'|                                                   |
'|                 REPORTS DEFINITION                |
'|                                                   |
'=====================================================

' Good idea to set when using redirect
Response.Expires = 0   ' always load the page, dont store
Response.buffer = True

'To enable the script timeout to 10 mins
Server.ScriptTimeout=600
%>

<%
'------------ ACCESS CONTROL ------------------
%>

<%
'------------ Variable Definition -------------
Dim rsQry
Dim rsTemp
Dim parPv_id, parExt
Dim objReleaseContent
Dim aReleaseContent
Dim objPackageDetails
Dim outobjDetails
Dim pvIdList
Dim dpv_id
Dim BldStd
'------------ Constants Declaration -----------
const MAX_ROWS_PER_FLUSH = 100
'------------ Variable Init -------------------
parBom_id = Request("bom_id")
parExt = Request("ext")
Set objReleaseContent = CreateObject("Scripting.Dictionary")
Set objPackageDetails = CreateObject("Scripting.Dictionary")
Set outobjDetails = CreateObject("Scripting.Dictionary")
'----------------------------------------------------------------------------------------------------------------------------------------
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
   Dim rsQry, query
   query = _
   " SELECT pkg.pkg_name, pv.* "&_
   "  FROM PACKAGES pkg,"&_
   "       PACKAGE_VERSIONS pv"&_
   " WHERE pv.pv_id = "& nPv_id &_
   "   AND pv.pkg_id = pkg.pkg_id   "

   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)

   oPackageDetails.RemoveAll

   If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
      oPackageDetails("pkg_name") = rsQry("pkg_name")
      oPackageDetails("pkg_version") = rsQry("pkg_version")
      oPackageDetails("v_ext") = rsQry("v_ext")
      oPackageDetails("pv_description") = rsQry("pv_description")
      oPackageDetails("pv_overview") = rsQry("pv_overview")
      oPackageDetails("src_path") = rsQry("src_path")
      oPackageDetails("pkg_label") = rsQry("pkg_label")
      oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")

   End If

   rsQry.Close()
   Set rsQry = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Build_Std ( nPv_id )
   SQL_Build_Std = _
   " SELECT bs.bs_name"&_
   "  FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv,"&_
   "       RELEASE_MANAGER.BUILD_STANDARDS bs"&_
   " WHERE pv.PV_ID = "& nPv_id &_
   "   AND pv.BS_ID = bs.BS_ID "
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Build_Env ( nPv_id )
   SQL_Build_Env = _
   " SELECT bm.bm_name"&_
   "  FROM  RELEASE_MANAGER.PACKAGE_BUILD_INFO pbi,"&_
   "        RELEASE_MANAGER.BUILD_MACHINES bm"&_
   " WHERE pbi.PV_ID = "& nPv_id &_
   "   AND pbi.BM_ID = bm.BM_ID "&_
   " ORDER BY UPPER(bm.BM_NAME) "
End Function

'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Modules (aobjReleaseContent)
  Dim pv_id,sWhere,i
  Const MAX_IDS_PER_LIST = 100
  ' Create where clause for pv_id
  ' Note: As Oracle has a limit of 1000 values in an sql IN clause, the pv_id hash table
  ' will be converted into multiple sql IN clauses if required.
  sWhere = "dep.PV_ID IN ("
  i = 0
  For Each pv_id in aobjReleaseContent.Keys
    If (i > 0) and (i Mod MAX_IDS_PER_LIST = 0) Then
      sWhere = Mid(sWhere,1,Len(sWhere) - 1) & ") OR dep.PV_ID IN ("
    End If
    sWhere = sWhere & pv_id & ","
    i = i + 1
  Next

  ' if list is empty then exlude all rows
  If aobjReleaseContent.Count = 0 Then
    sWhere = sWhere & "-1" & ","    
  End If

  sWhere = Mid(sWhere,1,Len(sWhere) - 1) & ")"

  SQL_Modules   = _
  "SELECT DISTINCT"&_
    "   qry.DPV_ID "&_
    " FROM ("&_
    "      SELECT dep.*,"&_
    "             LEVEL AS LEVEL_NUM"&_
    "        FROM PACKAGE_DEPENDENCIES dep"&_
    "  START WITH "&_
    "  " & sWhere &_
    "     CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
    "   ) qry,"&_
    "   PACKAGES pkg,"&_
    "   PACKAGE_VERSIONS pv"&_
    " WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
End   Function
'----------------------------------------------------------------------------------------------------------------------------------------
Function SQL_Build_Dependencies ( nPv_id )
   SQL_Build_Dependencies = _
   " SELECT dpkg.pkg_name, dpv.pkg_version"&_
   "     FROM PACKAGE_DEPENDENCIES dep,"&_
   "          PACKAGES dpkg,"&_
   "          PACKAGE_VERSIONS dpv"&_
   "    WHERE dep.pv_id = "& nPv_id &_
   "      AND dep.DPV_ID = dpv.pv_id"&_
   "      AND dpv.pkg_id = dpkg.pkg_id   "&_
   " ORDER BY UPPER(dpkg.pkg_name) "
End Function
'----------------------------------------------------------------------------------------------------------------------------------------
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
   Dim rsQry, query



   query = _
   " SELECT qry.prod_id"&_
   "  FROM ("&_
   "         SELECT DISTINCT"&_
   "               osc.PROD_ID,"&_
   "               pkg.pkg_name,"&_
   "               pv.pkg_version,"&_
   "               1   as   seq_num"&_
   "          FROM bom_contents bc,"&_
   "               operating_systems os, "&_
   "               os_contents osc,"&_
   "               PACKAGES pkg,"&_
   "               PACKAGE_VERSIONS pv,"&_
   "               PRODUCT_DETAILS pd"&_
   "         WHERE osc.os_id = os.os_id "&_
   "           AND os.node_id = bc.node_id"&_
   "           AND bc.bom_id =   "&   nBom_id &_
   "           AND pd.PROD_ID (+) = osc.PROD_ID"&_
   "           AND pv.pkg_id = pkg.pkg_id"&_
   "           AND osc.prod_id = pv.pv_id "&_
   "           AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_
   "         UNION   "&_
   "         SELECT DISTINCT bec.prod_id,  pkg.pkg_name, pkg_version, 2   as   seq_num"&_
   "           FROM boms bm,"&_
   "                bom_contents bc,"&_
   "                network_nodes nn,"&_
   "                operating_systems os,"&_
   "                os_base_env obe,"&_
   "                base_env_contents bec,"&_
   "                PACKAGES pkg,"&_
   "                package_versions pv,"&_
   "                base_env be,"&_
   "                bos_types bt,"&_
   "                PRODUCT_DETAILS pd"&_
   "          WHERE bm.bom_id =   "&   nBom_id   &_
   "            AND bm.bom_id = bc.bom_id"&_
   "            AND nn.node_id = bc.node_id"&_
   "            AND os.node_id = nn.node_id"&_
   "            AND obe.os_id = os.os_id"&_
   "            AND pd.PROD_ID (+) = bec.PROD_ID"&_
   "            AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_
   "            AND bec.base_env_id = obe.base_env_id"&_
   "            AND bec.prod_id = pv.pv_id"&_
   "            AND pkg.pkg_id = pv.pkg_id"&_
   "            AND be.base_env_id = obe.base_env_id"&_
   "            AND bt.bos_id = be.bos_id"&_
   "       ) qry  "&_
   " ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"

   Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
      oReleaseContent( CStr( rsQry("prod_id")) ) = ""
      rsQry.MoveNext()
   WEnd

   rsQry.Close()
   Set rsQry = Nothing
End Sub
'----------------------------------------------------------------------------------------------------------------------------------------

%>

<%
Sub Reports_List ( SSgroup )
   Dim repNum
%>  <!-- REPORTS LIST -------------------------------------------------------->
   <%Select Case SSgroup%>
   <%Case "Advanced_Search"%>
   <%repNum = 9%>
   <strong>BOM History Tracker</strong><br>
   Use this report to find what changes occured in a BOM within specified date range.<br>
   <a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%repNum = 4%>
   <strong>Find A Product</strong><br>
    Use this advanced search to find a product in Deployment Manager.<br>
    <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%Case "Admin_Reports"%>
   <strong>All Packages by Project by Version Tree by Release</strong><br>
   CSV output of all packages used in Release Manager per Project.<br>
   <a href="rep_all_packages_by_project_by_vtree_by_release.asp" target="_blank" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <strong>All Runtime Dependencies by Project by Version Tree by Release</strong><br>
   CSV output of all runtime dependencies used in Release Manager per Project.<br>
   <a href="rep_all_runtime_dependencies_by_project_by_vtree_by_release.asp" target="_blank" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%repNum = 6%>
   <strong>Unused Packages</strong><br>
   All packages (Not Products) with no entries in "Used By" tab.<br>
    Use this report to help you clean up a release and remove all potentially unused packages.<br>
    <a href="rep_obsolete_packages.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%Case "Escrow"%>
   <%repNum = 11%>
   <strong>Escrow Report</strong><br>
   List of all Products/Patches for the BOM including modules. Use this report to provide a build roadmap.<br>
   <a href="escrow_report.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%Case "Sbom_Issues"%>
   <%repNum = 12%>
   <strong>Sbom Issues Report</strong><br>
   List of all Products/Patches for the BOM and the issues that they and their dependencies contain.<br>
   <a href="rep_issues.asp" class="txt_linked" target="_blank">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%Case "Bom_Difference"%>
   <strong>BOM Version Difference Tool</strong><br>
   Use this tool to find what changes occured in a BOM compared to another BOM. <br>
   A detailed report of changes between two BOMs can also be emailed upon user request.<br>
    <a href="diff.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%Case "Bom_Merge_Manager"%>
   <strong>BOM Merge Manager Tool</strong><br>
   Use this tool to merge in a change from one BOM to another. <br>
    <a href="diffmerge.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
   <%Case Else%>
   <b>&laquo; Select reporting category.</b>
   <%End Select%>
   <!-- REPORTS LIST END-------------------------------------------------------->

<%End Sub%>

<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Projects ( NNproj_id, BBallow_all )
   Dim rsTemp, Query_String

   Query_String = _
   "SELECT * FROM DM_PROJECTS ORDER BY proj_name ASC"
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Response.write "<select name='FRproj_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRvtree_id=&FRrtag_id=&group="& Request("group") &"&repnum="& Request("repnum") &"&FRproj_id=',this,0)"" class='form_item'>"
      If BBallow_all Then
         Response.write "<option value='-1'>ALL</option>"
      Else
         Response.write "<option></option>"
      End If

      While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
         If CDbl(NNproj_id) = CDbl(rsTemp.Fields("proj_id")) Then
              Response.write "<option value='"& rsTemp.Fields("proj_id") &"' selected>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
           Else
            Response.write "<option value='"& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</option>"
         End If
         rsTemp.MoveNext
      WEnd
   Response.write "</select>"

   rsTemp.Close
   Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Version_Trees ( NNproj_id, NNvtree_id, BBallow_all )
   Dim rsTemp, Query_String

   Query_String = _
   "SELECT vtree_id, vtree_name FROM vtrees WHERE hide = 'N' AND proj_id = "& NNproj_id &" ORDER BY vtree_id ASC"
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Response.write "<select name='FRvtree_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?FRproj_id="& NNproj_id &"&FRrtag_id=&group="& Request("group") &"&repnum="& Request("repnum") &"&FRvtree_id=',this,0)"" class='form_item'>"
      If BBallow_all Then
         Response.write "<option value='-1'>ALL</option>"
      Else
         Response.write "<option></option>"
      End If

      If NNproj_id <> -1 Then
         While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            If CDbl(NNvtree_id) = CDbl(rsTemp.Fields("vtree_id")) Then
                 Response.write "<option value='"& rsTemp.Fields("vtree_id") &"' selected>"& (rsTemp.Fields("vtree_name")) &"</option>"
              Else
               Response.write "<option value='"& rsTemp.Fields("vtree_id") &"'>"& (rsTemp.Fields("vtree_name")) &"</option>"
            End If
            rsTemp.MoveNext
         WEnd
      End If
   Response.write "</select>"

   rsTemp.Close
   Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Release_Labels ( NNproj_id, NNrtag_id, BBallow_all )
   Dim rsTemp, Query_String

   Query_String = _
   "SELECT * FROM BRANCHES WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Response.write "<select name='FRrtag_id' onChange=""Cascaded_Menu('parent','"& SCRIPT_NAME &"?FRproj_id="& NNproj_id &"&group="& Request("group") &"&repnum="& Request("repnum") &"&FRrtag_id=',this,0)"" class='form_item'>"
   If BBallow_all Then
      Response.write "<option value='-1'>ALL</option>"
   Else
      Response.write "<option></option>"
   End If

      If NNproj_id <> -1 Then
         While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
                 Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
              Else
               Response.write "<option value='"& rsTemp.Fields("branch_id") &"'>"& (rsTemp.Fields("branch_name")) &"</option>"
            End If
            rsTemp.MoveNext
         WEnd
      End If
   Response.write "</select>"

   rsTemp.Close
   Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_SBOM_Version ( NNproj_id, NNrtag_id, BBallow_all, NNversion )
   Dim rsTemp, Query_String

   Query_String = _
   "SELECT B.BOM_ID, B.BRANCH_ID, B.BOM_VERSION ||'.'||B.BOM_LIFECYCLE AS VERSION, BN.BOM_NAME FROM BOMS B, BOM_NAMES BN WHERE B.BRANCH_ID ="&NNrtag_id&" AND BN.BOM_NAME_ID = B.BOM_NAME_ID ORDER BY VERSION"


   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))


   Response.write "<select name='FRversion' class='form_item'>"
   If BBallow_all Then
      Response.write "<option value='-1'>ALL</option>"
   Else
      Response.write "<option></option>"
   End If

      If NNrtag_id <> -1 Then
         While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            If CStr(NNversion) = CStr(rsTemp.Fields("version")) Then
                 Response.write "<option value='"& rsTemp.Fields("version") &"' selected>"& rsTemp("BOM_NAME") &" "& (rsTemp.Fields("version")) &"</option>"
              Else
               Response.write "<option value='"& rsTemp.Fields("version") &"'>"& rsTemp("BOM_NAME") &" "& (rsTemp.Fields("version")) &"</option>"
            End If
            rsTemp.MoveNext
         WEnd
      End If
   Response.write "</select>"
   rsTemp.Close
   Set rsTemp = nothing

End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
   Dim rsTemp, Query_String

   Query_String = _
   "SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
   Response.write "<select name='FRbranch_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?FRproj_id="& NNproj_id &"&group="& Request("group") &"&repnum="& Request("repnum") &"&FRrtag_id=',this,0)"" class='form_item'>"
   If BBallow_all Then
      Response.write "<option value='-1'>ALL</option>"
   Else
      Response.write "<option></option>"
   End If

      If NNproj_id <> -1 Then
         While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            If CDbl(NNrtag_id) = CDbl(rsTemp.Fields("branch_id")) Then
                 Response.write "<option value='"& rsTemp.Fields("branch_id") &"' selected>"& (rsTemp.Fields("branch_name")) &"</option>"
              Else
               Response.write "<option value='"& rsTemp.Fields("branch_id") &"'>"& (rsTemp.Fields("branch_name")) &"</option>"
            End If
            rsTemp.MoveNext
         WEnd
      End If
   Response.write "</select>"

   rsTemp.Close
   Set rsTemp = nothing
End Sub
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Get_Base_Views ( nRtag_id, nBase_view_id, BBallow_all )
   Dim rsTemp, Query_String

   Query_String = _
   "SELECT DISTINCT vi.view_id, vi.view_name"&_
   "  FROM VIEWS vi,"&_
   "       RELEASE_CONTENT rc"&_
   " WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
   "   AND rc.rtag_id = "& nRtag_id &_
   "ORDER BY UPPER( vi.view_name )"

   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

   Response.write "<select name='FRbase_view_id' class='form_item'>"
   If BBallow_all Then
      Response.write "<option value='-1'>ALL</option>"
   Else
      Response.write "<option></option>"
   End If

      If nRtag_id <> -1 Then
         While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
            If CDbl(nBase_view_id) = CDbl(rsTemp.Fields("view_id")) Then
                 Response.write "<option value='"& rsTemp.Fields("view_id") &"' selected>"& (rsTemp.Fields("view_name")) &"</option>"
              Else
               Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& (rsTemp.Fields("view_name")) &"</option>"
            End If
            rsTemp.MoveNext
         WEnd
      End If
   Response.write "</select>"

   rsTemp.Close
   Set rsTemp = nothing
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Packages Using Ignore Feature
' Description      :   Lists packages which use "Ignore Warning"
'                  feature on their dependencies.
' INPUT            :   Project, Vesion Tree, Release Label
'==================================================================================
Sub Packages_Using_Ignore_Feature ( SSsection, NNproj_id, NNrtag_id )
   Dim Query_String, rsRep
   Const Allow_All = TRUE

   If NNproj_id = "" Then NNproj_id = -1
   If NNrtag_id = "" Then NNrtag_id = -1

   If SSsection = "TITLE" Then
      Response.write "Packages Using 'Ignore Warnings' Feature"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( NNproj_id, Allow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Allow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      Query_String = ReadFile( rootPath & "queries\rep_packages_using_ignore_feature.sql" )

      OraDatabase.Parameters.Add "PROJ_ID", NNproj_id, ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
         </tr>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currRtag_id
         currRtag_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY RTAG_ID -----------------
            If CDbl(currRtag_id) <> CDbl(rsRep("rtag_id")) Then
               %>
               <tr>
                  <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td></td>
               </tr>
               <tr>
                  <td colspan="4" nowrap class="body_scol"><%=rsRep("proj_name")  &" &gt; "& rsRep("rtag_name")%></td>
               </tr>
               <%
               currRtag_id = CDbl(rsRep("rtag_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td class="body_row"></td>
               <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_name")%></a></td>
               <td nowrap><a href="dependencies.asp?rtag_id=<%=rsRep("rtag_id")%>&pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_version")%></a></td>
               <td class="body_row"></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td></td>
         </tr>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Current State of Release
' Description      :   Show all packages in a release with their state, owner and modifier
' Form Input      :   Project, Vesion Tree, Release Label
' SQL INPUT         :   rtag_id
'==================================================================================
Sub Current_State_of_Release ( SSsection, NNproj_id, NNrtag_id, NNpkg_states )
   Dim Query_String, rsRep
   Const Disallow_All = FALSE

   If NNproj_id = "" Then NNproj_id = -1
   If NNrtag_id = "" Then NNrtag_id = -1
   If NNpkg_states = "" Then NNpkg_states = -1

   If SSsection = "TITLE" Then
      Response.write "Current State of Release"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Package States</td>
               <td class="form_field" nowrap>
                  <span style="border: 1px solid #808080;">&nbsp;OK&nbsp;<input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_OK%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_OK) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
                  <span style="border: 1px solid #808080;"><%=enum_imgCritical%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MAJOR%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MAJOR) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
                  <span style="border: 1px solid #808080;"><%=enum_imgWarning%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MINOR%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MINOR) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
                  <span style="border: 1px solid #808080;"><%=enum_imgCReady%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MAJOR_READY%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MAJOR_READY) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
                  <span style="border: 1px solid #808080;"><%=enum_imgWReady%><input type="checkbox" name="FRpkg_state" value="<%=enumPKG_STATE_MINOR_READY%>" <%If InStr( Request("FRpkg_state"), Cstr(enumPKG_STATE_MINOR_READY) ) > 0 Then%>checked<%End If%>></span>&nbsp;&nbsp;
               </td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      Query_String = ReadFile( rootPath & "queries\rep_details_current_status_of_release.sql" )
      Query_String = Replace ( Query_String, "/*PKG_STATES*/", NNpkg_states )

      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Owner&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Last Modifier&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
         </tr>
         <tr>
            <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currView_id
         currView_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='8' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY RTAG_ID -----------------
            If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
               %>
               <tr>
                  <td colspan="7" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td></td>
               </tr>
               <tr>
                  <td colspan="8" nowrap class="body_scol"><%=rsRep("view_name")%></td>
               </tr>
               <%
               currView_id = CDbl(rsRep("view_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td class="body_row"></td>
               <td><%=DefineStateIcon ( rsRep("pkg_state"), rsRep("dlocked"), NULL, NULL, NULL, NULL )%></td>
               <%If rsRep("dlocked") = "Y" Then%>
                  <td align="center" class="form_item"><img src='images/i_locked.gif' width='7' height='10' hspace='6'></td>
               <%Else%>
                  <td align="center" class="form_item"><img src='images/spacer.gif' width='7' height='10' hspace='6'></td>
               <%End If%>
               <td nowrap class="body_row"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
               <td nowrap><a href="mailto:<%=rsRep("owner_email")%>" class="txt_linked"><%=rsRep("owner")%></a>&nbsp;&nbsp;&nbsp;</td>
               <td nowrap><a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
               <td class="body_row"><%=EuroDate( rsRep("insert_stamp") )%></td>
               <td class="body_row"></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Find ClearQuest Bugs / Issues Location
' Description      :   Locates bugs / issues imported from ClearQuest
' Form Input      :   CQ issue Database, CQ issue number list space separated
'==================================================================================
Sub Where_Are_Bugs_Located ( SSsection, NNiss_db, SSiss_num_list )
   Dim Query_String, rsRep

   If SSsection = "TITLE" Then
      Response.write "Find ClearQuest Bugs / Issues Location"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRiss_num_list','Issue Number','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
               <td width="100%">
                  <select name="FRiss_db" class="form_item">
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
                  </select>
               </td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field" valign="top">Issue Numbers</td>
               <td class="form_txt"><input type="text" name="FRiss_num_list" size="50" class="form_item" value="<%=SSiss_num_list%>"><br>
               HINTS:<br>
               - You can use * wildcard. e.g. *0123 or 0123* or *0123*<br>
               - Use space separated issue numbers for multiple search.</td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
      Set issNumDict = CreateObject("Scripting.Dictionary")


      '---- Find Issue numbers in ClearQuest ----
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
         iss_num_col = "new_num"
         SSsql = _
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
         " FROM CQ_DEVI.admin.software_issue si"&_
         " WHERE "
      End If


      '---- Split multiple search ----
      SSiss_num_list = Trim(SSiss_num_list)
      If InStr( SSiss_num_list, " " ) > 0 Then
         ' space separator found
         issARR = Split ( SSiss_num_list, " ")

         For Each num_item In issARR
            If num_item <> "" Then
               SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(num_item), "*", "%" ) &"') OR"
            End If
         Next

         SSsql = Left ( SSsql, Len(SSsql) - 2 )      ' Removes last OR

      Else
         SSsql = SSsql & " (si."& iss_num_col &" LIKE '"& Replace( SQLstring(SSiss_num_list), "*", "%") &"')"

      End If

      rsCQ.ActiveConnection = CQ_conn
      rsCQ.Source = SSsql
      rsCQ.CursorType = 0
      rsCQ.CursorLocation = 2
      rsCQ.LockType = 3
      rsCQ.Open()

      ' Get find results from CQ
      recCount = 1
      maxRecCount = 1000
      issNumDict.ADD "-1", "-1"      ' take care of no results
      While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (recCount < maxRecCount))
         issNumDict.ADD Cstr(rsCQ("iss_id")), Cstr(rsCQ("iss_num"))
         recCount = recCount + 1
         rsCQ.MoveNext
      WEnd

      rsCQ.Close
      Set rsCQ = nothing

      Query_String = ReadFile( rootPath & "queries\rep_where_are_bugs_located.sql" )
      Query_String = Replace ( Query_String, "/*ISS_DB*/", NNiss_db )
      Query_String = Replace ( Query_String, "/*ISS_ID_LIST*/", Join( issNumDict.Keys, ",") )

      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb">Issue Number&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Fixed At</td>
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Notes&nbsp;&nbsp;&nbsp;</td>
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
         </tr>
         <tr>
            <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currIss_id
         currIss_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY ISS_ID -----------------
            If Cstr(currIss_id) <> Cstr(rsRep("iss_id")) Then
               %>
               <tr>
                  <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td></td>
               </tr>
               <tr>
                  <td nowrap><a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=NNiss_db%>&iss_id=<%= rsRep("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="body_scol"><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" alt="See issue details."><%=issNumDict.Item ( Cstr ( rsRep("iss_id") ) )%></a></td>
                  <td colspan='4' class="body_scol"></td>
               </tr>
               <%
               currIss_id = Cstr(rsRep("iss_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td class="body_row"></td>
               <%If CDbl(rsRep("iss_state")) = enumISSUES_STATE_FIXED Then%>
                  <td align="right"><img src="images/i_tick.gif" width="7" height="7" hspace="6"></td>
               <%Else%>
                  <td align="right"><img src='images/spacer.gif' width='7' height='7' hspace='6'></td>
               <%End If%>
               <td nowrap class="body_row" valign="top"><a href="rep_find_package.asp?<%="group=Advanced_Search&repnum=4&action=true&FRpkg_name="& rsRep("pkg_name") &"&FRv_ext="& rsRep("v_ext")%>" class="txt_linked"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%><img src="images/i_drill_down.gif" width="12" height="14" hspace="3" border="0" align="absmiddle" alt="Find this package."></a></td>
               <td nowrap><%=rsRep("notes")%></td>
               <td class="body_row"></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="8" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
      <br>
      <br>
      <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
      <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Find a Package
' Description      :   Locate a package/product in Deployment Manager
' Form Input      :   Package Name, version extension
'==================================================================================
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
   Dim Query_String, rsRep, oRegExp


   If SSsection = "TITLE" Then
      Response.write "Find a Product"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field" valign="top">Product Name</td>
               <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
               HINTS:<br>
               - You can use * wildcard. e.g. *sec or port* or *pkgmnt*<br><br></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
               <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
               e.g. .mas or .lvs or .oso or blank etc.</td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      If SSpkg_name = "" Then SSpkg_name = "%"
      If SSv_ext = "" Then SSv_ext = "%"
      If Request("withwcard") <> "" Then SSpkg_name = "%"& Replace( SQLstring(SSpkg_name), "*", "") &"%"      'Place wild card automatically



      ' -- Check if this is PV_ID
      Set oRegExp = New RegExp

      oRegExp.Global = False   'Find only first match
      oRegExp.Pattern = "\D" 'Match number only


      If NOT oRegExp.Test(Request("FRpkg_name")) Then
         Query_String = ReadFile( rootPath & "queries\rep_find_package_by_pv_id.sql" )
         Query_String = Replace ( Query_String, "/*PV_ID*/", SQLstring(Request("FRpkg_name") )  )

      Else
         Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
         Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
         Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
      End If
      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb">Product Name and Version&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Location</td>
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
         </tr>
         <tr>
            <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currPv_id
         currPv_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='3' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY Package Version -----------------
            If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
               %>
               <tr>
                  <td colspan="2" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td></td>
               </tr>
               <tr>
                  <%If Request("withwcard") <> "" Then%>
                     <%' Highlight results for package search from index page%>
                     <td nowrap class="body_scol"><%=Highlight_Substring ( rsRep("pkg_name"), Replace( SQLstring(SSpkg_name), "%", "") )  &" "& rsRep("pkg_version")%></td>
                  <%Else%>
                     <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
                  <%End If%>
                  <td colspan='2' class="body_scol"></td>
               </tr>
               <%
               currPv_id = Cstr(rsRep("pv_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <%If NOT IsNull(rsRep("proj_name")) Then%>
               <tr>
                  <td class="body_row"></td>
                  <td nowrap class="body_row" valign="top"><%=rsRep("proj_name") &" &gt; "& rsRep("branch_name") &" &gt; "& rsRep("bom_name") &" "& rsRep("version") &" &gt;"& rsRep("node_name") &" &gt;"& rsRep("os_name") &" &gt;<a href='OsDefault.asp?bom_id="& rsRep("bom_id") &"&os_id="& rsRep("os_id") &"' class='txt_linked'>"& rsRep("pkg_name") &" "& rsRep("pkg_version") &"</a>"%></td>
                  <td class="body_row"></td>
               </tr>
            <%Else%>
               <tr>
                  <td class="body_row"></td>
                  <td class="body_row"></td>
                  <td class="body_row"></td>
               </tr>
            <%End If%>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close()
      Set rsRep = nothing
   End If

End Sub
%>
<%
'==================================================================================
' Report Name      :    Find Package Version History
' Description      :   Locate all package versions and their current location
' Form Input      :   Package Name, version extension
'==================================================================================
Sub Find_Package_Version_History ( SSsection, SSpkg_name, SSv_ext )
   Dim Query_String, rsRep


   If SSsection = "TITLE" Then
      Response.write "Find Package Version History"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
               <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
               HINTS:<br>
               - You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
               <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
               e.g. .mas or .lvs or .oso or blank etc.</td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
      If NOT CBool(Request("action")) Then Exit Sub

      If SSpkg_name = "" Then SSpkg_name = "%"
      If SSv_ext = "" Then SSv_ext = "%"

      Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
      Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
      Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Location</td>
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
         </tr>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currPv_id
         currPv_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY Package Version -----------------
            If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
               %>
               <tr>
                  <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td></td>
               </tr>
               <tr>
                  <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
                  <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
                  <td colspan='2' class="body_scol"></td>
               </tr>
               <%
               currPv_id = Cstr(rsRep("pv_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td class="body_row"></td>
               <td class="body_row"></td>
               <%If IsNull(rsRep("rtag_id")) Then%>
                  <td nowrap class="body_txt_gray" valign="top">Not Used!</td>
               <%Else%>
                  <td nowrap class="body_row" valign="top"><%=rsRep("proj_name") &" &gt; "& rsRep("vtree_name") &" &gt; "& rsRep("rtag_name") &" &gt; <a href='dependencies.asp?pv_id="& rsRep("pv_id") &"&rtag_id="& rsRep("rtag_id") &"' class='txt_linked'>"& rsRep("pkg_name") &" "& rsRep("pkg_version") &"</a>"%></td>
               <%End If%>
               <td class="body_row"></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Obsolete Packages
' Description      :   List packages that are not used (exclude products)
' INPUT            :   Project, Vesion Tree, Release Label
'==================================================================================
Sub Obsolete_Packages ( SSsection, NNproj_id, NNrtag_id )
   Dim Query_String, rsRep
   Const Allow_All = TRUE
   Const Disallow_All = FALSE

   If NNproj_id = "" Then NNproj_id = -1
   If NNrtag_id = "" Then NNrtag_id = -1

   If SSsection = "TITLE" Then
      Response.write "Unused Packages"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_Labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      Query_String = ReadFile( rootPath & "queries\rep_obsolete_packages.sql" )

      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Released&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Added to Release&nbsp;&nbsp;&nbsp;</td>
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
         </tr>
         <tr>
            <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currView_id
         currView_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY BASE VIEW  -----------------
            If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
               %>
               <tr>
                  <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td></td>
               </tr>
               <tr>
                  <td nowrap class="body_scol"><%=rsRep("view_name")%></td>
                  <td class="body_scol"></td>
                  <td class="body_scol"></td>
                  <td class="body_scol"></td>
                  <td class="body_scol"></td>
               </tr>
               <%
               currView_id = CDbl(rsRep("view_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td class="body_row"></td>
               <td nowrap class="body_row"><a href="used_by.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=NNrtag_id%>" class="txt_linked"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></a></td>
               <td nowrap class="body_row"><%=EuroDate( rsRep("modified_stamp") )%> by <a href="mailto:<%=rsRep("modifier_email")%>" class="txt_linked"><%=rsRep("modifier")%></a>&nbsp;&nbsp;&nbsp;</td>
               <td nowrap class="body_row"><%=EuroDate( rsRep("insert_stamp") )%> by <a href="mailto:<%=rsRep("insertor_email")%>" class="txt_linked"><%=rsRep("insertor")%></a>&nbsp;&nbsp;&nbsp;</td>
               <td class="body_row"></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Deployable Software Modules
' Description      :   Shows packages that are deployed to the customers and shows new packages marked as deployable.
' INPUT            :   Project, Vesion Tree, Release Label, Base View (hard-coded to PRODUCTS)
'==================================================================================
Sub Deployable_Software_Modules ( sSection, nProj_id,  nRtag_id, nBase_view_id )
   Dim Query_String, rsRep
   Const Allow_All = TRUE
   Const Disallow_All = FALSE

   If nProj_id = "" Then nProj_id = -1
   If nRtag_id = "" Then nRtag_id = -1

   If sSection = "TITLE" Then
      Response.write "Deployable Software Modules"
      Exit Sub
   End If


   If sSection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( nProj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_Labels ( nProj_id, nRtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Base View</td>
               <td>
                  <select name="noname" class='form_item' disabled>
                     <option>PRODUCTS</option>
                  </select>
               </td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="FRbase_view_id" value="<%=enumBASE_VIEW_PRODUCTS%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If sSection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub
      '--- New Deployable Modules ---
      Query_String = ReadFile( rootPath & "queries\rep_new_deployable_packages.sql" )

      OraDatabase.Parameters.Add "RTAG_ID",       nRtag_id,       ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "BASE_VIEW_ID",    nBase_view_id,    ORAPARM_INPUT, ORATYPE_NUMBER
      %>
      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td nowrap class="body_colb" colspan="3" background="images/bg_bage.gif">&nbsp;New Deployable Package</td>
         </tr>
         <tr>
            <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <tr>
            <td width="1%" class="body_txt">Package Name</td>
            <td width="1%" class="body_txt">Version</td>
            <td width="100%" class="body_txt">Last Modifier</td>
         </tr>
         <tr>
            <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
         %>
         <%If rsRep.RecordCount = 0 Then%>
            <tr>
               <td nowrap class="body_row" colspan="3">Found 0 records! </td>
            </tr>
         <%End If%>
         <%While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))%>
            <tr>
               <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="txt_linked"><img src="images/i_go2url.gif" width="14" height="14" hspace="3" border="0" align="absmiddle"><%=rsRep("pkg_name")%></a></td>
               <td nowrap class="body_row"><%=rsRep("pkg_version")%></td>
               <td nowrap class="body_row"><%=rsRep("full_name")%></td>
            </tr>
            <%rsRep.MoveNext
         WEnd
         rsRep.Close
         Set rsRep = Nothing%>
         <tr>
            <td background="images/bg_rep_line.gif" colspan="3"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         ' Go To Release link...
         Query_String = _
         " SELECT proj.PROJ_NAME, rt.RTAG_NAME"&_
         "   FROM PROJECTS proj,"&_
         "         RELEASE_TAGS rt"&_
         "    WHERE rt.PROJ_ID = proj.proj_id"&_
         "      AND rt.rtag_id = :RTAG_ID"
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
         %>
         <tr>
            <td nowrap class="body_row" colspan="3"><a href="dependencies.asp?rtag_id=<%=nRtag_id%>"><img src="images/i_go2url.gif" width="14" height="14" hspace="3" border="0" align="absmiddle"></a>Go to <a href="dependencies.asp?rtag_id=<%=nRtag_id%>" class="txt_linked"><%=rsRep("proj_name")%> &gt; <%=rsRep("rtag_name")%></a> </td>
         </tr>
         <%
         rsRep.Close
         Set rsRep = Nothing%>
      </table>
      <br><br>
      <%
      '--- Current Deployable Modules ---
      Query_String = ReadFile( rootPath & "queries\rep_current_deployable_packages.sql" )
      %>
      <table width="100%"  border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td colspan="4" nowrap class="body_colb" background="images/bg_bage.gif">&nbsp;Current Deployable Packages </td>
         </tr>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currPv_id
         currPv_id = -1
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY PRODUCT NAME  -----------------
            If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
               %>
               <tr>
                  <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td width="1%" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>
               <tr>
                  <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></a></td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
               </tr>
               <%
               currPv_id = CDbl(rsRep("pv_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td>&nbsp;</td>
               <td nowrap><a href="dependencies.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="txt_linked"><%=rsRep("dpkg_name")%></a></td>
               <td nowrap class="body_row"><%=rsRep("dpkg_version")%></td>
               <td nowrap class="err_alert"><%=rsRep("is_dep_deployable")%></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>

<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Bill Of Materials
' Description      :   List products for a BOM
' INPUT            :
'==================================================================================
Sub Bill_of_Materials ( SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion )
   Dim Query_String, rsRep, rsQry
   Const Allow_All = TRUE
   Const Disallow_All = FALSE

   If NNproj_id = "" Then NNproj_id = -1
   If NNrtag_id = "" Then NNrtag_id = -1
   If NNversion = "" Then NNversion = -1

   If SSsection = "TITLE" Then
      Response.write "BOM - History Track"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <script language="JavaScript" src="images/calendar.js"></script>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_labels ( NNproj_id, NNrtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">SBOM Version</td>
               <td><%Call Get_SBOM_Version ( NNproj_id, NNrtag_id, Disallow_All, NNversion )%></td>
            </tr>
            <tr>
               <td colspan="3" nowrap class="form_field">Between
                  <input type="text" name="FRinitdate" maxlength="10" size="12" value="<%=Request.Form("FRinitdate")%>">
                  <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRinitdate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
                  And
                  <input type="text" name="FRduedate" maxlength="10" size="12" value="<%=Request.Form("FRduedate")%>">
                  <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
               </td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="FRrtag_id" value="<%=NNrtag_id%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <p>
      <%   Exit Sub
   End If



   OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
   Dim bomId
   bomId = rsQry("bom_id")
   rsQry.close
   Set rsQry = nothing


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      'Query_String = ReadFile( rootPath & "queries\AllProducts.sql" )

      'OraDatabase.Parameters.Add "BOM_ID", bomId, ORAPARM_INPUT, ORATYPE_NUMBER
      %>
      </p>
      <table width="20%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Trail</td>
            <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Date</td>
            <td width="40%" background="images/bg_bage_0.gif" class="body_col" nowrap>Action</td>
            <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>User</td>
         </tr>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%

         Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_TRAIL BT, USERS U WHERE BT.BOM_ID ="& bomId &" AND U.USER_ID = BT.USER_ID AND BT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND BT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY BT.DATE_TIME_STAMP DESC", 0 )


         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"


               .write "<td colspan='5' class='body_row'>Found 0 bom trail records</td>"
               .write "</tr>"
            End With
         Else
            %>
            <tr>
               <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
            <tr>
               <td nowrap class="body_scol">Bom</td>
               <td nowrap class="body_scol"></td>
               <td nowrap class="body_scol"></td>
               <td nowrap class="body_scol"></td>
            </tr>
            <%
            While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
               %>
               <tr>
                  <td nowrap class="body_scol"></td>
                  <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
                  <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
                  <td nowrap class="body_row"><%=rsRep("full_name")%></td>
               </tr>
               <%  rsRep.MoveNext
            WEnd
         End If
         %>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%

         Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, NODE_TRAIL NT, USERS U WHERE BC.BOM_ID ="& bomId &" AND NT.NODE_ID = BC.NODE_ID AND U.USER_ID = NT.USER_ID AND NT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND NT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY NT.DATE_TIME_STAMP DESC", 0 )


         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='5' class='body_row'>Found 0 node trail records</td>"
               .write "</tr>"
            End With
         Else
            %>
            <tr>
               <td nowrap class="body_scol">Node</td>
               <td nowrap class="body_scol"></td>
               <td nowrap class="body_scol"></td>
               <td nowrap class="body_scol"></td>
            </tr>
            <%
            While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
               %>
               <tr>
                  <td nowrap class="body_scol"></td>
                  <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
                  <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
                  <td nowrap class="body_row"><%=rsRep("full_name")%></td>
               </tr>
               <%  rsRep.MoveNext
            WEnd
         End If
         %>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%

         Set rsRep = OraDatabase.DbCreateDynaset( "SELECT * FROM BOM_CONTENTS BC, OPERATING_SYSTEMS OS, OS_TRAIL OT, USERS U WHERE BC.NODE_ID = OS.NODE_ID AND OS.OS_ID = OT.OS_ID AND BC.BOM_ID ="& bomId &" AND U.USER_ID = OT.USER_ID AND OT.DATE_TIME_STAMP >= TO_DATE('"& Request.Form("FRinitdate") &"','DD/MM/YYYY') AND OT.DATE_TIME_STAMP < TO_DATE('"& Request.Form("FRduedate") &"','DD/MM/YYYY')+1 ORDER BY OT.DATE_TIME_STAMP DESC", 0 )


         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"


               .write "<td colspan='5' class='body_row'>Found 0 operating systems trail records</td>"
               .write "</tr>"
            End With
         Else
            %>
            <tr>
               <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            </tr>
            <tr>
               <td nowrap class="body_scol">Operating System</td>
               <td nowrap class="body_scol"></td>
               <td nowrap class="body_scol"></td>
               <td nowrap class="body_scol"></td>
            </tr>
            <%
            While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
               %>
               <tr>
                  <td nowrap class="body_scol"></td>
                  <td nowrap class="body_row"><%=rsRep("date_time_stamp")%></td>
                  <td nowrap class="body_row"><%=rsRep("trail_action")%></td>
                  <td nowrap class="body_row"><%=rsRep("full_name")%></td>
               </tr>
               <%  rsRep.MoveNext
            WEnd
         End If
         %>
         <tr>
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <p>&nbsp;     </p>
      <p>        <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Escrow Report
' Description      :   Report to extract Products/Patches for Building A RoadMap
' INPUT            :
'==================================================================================
Sub Escrow_Report (SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion)
   Dim Query_String, rsRep, rsQry
   Const Allow_All = TRUE
   Const Disallow_All = FALSE

   If NNproj_id = "" Then NNproj_id = -1
   If NNrtag_id = "" Then NNrtag_id = -1
   If NNversion = "" Then NNversion = -1

   If SSsection = "TITLE" Then
      Response.write "Generation of ESCROW REPORT"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Branches ( NNproj_id, NNrtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">SBOM Version</td>
               <td><%Call Get_SBOM_Version ( NNproj_id, NNrtag_id, Disallow_All, NNversion )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="FRrtag_id" value="<%=NNrtag_id%>">
                  <input type="hidden" name="action" value="true">
               <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <p>
      <%   Exit Sub
   End If


   OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
   Dim bomId, ext
   bomId = rsQry("bom_id")
   Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_manager.project_extentions where proj_id="&NNproj_id, cint(0))
   ext = rsQry("ext_name")
   rsQry.close
   Set rsQry = nothing


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      '---------------------- Run Before Page ---------------------------
      Call GetReleaseContent ( bomId, objReleaseContent )

      Call   GetBomDetails   (bomId, outobjDetails)
      outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&"   "&   outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")

      '------------------------------------------------------------------
      %>
      <html>
      <head>
      <title>Deployment Manager - Escrow Report</title>
      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      </head>
      <body>
      <div align="center"><b><font col color="#FF0000" size="+3"><%=outobjDetails.Item("bom_full_version")%></font></b></div>
      <%
      Set outobjDetails = Nothing
      Dim i
      i = 0
      aReleaseContent = objReleaseContent.Keys
      For Each parPv_id In aReleaseContent
         If i mod MAX_ROWS_PER_FLUSH = 0 Then
           Response.Flush 
         End If

         Call GetPackageInformation ( parPv_id, objPackageDetails )
         %>
         <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
               <td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
            </tr>
         </table>
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
               <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
            </tr>
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
               <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
            </tr>
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
               <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
            </tr>
            <tr>
               <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
               <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
            </tr>
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
               <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
            </tr>
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
               <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = ext Then%>Yes<%Else%>No<%End If%></td>
            </tr>
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
               <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
                  <%
                  '--- Get Build Env Details
                  Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Std ( parPv_id ), cint(0))
                  If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
                     BldStd = rsQry("bs_name")
                                                        rsQry.Close

                     Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
                     %>
                     <ul>
                     <%
                     While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                        %>
                        <li><%=BldStd%>, <%=rsQry("bm_name")%></li>
                        <%rsQry.MoveNext
                     WEnd
                     %>
                     </ul>
                  <%End If%>
               </td>
            </tr>
            <tr>
               <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
               <td bgcolor="#FFFFFF" class="sublbox_txt">
                  <%
                  '--- Get Build Dependencies Details

                  Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
                  %>
                  <table width="100%"  cellspacing="0" cellpadding="2" border="1">
                     <tr>
                        <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
                        <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
                     </tr>
                     <%If rsQry.RecordCount < 1 Then%>
                        <tr>
                           <td nowrap class="sublbox_txt">No Dependencies</td>
                           <td nowrap class="sublbox_txt"></td>
                        </tr>
                     <%End If%>
                     <%
                     While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                        %>
                        <tr>
                           <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
                           <td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
                        </tr>
                        <%rsQry.MoveNext
                     WEnd
                     %>
                  </table>
               </td>
            </tr>
         </table>
         <br><br>
      <%
      'Exit For
      i = i + 1
      Next

      If objReleaseContent.Count > 0 Then
         Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Modules (objReleaseContent), cint(0))
         %>
         <div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>
         <%
         i = 0
         While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
            If i mod MAX_ROWS_PER_FLUSH = 0 Then
              Response.Flush 
            End If

            dpv_id = rsTemp("dpv_id")
            Call GetPackageInformation ( dpv_id, objPackageDetails )
            %>
            <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
               <tr>
                  <td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
               </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
               </tr>
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
               </tr>
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
               </tr>
               <tr>
                  <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
                  <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
               </tr>
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
               </tr>
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
               </tr>
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
                     <%
                     '--- Get Build Env Details
                     Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Std ( dpv_id ), cint(0))
                     If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
                        BldStd = rsQry("bs_name")
                        rsQry.Close

                        Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( dpv_id ), cint(0))
                        %>
                        <ul>
                           <%
                           While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                              %>
                              <li><%=BldStd%>, <%=rsQry("bm_name")%></li>
                              <%rsQry.MoveNext
                           WEnd
                           %>
                        </ul>
                     <%End If%>
                  </td>
               </tr>
               <tr>
                  <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
                  <td bgcolor="#FFFFFF" class="sublbox_txt">
                     <%
                     '--- Get Build Dependencies Details

                     Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( dpv_id ), cint(0))
                     %>
                     <table width="100%"  cellspacing="0" cellpadding="2" border="1">
                        <tr>
                           <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
                           <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
                        </tr>
                        <%If rsQry.RecordCount < 1 Then%>
                           <tr>
                              <td nowrap class="sublbox_txt">No Dependencies</td>
                              <td nowrap class="sublbox_txt"></td>
                           </tr>
                        <%End If%>
                        <%
                        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                           %>
                           <tr>
                              <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
                              <td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
                           </tr>
                           <%rsQry.MoveNext
                        WEnd
                        %>
                     </table>
                  </td>
               </tr>
            </table>
            <br><br>

            <%
            rsTemp.MoveNext
            i = i + 1
         WEnd

         rsTemp.Close()
         Set rsTemp = Nothing
      End If
   End If
End Sub
%>
<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Build History
' Description      :   List packages which were build between certain dates.
' INPUT            :
'==================================================================================
Sub Build_History ( SSsection, NNproj_id, NNrtag_id)
   Dim Query_String, rsRep, rsQry
   Const Allow_All = TRUE
   Const Disallow_All = FALSE

   If NNproj_id = "" Then NNproj_id = -1
   If NNrtag_id = "" Then NNrtag_id = -1

   If SSsection = "TITLE" Then
      Response.write "Build History"
      Exit Sub
   End If


   If SSsection = "FORM" Then
      %>
      <script language="JavaScript" src="images/calendar.js"></script>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=SCRIPT_NAME%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">SBOM Version</td>
               <td><%Call Get_Release_Labels ( NNproj_id,  NNrtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td colspan="3" nowrap class="form_field">Between
                  <input type="text" name="FRinitdate" maxlength="10" size="12" value="<%=Request.Form("FRinitdate")%>">
                  <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRinitdate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
                  And
                  <input type="text" name="FRduedate" maxlength="10" size="12" value="<%=Request.Form("FRduedate")%>">
                  <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('repform.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
               </td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit" onClick="clickedButton=true;MM_validateForm('FRduedate','Due Date','R','FRmsg','Message details','R');return document.MM_returnValue">
               </td>
            </tr>
         </form>
      </table>
      <p>
      <%   Exit Sub
   End If


   If SSsection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub
      %>
      </p>
      <table width="20%" border="0" cellspacing="0" cellpadding="2">
         <tr>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="5%" nowrap class="body_colb">Package</td>
            <td width="95%" nowrap class="body_colb">Version</td>
         </tr>
         <tr>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currView_id
         currView_id = -1

         OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
         OraDatabase.Parameters.Add "INITDATE", Request.Form("FRinitdate"), ORAPARM_INPUT, ORATYPE_STRING
         OraDatabase.Parameters.Add "DUEDATE", Request.Form("FRduedate"), ORAPARM_INPUT, ORATYPE_STRING

         Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("rep_build_history.sql"), cint(0) )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='5' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            ' -------- GROUP BY BASE VIEW  -----------------
            If CDbl(currView_id) <> CDbl(rsRep("view_id")) Then
               %>
               <tr>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>

               <tr>
                  <td valign="top" nowrap class="body_scol"><%=rsRep("view_name")%></td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
               </tr>

               <%
               currView_id = CDbl(rsRep("view_id"))
            End If
            ' -------- END GROUP ------------------------
            %>
            <tr>
               <td width="1%" nowrap class="body_colb">&nbsp;</td>
               <td nowrap class="body_row"><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=NNRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_name")%></strong></a></td>
               <td nowrap class="body_row"><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=NNRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_version")%></strong></a></td>
            </tr>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>
      <p>&nbsp;     </p>
      <p>        <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>


<%
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
'==================================================================================
' Report Name      :    Unit Tests per Package
' Description      :   List unit tests per package showing the unit test completeness
' INPUT            :   Project, Vesion Tree, Release Label, Base View, Level of Completeness, Show/Hide Dependencies, PV_ID
'==================================================================================
Sub Unit_Tests_Per_Package ( sSection, nProj_id,  nRtag_id, nBase_view_id, nLevel_of_complete, nShow_dependencies, nPv_id )
   Dim Query_String, rsRep
   Const Allow_All = TRUE
   Const Disallow_All = FALSE

   If nProj_id = "" Then nProj_id = -1
   If nRtag_id = "" Then nRtag_id = -1
   If nShow_dependencies = "" Then nShow_dependencies = 0
   If nPv_id = "" Then nPv_id = -1

   If sSection = "TITLE" Then
      Response.write "Unit Tests per Package"
      Exit Sub
   End If


   If sSection = "FORM" Then
      %>
      </p>
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
            <tr>
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
               <td width="1%" align="right" nowrap class="form_field">Project</td>
               <td width="100%"><%Call Get_Projects( nProj_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Release</td>
               <td><%Call Get_Release_Labels ( nProj_id,  nRtag_id, Disallow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Base View</td>
               <td><%Call Get_Base_Views ( nRtag_id, nBase_view_id, Allow_All )%></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">Show Dependencie's Unit Tests</td>
               <td><input type="checkbox" name="FRshow_deps" value="1" <%If nShow_dependencies <> 0 Then%>checked<%End If%>></td>
            </tr>
            <tr>
               <td nowrap class="form_field">&nbsp;</td>
               <td align="right" nowrap class="form_field">&nbsp;</td>
               <td><br>
                  <input type="hidden" name="group" value="<%=parGroup%>">
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
                  <input type="hidden" name="FRtest_complete" value="0">
                  <input type="hidden" name="action" value="true">
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
               </td>
            </tr>
         </form>
      </table>
      <%   Exit Sub
   End If


   If sSection = "BODY" Then
      If NOT CBool(Request("action")) Then Exit Sub

      Query_String = ReadFile( rootPath & "queries\rep_unit_tests_per_package.sql" )

      OraDatabase.Parameters.Add "RTAG_ID",      nRtag_id,           ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "BASE_VIEW",    nBase_view_id,      ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "COMPLETENESS", nLevel_of_complete, ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "SHOW_DEPS",    nShow_dependencies, ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "PV_ID",        nPv_id,             ORAPARM_INPUT, ORATYPE_NUMBER
      %>
      <table width="100%" border="0" cellspacing="0" cellpadding="1">
         <tr>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Package Name&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Version&nbsp;&nbsp;&nbsp;</td>
            <td width="1%" nowrap class="body_colb">Test Name&nbsp;&nbsp;&nbsp;</td>
            <td width="100%" nowrap class="body_colb">Test Summary&nbsp; </td>
            <td width="1%" nowrap class="body_colb"></td>
            <td width="1%" nowrap class="body_colb">Stamp</td>
            <td width="1%" nowrap class="body_colb">Test Completed &nbsp;&nbsp;&nbsp;</td>
         </tr>
         <tr>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
         <%
         Dim currBase_view_id, currPv_id, currDpv_id, showTests
         currBase_view_id = -1
         currPv_id = -1
         currDpv_id = -1

         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )

         If rsRep.RecordCount = 0 Then
            With Response
               .write "<tr>"
               .write "<td colspan='9' class='body_row'>Found 0 records</td>"
               .write "</tr>"
            End With
         End If

         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
            If nShow_dependencies <> 0 Then
               ' show dependency is ON
               If rsRep("dpkg_name") = "------" Then
                  showTests = FALSE
               Else
                  showTests = TRUE
               End If
            Else
               showTests = TRUE
            End If

            ' -------- GROUP BY BASE VIEW  -----------------
            If CDbl(currBase_view_id) <> CDbl(rsRep("base_view_id")) Then
               %>
               <tr>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>
               <tr>
                  <td valign="top" nowrap class="body_scol"><%=rsRep("view_name")%></td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
               </tr>
               <%
               currBase_view_id = CDbl(rsRep("base_view_id"))
            End If
            ' -------- END GROUP BASE VIEW ------------------------
            %>
            <%
            ' -------- GROUP BY PACKAGE  -----------------
            If CDbl(currPv_id) <> CDbl(rsRep("pv_id")) Then
               %>
               <tr>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                  <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>
               <tr>
                  <td>&nbsp;</td>
                  <td><%If rsRep("dlocked") = "Y" Then%><img src="images/i_locked.gif" width="7" height="10" hspace="2" alt="Officially released."><%Else%><img src="images/spacer.gif" width="7" height="10" hspace="2"><%End If%></td>
                  <td nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_name")%></strong></a></td>
                  <td nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("pkg_version")%></strong></a></td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td align="center" valign="top" nowrap><%If nShow_dependencies = 0 Then%><%If IsNull( rsRep("not_done") ) Then%><img src="images/i_boxtick_on.gif" width="13" height="13"><%Else%><img src="images/i_boxtick_off.gif" width="13" height="13"><%End If%><%End If%></td>
               </tr>
               <%
               currPv_id = CDbl(rsRep("pv_id"))
            End If
            ' -------- END GROUP PACKAGE ------------------------
            %>
            <%
            ' -------- GROUP BY DEPENDENCY  -----------------
            If Not IsNull(rsRep("dpv_id")) Then
               If CDbl(currDpv_id) <> CDbl(rsRep("dpv_id")) Then
                  %>
                  <tr>
                     <td>&nbsp;</td>
                     <td>&nbsp;</td>
                     <td>&nbsp;</td>
                     <td>&nbsp;</td>
                     <td valign="top" nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("dpkg_name")%></strong></a></td>
                     <td valign="top" nowrap><a href="fixed_issues.asp?pv_id=<%=rsRep("dpv_id")%>&rtag_id=<%=nRtag_id%>" class="body_txt"><strong><%=rsRep("dpkg_version")%></strong></a></td>
                     <td>&nbsp;</td>
                     <td>&nbsp;</td>
                     <td align="center" valign="top" nowrap><%If IsNull( rsRep("not_done") ) Then%><img src="images/i_boxtick_on.gif" width="13" height="13"><%Else%><img src="images/i_boxtick_off.gif" width="13" height="13"><%End If%></td>
                  </tr>
                  <%
                  currDpv_id = CDbl(rsRep("dpv_id"))
               End If
            End If
            ' -------- END GROUP DEPENDENCY ------------------------
            %>
            <%If Not IsNull( rsRep("completed_by") ) AND showTests Then%>
               <tr>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td>&nbsp;</td>
                  <td bgcolor="#F5F5F5" valign="top" nowrap class="body_row"><img src="images/i_test.gif" width="16" height="16" hspace="1" align="absmiddle"><%=rsRep("test_name")%></td>
                  <td bgcolor="#F5F5F5" valign="top" class="body_row"><%=NewLine_To_BR ( To_HTML ( rsRep("test_summary") ) )%></td>
                  <td bgcolor="#F5F5F5" align="center" valign="top">   </td>
                  <td bgcolor="#F5F5F5" valign="top" nowrap class="body_txt"><%=EuroDate ( rsRep("completion_date") )%> <a href="mailto:<%=rsRep("user_email")%>" class="txt_linked"><%=rsRep("completed_by")%></a> </td>
                  <td>&nbsp;</td>
               </tr>
               <tr>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
                  <td><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>
            <%End If%>
            <%  rsRep.MoveNext
         WEnd
         %>
         <tr>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
            <td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
         </tr>
      </table>

      <!-- PRINT, SAVE, ETC. ------------>
      <%If parPrint = "" Then%>
         <br>
         <br>
         <a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
         <br>
      <%End If%>
      <!-- PRINT, SAVE, ETC. END -------->
      <%
      rsRep.Close
      Set rsRep = nothing
   End If

End Sub
%>