version 1.225, 2004/05/09 22:55:17
|
version 1.227, 2004/05/10 18:59:18
|
Line 174 sub handler {
|
Line 174 sub handler {
|
'&launch='.$ENV{'form.launch'}. |
'&launch='.$ENV{'form.launch'}. |
'&mode='.$ENV{'form.mode'}, |
'&mode='.$ENV{'form.mode'}, |
text=>"Course and Catalog Search", |
text=>"Course and Catalog Search", |
|
target=>'_top', |
bug=>'Searching',}); |
bug=>'Searching',}); |
} else { |
} else { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
Line 182 sub handler {
|
Line 183 sub handler {
|
'&launch='.$ENV{'form.launch'}. |
'&launch='.$ENV{'form.launch'}. |
'&mode='.$ENV{'form.mode'}, |
'&mode='.$ENV{'form.mode'}, |
text=>"Catalog Search", |
text=>"Catalog Search", |
|
target=>'_top', |
bug=>'Searching',}); |
bug=>'Searching',}); |
} |
} |
# |
# |
Line 559 Prints the form for the basic search. S
|
Line 561 Prints the form for the basic search. S
|
###################################################################### |
###################################################################### |
sub print_basic_search_form { |
sub print_basic_search_form { |
my ($r,$closebutton,$hidden_fields) = @_; |
my ($r,$closebutton,$hidden_fields) = @_; |
|
my $result = ($ENV{'form.catalogmode'} ne 'groupsearch'); |
my $bodytag=&Apache::loncommon::bodytag('Search'). |
my $bodytag=&Apache::loncommon::bodytag('Search'). |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Searching', |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Searching', |
undef,undef,! $ENV{'form.launch'}); |
undef,undef, |
|
$ENV{'form.catalogmode'} ne 'groupsearch'); |
my $scrout = &search_html_header().$bodytag; |
my $scrout = &search_html_header().$bodytag; |
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) { |
# Define interface components |
# Define interface components |
Line 689 Prints the advanced search form.
|
Line 693 Prints the advanced search form.
|
sub print_advanced_search_form{ |
sub print_advanced_search_form{ |
my ($r,$closebutton,$hidden_fields) = @_; |
my ($r,$closebutton,$hidden_fields) = @_; |
my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'). |
my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'). |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching', |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Searching', |
'Searching', |
undef,undef, |
undef,undef, |
$ENV{'form.catalogmode'} ne 'groupsearch'); |
! $ENV{'form.launch'}); |
|
|
|
my %lt=&Apache::lonlocal::texthash('srch' => 'Search', |
my %lt=&Apache::lonlocal::texthash('srch' => 'Search', |
'reset' => 'Reset', |
'reset' => 'Reset', |
'help' => 'Help'); |
'help' => 'Help'); |
Line 1188 Parse advanced search form and return th
|
Line 1190 Parse advanced search form and return th
|
sub parse_advanced_search { |
sub parse_advanced_search { |
my ($r,$closebutton,$hidden_fields)=@_; |
my ($r,$closebutton,$hidden_fields)=@_; |
my @BasicFields = ('title','author','subject','keywords','url','version', |
my @BasicFields = ('title','author','subject','keywords','url','version', |
'notes','abstract','extension','owner', |
'notes','abstract','extension','owner','authorspace', |
# 'custommetadata','customshow', |
# 'custommetadata','customshow', |
'modifyinguser','standards','mime'); |
'modifyinguser','standards','mime'); |
my @StatsFields = &statfields(); |
my @StatsFields = &statfields(); |
Line 1400 sub parse_advanced_search {
|
Line 1402 sub parse_advanced_search {
|
$pretty_search_string .= $pretty_domains_string."<br />\n"; |
$pretty_search_string .= $pretty_domains_string."<br />\n"; |
# |
# |
if (@queries) { |
if (@queries) { |
$query="SELET * FROM metadata WHERE ".join(" AND ",@queries); |
$query="SELECT * FROM metadata WHERE ".join(" AND ",@queries); |
} elsif ($customquery) { |
} elsif ($customquery) { |
$query = ''; |
$query = ''; |
} |
} |
Line 1600 sub build_SQL_query {
|
Line 1602 sub build_SQL_query {
|
-build => 'Text::Query::Build'); |
-build => 'Text::Query::Build'); |
$q->prepare($logic_statement); |
$q->prepare($logic_statement); |
my $matchexp=${$q}{'matchexp'}; chomp $matchexp; |
my $matchexp=${$q}{'matchexp'}; chomp $matchexp; |
&Apache::lonnet::logthis('matchexp = '.$matchexp); |
|
my $sql_query=&recursive_SQL_query_build($field_name,$matchexp); |
my $sql_query=&recursive_SQL_query_build($field_name,$matchexp); |
&Apache::lonnet::logthis('sql_query = '.$sql_query); |
|
return $sql_query; |
return $sql_query; |
} |
} |
|
|
Line 1875 sub print_sort_form {
|
Line 1875 sub print_sort_form {
|
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1). |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1). |
&Apache::lonhtmlcommon::breadcrumbs |
&Apache::lonhtmlcommon::breadcrumbs |
(undef,'Searching','Searching',undef,undef, |
(undef,'Searching','Searching',undef,undef, |
! ($ENV{'form.catalogmode'} eq 'groupsearch')); |
$ENV{'form.catalogmode'} ne 'groupsearch'); |
|
|
## |
## |
my %SortableFields=&Apache::lonlocal::texthash( |
my %SortableFields=&Apache::lonlocal::texthash( |
Line 2142 results into MySQL.
|
Line 2142 results into MySQL.
|
sub run_search { |
sub run_search { |
my ($r,$query,$customquery,$customshow,$serverlist,$pretty_string) = @_; |
my ($r,$query,$customquery,$customshow,$serverlist,$pretty_string) = @_; |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
$bodytag.= |
$bodytag.=&Apache::lonhtmlcommon::breadcrumbs |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching','Searching', |
(undef,'Searching','Searching',undef,undef, |
undef,undef,! $ENV{'form.launch'}); |
$ENV{'form.catalogmode'} ne 'groupsearch'); |
|
|
my $connection = $r->connection; |
my $connection = $r->connection; |
# |
# |
# Print run_search header |
# Print run_search header |
Line 2972 sub detailed_citation_view {
|
Line 2971 sub detailed_citation_view {
|
{ name=>'goto_list', |
{ name=>'goto_list', |
type => 'list', |
type => 'list', |
translate => 'Resources that follow this resource in maps',}, |
translate => 'Resources that follow this resource in maps',}, |
{ name=>'usage_list', |
{ name=>'sequsage_list', |
type => 'list', |
type => 'list', |
translate => 'Resources using or importing resource',}, |
translate => 'Resources using or importing resource',}, |
) { |
) { |