Subversion Repositories DevTools

Rev

Rev 6827 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|				        view by package			     |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
' Good idea to set when using redirect
12 
Response.Expires = 0	' always load the page, dont store
13 
%>
14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
19 
<%
20 
'------------ ACCESS CONTROL ------------------
21 
%>
6181 dpurdie 22 
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 23 
<!--#include file="_access_control_general.asp"-->
24 
<%
25 
'------------ Variable Definition -------------
26 
Dim rsRep
27 
Dim parKeyword
28 
Dim parBrowse
29 
'------------ Constants Declaration -----------
30 
'------------ Variable Init -------------------
31 
parKeyword = Request("pkgname")
32 
parBrowse = Request("browse")
33 
'----------------------------------------------
34 
%>
35 
<%
36 
'-----------------------------------------------------------------------------------------------------------------------
37 
'-----------------------------------------------------------------------------------------------------------------------
38 
%>
39 
<%
40 
'==================== MAIN LINE ===============================
5957 dpurdie 41 
If (parKeyword = "") AND (parBrowse = "") Then
42 
    Call Destroy_All_Objects
43 
    Response.Redirect ("index.asp")
44 
End If
5357 dpurdie 45 
'==============================================================
6827 dpurdie 46 
Sub DisplayCenterPane%>
47 
    <!-- PACKAGE SEARCH ------------------------------------------------>
48 
    <%
49 
      OraDatabase.Parameters.Add "KEYWORD", Trim(parKeyword), ORAPARM_INPUT, ORATYPE_VARCHAR2
50 
      OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2
51 
 
52 
      If parBrowse = "" Then
53 
            Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindPackageName.sql"), 0 )
54 
      Else
55 
            Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowsePackageName.sql"), 0 )
56 
      End If
57 
 
58 
      OraDatabase.Parameters.Remove "KEYWORD"
59 
      OraDatabase.Parameters.Remove "BROWSE"
60 
    %>
61 
    <table width="100%" border="0" cellspacing="1" cellpadding="5" class="stdGrey" style="padding: 10px;">
62 
        <thead>
63 
            <tr>
64 
                <th class=thin nowrap>Search by Package&nbsp;
65 
                <%If parBrowse <> "" Then%>
66 
                    Index <b><%=parBrowse%></b>
67 
                <%Else%>
68 
                    Results for <b><%=parKeyword%></b>
69 
                <%End If%>
70 
                </th>
71 
            </tr>
72 
            <%If rsRep.RecordCount <> 0 Then%>
73 
            <tr>
74 
                <th style="min-width:500px">Package Name</th>
75 
            </tr>
76 
            <%End If%>
77 
        </thead>
78 
      <%If rsRep.RecordCount = 0 Then%>
79 
            <tr>
80 
            <td class='nowrap'>Your search for <b>"<%=parKeyword%>"</b> did not match any packages.</td>
81 
            </tr>
82 
      <%
83 
      End If
84 
 
85 
      While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %>
86 
          <tr>
87 
            <td nowrap><a href="view_by_version.asp?pkg_id=<%=rsRep("pkg_id")%>&listby=<%=parListBy%>" class="body_link"><%=Highlight_Substring( rsRep("pkg_name"), parKeyword )%></a></td>
88 
          </tr>
89 
      <%  rsRep.MoveNext
90 
      WEnd
91 
 
92 
      rsRep.Close()
93 
      %>
94 
    </table>
95 
    <!------------------------------------------------------------>
96 
<%End Sub%>
5357 dpurdie 97 
<html>
98 
<head>
99 
<title>Release Manager</title>
100 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
101 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
102 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 103 
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
104 
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
105 
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 106 
<!-- DROPDOWN MENUS -->
5983 dpurdie 107 
<!--#include file="_jquery_includes.asp"-->
5357 dpurdie 108 
<!--#include file="_menu_def.asp"-->
6579 dpurdie 109 
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 110 
</head>
111 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
112 
<!-- HEADER -->
113 
<!--#include file="_header.asp"-->
114 
<!-- BODY ---->
6827 dpurdie 115 
<table class="full_table">
5357 dpurdie 116 
  <tr>
6876 dpurdie 117 
    <td width="1%" class=bg_panel valign="top">
5357 dpurdie 118 
      <!--#include file="_front_explorer.asp"-->
119 
    </td>
120 
    <td rowspan="2" width="1%" valign="top">
6827 dpurdie 121 
        <%Call DisplayCenterPane%>
5357 dpurdie 122 
    </td>
123 
  </tr>
124 
  <tr>
6876 dpurdie 125 
    <td valign="bottom" align="center" class=bg_panel><img src="images/img_gear.gif" vspace="20" hspace="30"></td>
5357 dpurdie 126 
    <td>&nbsp;</td>
127 
  </tr>
128 
</table>
129 
<!-- FOOTER -->
130 
<!--#include file="_footer.asp"-->
131 
</body>
132 
</html>