version 1.153.2.1, 2002/09/16 13:05:54
|
version 1.154, 2002/08/21 17:18:08
|
Line 171 sub handler {
|
Line 171 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
## |
|
## Prevent caching of the search interface window. Hopefully this means |
|
## we will get the launch=1 passed in a little more. |
|
&Apache::loncommon::no_cache($r); |
|
## |
## |
## Pick up form fields passed in the links. |
## Pick up form fields passed in the links. |
## |
## |
Line 230 END
|
Line 226 END
|
## Clear out old values from groupsearch database |
## Clear out old values from groupsearch database |
## |
## |
untie %groupsearch_db if (tied(%groupsearch_db)); |
untie %groupsearch_db if (tied(%groupsearch_db)); |
if (($ENV{'form.launch'} eq '1') && |
if ($ENV{'form.launch'} eq '1' && |
($ENV{'form.catalogmode'} eq 'groupsearch')) { |
($ENV{'form.catalogmode'} eq 'groupsearch') && |
|
($ENV{'form.phase'} eq 'results')) { |
if (tie(%groupsearch_db,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { |
if (tie(%groupsearch_db,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) { |
&start_fresh_session(); |
&start_fresh_session(); |
untie %groupsearch_db; |
untie %groupsearch_db; |
Line 393 Returns a scalar which holds html for th
|
Line 390 Returns a scalar which holds html for th
|
|
|
sub print_basic_search_form{ |
sub print_basic_search_form{ |
my ($r,$closebutton) = @_; |
my ($r,$closebutton) = @_; |
|
my $bodytag=&Apache::loncommon::bodytag('Catalog Search'); |
my $scrout=<<"ENDDOCUMENT"; |
my $scrout=<<"ENDDOCUMENT"; |
<html> |
<html> |
<head> |
<head> |
Line 405 sub print_basic_search_form{
|
Line 403 sub print_basic_search_form{
|
} |
} |
</script> |
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<img align='right' src='/adm/lonIcons/lonlogos.gif' /> |
|
<h1>Search Catalog</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 |
<h3>Basic Search</h3> |
|
<p> |
<p> |
Enter terms or phrases separated by AND, OR, or NOT |
Enter terms or phrases separated by AND, OR, or NOT |
then press SEARCH below. |
then press SEARCH below. |
Line 477 END
|
Line 472 END
|
if (!defined($ENV{'form.viewselect'})) { |
if (!defined($ENV{'form.viewselect'})) { |
$ENV{'form.viewselect'} ="Detailed Citation View"; |
$ENV{'form.viewselect'} ="Detailed Citation View"; |
} |
} |
|
my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'); |
my $scrout=<<"ENDHEADER"; |
my $scrout=<<"ENDHEADER"; |
<html> |
<html> |
<head> |
<head> |
Line 489 END
|
Line 485 END
|
} |
} |
</script> |
</script> |
</head> |
</head> |
<body bgcolor="#FFFFFF"> |
$bodytag |
<img align='right' src='/adm/lonIcons/lonlogos.gif' /> |
|
<h1>Advanced Catalog Search</h1> |
|
<hr /> |
|
Enter terms or phrases separated by search operators |
Enter terms or phrases separated by search operators |
such as AND, OR, or NOT.<br /> |
such as AND, OR, or NOT.<br /> |
<form method="post" action="/adm/searchcat"> |
<form method="post" action="/adm/searchcat"> |