Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6827
Line 41... Line 41...
41 
If (parKeyword = "") AND (parBrowse = "") Then
41 
If (parKeyword = "") AND (parBrowse = "") Then
42 
    Call Destroy_All_Objects
 42 
    Call Destroy_All_Objects
43 
    Response.Redirect ("index.asp")
 43 
    Response.Redirect ("index.asp")
44 
End If
 44 
End If
45 
'==============================================================
 45 
'==============================================================
- 
 
 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"
46 
%>
 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%>
47 
<html>
 97 
<html>
48 
<head>
 98 
<head>
49 
<title>Release Manager</title>
 99 
<title>Release Manager</title>
50 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
 100 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
51 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 101 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
Line 60... Line 110...
60 
</head>
 110 
</head>
61 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 111 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
62 
<!-- HEADER -->
 112 
<!-- HEADER -->
63 
<!--#include file="_header.asp"-->
 113 
<!--#include file="_header.asp"-->
64 
<!-- BODY ---->
 114 
<!-- BODY ---->
65 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 115 
<table class="full_table">
66 
  <tr>
116 
  <tr>
67 
    <td width="1%" background="images/bg_home_orange.gif" valign="top">
 117 
    <td width="1%" class=panel_bg valign="top">
68 
      <!--#include file="_front_explorer.asp"-->
 118 
      <!--#include file="_front_explorer.asp"-->
69 
    </td>
 119 
    </td>
70 
    <td rowspan="2" width="1%" valign="top">
120 
    <td rowspan="2" width="1%" valign="top">
71 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
72 
        <tr>
- 
 
73 
          <td width="1%">
 - 
 
74
- 
 
75 
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 - 
 
76 
			<tr>
- 
 
77 
			  <td width="1%"></td>
 - 
 
78 
			  <td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td>
 - 
 
79 
			  <td width="1%"></td>
 - 
 
80 
			</tr>
 - 
 
81 
			<tr>
- 
 
82 
			  <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="480"></td>
 - 
 
83 
			  <td bgcolor="#FFFFFF" valign="top">
- 
 
84 
				<!-- PACKAGE SEARCH ------------------------------------------------>
 - 
 
85 
				<%
 - 
 
86 
				  OraDatabase.Parameters.Add "KEYWORD", Trim(parKeyword), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
87 
				  OraDatabase.Parameters.Add "BROWSE", parBrowse, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
88
- 
 
89 
				  If parBrowse = "" Then
 - 
 
90 
				  		Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("FindPackageName.sql"), 0 )
 - 
 
91 
				  Else
 - 
 
92 
				  		Set rsRep = OraDatabase.DbCreateDynaset( GetQuery("BrowsePackageName.sql"), 0 )
 - 
 
93 
				  End If
 - 
 
94
- 
 
95 
				  OraDatabase.Parameters.Remove "KEYWORD"
 - 
 
96 
				  OraDatabase.Parameters.Remove "BROWSE"
 - 
 
97 
				%>
 - 
 
98
- 
 
99 
				<table width="100%"  border="0" cellspacing="0" cellpadding="5">
 - 
 
100 
                  <tr>
 - 
 
101 
                    <td nowrap bgcolor="#E4E9EC" class="body_txt">Search by Package&nbsp;
 - 
 
102 
					<%If parBrowse <> "" Then%>
 - 
 
103 
						Index <b><%=parBrowse%></b>
 - 
 
104 
					<%Else%>
 - 
 
105 
						Results for <b><%=parKeyword%></b>
- 
 
106 
					<%End If%>
 - 
 
107 
					</td>
 - 
 
108 
                  </tr>
 - 
 
109 
                </table>
 - 
 
110
- 
 
111
- 
 
112
- 
 
113 
				<table width="100%" border="0" cellspacing="1" cellpadding="5">
 - 
 
114 
				  <%
 - 
 
115 
				  If rsRep.RecordCount = 0 Then
 - 
 
116 
					With Response
 - 
 
117 
						.write "<tr>"
 - 
 
118 
						.write "<td class='body_row nowrap'>Your search <b>"& parKeyword &"</b> did not match any packages.</td>"
 - 
 
119 
						.write "</tr>"
 - 
 
120 
					End With
 - 
 
121 
                  Else %>
 121 
        <%Call DisplayCenterPane%>
122 
				  <tr class="form_field_bg">
 - 
 
123 
                    <td style="min-width:500px" class="body_txt">Package Name</td>
 - 
 
124 
                  </tr>
 - 
 
125 
                  <%
 - 
 
126 
				  End If
 - 
 
127
- 
 
128 
				  While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) %>
 - 
 
129 
					  <tr>
- 
 
130 
						<td nowrap class="body_row" valign="top" bgcolor="#F5F5F5"><a href="view_by_version.asp?pkg_id=<%=rsRep("pkg_id")%>&listby=<%=parListBy%>" class="body_link"><%=Highlight_Substring( rsRep("pkg_name"), parKeyword )%></a></td>
 - 
 
131 
					  </tr>
 - 
 
132 
				  <%  rsRep.MoveNext
 - 
 
133 
				  WEnd
 - 
 
134
- 
 
135 
				  rsRep.Close()
 - 
 
136 
				  %>
 - 
 
137 
				  <tr>
- 
 
138 
					<td background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 - 
 
139 
				  </tr>
 - 
 
140 
				</table>
 - 
 
141 
				<br>
 - 
 
142 
				<!------------------------------------------------------------>
- 
 
143
- 
 
144
- 
 
145 
				</td>
 - 
 
146 
			  <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
 - 
 
147 
			</tr>
 - 
 
148 
		  </table>
 - 
 
149
- 
 
150 
		  </td>
 - 
 
151 
        </tr>
 - 
 
152 
      </table>
 - 
 
153 
    </td>
 122 
    </td>
154 
    <td width="100%">&nbsp;</td>
 - 
 
155 
  </tr>
 123 
  </tr>
156 
  <tr>
124 
  <tr>
157 
    <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
 125 
    <td valign="bottom" align="center" class=panel_bg><img src="images/img_gear.gif" vspace="20" hspace="30"></td>
158 
    <td>&nbsp;</td>
 126 
    <td>&nbsp;</td>
159 
  </tr>
 127 
  </tr>
160 
</table>
 128 
</table>
161 
<!-- FOOTER -->
 129 
<!-- FOOTER -->
162 
<!--#include file="_footer.asp"-->
 130 
<!--#include file="_footer.asp"-->