version 1.191, 2003/10/24 21:09:24
|
version 1.194, 2003/12/11 20:59:54
|
Line 545 sub print_basic_search_form{
|
Line 545 sub print_basic_search_form{
|
$bodytag |
$bodytag |
ENDDOCUMENT |
ENDDOCUMENT |
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) { |
|
my $CatalogSearch=&mt('Catalog Search'); |
|
my $Statement=&mt('Enter terms or phrases separated by AND, OR, or NOT then press SEARCH below'); |
$scrout.=(<<ENDDOCUMENT); |
$scrout.=(<<ENDDOCUMENT); |
<h1>Catalog Search</h1> |
<h1>$CatalogSearch</h1> |
<form method="post" action="/adm/searchcat"> |
<form method="post" action="/adm/searchcat"> |
<input type="hidden" name="phase" value="basic_search" /> |
<input type="hidden" name="phase" value="basic_search" /> |
$hidden_fields |
$hidden_fields |
<p> |
<p> |
Enter terms or phrases separated by AND, OR, or NOT |
$Statement. |
then press SEARCH below. |
|
</p> |
</p> |
<p> |
<p> |
<table> |
<table> |
Line 565 ENDDOCUMENT
|
Line 566 ENDDOCUMENT
|
my $domaincheckbox = &simplecheckbox('domains',$domain); |
my $domaincheckbox = &simplecheckbox('domains',$domain); |
my $srch=&mt('Search'); |
my $srch=&mt('Search'); |
my $header=&mt('Advanced Search'); |
my $header=&mt('Advanced Search'); |
|
my $userelatedwords=&mt('use related words'); |
|
my $onlysearchdomain=&mt('only search domain'); |
$scrout.=<<END; |
$scrout.=<<END; |
</td><td><a |
</td><td><a |
href="/adm/searchcat?phase=disp_adv&catalogmode=$ENV{'form.catalogmode'}&launch=$ENV{'form.launch'}&mode=$ENV{'form.mode'}" |
href="/adm/searchcat?phase=disp_adv&catalogmode=$ENV{'form.catalogmode'}&launch=$ENV{'form.launch'}&mode=$ENV{'form.mode'}" |
>$header</a></td></tr> |
>$header</a></td></tr> |
<tr><td>$relatedcheckbox use related words</td> |
<tr><td>$relatedcheckbox $userelatedwords</td> |
<td>$domaincheckbox only search domain <b>$domain</b></td></tr> |
<td>$domaincheckbox $onlysearchdomain <b>$domain</b></td></tr> |
</table> |
</table> |
</p> |
</p> |
<p> |
<p> |
Line 2880 extra custom metadata to show.
|
Line 2883 extra custom metadata to show.
|
###################################################################### |
###################################################################### |
sub detailed_citation_view { |
sub detailed_citation_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
|
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $result=<<END; |
my $result=<<END; |
<b>$prefix<a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
<b>$prefix<img src="$icon" /><a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
target='search_preview'>$values{'title'}</a></b> |
target='search_preview'>$values{'title'}</a></b> |
<p> |
<p> |
<b>$values{'author'}</b>, <i>$values{'owner'}</i><br /> |
<b>$values{'author'}</b>, <i>$values{'owner'}</i><br /> |
Line 2914 END
|
Line 2918 END
|
###################################################################### |
###################################################################### |
sub summary_view { |
sub summary_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
|
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $result=<<END; |
my $result=<<END; |
$prefix<a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
$prefix<img src="$icon" /><a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
target='search_preview'>$values{'author'}</a><br /> |
target='search_preview'>$values{'author'}</a><br /> |
$values{'title'}<br /> |
$values{'title'}<br /> |
$values{'owner'} -- $values{'lastrevisiondate'}<br /> |
$values{'owner'} -- $values{'lastrevisiondate'}<br /> |
Line 2940 END
|
Line 2945 END
|
###################################################################### |
###################################################################### |
sub compact_view { |
sub compact_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
|
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $result=<<END; |
my $result=<<END; |
$prefix <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" target='search_preview'> |
$prefix <img src="$icon" /> <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" target='search_preview'> |
$values{'title'}</a> |
$values{'title'}</a> |
<b>$values{'author'}</b><br /> |
<b>$values{'author'}</b><br /> |
END |
END |
Line 2962 END
|
Line 2968 END
|
###################################################################### |
###################################################################### |
sub fielded_format_view { |
sub fielded_format_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
|
my $icon=&Apache::loncommon::icon($values{'url'}); |
my $result=<<END; |
my $result=<<END; |
$prefix |
$prefix <img src="$icon" /> |
<b>URL: </b> <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
<b>URL: </b> <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
target='search_preview'>$values{'url'}</a> |
target='search_preview'>$values{'url'}</a> |
<br /> |
<br /> |
Line 3183 sub start_fresh_session {
|
Line 3190 sub start_fresh_session {
|
|
|
sub cleanup { |
sub cleanup { |
if (tied(%groupsearch_db)) { |
if (tied(%groupsearch_db)) { |
&Apache::lonnet::logthis('Cleanup searchcat: groupsearch_db'); |
|
unless (untie(%groupsearch_db)) { |
unless (untie(%groupsearch_db)) { |
&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db'); |
&Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db'); |
} |
} |