Subversion Repositories DevTools

Rev

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

Rev 5639 Rev 5685
Line 206... Line 206...
206 
      <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
 206 
      <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
207 
      <%repNum = 5%>
 207 
      <%repNum = 5%>
208 
      <strong>Find Package Version History</strong><br>
 208 
      <strong>Find Package Version History</strong><br>
209 
      Find all package versions and their current locations.<br>
 209 
      Find all package versions and their current locations.<br>
210 
      <a href="rep_package_version_history.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
 210 
      <a href="rep_package_version_history.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
- 
 
 211 
      <%repNum = 14%>
- 
 
 212 
      <strong>Find File with a Package</strong><br>
- 
 
 213 
      Find all files within a named package.<br>
- 
 
 214 
      <a href="rep_package_version_history.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
211 
   <%Case "Release_Status"%>
 215 
   <%Case "Release_Status"%>
212 
      <%repNum = 3%>
 216 
      <%repNum = 3%>
213 
      <strong>Current Status of Release</strong><br>
 217 
      <strong>Current Status of Release</strong><br>
214 
      Shows all packages in a selected release with their current state, owner and last modifier.<br>
 218 
      Shows all packages in a selected release with their current state, owner and last modifier.<br>
215 
      <a href="rep_current_state_of_release.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
 219 
      <a href="rep_current_state_of_release.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
Line 3651... Line 3655...
3651 
                       LocalPath
 3655 
                       LocalPath
3652 
      End If
 3656 
      End If
3653 
   End If
 3657 
   End If
3654 
End Sub
 3658 
End Sub
3655 
%>
 3659 
%>
- 
 
 3660 
<%
- 
 
 3661 
'==================================================================================
- 
 
 3662 
' Report Name      :   Find Files within a Package
- 
 
 3663 
' Description      :   Locate all files in all versions of the package
- 
 
 3664 
' Form Input       :   Package Name, File Name ( Wild cards allowed )
- 
 
 3665 
'==================================================================================
- 
 
 3666 
Sub Find_Package_File ( SSsection, SSpkg_name, SSfile_name )
- 
 
 3667 
   Dim Query_String, rsRep
- 
 
 3668 
 
- 
 
 3669 
 
- 
 
 3670 
   If SSsection = "TITLE" Then
- 
 
 3671 
      Response.write "Find Files within a Package"
- 
 
 3672 
      Exit Sub
- 
 
 3673 
   End If
- 
 
 3674 
 
- 
 
 3675 
 
- 
 
 3676 
   If SSsection = "FORM" Then
- 
 
 3677 
      %>
- 
 
 3678 
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
- 
 
 3679 
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R', 'FRfile_name','File Name','R');return document.MM_returnValue">
- 
 
 3680 
            <tr>
- 
 
 3681 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
- 
 
 3682 
               <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
- 
 
 3683 
               <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
- 
 
 3684 
               HINTS:<br>
- 
 
 3685 
               - You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
- 
 
 3686 
            </tr>
- 
 
 3687 
            <tr>
- 
 
 3688 
               <td nowrap class="form_field">&nbsp;</td>
- 
 
 3689 
               <td align="right" nowrap class="form_field" valign="top">File Name</td>
- 
 
 3690 
               <td class="form_txt"><input type="text" name="FRfile_name" size="10" class="form_item" value="<%=SSv_ext%>"><br>
- 
 
 3691 
               You can use Wildcards</td>
- 
 
 3692 
            </tr>
- 
 
 3693 
            <tr>
- 
 
 3694 
               <td nowrap class="form_field">&nbsp;</td>
- 
 
 3695 
               <td align="right" nowrap class="form_field">&nbsp;</td>
- 
 
 3696 
               <td><br>
- 
 
 3697 
                  <input type="hidden" name="group" value="<%=parGroup%>">
- 
 
 3698 
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
- 
 
 3699 
                  <input type="hidden" name="action" value="true">
- 
 
 3700 
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
- 
 
 3701 
               </td>
- 
 
 3702 
            </tr>
- 
 
 3703 
         </form>
- 
 
 3704 
      </table>
- 
 
 3705 
      <%   Exit Sub
- 
 
 3706 
   End If
- 
 
 3707 
 
- 
 
 3708 
 
- 
 
 3709 
   If SSsection = "BODY" Then
- 
 
 3710 
      Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
- 
 
 3711 
      If NOT CBool(Request("action")) Then Exit Sub
- 
 
 3712 
 
- 
 
 3713 
      If SSpkg_name = "" Then SSpkg_name = "%"
- 
 
 3714 
      If SSv_ext = "" Then SSv_ext = "%"
- 
 
 3715 
 
- 
 
 3716 
      Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
- 
 
 3717 
      Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
- 
 
 3718 
      Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
- 
 
 3719 
      %>
- 
 
 3720 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
- 
 
 3721 
         <tr>
- 
 
 3722 
            <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
- 
 
 3723 
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
- 
 
 3724 
            <td width="1%" nowrap class="body_colb">Location</td>
- 
 
 3725 
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
- 
 
 3726 
         </tr>
- 
 
 3727 
         <tr>
- 
 
 3728 
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3729 
         </tr>
- 
 
 3730 
         <%
- 
 
 3731 
         Dim currPv_id
- 
 
 3732 
         currPv_id = -1
- 
 
 3733 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 3734 
 
- 
 
 3735 
         If rsRep.RecordCount = 0 Then
- 
 
 3736 
            With Response
- 
 
 3737 
               .write "<tr>"
- 
 
 3738 
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
- 
 
 3739 
               .write "</tr>"
- 
 
 3740 
            End With
- 
 
 3741 
         End If
- 
 
 3742 
 
- 
 
 3743 
         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
- 
 
 3744 
            ' -------- GROUP BY Package Version -----------------
- 
 
 3745 
            If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
- 
 
 3746 
            %>
- 
 
 3747 
               <tr>
- 
 
 3748 
               <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3749 
               <td></td>
- 
 
 3750 
               </tr>
- 
 
 3751 
            <tr>
- 
 
 3752 
               <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
- 
 
 3753 
               <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
- 
 
 3754 
               <td colspan='2' class="body_scol"></td>
- 
 
 3755 
               </tr>
- 
 
 3756 
            <%
- 
 
 3757 
               currPv_id = Cstr(rsRep("pv_id"))
- 
 
 3758 
            End If
- 
 
 3759 
            ' -------- END GROUP ------------------------
- 
 
 3760 
            %>
- 
 
 3761 
               <tr>
- 
 
 3762 
               <td class="body_row"></td>
- 
 
 3763 
               <td class="body_row"></td>
- 
 
 3764 
               <%If IsNull(rsRep("rtag_id")) Then%>
- 
 
 3765 
                  <td nowrap class="body_txt_gray" valign="top">Not Used!</td>
- 
 
 3766 
               <%Else%>
- 
 
 3767 
                  <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>
- 
 
 3768 
               <%End If%>
- 
 
 3769 
               <td class="body_row"></td>
- 
 
 3770 
               </tr>
- 
 
 3771 
         <%  rsRep.MoveNext
- 
 
 3772 
         WEnd
- 
 
 3773 
         %>
- 
 
 3774 
         <tr>
- 
 
 3775 
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3776 
         </tr>
- 
 
 3777 
      </table>
- 
 
 3778 
      <!-- PRINT, SAVE, ETC. ------------>
- 
 
 3779 
      <%If parPrint = "" Then%>
- 
 
 3780 
         <br>
- 
 
 3781 
         <br>
- 
 
 3782 
         <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>
- 
 
 3783 
         <br>
- 
 
 3784 
      <%End If%>
- 
 
 3785 
      <!-- PRINT, SAVE, ETC. END -------->
- 
 
 3786 
      <%
- 
 
 3787 
      rsRep.Close
- 
 
 3788 
      Set rsRep = nothing
- 
 
 3789 
   End If
- 
 
 3790 
 
- 
 
 3791 
End Sub
- 
 
 3792 
%>
- 
 
 3793 
 
- 
 
 3794 
<%
- 
 
 3795 
'==================================================================================
- 
 
 3796 
' Report Name      :   Find Files within a Package
- 
 
 3797 
' Description      :   Locate all files in all versions of the package
- 
 
 3798 
' Form Input       :   Package Name, File Name ( Wild cards allowed )
- 
 
 3799 
'==================================================================================
- 
 
 3800 
Sub Find_Package_File ( SSsection, SSpkg_name, SSfile_name )
- 
 
 3801 
   Dim Query_String, rsRep
- 
 
 3802 
 
- 
 
 3803 
 
- 
 
 3804 
   If SSsection = "TITLE" Then
- 
 
 3805 
      Response.write "Find Files within a Package"
- 
 
 3806 
      Exit Sub
- 
 
 3807 
   End If
- 
 
 3808 
 
- 
 
 3809 
 
- 
 
 3810 
   If SSsection = "FORM" Then
- 
 
 3811 
      %>
- 
 
 3812 
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
- 
 
 3813 
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R', 'FRfile_name','File Name','R');return document.MM_returnValue">
- 
 
 3814 
            <tr>
- 
 
 3815 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
- 
 
 3816 
               <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
- 
 
 3817 
               <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
- 
 
 3818 
               HINTS:<br>
- 
 
 3819 
               - You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
- 
 
 3820 
            </tr>
- 
 
 3821 
            <tr>
- 
 
 3822 
               <td nowrap class="form_field">&nbsp;</td>
- 
 
 3823 
               <td align="right" nowrap class="form_field" valign="top">File Name</td>
- 
 
 3824 
               <td class="form_txt"><input type="text" name="FRfile_name" size="10" class="form_item" value="<%=SSfile_name%>"><br>
- 
 
 3825 
               You can use Wildcards</td>
- 
 
 3826 
            </tr>
- 
 
 3827 
            <tr>
- 
 
 3828 
               <td nowrap class="form_field">&nbsp;</td>
- 
 
 3829 
               <td align="right" nowrap class="form_field">&nbsp;</td>
- 
 
 3830 
               <td><br>
- 
 
 3831 
                  <input type="hidden" name="group" value="<%=parGroup%>">
- 
 
 3832 
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
- 
 
 3833 
                  <input type="hidden" name="action" value="true">
- 
 
 3834 
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
- 
 
 3835 
               </td>
- 
 
 3836 
            </tr>
- 
 
 3837 
         </form>
- 
 
 3838 
      </table>
- 
 
 3839 
      <%   Exit Sub
- 
 
 3840 
   End If
- 
 
 3841 
 
- 
 
 3842 
 
- 
 
 3843 
   If SSsection = "BODY" Then
- 
 
 3844 
      Const img_Official = "<img src='images/i_locked.gif' width='7' height='10' hspace='3' align='absmiddle'>"
- 
 
 3845 
      If NOT CBool(Request("action")) Then Exit Sub
- 
 
 3846 
 
- 
 
 3847 
      If SSpkg_name = "" Then SSpkg_name = "%"
- 
 
 3848 
      If SSfile_name = "" Then SSfile_name = "%"
- 
 
 3849 
 
- 
 
 3850 
      Query_String = ReadFile( rootPath & "queries\rep_package_version_history.sql" )
- 
 
 3851 
      Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
- 
 
 3852 
      Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSfile_name), "*", "%") )
- 
 
 3853 
      %>
- 
 
 3854 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
- 
 
 3855 
         <tr>
- 
 
 3856 
            <td width="1%" nowrap class="body_colb" align="right">Official<%=img_Official%></td>
- 
 
 3857 
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
- 
 
 3858 
            <td width="1%" nowrap class="body_colb">Location</td>
- 
 
 3859 
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
- 
 
 3860 
         </tr>
- 
 
 3861 
         <tr>
- 
 
 3862 
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3863 
         </tr>
- 
 
 3864 
         <%
- 
 
 3865 
         Dim currPv_id
- 
 
 3866 
         currPv_id = -1
- 
 
 3867 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 3868 
 
- 
 
 3869 
         If rsRep.RecordCount = 0 Then
- 
 
 3870 
            With Response
- 
 
 3871 
               .write "<tr>"
- 
 
 3872 
               .write "<td colspan='4' class='body_row'>Found 0 records</td>"
- 
 
 3873 
               .write "</tr>"
- 
 
 3874 
            End With
- 
 
 3875 
         End If
- 
 
 3876 
 
- 
 
 3877 
         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
- 
 
 3878 
            ' -------- GROUP BY Package Version -----------------
- 
 
 3879 
            If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
- 
 
 3880 
            %>
- 
 
 3881 
               <tr>
- 
 
 3882 
               <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3883 
               <td></td>
- 
 
 3884 
               </tr>
- 
 
 3885 
            <tr>
- 
 
 3886 
               <td align="right"><%If rsRep("dlocked") = "Y" Then%><%=img_Official%><%End If%></td>
- 
 
 3887 
               <td nowrap class="body_scol"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></td>
- 
 
 3888 
               <td colspan='2' class="body_scol"></td>
- 
 
 3889 
               </tr>
- 
 
 3890 
            <%
- 
 
 3891 
               currPv_id = Cstr(rsRep("pv_id"))
- 
 
 3892 
            End If
- 
 
 3893 
            ' -------- END GROUP ------------------------
- 
 
 3894 
            %>
- 
 
 3895 
               <tr>
- 
 
 3896 
               <td class="body_row"></td>
- 
 
 3897 
               <td class="body_row"></td>
- 
 
 3898 
               <%If IsNull(rsRep("rtag_id")) Then%>
- 
 
 3899 
                  <td nowrap class="body_txt_gray" valign="top">Not Used!</td>
- 
 
 3900 
               <%Else%>
- 
 
 3901 
                  <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>
- 
 
 3902 
               <%End If%>
- 
 
 3903 
               <td class="body_row"></td>
- 
 
 3904 
               </tr>
- 
 
 3905 
         <%  rsRep.MoveNext
- 
 
 3906 
         WEnd
- 
 
 3907 
         %>
- 
 
 3908 
         <tr>
- 
 
 3909 
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3910 
         </tr>
- 
 
 3911 
      </table>
- 
 
 3912 
      <!-- PRINT, SAVE, ETC. ------------>
- 
 
 3913 
      <%If parPrint = "" Then%>
- 
 
 3914 
         <br>
- 
 
 3915 
         <br>
- 
 
 3916 
         <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>
- 
 
 3917 
         <br>
- 
 
 3918 
      <%End If%>
- 
 
 3919 
      <!-- PRINT, SAVE, ETC. END -------->
- 
 
 3920 
      <%
- 
 
 3921 
      rsRep.Close
- 
 
 3922 
      Set rsRep = nothing
- 
 
 3923 
   End If
- 
 
 3924 
 
- 
 
 3925 
End Sub
- 
 
 3926 
%>
- 
 
 3927 
 
- 
 
 3928 
<%
- 
 
 3929 
'==================================================================================
- 
 
 3930 
' Report Name      :   Find Files within a Package
- 
 
 3931 
' Description      :   Locate all files in all versions of the package
- 
 
 3932 
' Form Input       :   Package Name, File Name ( Wild cards allowed )
- 
 
 3933 
'==================================================================================
- 
 
 3934 
Sub Find_Package_File ( SSsection, SSpkg_name, SSfile_name )
- 
 
 3935 
   Dim Query_String, rsRep
- 
 
 3936 
 
- 
 
 3937 
 
- 
 
 3938 
   If SSsection = "TITLE" Then
- 
 
 3939 
      Response.write "Find Files within a Package"
- 
 
 3940 
      Exit Sub
- 
 
 3941 
   End If
- 
 
 3942 
 
- 
 
 3943 
 
- 
 
 3944 
   If SSsection = "FORM" Then
- 
 
 3945 
      %>
- 
 
 3946 
      <table width="100%" border="0" cellpadding="2" cellspacing="1">
- 
 
 3947 
         <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R', 'FRfile_name','File Name','R');return document.MM_returnValue">
- 
 
 3948 
            <tr>
- 
 
 3949 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
- 
 
 3950 
               <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
- 
 
 3951 
               <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
- 
 
 3952 
               You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
- 
 
 3953 
            </tr>
- 
 
 3954 
            <tr>
- 
 
 3955 
               <td nowrap class="form_field">&nbsp;</td>
- 
 
 3956 
               <td align="right" nowrap class="form_field" valign="top">Path Name</td>
- 
 
 3957 
               <td class="form_txt"><input type="text" name="FRfile_name" size="10" class="form_item" value="<%=SSfile_name%>"><br>
- 
 
 3958 
               You should use * wildcards. e.g.  /lib/*.a</td>
- 
 
 3959 
            </tr>
- 
 
 3960 
            <tr>
- 
 
 3961 
               <td nowrap class="form_field">&nbsp;</td>
- 
 
 3962 
               <td align="right" nowrap class="form_field">&nbsp;</td>
- 
 
 3963 
               <td><br>
- 
 
 3964 
                  <input type="hidden" name="group" value="<%=parGroup%>">
- 
 
 3965 
                  <input type="hidden" name="repnum" value="<%=parRepNum%>">
- 
 
 3966 
                  <input type="hidden" name="action" value="true">
- 
 
 3967 
                  <input name="Submit" type="submit" class="form_btn" value="Submit">
- 
 
 3968 
               </td>
- 
 
 3969 
            </tr>
- 
 
 3970 
         </form>
- 
 
 3971 
      </table>
- 
 
 3972 
      <%   Exit Sub
- 
 
 3973 
   End If
- 
 
 3974 
 
- 
 
 3975 
 
- 
 
 3976 
   If SSsection = "BODY" Then
- 
 
 3977 
      If NOT CBool(Request("action")) Then Exit Sub
- 
 
 3978 
 
- 
 
 3979 
      If SSpkg_name = "" Then SSpkg_name = "%"
- 
 
 3980 
      If SSfile_name = "" Then SSfile_name = "%"
- 
 
 3981 
 
- 
 
 3982 
      Query_String = ReadFile( rootPath & "queries\rep_package_file_find.sql" )
- 
 
 3983 
      Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
- 
 
 3984 
      Query_String = Replace ( Query_String, "/*FILE_NAME*/", Replace( SQLstring(SSfile_name), "*", "%") )
- 
 
 3985 
      %>
- 
 
 3986 
      <table width="100%" border="0" cellspacing="0" cellpadding="2">
- 
 
 3987 
         <tr>
- 
 
 3988 
            <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
- 
 
 3989 
            <td width="1%" nowrap class="body_colb">Location</td>
- 
 
 3990 
            <td width="100%" nowrap class="body_colb">&nbsp;</td>
- 
 
 3991 
         </tr>
- 
 
 3992 
         <tr>
- 
 
 3993 
            <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 3994 
         </tr>
- 
 
 3995 
         <%
- 
 
 3996 
         Dim currPv_id
- 
 
 3997 
         currPv_id = -1
- 
 
 3998 
         Set rsRep = OraDatabase.DbCreateDynaset( Query_String, 0 )
- 
 
 3999 
 
- 
 
 4000 
         If rsRep.RecordCount = 0 Then
- 
 
 4001 
            With Response
- 
 
 4002 
               .write "<tr>"
- 
 
 4003 
               .write "<td colspan='3' class='body_row'>Found 0 records</td>"
- 
 
 4004 
               .write "</tr>"
- 
 
 4005 
            End With
- 
 
 4006 
         End If
- 
 
 4007 
 
- 
 
 4008 
         While ((NOT rsRep.BOF) AND (NOT rsRep.EOF))
- 
 
 4009 
            ' -------- GROUP BY Package Version -----------------
- 
 
 4010 
            If Cstr(currPv_id) <> Cstr(rsRep("pv_id")) Then
- 
 
 4011 
            %>
- 
 
 4012 
               <tr>
- 
 
 4013 
               <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 4014 
               <td></td>
- 
 
 4015 
               </tr>
- 
 
 4016 
            <tr>
- 
 
 4017 
               <td nowrap class="body_row" valign="top"><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>" class="txt_linked"><%=rsRep("pkg_name") &" "& rsRep("pkg_version")%></a></td>
- 
 
 4018 
               <td colspan="2" class="body_scol"></td>
- 
 
 4019 
               </tr>
- 
 
 4020 
            <%
- 
 
 4021 
               currPv_id = Cstr(rsRep("pv_id"))
- 
 
 4022 
            End If
- 
 
 4023 
            ' -------- END GROUP ------------------------
- 
 
 4024 
            %>
- 
 
 4025 
               <tr>
- 
 
 4026 
               <td class="body_row"></td>
- 
 
 4027 
                  <td nowrap class="body_row" valign="top"><%=rsRep("filename")%></td>
- 
 
 4028 
               <td class="body_row"></td>
- 
 
 4029 
               </tr>
- 
 
 4030 
         <%  rsRep.MoveNext
- 
 
 4031 
         WEnd
- 
 
 4032 
         %>
- 
 
 4033 
         <tr>
- 
 
 4034 
            <td colspan="4" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
- 
 
 4035 
         </tr>
- 
 
 4036 
      </table>
- 
 
 4037 
      <!-- PRINT, SAVE, ETC. ------------>
- 
 
 4038 
      <%If parPrint = "" Then%>
- 
 
 4039 
         <br>
- 
 
 4040 
         <br>
- 
 
 4041 
         <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>
- 
 
 4042 
         <br>
- 
 
 4043 
      <%End If%>
- 
 
 4044 
      <!-- PRINT, SAVE, ETC. END -------->
- 
 
 4045 
      <%
- 
 
 4046 
      rsRep.Close
- 
 
 4047 
      Set rsRep = nothing
- 
 
 4048 
   End If
- 
 
 4049 
 
- 
 
 4050 
End Sub
- 
 
 4051 
%>
- 
 
 4052 
 
- 
 
 4053