|
version 1.188, 2003/09/29 15:28:40
|
version 1.206, 2004/04/14 18:29:32
|
|
Line 48 described at http://www.lon-capa.org.
|
Line 48 described at http://www.lon-capa.org.
|
| lonsearchcat presents the user with an interface to search the LON-CAPA |
lonsearchcat presents the user with an interface to search the LON-CAPA |
| digital library. lonsearchcat also initiates the execution of a search |
digital library. lonsearchcat also initiates the execution of a search |
| by sending the search parameters to LON-CAPA servers. The progress of |
by sending the search parameters to LON-CAPA servers. The progress of |
| search (on a server basis) is displayed to the user in a seperate window. |
search (on a server basis) is displayed to the user in a separate window. |
| |
|
| =head1 Internals |
=head1 Internals |
| |
|
|
Line 59 search (on a server basis) is displayed
|
Line 59 search (on a server basis) is displayed
|
| ############################################################################### |
############################################################################### |
| ############################################################################### |
############################################################################### |
| |
|
| ############################################################################### |
|
| ## ## |
|
| ## ORGANIZATION OF THIS PERL MODULE ## |
|
| ## ## |
|
| ## 1. Modules used by this module ## |
|
| ## 2. Variables used throughout the module ## |
|
| ## 3. handler subroutine called via Apache and mod_perl ## |
|
| ## 4. Other subroutines ## |
|
| ## ## |
|
| ############################################################################### |
|
| |
|
| package Apache::lonsearchcat; |
package Apache::lonsearchcat; |
| |
|
| # ------------------------------------------------- modules used by this module |
|
| use strict; |
use strict; |
| use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
| use Apache::lonnet(); |
use Apache::lonnet(); |
|
Line 82 use Text::Query;
|
Line 70 use Text::Query;
|
| use GDBM_File; |
use GDBM_File; |
| use Apache::loncommon(); |
use Apache::loncommon(); |
| use Apache::lonmysql(); |
use Apache::lonmysql(); |
| |
use Apache::lonmeta; |
| |
use Apache::lonhtmlcommon; |
| use Apache::lonlocal; |
use Apache::lonlocal; |
| |
use LONCAPA::lonmetadata(); |
| # ---------------------------------------- variables used throughout the module |
|
| |
|
| ###################################################################### |
|
| ###################################################################### |
|
| |
|
| =pod |
|
| |
|
| =item Global variables |
|
| |
|
| =over 4 |
|
| |
|
| =item $importbutton |
|
| |
|
| button to take the select results and go to group sorting |
|
| |
|
| =item %groupsearch_db |
|
| |
|
| Database hash used to save values for the groupsearch RAT interface. |
|
| |
|
| =item $diropendb |
|
| |
|
| The full path to the (temporary) search database file. This is set and |
|
| used in &handler() and is also used in &output_results(). |
|
| |
|
| =item %Views |
|
| |
|
| Hash which associates an output view description with the function |
|
| that produces it. Adding a new view type should be as easy as |
|
| adding a line to the definition of this hash and making sure the function |
|
| takes the proper parameters. |
|
| |
|
| =item $bodytag |
|
| |
|
| LON-CAPA standard body tag, gotten from &Apache::lonnet::bodytag. |
|
| No title, no table, just a <body> tag. |
|
| |
|
| =back |
|
| |
|
| =cut |
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
## |
| # -- dynamically rendered interface components |
## Global variables |
| my $importbutton; # button to take the selected results and go to group sorting |
## |
| |
|
| # -- miscellaneous variables |
|
| my %groupsearch_db; # database hash |
|
| my $diropendb = ""; # db file |
|
| # View Description Function Pointer |
|
| my %Views = ("Detailed Citation View" => \&detailed_citation_view, |
|
| "Summary View" => \&summary_view, |
|
| "Fielded Format" => \&fielded_format_view, |
|
| "XML/SGML" => \&xml_sgml_view, |
|
| "Compact View" => \&compact_view); |
|
| my %persistent_db; |
|
| my $hidden_fields; |
|
| my $bodytag; |
|
| |
|
| # |
|
| # For course search |
|
| # |
|
| my %alreadyseen; |
|
| my $hashtied; |
|
| my %hash; |
|
| my $totalfound; |
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
my %groupsearch_db; # Database hash used to save values for the |
| |
# groupsearch RAT interface. |
| |
my %persistent_db; # gdbm hash which holds data which is supposed to |
| |
# persist across calls to lonsearchcat.pm |
| |
|
| =pod |
# The different view modes and associated functions |
| |
|
| =item &handler() - main handler invoked by httpd child |
|
| |
|
| =item Variables |
my %Views = ("detailed" => \&detailed_citation_view, |
| |
"summary" => \&summary_view, |
| =over 4 |
"fielded" => \&fielded_format_view, |
| |
"xml" => \&xml_sgml_view, |
| =item $hidden |
"compact" => \&compact_view); |
| |
|
| holds 'hidden' html forms |
|
| |
|
| =item $scrout |
|
| |
|
| string that holds portions of the screen output |
|
| |
|
| =back |
|
| |
|
| =cut |
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| sub handler { |
sub handler { |
| my $r = shift; |
my $r = shift; |
| |
# &set_defaults(); |
| |
# |
| |
# set form defaults |
| # |
# |
| |
my $hidden_fields;# Hold all the hidden fields used to keep track |
| |
# of the search system state |
| |
my $importbutton; # button to take the selected results and go to group |
| |
# sorting |
| |
my $diropendb; # The full path to the (temporary) search database file. |
| |
# This is set and used in &handler() and is also used in |
| |
# &output_results(). |
| |
my $bodytag; # LON-CAPA standard body tag, gotten from |
| |
# &Apache::lonnet::bodytag. |
| |
# No title, no table, just a <body> tag. |
| |
|
| my $loaderror=&Apache::lonnet::overloaderror($r); |
my $loaderror=&Apache::lonnet::overloaderror($r); |
| if ($loaderror) { return $loaderror; } |
if ($loaderror) { return $loaderror; } |
|
Line 200 sub handler {
|
Line 134 sub handler {
|
| &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
| ['catalogmode','launch','acts','mode','form','element','pause', |
['catalogmode','launch','acts','mode','form','element','pause', |
| 'phase','persistent_db_id','table','start','show', |
'phase','persistent_db_id','table','start','show', |
| 'cleargroupsort']); |
'cleargroupsort','titleelement']); |
| ## |
## |
| ## The following is a trick - we wait a few seconds if asked to so |
## The following is a trick - we wait a few seconds if asked to so |
| ## the daemon running the search can get ahead of the daemon |
## the daemon running the search can get ahead of the daemon |
|
Line 282 END
|
Line 216 END
|
| $hidden_fields .= '<input type="hidden" name="element" value="'. |
$hidden_fields .= '<input type="hidden" name="element" value="'. |
| $ENV{'form.element'}.'" />'."\n"; |
$ENV{'form.element'}.'" />'."\n"; |
| } |
} |
| |
if (exists($ENV{'form.titleelement'})) { |
| |
$hidden_fields .= '<input type="hidden" name="titleelement" value="'. |
| |
$ENV{'form.titleelement'}.'" />'."\n"; |
| |
} |
| if (exists($ENV{'form.mode'})) { |
if (exists($ENV{'form.mode'})) { |
| $hidden_fields .= '<input type="hidden" name="mode" value="'. |
$hidden_fields .= '<input type="hidden" name="mode" value="'. |
| $ENV{'form.mode'}.'" />'."\n"; |
$ENV{'form.mode'}.'" />'."\n"; |
|
Line 330 END
|
Line 268 END
|
| ## Switch on the phase |
## Switch on the phase |
| ## |
## |
| if ($ENV{'form.phase'} eq 'disp_basic') { |
if ($ENV{'form.phase'} eq 'disp_basic') { |
| &print_basic_search_form($r,$closebutton); |
&print_basic_search_form($r,$closebutton,$hidden_fields); |
| } elsif ($ENV{'form.phase'} eq 'disp_adv') { |
} elsif ($ENV{'form.phase'} eq 'disp_adv') { |
| &print_advanced_search_form($r,$closebutton); |
&print_advanced_search_form($r,$closebutton,$hidden_fields); |
| } elsif ($ENV{'form.phase'} eq 'results') { |
} elsif ($ENV{'form.phase'} eq 'results') { |
| &display_results($r,$importbutton,$closebutton); |
&display_results($r,$importbutton,$closebutton,$diropendb); |
| } elsif ($ENV{'form.phase'} =~ /^(sort|run_search)$/) { |
} elsif ($ENV{'form.phase'} =~ /^(sort|run_search)$/) { |
| my ($query,$customquery,$customshow,$libraries,$pretty_string) = |
my ($query,$customquery,$customshow,$libraries,$pretty_string) = |
| &get_persistent_data($persistent_db_file, |
&get_persistent_data($persistent_db_file, |
|
Line 356 END
|
Line 294 END
|
| } |
} |
| # Set up table |
# Set up table |
| if (! defined(&create_results_table())) { |
if (! defined(&create_results_table())) { |
| |
my $errorstring=&Apache::lonmysql::get_error(); |
| $r->print(<<END); |
$r->print(<<END); |
| <html><head><title>Search Error</title></head> |
<html><head><title>Search Error</title></head> |
| $bodytag |
$bodytag |
| Unable to create table in which to store search results. |
Unable to create table in which to store search results. |
| The search has been aborted. |
The search has been aborted. |
| |
<br />$errorstring |
| </body> |
</body> |
| </html> |
</html> |
| END |
END |
|
Line 384 END
|
Line 324 END
|
| my $pretty_string; |
my $pretty_string; |
| if ($ENV{'form.phase'} eq 'basic_search') { |
if ($ENV{'form.phase'} eq 'basic_search') { |
| ($query,$pretty_string,$libraries) = |
($query,$pretty_string,$libraries) = |
| &parse_basic_search($r,$closebutton); |
&parse_basic_search($r,$closebutton,$hidden_fields); |
| } else { # Advanced search |
} else { # Advanced search |
| ($query,$customquery,$customshow,$libraries,$pretty_string) |
($query,$customquery,$customshow,$libraries,$pretty_string) |
| = &parse_advanced_search($r,$closebutton); |
= &parse_advanced_search($r,$closebutton,$hidden_fields); |
| return OK if (! defined($query)); |
return OK if (! defined($query)); |
| } |
} |
| &make_persistent({ query => $query, |
&make_persistent({ query => $query, |
|
Line 406 END
|
Line 346 END
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
## |
| |
## Course Search |
| |
## |
| |
###################################################################### |
| |
###################################################################### |
| |
{ # Scope the course search to avoid global variables |
| |
# |
| |
# Variables For course search |
| |
my %alreadyseen; |
| |
my %hash; |
| |
my $totalfound; |
| |
|
| sub course_search { |
sub course_search { |
| my $r=shift; |
my $r=shift; |
| my $bodytag=&Apache::loncommon::bodytag('Course Search'); |
my $bodytag=&Apache::loncommon::bodytag('Course Search'). |
| |
&Apache::loncommon::help_open_bug('Searching'); |
| my $pretty_search_string = '<b>'.$ENV{'form.courseexp'}.'</b>'; |
my $pretty_search_string = '<b>'.$ENV{'form.courseexp'}.'</b>'; |
| my $search_string = $ENV{'form.courseexp'}; |
my $search_string = $ENV{'form.courseexp'}; |
| my @New_Words; |
my @New_Words; |
| if ($ENV{'form.crsrelated'}) { |
if ($ENV{'form.crsrelated'}) { |
| ($search_string,@New_Words) = &related_version($ENV{'form.courseexp'}); |
($search_string,@New_Words) = &related_version($ENV{'form.courseexp'}); |
| if (@New_Words) { |
if (@New_Words) { |
| $pretty_search_string .= " with related words: <b>@New_Words</b>."; |
$pretty_search_string .= ' '.&mt("with related words").": <b>@New_Words</b>."; |
| } else { |
} else { |
| $pretty_search_string .= " with no related words."; |
$pretty_search_string .= ' '.&mt('with no related words')."."; |
| } |
} |
| } |
} |
| my $fulltext=$ENV{'form.crsfulltext'}; |
my $fulltext=$ENV{'form.crsfulltext'}; |
| my @allwords=($search_string,@New_Words); |
my @allwords=($search_string,@New_Words); |
| $totalfound=0; |
$totalfound=0; |
| $r->print('<html><head><title>LON-CAPA Course Search</title></head>'. |
$r->print('<html><head><title>LON-CAPA Course Search</title></head>'. |
| $bodytag.$pretty_search_string); |
$bodytag.'<hr /><center><font size="+2" face="arial">'.$pretty_search_string.'</font></center><hr />'); |
| $r->rflush(); |
$r->rflush(); |
| # ======================================================= Go through the course |
# ======================================================= Go through the course |
| $hashtied=0; |
undef %alreadyseen; |
| undef %alreadyseen; |
%alreadyseen=(); |
| %alreadyseen=(); |
|
| my $c=$r->connection; |
my $c=$r->connection; |
| &tiehash(); |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
| foreach (keys %hash) { |
&GDBM_READER(),0640)) { |
| if ($c->aborted()) { last; } |
foreach (keys %hash) { |
| if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) { |
if ($c->aborted()) { last; } |
| &checkonthis($r,$hash{$_},0,$hash{'title_'.$1},$fulltext,@allwords); |
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) { |
| } |
&checkonthis($r,$hash{$_},0,$hash{'title_'.$1},$fulltext, |
| } |
@allwords); |
| &untiehash(); |
} |
| |
} |
| |
untie(%hash); |
| |
} |
| unless ($totalfound) { |
unless ($totalfound) { |
| $r->print('<p>'.&mt('No resources found').'.</p>'); |
$r->print('<p>'.&mt('No resources found').'.</p>'); |
| } |
} |
|
Line 447 sub course_search {
|
Line 401 sub course_search {
|
| $r->print('</body></html>'); |
$r->print('</body></html>'); |
| } |
} |
| |
|
| # ---------------------------------------------------------------- tie the hash |
|
| |
|
| sub tiehash { |
|
| $hashtied=0; |
|
| if ($ENV{'request.course.fn'}) { |
|
| if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
|
| &GDBM_READER(),0640)) { |
|
| $hashtied=1; |
|
| } |
|
| } |
|
| } |
|
| |
|
| sub untiehash { |
|
| if ($hashtied) { untie %hash; } |
|
| $hashtied=0; |
|
| } |
|
| |
|
| # =============================== This pulls up a resource and its dependencies |
# =============================== This pulls up a resource and its dependencies |
| |
|
| sub checkonthis { |
sub checkonthis { |
|
Line 509 sub checkonthis {
|
Line 446 sub checkonthis {
|
| } |
} |
| } |
} |
| |
|
| |
sub untiehash { |
| |
if (tied(%hash)) { |
| |
untie(%hash); |
| |
} |
| |
} |
| |
|
| |
} # End of course search scoping |
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
|
|
Line 516 sub checkonthis {
|
Line 461 sub checkonthis {
|
| |
|
| =item &print_basic_search_form() |
=item &print_basic_search_form() |
| |
|
| Returns a scalar which holds html for the basic search form. |
Prints the form for the basic search. Sorry the name is so cryptic. |
| |
|
| =cut |
=cut |
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
sub print_basic_search_form { |
| sub print_basic_search_form{ |
my ($r,$closebutton,$hidden_fields) = @_; |
| my ($r,$closebutton) = @_; |
my $bodytag=&Apache::loncommon::bodytag('Search'). |
| my $bodytag=&Apache::loncommon::bodytag('Search'); |
&Apache::loncommon::help_open_topic('Finding_Resources'). |
| |
&Apache::loncommon::help_open_bug('Searching'); |
| my $scrout=<<"ENDDOCUMENT"; |
my $scrout=<<"ENDDOCUMENT"; |
| <html> |
<html> |
| <head> |
<head> |
|
Line 541 sub print_basic_search_form{
|
Line 487 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=&searchhelp(); |
| $scrout.=(<<ENDDOCUMENT); |
$scrout.=(<<ENDDOCUMENT); |
| <h1>Catalog Search</h1> |
<h1>$CatalogSearch</h1> |
| <form method="post" action="/adm/searchcat"> |
<form name="loncapa_search" 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> |
| <tr><td> |
<tr><td> |
| ENDDOCUMENT |
ENDDOCUMENT |
| $scrout.=' '.&simpletextfield('basicexp',$ENV{'form.basicexp'},40). |
$scrout.=' '.&Apache::lonhtmlcommon::textbox('basicexp', |
| |
$ENV{'form.basicexp'},40). |
| ' '; |
' '; |
| my $relatedcheckbox = &simplecheckbox('related',$ENV{'form.related'}); |
my $relatedcheckbox = &Apache::lonhtmlcommon::checkbox('related', |
| |
$ENV{'form.related'}); |
| my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
| my $domaincheckbox = &simplecheckbox('domains',$domain); |
my $domaincheckbox = &Apache::lonhtmlcommon::checkbox('domains', |
| |
$ENV{'form.domains'}); |
| 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'); |
| |
my $view=&viewoptions(); |
| $scrout.=<<END; |
$scrout.=<<END; |
| </td><td><a |
</td><td><a |
| href="/adm/searchcat?phase=disp_adv&catalogmode=$ENV{'form.catalogmode'}&launch=$ENV{'form.launch'}" |
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> |
| |
$view |
| <p> |
<p> |
| <input type="submit" name="basicsubmit" value='$srch' /> |
<input type="submit" name="basicsubmit" value='$srch' /> |
| $closebutton |
$closebutton |
| END |
END |
| $scrout.=&selectbox('View','viewselect', |
|
| $ENV{'form.viewselect'}, |
|
| undef,undef,undef, |
|
| sort(keys(%Views))); |
|
| $scrout.=&selectbox('Per Page','show', |
|
| $ENV{'form.show'}, |
|
| undef,undef,undef, |
|
| (10,20,50,100)); |
|
| $scrout.=<<ENDDOCUMENT; |
$scrout.=<<ENDDOCUMENT; |
| </p> |
</p> |
| </form> |
</form> |
|
Line 591 ENDDOCUMENT
|
Line 537 ENDDOCUMENT
|
| 'srch' => 'Search', |
'srch' => 'Search', |
| 'header' => 'Course Search', |
'header' => 'Course Search', |
| 'note' => 'Enter terms or phrases, then press "Search" below', |
'note' => 'Enter terms or phrases, then press "Search" below', |
| |
'use' => 'use related words', |
| |
'full' =>'fulltext search (time consuming)' |
| ); |
); |
| $scrout.=(<<ENDCOURSESEARCH); |
$scrout.=(<<ENDCOURSESEARCH); |
| <hr /> |
<hr /> |
| <h1>$lt{'header'}</h1> |
<h1>$lt{'header'}</h1> |
| <form method="post" action="/adm/searchcat"> |
<form name="course_search" method="post" action="/adm/searchcat"> |
| <input type="hidden" name="phase" value="course_search" /> |
<input type="hidden" name="phase" value="course_search" /> |
| $hidden_fields |
$hidden_fields |
| <p> |
<p> |
|
Line 606 $lt{'note'}.
|
Line 554 $lt{'note'}.
|
| <tr><td> |
<tr><td> |
| ENDCOURSESEARCH |
ENDCOURSESEARCH |
| $scrout.=' '. |
$scrout.=' '. |
| &simpletextfield('courseexp',$ENV{'form.courseexp'},40); |
&Apache::lonhtmlcommon::textbox('courseexp', |
| |
$ENV{'form.courseexp'},40); |
| my $crscheckbox = |
my $crscheckbox = |
| &simplecheckbox('crsfulltext',$ENV{'form.crsfulltext'}); |
&Apache::lonhtmlcommon::checkbox('crsfulltext', |
| |
$ENV{'form.crsfulltext'}); |
| my $relcheckbox = |
my $relcheckbox = |
| &simplecheckbox('crsrelated',$ENV{'form.crsrelated'}); |
&Apache::lonhtmlcommon::checkbox('crsrelated', |
| |
$ENV{'form.crsrelated'}); |
| $scrout.=(<<ENDENDCOURSE); |
$scrout.=(<<ENDENDCOURSE); |
| </td></tr> |
</td></tr> |
| <tr><td>$relcheckbox use related words</td><td></td></tr> |
<tr><td>$relcheckbox $lt{'use'}</td><td></td></tr> |
| <tr><td>$crscheckbox fulltext search (time consuming)</td><td></td></tr> |
<tr><td>$crscheckbox $lt{'full'}</td><td></td></tr> |
| </table><p> |
</table><p> |
| <input type="submit" name="coursesubmit" value='$lt{'srch'}' /> |
<input type="submit" name="coursesubmit" value='$lt{'srch'}' /> |
| </p> |
</p> |
|
Line 634 ENDDOCUMENT
|
Line 585 ENDDOCUMENT
|
| |
|
| =item &advanced_search_form() |
=item &advanced_search_form() |
| |
|
| Returns a scalar which holds html for the advanced search form. |
Prints the advanced search form. |
| |
|
| =cut |
=cut |
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
|
| sub print_advanced_search_form{ |
sub print_advanced_search_form{ |
| my ($r,$closebutton) = @_; |
my ($r,$closebutton,$hidden_fields) = @_; |
| |
my %lt=&Apache::lonlocal::texthash('srch' => 'Search', |
| |
'reset' => 'Reset', |
| |
'help' => 'Help'); |
| my $advanced_buttons = <<"END"; |
my $advanced_buttons = <<"END"; |
| <p> |
<p> |
| <input type="submit" name="advancedsubmit" value='SEARCH' /> |
<input type="submit" name="advancedsubmit" value='$lt{"srch"}' /> |
| <input type="reset" name="reset" value='RESET' /> |
<input type="reset" name="reset" value='$lt{"reset"}' /> |
| $closebutton |
$closebutton |
| <input type="button" value="HELP" onClick="openhelp()" /> |
<input type="button" value="$lt{'help'}" onClick="openhelp()" /> |
| </p> |
</p> |
| END |
END |
| if (!defined($ENV{'form.viewselect'})) { |
|
| $ENV{'form.viewselect'} ="Detailed Citation View"; |
|
| } |
|
| my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'); |
my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'); |
| |
my $searchhelp=&searchhelp(); |
| my $scrout=<<"ENDHEADER"; |
my $scrout=<<"ENDHEADER"; |
| <html> |
<html> |
| <head> |
<head> |
|
Line 668 END
|
Line 619 END
|
| </script> |
</script> |
| </head> |
</head> |
| $bodytag |
$bodytag |
| Enter terms or phrases separated by search operators |
$searchhelp |
| such as AND, OR, or NOT.<br /> |
<form method="post" action="/adm/searchcat" name="advsearch"> |
| <form method="post" action="/adm/searchcat"> |
|
| $advanced_buttons |
$advanced_buttons |
| $hidden_fields |
$hidden_fields |
| <input type="hidden" name="phase" value="adv_search" /> |
<input type="hidden" name="phase" value="adv_search" /> |
| <table> |
|
| <tr><td><font color="#800000" face="helvetica"><b>VIEW:</b></font></td> |
|
| <td> |
|
| ENDHEADER |
ENDHEADER |
| $scrout.=&selectbox(undef,'viewselect', |
$scrout.=&viewoptions(); |
| $ENV{'form.viewselect'}, |
my %fields=&Apache::lonmeta::fieldnames(); |
| undef,undef,undef, |
|
| sort(keys(%Views))); |
$scrout.='<table>'; |
| $scrout.=' '; |
$scrout.="<tr><th>".&mt('Field').'</th><th>'.&mt('Value').'</th><th>' |
| $scrout.=&selectbox(undef,'show', |
.&mt('Related').'<br />'.&mt('Words')."</td></tr>\n"; |
| $ENV{'form.show'}, |
foreach ('title','author','owner','authorspace','modifyinguser', |
| undef,undef,undef, |
'keywords','notes','abstract','standards', |
| (10,20,50,100)); |
'lowestgradelevel','highestgradelevel','mime') { |
| $scrout.=' '. |
$scrout.='<tr bgcolor="#FFFFBB"><td>'.&titlefield($fields{$_}).'</td><td>'. |
| '<font color="#800000" face="helvetica">'.&mt('Per Page').'</font>'; |
&Apache::lonmeta::prettyinput($_,$ENV{'form.'.$_},$_,'advsearch', |
| $scrout.="</td><td>".&mt('Related').'<br />'.&mt('Words')."</td></tr>\n"; |
1,'</td><td>',$ENV{'form.'.$_.'_related'}). |
| $scrout.=&searchphrasefield_with_related('title', 'title' , |
'</td></tr>'; |
| $ENV{'form.title'}); |
} |
| $scrout.=&searchphrasefield('author', 'author' ,$ENV{'form.author'}); |
$scrout.='<tr bgcolor="#FFFFBB"><td>'. |
| $scrout.=&searchphrasefield_with_related('subject', 'subject' , |
&titlefield(&mt('MIME Type Category')).'</td><td>'. |
| $ENV{'form.subject'}); |
&Apache::loncommon::filecategoryselect('category', |
| $scrout.=&searchphrasefield_with_related('keywords','keywords', |
$ENV{'form.category'}). |
| $ENV{'form.keywords'}); |
'</td><td> </td></td></tr>'; |
| $scrout.=&searchphrasefield('URL', 'url' ,$ENV{'form.url'}); |
$scrout.='<tr bgcolor="#FFFFBB"><td>'. |
| $scrout.=&searchphrasefield_with_related('notes', 'notes' , |
&titlefield(&mt('Limit Search to Domains')).'</td><td>'. |
| $ENV{'form.notes'}); |
&Apache::loncommon::domain_select('domains', |
| $scrout.=&searchphrasefield_with_related('abstract','abstract', |
$ENV{'form.domains'},1). |
| $ENV{'form.abstract'}); |
'</td><td> </td></td></tr>'; |
| # Hack - an empty table row. |
my %dates=&Apache::lonlocal::texthash |
| $scrout.="<tr><td> </td><td> </td><td> </td></tr>\n"; |
('creationdatestart' => 'Creation Date After', |
| $scrout.=&searchphrasefield('file<br />extension','extension', |
'creationdateend' => 'Creation Date Before', |
| $ENV{'form.extension'}); |
'lastrevisiondatestart' => 'Last Revision Date After', |
| $scrout.="<tr><td> </td><td> </td><td> </td></tr>\n"; |
'lastrevisiondateend' => 'Last Revision Date Before'); |
| $scrout.=&searchphrasefield('publisher<br />owner','owner', |
foreach (sort keys %dates) { |
| $ENV{'form.owner'}); |
$scrout.='<tr bgcolor="#FFFFBB">'. |
| $scrout.="</table>\n"; |
'<td>'.&titlefield($dates{$_}).'</td><td>'. |
| $ENV{'form.category'}='any' if (! defined($ENV{'form.category'})); |
&Apache::lonhtmlcommon::date_setter('advsearch',$_,0,'',1). |
| $scrout.=&selectbox('File Category','category', |
'</td><td> </td></td>'. |
| $ENV{'form.category'}, |
'</tr>'; |
| 'any','Any category', |
|
| undef, |
|
| (&Apache::loncommon::filecategories())); |
|
| $ENV{'form.language'}='any' unless length($ENV{'form.language'}); |
|
| #---------------------------------------------------------------- |
|
| # Allow restriction to multiple domains. |
|
| # I make the crazy assumption that there will never be a domain 'any'. |
|
| # |
|
| $ENV{'form.domains'} = 'any' if (! exists($ENV{'form.domains'})); |
|
| my @allowed_domains = (ref($ENV{'form.domains'}) ? @{$ENV{'form.domains'}} |
|
| : ($ENV{'form.domains'}) ); |
|
| my %domain_hash = (); |
|
| foreach (@allowed_domains) { |
|
| $domain_hash{$_}++; |
|
| } |
} |
| my @domains =&Apache::loncommon::get_domains(); |
|
| # adjust the size of the select box |
$scrout.="</table>\n"; |
| my $size = 4; |
|
| $size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size); |
|
| $scrout.="\n".'<font color="#800000" face="helvetica"><b>'. |
|
| 'DOMAINS TO BE SEARCHED</b></font><br />'. |
|
| '<select name="domains" size="'.$size.'" multiple>'."\n". |
|
| '<option name="any" value="any" '. |
|
| ($domain_hash{'any'}? 'selected ' :''). |
|
| '>all domains</option>'."\n"; |
|
| foreach my $dom (sort @domains) { |
|
| $scrout.="<option name=\"$dom\" ". |
|
| ($domain_hash{$dom} ? 'selected ' :'').">$dom</option>\n"; |
|
| } |
|
| $scrout.="</select>\n"; |
|
| #---------------------------------------------------------------- |
|
| $scrout.=&selectbox('Limit by language','language', |
|
| $ENV{'form.language'},'any','Any Language', |
|
| \&Apache::loncommon::languagedescription, |
|
| (&Apache::loncommon::languageids), |
|
| ); |
|
| # ------------------------------------------------ Compute date selection boxes |
|
| $scrout.=<<CREATIONDATESTART; |
|
| <p> |
|
| <font color="#800000" face="helvetica"><b>LIMIT BY CREATION DATE RANGE:</b> |
|
| </font> |
|
| <br /> |
|
| between: |
|
| CREATIONDATESTART |
|
| $scrout.=&dateboxes('creationdatestart',1,1,1976, |
|
| $ENV{'form.creationdatestart_month'}, |
|
| $ENV{'form.creationdatestart_day'}, |
|
| $ENV{'form.creationdatestart_year'}, |
|
| ); |
|
| $scrout.="and:\n"; |
|
| $scrout.=&dateboxes('creationdateend',12,31,2051, |
|
| $ENV{'form.creationdateend_month'}, |
|
| $ENV{'form.creationdateend_day'}, |
|
| $ENV{'form.creationdateend_year'}, |
|
| ); |
|
| $scrout.="</p>"; |
|
| $scrout.=<<LASTREVISIONDATESTART; |
|
| <p> |
|
| <font color="#800000" face="helvetica"><b>LIMIT BY LAST REVISION DATE RANGE: |
|
| </b></font> |
|
| <br />between: |
|
| LASTREVISIONDATESTART |
|
| $scrout.=&dateboxes('lastrevisiondatestart',1,1,1976, |
|
| $ENV{'form.lastrevisiondatestart_month'}, |
|
| $ENV{'form.lastrevisiondatestart_day'}, |
|
| $ENV{'form.lastrevisiondatestart_year'}, |
|
| ); |
|
| $scrout.=<<LASTREVISIONDATEEND; |
|
| and: |
|
| LASTREVISIONDATEEND |
|
| $scrout.=&dateboxes('lastrevisiondateend',12,31,2051, |
|
| $ENV{'form.lastrevisiondateend_month'}, |
|
| $ENV{'form.lastrevisiondateend_day'}, |
|
| $ENV{'form.lastrevisiondateend_year'}, |
|
| ); |
|
| $scrout.='</p>'; |
|
| $ENV{'form.copyright'}='any' unless length($ENV{'form.copyright'}); |
|
| $scrout.=&selectbox('Limit by copyright/distribution','copyright', |
|
| $ENV{'form.copyright'}, |
|
| 'any','Any copyright/distribution', |
|
| \&Apache::loncommon::copyrightdescription, |
|
| (&Apache::loncommon::copyrightids), |
|
| ); |
|
| # ------------------------------------------- Compute customized metadata field |
|
| # $scrout.=<<CUSTOMMETADATA; |
|
| #<p> |
|
| #<font color="#800000" face="helvetica"><b>LIMIT BY SPECIAL METADATA FIELDS:</b> |
|
| #</font> |
|
| #For resource-specific metadata, enter in an expression in the form of |
|
| #<i>key</i>=<i>value</i> separated by operators such as AND, OR or NOT.<br /> |
|
| #<b>Example:</b> grandmother=75 OR grandfather=85 |
|
| #<br /> |
|
| #CUSTOMMETADATA |
|
| # $scrout.=&simpletextfield('custommetadata',$ENV{'form.custommetadata'}); |
|
| # $scrout.=<<CUSTOMSHOW; |
|
| #<p> |
|
| #<font color="#800000" face="helvetica"><b>SHOW SPECIAL METADATA FIELDS:</b> |
|
| #</font> |
|
| #Enter in a space-separated list of special metadata fields to show |
|
| #in a fielded listing for each record result. |
|
| #<br /> |
|
| #CUSTOMSHOW |
|
| # $scrout.=&simpletextfield('customshow',$ENV{'form.customshow'}); |
|
| $scrout.=<<ENDDOCUMENT; |
$scrout.=<<ENDDOCUMENT; |
| $advanced_buttons |
$advanced_buttons |
| </form> |
</form> |
|
Line 831 ENDDOCUMENT
|
Line 678 ENDDOCUMENT
|
| |
|
| =pod |
=pod |
| |
|
| =item &get_persistent_form_data |
=item &titlefield() |
| |
|
| |
Inputs: title text |
| |
|
| |
Outputs: titletext with font wrapper |
| |
|
| |
=cut |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
sub titlefield { |
| |
my $title=shift; |
| |
return '<font face="arial" color="#800000">'.$title.'</font>'; |
| |
} |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
|
| |
=pod |
| |
|
| |
=item viewoptiontext() |
| |
|
| |
Inputs: codename for view option |
| |
|
| |
Outputs: displayed text |
| |
|
| |
=cut |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
sub viewoptiontext { |
| |
my $code=shift; |
| |
my %desc=&Apache::lonlocal::texthash |
| |
('detailed' => "Detailed Citation View", |
| |
'xml' => 'XML/SGML', |
| |
'compact' => 'Compact View', |
| |
'fielded' => 'Fielded Format', |
| |
'summary' => 'Summary View'); |
| |
return $desc{$code}; |
| |
} |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
|
| |
=pod |
| |
|
| |
=item viewoptions() |
| |
|
| |
Inputs: none |
| |
|
| |
Outputs: text for box with view options |
| |
|
| |
=cut |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
sub viewoptions { |
| |
my $scrout="\n\n".'<table bgcolor="#FFFFBB">'. |
| |
'<tr><th>'.&mt('View Options').'</th><th>'. |
| |
&mt('Records per Page').'</th></tr><tr><td>'; |
| |
unless ($ENV{'form.viewselect'}) { $ENV{'form.viewselect'}='detailed'; } |
| |
$scrout.=&Apache::lonmeta::selectbox('viewselect', |
| |
$ENV{'form.viewselect'}, |
| |
\&viewoptiontext, |
| |
sort(keys(%Views))); |
| |
$scrout.='</td><td>'; |
| |
$scrout.=&Apache::lonmeta::selectbox('show', |
| |
$ENV{'form.show'}, |
| |
undef, |
| |
(10,20,50,100,1000,10000)); |
| |
$scrout.="</td></tr></table>\n\n"; |
| |
return $scrout; |
| |
} |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
|
| |
=pod |
| |
|
| |
=item searchhelp() |
| |
|
| |
Inputs: none |
| |
|
| |
Outputs: return little blurb on how to enter searches |
| |
|
| |
=cut |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
sub searchhelp { |
| |
return &mt('Enter terms or phrases separated by AND, OR, or NOT'); |
| |
} |
| |
|
| |
###################################################################### |
| |
###################################################################### |
| |
|
| |
=pod |
| |
|
| |
=item &get_persistent_form_data() |
| |
|
| Inputs: filename of database |
Inputs: filename of database |
| |
|
|
Line 886 sub get_persistent_form_data {
|
Line 831 sub get_persistent_form_data {
|
| |
|
| =pod |
=pod |
| |
|
| =item &get_persistent_data |
=item &get_persistent_data() |
| |
|
| Inputs: filename of database, ref to array of values to recover. |
Inputs: filename of database, ref to array of values to recover. |
| |
|
|
Line 937 Inputs: Hash of values to save, filename
|
Line 882 Inputs: Hash of values to save, filename
|
| |
|
| Store variables away to the %persistent_db. |
Store variables away to the %persistent_db. |
| Values will be escaped. Values that are array pointers will have their |
Values will be escaped. Values that are array pointers will have their |
| elements escaped and concatenated in a comma seperated string. |
elements escaped and concatenated in a comma separated string. |
| |
|
| =cut |
=cut |
| |
|
|
Line 969 Inputs: filename of persistent database.
|
Line 914 Inputs: filename of persistent database.
|
| |
|
| Store most form variables away to the %persistent_db. |
Store most form variables away to the %persistent_db. |
| Values will be escaped. Values that are array pointers will have their |
Values will be escaped. Values that are array pointers will have their |
| elements escaped and concatenated in a comma seperated string. |
elements escaped and concatenated in a comma separated string. |
| |
|
| =cut |
=cut |
| |
|
|
Line 987 sub make_form_data_persistent {
|
Line 932 sub make_form_data_persistent {
|
| } |
} |
| |
|
| ###################################################################### |
###################################################################### |
| # HTML form building functions # |
|
| ###################################################################### |
|
| |
|
| =pod |
|
| |
|
| =item HTML form building functions |
|
| |
|
| =over 4 |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &simpletextfield() |
|
| |
|
| Inputs: $name,$value,$size |
|
| |
|
| Returns a text input field with the given name, value, and size. |
|
| If size is not specified, a value of 20 is used. |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| sub simpletextfield { |
|
| my ($name,$value,$size)=@_; |
|
| $size = 20 if (! defined($size)); |
|
| return '<input type="text" name="'.$name. |
|
| '" size="'.$size.'" value="'.$value.'" />'; |
|
| } |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &simplecheckbox() |
|
| |
|
| Inputs: $name,$value |
|
| |
|
| Returns a simple check box with the given $name. |
|
| If $value eq 'on' the box is checked. |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| sub simplecheckbox{ |
|
| my ($name,$value,$checked)=@_; |
|
| $checked="checked" if ($value eq 'on'); |
|
| return '<input type="checkbox" name="'.$name.'" value="'.$value.'" '. |
|
| $checked.' />'; |
|
| } |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &fieldtitle() |
|
| |
|
| Input: $title |
|
| |
|
| Returns a scalar with html which will display $title as a search |
|
| field heading. |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| sub fieldtitle { |
|
| my $title = uc(&mt(shift())); |
|
| return '<font color="#800000" face="helvetica"><b>'.$title. |
|
| ': </b></font>'; |
|
| } |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &searchphrasefield() |
|
| |
|
| Inputs: $title,$name,$value |
|
| |
|
| Returns html for a title line and an input field for entering search terms. |
|
| The entry field (which is where the $name and $value are used) is a 50 column |
|
| simpletextfield. The html returned is for a row in a three column table. |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| sub searchphrasefield { |
|
| my ($title,$name,$value)=@_; |
|
| return '<tr><td>'.&fieldtitle($title).'</td><td>'. |
|
| &simpletextfield($name,$value,50)."</td><td> </td></tr>\n"; |
|
| } |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &searchphrasefield_with_related() |
|
| |
|
| Inputs: $title,$name,$value |
|
| |
|
| Returns html for a title line and an input field for entering search terms |
|
| and a check box for 'related words'. The entry field (which is where the |
|
| $name and $value are used) is a 50 column simpletextfield. The name of |
|
| the related words checkbox is "$name_related". |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| sub searchphrasefield_with_related { |
|
| my ($title,$name,$value)=@_; |
|
| return '<tr><td>'.&fieldtitle($title).'</td><td>'. |
|
| &simpletextfield($name,$value,50).'</td><td align="center"> '. |
|
| &simplecheckbox($name.'_related',$ENV{'form.'.$name.'_related'}). |
|
| " </td></tr>\n"; |
|
| } |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &dateboxes() |
|
| |
|
| Returns html selection form elements for the specification of |
|
| the day, month, and year. |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| sub dateboxes { |
|
| my ($name,$defaultmonth,$defaultday,$defaultyear, |
|
| $currentmonth,$currentday,$currentyear)=@_; |
|
| ($defaultmonth,$defaultday,$defaultyear)=('','',''); |
|
| # |
|
| # Day |
|
| my $day=<<END; |
|
| <select name="${name}_day"> |
|
| <option value='$defaultday'> </option> |
|
| END |
|
| for (my $i = 1; $i<=31; $i++) { |
|
| $day.="<option value=\"$i\">$i</option>\n"; |
|
| } |
|
| $day.="</select>\n"; |
|
| $day=~s/(\"$currentday\")/$1 SELECTED/ if length($currentday); |
|
| # |
|
| # Month |
|
| my $month=<<END; |
|
| <select name="${name}_month"> |
|
| <option value='$defaultmonth'> </option> |
|
| END |
|
| my $i = 1; |
|
| foreach (qw/January February March April May June |
|
| July August September October November December /){ |
|
| $month .="<option value=\"$i\">".&mt($_)."</option>\n"; |
|
| $i++; |
|
| } |
|
| $month.="</select>\n"; |
|
| $month=~s/(\"$currentmonth\")/$1 SELECTED/ if length($currentmonth); |
|
| # |
|
| # Year (obviously) |
|
| my $year=<<END; |
|
| <select name="${name}_year"> |
|
| <option value='$defaultyear'> </option> |
|
| END |
|
| my $maxyear = 2051; |
|
| for (my $i = 1976; $i<=$maxyear; $i++) { |
|
| $year.="<option value=\"$i\">$i</option>\n"; |
|
| } |
|
| $year.="</select>\n"; |
|
| $year=~s/(\"$currentyear\")/$1 SELECTED/ if length($currentyear); |
|
| return "$month$day$year"; |
|
| } |
|
| |
|
| ############################################### |
|
| ############################################### |
|
| |
|
| =pod |
|
| |
|
| =item &selectbox() |
|
| |
|
| Returns a scalar containing an html <select> form. |
|
| |
|
| Inputs: |
|
| |
|
| =over 4 |
|
| |
|
| =item $title |
|
| |
|
| Printed above the select box, in uppercase. If undefined, only a select |
|
| box will be returned, with no additional html. |
|
| |
|
| =item $name |
|
| |
|
| The name element of the <select> tag. |
|
| |
|
| =item $default |
|
| |
|
| The default value of the form. Can be $anyvalue, or in @idlist. |
|
| |
|
| =item $anyvalue |
|
| |
|
| The <option value="..."> used to indicate a default of |
|
| none of the values. Can be undef. |
|
| |
|
| =item $anytag |
|
| |
|
| The text associate with $anyvalue above. |
|
| |
|
| =item $functionref |
|
| |
|
| Each element in @idlist will be passed as a parameter |
|
| to the function referenced here. The return value of the function should |
|
| be a scalar description of the items. If this value is undefined the |
|
| description of each item in @idlist will be the item name. |
|
| |
|
| =item @idlist |
|
| |
|
| The items to be selected from. One of these or $anyvalue will be the |
|
| value returned by the form element, $ENV{form.$name}. |
|
| |
|
| =back |
|
| |
|
| =cut |
|
| |
|
| ############################################### |
|
| |
|
| sub selectbox { |
|
| my ($title,$name,$default,$anyvalue,$anytag,$functionref,@idlist)=@_; |
|
| if (! defined($functionref)) { $functionref = sub { $_[0]}; } |
|
| my $selout=''; |
|
| $title=&mt($title); |
|
| if (defined($title)) { |
|
| my $uctitle=uc($title); |
|
| $selout="\n".'<p><font color="#800000" face="helvetica">'. |
|
| '<b>'.$uctitle.': </b></font>'; |
|
| } |
|
| $selout .= '<select name="'.$name.'">'; |
|
| unshift @idlist,$anyvalue if (defined($anyvalue)); |
|
| foreach (@idlist) { |
|
| $selout.='<option value="'.$_.'"'; |
|
| if ($_ eq $default and !/^any$/) { |
|
| $selout.=' selected >'.&mt(&{$functionref}($_)).'</option>'; |
|
| } |
|
| elsif ($_ eq $default and /^$anyvalue$/) { |
|
| $selout.=' selected >'.&mt($anytag).'</option>'; |
|
| } |
|
| else {$selout.='>'.&mt(&{$functionref}($_)).'</option>';} |
|
| } |
|
| return $selout.'</select>'.(defined($title)?'</p>':' '); |
|
| } |
|
| |
|
| ###################################################################### |
|
| # End of HTML form building functions # |
|
| ###################################################################### |
|
| |
|
| =pod |
|
| |
|
| =back |
|
| |
|
| =cut |
|
| |
|
| |
|
| ###################################################################### |
|
| ###################################################################### |
###################################################################### |
| |
|
| =pod |
=pod |
|
Line 1294 Parse advanced search form and return th
|
Line 957 Parse advanced search form and return th
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| sub parse_advanced_search { |
sub parse_advanced_search { |
| my ($r,$closebutton)=@_; |
my ($r,$closebutton,$hidden_fields)=@_; |
| my $fillflag=0; |
my $fillflag=0; |
| my $pretty_search_string = "<br />\n"; |
my $pretty_search_string = "<br />\n"; |
| # Clean up fields for safety |
# Clean up fields for safety |
|
Line 1328 sub parse_advanced_search {
|
Line 991 sub parse_advanced_search {
|
| } |
} |
| } |
} |
| unless ($fillflag) { |
unless ($fillflag) { |
| &output_blank_field_error($r,$closebutton,'phase=disp_adv'); |
&output_blank_field_error($r,$closebutton, |
| |
'phase=disp_adv',$hidden_fields); |
| return ; |
return ; |
| } |
} |
| # Turn the form input into a SQL-based query |
# Turn the form input into a SQL-based query |
|
Line 1337 sub parse_advanced_search {
|
Line 1001 sub parse_advanced_search {
|
| my $font = '<font color="#800000" face="helvetica">'; |
my $font = '<font color="#800000" face="helvetica">'; |
| # Evaluate logical expression AND/OR/NOT phrase fields. |
# Evaluate logical expression AND/OR/NOT phrase fields. |
| foreach my $field ('title','author','subject','notes','abstract','url', |
foreach my $field ('title','author','subject','notes','abstract','url', |
| 'keywords','version','owner') { |
'keywords','version','owner','standards') { |
| if ($ENV{'form.'.$field}) { |
if ($ENV{'form.'.$field}) { |
| my $searchphrase = $ENV{'form.'.$field}; |
my $searchphrase = $ENV{'form.'.$field}; |
| $pretty_search_string .= $font."$field</font> contains <b>". |
$pretty_search_string .= $font."$field</font> contains <b>". |
|
Line 1379 sub parse_advanced_search {
|
Line 1043 sub parse_advanced_search {
|
| $pretty_search_string .=$font.'mime</font> contains <b>'. |
$pretty_search_string .=$font.'mime</font> contains <b>'. |
| $searchphrase.'</b><br />'; |
$searchphrase.'</b><br />'; |
| } |
} |
| ##### |
# |
| # Evaluate option lists |
# Evaluate option lists |
| if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') { |
if ($ENV{'form.language'} and $ENV{'form.language'} ne 'any') { |
| push @queries,"(language like \"$ENV{'form.language'}\")"; |
push @queries,"(language like \"$ENV{'form.language'}\")"; |
|
Line 1411 sub parse_advanced_search {
|
Line 1075 sub parse_advanced_search {
|
| ); |
); |
| # Test to see if date windows are legitimate |
# Test to see if date windows are legitimate |
| if ($datequery=~/^Incorrect/) { |
if ($datequery=~/^Incorrect/) { |
| &output_date_error($r,$datequery,$closebutton); |
&output_date_error($r,$datequery,$closebutton,$hidden_fields); |
| return ; |
return ; |
| } elsif ($datequery) { |
} elsif ($datequery) { |
| # Here is where you would set up pretty_search_string to output |
# Here is where you would set up pretty_search_string to output |
| # date query information. |
# date query information. |
| push @queries,$datequery; |
push @queries,$datequery; |
| } |
} |
| |
# |
| # Process form information for custom metadata querying |
# Process form information for custom metadata querying |
| my $customquery=undef; |
my $customquery=undef; |
| # if ($ENV{'form.custommetadata'}) { |
## |
| # $pretty_search_string .=$font."Custom Metadata Search</font>: <b>". |
## The custom metadata search was removed q long time ago mostly |
| # $ENV{'form.custommetadata'}."</b><br />\n"; |
## because I was unable to figureout exactly how it worked and could |
| # $customquery=&build_custommetadata_query('custommetadata', |
## not imagine people actually using it. MH |
| # $ENV{'form.custommetadata'}); |
## |
| # } |
# if ($ENV{'form.custommetadata'}) { |
| |
# $pretty_search_string .=$font."Custom Metadata Search</font>: <b>". |
| |
# $ENV{'form.custommetadata'}."</b><br />\n"; |
| |
# $customquery=&build_custommetadata_query('custommetadata', |
| |
# $ENV{'form.custommetadata'}); |
| |
# } |
| my $customshow=undef; |
my $customshow=undef; |
| # if ($ENV{'form.customshow'}) { |
# if ($ENV{'form.customshow'}) { |
| # $pretty_search_string .=$font."Custom Metadata Display</font>: <b>". |
# $pretty_search_string .=$font."Custom Metadata Display</font>: <b>". |
| # $ENV{'form.customshow'}."</b><br />\n"; |
# $ENV{'form.customshow'}."</b><br />\n"; |
| # $customshow=$ENV{'form.customshow'}; |
# $customshow=$ENV{'form.customshow'}; |
| # $customshow=~s/[^\w\s]//g; |
# $customshow=~s/[^\w\s]//g; |
| # my @fields=split(/\s+/,$customshow); |
# my @fields=split(/\s+/,$customshow); |
| # $customshow=join(" ",@fields); |
# $customshow=join(" ",@fields); |
| # } |
# } |
| ## --------------------------------------------------------------- |
## |
| ## Deal with restrictions to given domains |
## Deal with restrictions to given domains |
| ## |
## |
| my ($libraries_to_query,$pretty_domains_string) = |
my ($libraries_to_query,$pretty_domains_string) = |
|
Line 1465 sub parse_domain_restrictions {
|
Line 1135 sub parse_domain_restrictions {
|
| } else { |
} else { |
| @allowed_domains = ($ENV{'form.domains'}); |
@allowed_domains = ($ENV{'form.domains'}); |
| } |
} |
| |
# |
| my %domain_hash = (); |
my %domain_hash = (); |
| my $pretty_domains_string; |
my $pretty_domains_string; |
| foreach (@allowed_domains) { |
foreach (@allowed_domains) { |
|
Line 1505 Parse the basic search form and return a
|
Line 1176 Parse the basic search form and return a
|
| ###################################################################### |
###################################################################### |
| sub parse_basic_search { |
sub parse_basic_search { |
| my ($r,$closebutton)=@_; |
my ($r,$closebutton)=@_; |
| |
# |
| # Clean up fields for safety |
# Clean up fields for safety |
| for my $field ('basicexp') { |
for my $field ('basicexp') { |
| $ENV{"form.$field"}=~s/[^\w\s\(\)\-]//g; |
$ENV{"form.$field"}=~s/[^\w\s\(\)\-]//g; |
|
Line 1517 sub parse_basic_search {
|
Line 1189 sub parse_basic_search {
|
| } |
} |
| my ($libraries_to_query,$pretty_domains_string) = |
my ($libraries_to_query,$pretty_domains_string) = |
| &parse_domain_restrictions(); |
&parse_domain_restrictions(); |
| # Check to see if enough is filled in |
# |
| |
# Check to see if enough of a query is filled in |
| unless (&filled($ENV{'form.basicexp'})) { |
unless (&filled($ENV{'form.basicexp'})) { |
| &output_blank_field_error($r,$closebutton,'phase=disp_basic'); |
&output_blank_field_error($r,$closebutton,'phase=disp_basic'); |
| return OK; |
return OK; |
|
Line 1533 sub parse_basic_search {
|
Line 1206 sub parse_basic_search {
|
| $pretty_search_string .= " with no related words."; |
$pretty_search_string .= " with no related words."; |
| } |
} |
| } |
} |
| |
# |
| # Build SQL query string based on form page |
# Build SQL query string based on form page |
| my $query=''; |
my $query=''; |
| my $concatarg=join(',', |
my $concatarg=join(',', |
|
Line 1545 sub parse_basic_search {
|
Line 1219 sub parse_basic_search {
|
| } |
} |
| $pretty_search_string .= "<br />\n"; |
$pretty_search_string .= "<br />\n"; |
| my $final_query = 'SELECT * FROM metadata WHERE '.$query; |
my $final_query = 'SELECT * FROM metadata WHERE '.$query; |
| # &Apache::lonnet::logthis($final_query); |
# &Apache::lonnet::logthis($final_query); |
| return ($final_query,$pretty_search_string, |
return ($final_query,$pretty_search_string, |
| $libraries_to_query); |
$libraries_to_query); |
| } |
} |
| |
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
|
| =pod |
=pod |
| |
|
| =item &related_version |
=item &related_version() |
| |
|
| Modifies an input string to include related words. Words in the string |
Modifies an input string to include related words. Words in the string |
| are replaced with parenthesized lists of 'OR'd words. For example |
are replaced with parenthesized lists of 'OR'd words. For example |
|
Line 1753 sub build_date_queries {
|
Line 1426 sub build_date_queries {
|
| |
|
| =item ©right_check() |
=item ©right_check() |
| |
|
| |
Inputs: $Metadata, a hash pointer of metadata for a resource. |
| |
|
| |
Returns: 1 if the resource is available to the user making the query, |
| |
0 otherwise. |
| |
|
| =cut |
=cut |
| |
|
| ###################################################################### |
###################################################################### |
|
Line 1776 sub copyright_check {
|
Line 1454 sub copyright_check {
|
| return 1; |
return 1; |
| } |
} |
| |
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
|
| =pod |
=pod |
| |
|
| =item &ensure_db_and_table |
=item &ensure_db_and_table() |
| |
|
| Ensure we can get lonmysql to connect to the database and the table we |
Ensure we can get lonmysql to connect to the database and the table we |
| need exists. |
need exists. |
|
Line 1838 sub ensure_db_and_table {
|
Line 1515 sub ensure_db_and_table {
|
| |
|
| =pod |
=pod |
| |
|
| =item &print_sort_form |
=item &print_sort_form() |
| |
|
| |
The sort feature is not implemented at this time. This form just prints |
| |
a link to change the search query. |
| |
|
| =cut |
=cut |
| |
|
|
Line 1846 sub ensure_db_and_table {
|
Line 1526 sub ensure_db_and_table {
|
| ###################################################################### |
###################################################################### |
| sub print_sort_form { |
sub print_sort_form { |
| my ($r,$pretty_query_string) = @_; |
my ($r,$pretty_query_string) = @_; |
| |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
| ## |
## |
| my %SortableFields=&Apache::lonlocal::texthash( |
my %SortableFields=&Apache::lonlocal::texthash( |
| id => 'Default', |
id => 'Default', |
|
Line 1938 the following format:
|
Line 1619 the following format:
|
| |
|
| ##################################################################### |
##################################################################### |
| ##################################################################### |
##################################################################### |
| |
# |
| my @Datatypes = |
# These should probably be scoped but I don't have time right now... |
| ( { name => 'id', |
# |
| type => 'MEDIUMINT', |
my @Datatypes; |
| restrictions => 'UNSIGNED NOT NULL', |
my @Fullindicies; |
| primary_key => 'yes', |
|
| auto_inc => 'yes' }, |
|
| { name => 'title', type=>'TEXT'}, |
|
| { name => 'author', type=>'TEXT'}, |
|
| { name => 'subject', type=>'TEXT'}, |
|
| { name => 'url', type=>'TEXT', restrictions => 'NOT NULL' }, |
|
| { name => 'keywords', type=>'TEXT'}, |
|
| { name => 'version', type=>'TEXT'}, |
|
| { name => 'notes', type=>'TEXT'}, |
|
| { name => 'abstract', type=>'TEXT'}, |
|
| { name => 'mime', type=>'TEXT'}, |
|
| { name => 'lang', type=>'TEXT'}, |
|
| { name => 'owner', type=>'TEXT'}, |
|
| { name => 'copyright', type=>'TEXT'}, |
|
| { name => 'hostname', type=>'TEXT'}, |
|
| #-------------------------------------------------- |
|
| { name => 'creationdate', type=>'DATETIME'}, |
|
| { name => 'lastrevisiondate', type=>'DATETIME'}, |
|
| #-------------------------------------------------- |
|
| ); |
|
| |
|
| my @Fullindicies = |
|
| qw/title/; |
|
| # qw/title author subject abstract mime language owner copyright/; |
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
|
Line 1986 Returns: the identifier of the table on
|
Line 1643 Returns: the identifier of the table on
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
sub set_up_table_structure { |
| |
my ($datatypes,$fullindicies) = |
| |
&LONCAPA::lonmetadata::describe_metadata_storage(); |
| |
unshift(@$datatypes,{name => 'id', |
| |
type => 'MEDIUMINT', |
| |
restrictions => 'UNSIGNED NOT NULL', |
| |
primary_key => 'yes', |
| |
auto_inc => 'yes' }); |
| |
@Datatypes = @{$datatypes}; |
| |
@Fullindicies = @{$fullindicies}; |
| |
return; |
| |
} |
| |
|
| sub create_results_table { |
sub create_results_table { |
| |
&set_up_table_structure(); |
| my $table = &Apache::lonmysql::create_table |
my $table = &Apache::lonmysql::create_table |
| ( { columns => \@Datatypes, |
( { columns => \@Datatypes, |
| FULLTEXT => [{'columns' => \@Fullindicies},], |
FULLTEXT => [{'columns' => \@Fullindicies},], |
|
Line 2038 sub update_count_status {
|
Line 1709 sub update_count_status {
|
| sub update_status { |
sub update_status { |
| my ($r,$text) = @_; |
my ($r,$text) = @_; |
| $text =~ s/\'/\\\'/g; |
$text =~ s/\'/\\\'/g; |
| $text=&mt($text); |
|
| $r->print |
$r->print |
| ("<script>document.statusform.status.value = ' $text'</script>\n"); |
("<script>document.statusform.status.value = ' $text'</script>\n"); |
| $r->rflush(); |
$r->rflush(); |
|
Line 2057 sub update_seconds {
|
Line 1727 sub update_seconds {
|
| |
|
| =pod |
=pod |
| |
|
| =item &revise_button |
=item &revise_button() |
| |
|
| Inputs: None |
Inputs: None |
| |
|
|
Line 2084 sub revise_button {
|
Line 1754 sub revise_button {
|
| |
|
| =pod |
=pod |
| |
|
| =item &run_search |
=item &run_search() |
| |
|
| |
Executes a search query by sending it the the other servers and putting the |
| |
results into MySQL. |
| |
|
| =cut |
=cut |
| |
|
|
Line 2092 sub revise_button {
|
Line 1765 sub revise_button {
|
| ###################################################################### |
###################################################################### |
| 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 $connection = $r->connection; |
my $connection = $r->connection; |
| # |
# |
| # Timing variables |
# Timing variables |
|
Line 2119 END
|
Line 1793 END
|
| $r->rflush(); |
$r->rflush(); |
| # |
# |
| # Determine the servers we need to contact. |
# Determine the servers we need to contact. |
| # |
|
| my @Servers_to_contact; |
my @Servers_to_contact; |
| if (defined($serverlist)) { |
if (defined($serverlist)) { |
| if (ref($serverlist) eq 'ARRAY') { |
if (ref($serverlist) eq 'ARRAY') { |
|
Line 2147 END
|
Line 1820 END
|
| return; |
return; |
| } |
} |
| if (! $table_status) { |
if (! $table_status) { |
| |
&Apache::lonnet::logthis("lonmysql error = ". |
| |
&Apache::lonmysql::get_error()); |
| |
&Apache::lonnet::logthis("lonmysql debug = ". |
| |
&Apache::lonmysql::get_debug()); |
| |
&Apache::lonnet::logthis('table status = "'.$table_status.'"'); |
| $r->print("The table id,$table, we tried to use is invalid.". |
$r->print("The table id,$table, we tried to use is invalid.". |
| "The search has been aborted.</body></html>"); |
"The search has been aborted.</body></html>"); |
| return; |
return; |
| } |
} |
| ## |
## |
| ## Prepare for the big loop. |
## Prepare for the big loop. |
| ## |
|
| my $hitcountsum; |
my $hitcountsum; |
| my $server; |
my $server; |
| my $status; |
my $status; |
|
Line 2181 END
|
Line 1858 END
|
| if (@Servers_to_contact) { |
if (@Servers_to_contact) { |
| # Contact one server |
# Contact one server |
| my $server = shift(@Servers_to_contact); |
my $server = shift(@Servers_to_contact); |
| &update_status($r,'contacting '.$server); |
&update_status($r,&mt('contacting').' '.$server); |
| my $reply=&Apache::lonnet::metadata_query($query,$customquery, |
my $reply=&Apache::lonnet::metadata_query($query,$customquery, |
| $customshow,[$server]); |
$customshow,[$server]); |
| ($server) = keys(%$reply); |
($server) = keys(%$reply); |
|
Line 2193 END
|
Line 1870 END
|
| # left to contact. |
# left to contact. |
| if (scalar (keys(%Server_status))) { |
if (scalar (keys(%Server_status))) { |
| &update_status($r, |
&update_status($r, |
| 'waiting on '.(join(' ',keys(%Server_status)))); |
&mt('waiting on').' '.(join(' ',keys(%Server_status)))); |
| } |
} |
| sleep(1); |
sleep(1); |
| } |
} |
| # |
# |
| # |
|
| # Loop through the servers we have contacted but do not |
# Loop through the servers we have contacted but do not |
| # have results from yet, looking for results. |
# have results from yet, looking for results. |
| while (my ($server,$status) = each(%Server_status)) { |
while (my ($server,$status) = each(%Server_status)) { |
|
Line 2210 END
|
Line 1886 END
|
| $status=~/^([\.\w]+)$/; |
$status=~/^([\.\w]+)$/; |
| my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
my $datafile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
| if (-e $datafile && ! -e "$datafile.end") { |
if (-e $datafile && ! -e "$datafile.end") { |
| &update_status($r,'Receiving results from '.$server); |
&update_status($r,&mt('Receiving results from').' '.$server); |
| next; |
next; |
| } |
} |
| last if ($connection->aborted()); |
last if ($connection->aborted()); |
| if (-e "$datafile.end") { |
if (-e "$datafile.end") { |
| &update_status($r,'Reading results from '.$server); |
&update_status($r,&mt('Reading results from').' '.$server); |
| if (-z "$datafile") { |
if (-z "$datafile") { |
| delete($Server_status{$server}); |
delete($Server_status{$server}); |
| next; |
next; |
|
Line 2270 END
|
Line 1946 END
|
| &update_seconds($r,$time_remaining); |
&update_seconds($r,$time_remaining); |
| } |
} |
| } |
} |
| &update_status($r,'Search Complete'.$server); |
&update_status($r,&mt('Search Complete').$server); |
| &update_seconds($r,0); |
&update_seconds($r,0); |
| |
# |
| &Apache::lonmysql::disconnect_from_db(); |
&Apache::lonmysql::disconnect_from_db(); |
| |
# |
| # We have run out of time or run out of servers to talk to and |
# We have run out of time or run out of servers to talk to and |
| # results to get. |
# results to get. |
| $r->print("</body></html>"); |
$r->print("</body></html>"); |
|
Line 2288 END
|
Line 1966 END
|
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
|
| =pod |
=pod |
| |
|
| =item &prev_next_buttons |
=item &prev_next_buttons() |
| |
|
| |
Returns html for the previous and next buttons on the search results page. |
| |
|
| =cut |
=cut |
| |
|
|
Line 2305 sub prev_next_buttons {
|
Line 1986 sub prev_next_buttons {
|
| my $prev_min = $current_min - $show; |
my $prev_min = $current_min - $show; |
| $prev_min = 1 if $prev_min < 1; |
$prev_min = 1 if $prev_min < 1; |
| if ($prev_min < $current_min) { |
if ($prev_min < $current_min) { |
| $links .= qq{ |
$links .= |
| <a href="/adm/searchcat?$parms&start=$prev_min&show=$show">prev</a> |
qq{<a href="/adm/searchcat?$parms&start=$prev_min&show=$show">}. |
| }; |
&mt('prev').'</a>'; |
| } else { |
} else { |
| $links .= 'prev'; |
$links .= &mt('prev'); |
| } |
} |
| ## |
## |
| ## Pages.... Someday. |
## Pages.... Someday. |
| ## |
## |
| $links .= qq{ |
$links .= |
| <a href="/adm/searchcat?$parms&start=$current_min&$show=$show">reload</a> |
qq{ |
| }; |
<a href="/adm/searchcat?$parms&start=$current_min&$show=$show">}. |
| |
&mt('reload').'</a>'; |
| ## |
## |
| ## Next |
## Next |
| my $next_min = $current_min + $show; |
my $next_min = $current_min + $show; |
| $next_min = $current_min if ($next_min > $total); |
$next_min = $current_min if ($next_min > $total); |
| if ($next_min != $current_min) { |
if ($next_min != $current_min) { |
| $links .= qq{ |
$links .= |
| <a href="/adm/searchcat?$parms&start=$next_min&show=$show">next</a> |
qq{ |
| }; |
<a href="/adm/searchcat?$parms&start=$next_min&show=$show">}. |
| |
&mt('next').'</a>'; |
| } else { |
} else { |
| $links .= ' next'; |
$links .= ' '.&mt('next'); |
| } |
} |
| return $links; |
return $links; |
| } |
} |
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| |
|
| =pod |
=pod |
| |
|
| =item &display_results |
=item &display_results() |
| |
|
| |
Prints the results out for selection and perusal. |
| |
|
| =cut |
=cut |
| |
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| sub display_results { |
sub display_results { |
| my ($r,$importbutton,$closebutton) = @_; |
my ($r,$importbutton,$closebutton,$diropendb) = @_; |
| my $connection = $r->connection; |
my $connection = $r->connection; |
| $r->print(&search_results_header($importbutton,$closebutton)); |
$r->print(&search_results_header($importbutton,$closebutton)); |
| ## |
## |
|
Line 2363 sub display_results {
|
Line 2049 sub display_results {
|
| ## |
## |
| my $action = "/adm/searchcat?phase=results"; |
my $action = "/adm/searchcat?phase=results"; |
| ## |
## |
| ## Deal with groupsearch |
## Deal with groupsearch by opening the groupsearch db file. |
| ## |
|
| if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
| if (! tie(%groupsearch_db,'GDBM_File',$diropendb, |
if (! tie(%groupsearch_db,'GDBM_File',$diropendb, |
| &GDBM_WRCREAT(),0640)) { |
&GDBM_WRCREAT(),0640)) { |
|
Line 2375 sub display_results {
|
Line 2060 sub display_results {
|
| } |
} |
| ## |
## |
| ## Prepare the table for querying |
## Prepare the table for querying |
| ## |
|
| my $table = $ENV{'form.table'}; |
my $table = $ENV{'form.table'}; |
| return if (! &ensure_db_and_table($r,$table)); |
return if (! &ensure_db_and_table($r,$table)); |
| ## |
## |
| ## Get the number of results |
## Get the number of results |
| ## |
|
| my $total_results = &Apache::lonmysql::number_of_rows($table); |
my $total_results = &Apache::lonmysql::number_of_rows($table); |
| if (! defined($total_results)) { |
if (! defined($total_results)) { |
| $r->print("A MySQL error has occurred.</form></body></html>"); |
$r->print("A MySQL error has occurred.</form></body></html>"); |
|
Line 2391 sub display_results {
|
Line 2074 sub display_results {
|
| } |
} |
| ## |
## |
| ## Determine how many results we need to get |
## Determine how many results we need to get |
| ## |
|
| $ENV{'form.start'} = 1 if (! exists($ENV{'form.start'})); |
$ENV{'form.start'} = 1 if (! exists($ENV{'form.start'})); |
| $ENV{'form.show'} = 'all' if (! exists($ENV{'form.show'})); |
$ENV{'form.show'} = 'all' if (! exists($ENV{'form.show'})); |
| my $min = $ENV{'form.start'}; |
my $min = $ENV{'form.start'}; |
|
Line 2404 sub display_results {
|
Line 2086 sub display_results {
|
| } |
} |
| ## |
## |
| ## Output links (if necessary) for 'prev' and 'next' pages. |
## Output links (if necessary) for 'prev' and 'next' pages. |
| ## |
|
| $r->print |
$r->print |
| ('<center>'. |
('<center>'. |
| &prev_next_buttons($min,$ENV{'form.show'},$total_results, |
&prev_next_buttons($min,$ENV{'form.show'},$total_results, |
|
Line 2424 sub display_results {
|
Line 2105 sub display_results {
|
| } |
} |
| ## |
## |
| ## Get results from MySQL table |
## Get results from MySQL table |
| ## |
|
| my @Results = &Apache::lonmysql::get_rows($table, |
my @Results = &Apache::lonmysql::get_rows($table, |
| 'id>='.$min.' AND id<='.$max); |
'id>='.$min.' AND id<='.$max); |
| ## |
## |
| ## Loop through the results and output them. |
## Loop through the results and output them. |
| ## |
|
| foreach my $row (@Results) { |
foreach my $row (@Results) { |
| if ($connection->aborted()) { |
if ($connection->aborted()) { |
| &cleanup(); |
&cleanup(); |
|
Line 2507 END
|
Line 2186 END
|
| |
|
| =pod |
=pod |
| |
|
| =item &parse_row |
=item &parse_row() |
| |
|
| Parse a row returned from the database. |
Parse a row returned from the database. |
| |
|
|
Line 2518 Parse a row returned from the database.
|
Line 2197 Parse a row returned from the database.
|
| sub parse_row { |
sub parse_row { |
| my @Row = @_; |
my @Row = @_; |
| my %Fields; |
my %Fields; |
| |
if (! scalar(@Datatypes)) { |
| |
&set_up_table_structure(); |
| |
} |
| for (my $i=0;$i<=$#Row;$i++) { |
for (my $i=0;$i<=$#Row;$i++) { |
| $Fields{$Datatypes[$i]->{'name'}}=&Apache::lonnet::unescape($Row[$i]); |
$Fields{$Datatypes[$i]->{'name'}}=&Apache::lonnet::unescape($Row[$i]); |
| } |
} |
| $Fields{'language'} = |
$Fields{'language'} = |
| &Apache::loncommon::languagedescription($Fields{'lang'}); |
&Apache::loncommon::languagedescription($Fields{'language'}); |
| $Fields{'copyrighttag'} = |
$Fields{'copyrighttag'} = |
| &Apache::loncommon::copyrightdescription($Fields{'copyright'}); |
&Apache::loncommon::copyrightdescription($Fields{'copyright'}); |
| $Fields{'mimetag'} = |
$Fields{'mimetag'} = |
|
Line 2538 sub parse_row {
|
Line 2220 sub parse_row {
|
| =item &parse_raw_result() |
=item &parse_raw_result() |
| |
|
| Takes a line from the file of results and parse it. Returns a hash |
Takes a line from the file of results and parse it. Returns a hash |
| with keys for the following fields: |
with keys according to column labels |
| 'title', 'author', 'subject', 'url', 'keywords', 'version', 'notes', |
|
| 'abstract', 'mime', 'lang', 'owner', 'copyright', 'creationdate', |
|
| 'lastrevisiondate'. |
|
| |
|
| In addition, the following tags are set by calling the appropriate |
In addition, the following tags are set by calling the appropriate |
| lonnet function: 'language', 'cprtag', 'mimetag'. |
lonnet function: 'language', 'copyrighttag', 'mimetag'. |
| |
|
| The 'title' field is set to "Untitled" if the title field is blank. |
The 'title' field is set to "Untitled" if the title field is blank. |
| |
|
|
Line 2556 The 'title' field is set to "Untitled" i
|
Line 2235 The 'title' field is set to "Untitled" i
|
| ########################################################### |
########################################################### |
| sub parse_raw_result { |
sub parse_raw_result { |
| my ($result,$hostname) = @_; |
my ($result,$hostname) = @_; |
| # Check for a comma - if it is there then we do not need to unescape the |
# conclude from self to others regarding fields |
| # string. There seems to be some kind of problem with some items in |
my %Fields=&LONCAPA::lonmetadata::metadata_col_to_hash |
| # the database - the entire string gets sent out unescaped...? |
(map { |
| unless ($result =~ /,/) { |
&Apache::lonnet::unescape($_); |
| $result = &Apache::lonnet::unescape($result); |
} (split(/\,/,$result)) ); |
| } |
|
| my @fields=map { |
|
| &Apache::lonnet::unescape($_); |
|
| } (split(/\,/,$result)); |
|
| my ($title,$author,$subject,$url,$keywords,$version, |
|
| $notes,$abstract,$mime,$lang, |
|
| $creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
|
| my %Fields = |
|
| ( title => &Apache::lonnet::unescape($title), |
|
| author => &Apache::lonnet::unescape($author), |
|
| subject => &Apache::lonnet::unescape($subject), |
|
| url => &Apache::lonnet::unescape($url), |
|
| keywords => &Apache::lonnet::unescape($keywords), |
|
| version => &Apache::lonnet::unescape($version), |
|
| notes => &Apache::lonnet::unescape($notes), |
|
| abstract => &Apache::lonnet::unescape($abstract), |
|
| mime => &Apache::lonnet::unescape($mime), |
|
| lang => &Apache::lonnet::unescape($lang), |
|
| owner => &Apache::lonnet::unescape($owner), |
|
| copyright => &Apache::lonnet::unescape($copyright), |
|
| creationdate => &Apache::lonnet::unescape($creationdate), |
|
| lastrevisiondate => &Apache::lonnet::unescape($lastrevisiondate) |
|
| ); |
|
| $Fields{'language'} = |
|
| &Apache::loncommon::languagedescription($Fields{'lang'}); |
|
| $Fields{'copyrighttag'} = |
|
| &Apache::loncommon::copyrightdescription($Fields{'copyright'}); |
|
| $Fields{'mimetag'} = |
|
| &Apache::loncommon::filedescription($Fields{'mime'}); |
|
| if ($Fields{'author'}=~/^(\s*|error)$/) { |
|
| $Fields{'author'}="Unknown Author"; |
|
| } |
|
| # Put spaces in the keyword list, if needed. |
|
| $Fields{'keywords'}=~ s/,([A-z])/, $1/g; |
|
| if ($Fields{'title'}=~ /^\s*$/ ) { |
|
| $Fields{'title'}='Untitled'; |
|
| } |
|
| unless ($ENV{'user.adv'}) { |
|
| # What is this anyway? |
|
| $Fields{'keywords'} = '- not displayed -'; |
|
| $Fields{'notes'} = '- not displayed -'; |
|
| $Fields{'abstract'} = '- not displayed -'; |
|
| $Fields{'subject'} = '- not displayed -'; |
|
| } |
|
| if (length($Fields{'abstract'})>200) { |
|
| $Fields{'abstract'} = |
|
| substr($Fields{'abstract'},0,200).'...'; |
|
| } |
|
| if (length($Fields{'keywords'})>200) { |
|
| $Fields{'keywords'} = |
|
| substr($Fields{'keywords'},0,200).'...'; |
|
| } |
|
| return %Fields; |
return %Fields; |
| } |
} |
| |
|
|
Line 2662 sub handle_custom_fields {
|
Line 2289 sub handle_custom_fields {
|
| |
|
| =pod |
=pod |
| |
|
| =item &search_results_header |
=item &search_results_header() |
| |
|
| Output the proper html headers and javascript code to deal with different |
Output the proper html headers and javascript code to deal with different |
| calling modes. |
calling modes. |
|
Line 2689 Checked for existance & 'edit' mode.
|
Line 2316 Checked for existance & 'edit' mode.
|
| |
|
| =item 'form.form' |
=item 'form.form' |
| |
|
| |
Contains the name of the form that has the input fields to set |
| |
|
| =item 'form.element' |
=item 'form.element' |
| |
|
| |
the name of the input field to put the URL into |
| |
|
| |
=item 'form.titleelement' |
| |
|
| |
the name of the input field to put the title into |
| |
|
| =back |
=back |
| |
|
| =cut |
=cut |
|
Line 2699 Checked for existance & 'edit' mode.
|
Line 2334 Checked for existance & 'edit' mode.
|
| ###################################################################### |
###################################################################### |
| sub search_results_header { |
sub search_results_header { |
| my ($importbutton,$closebutton) = @_; |
my ($importbutton,$closebutton) = @_; |
| |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
| my $result = ''; |
my $result = ''; |
| # output beginning of search page |
# output beginning of search page |
| # conditional output of script functions dependent on the mode in |
# conditional output of script functions dependent on the mode in |
|
Line 2727 SCRIPT
|
Line 2363 SCRIPT
|
| } elsif ($ENV{'form.mode'} eq 'edit') { |
} elsif ($ENV{'form.mode'} eq 'edit') { |
| my $form = $ENV{'form.form'}; |
my $form = $ENV{'form.form'}; |
| my $element = $ENV{'form.element'}; |
my $element = $ENV{'form.element'}; |
| |
my $titleelement = $ENV{'form.titleelement'}; |
| |
my $changetitle; |
| |
if (!$titleelement) { |
| |
$changetitle='function changeTitle(val) {}'; |
| |
} else { |
| |
$changetitle=<<END; |
| |
function changeTitle(val) { |
| |
if (parent.targetwin.document) { |
| |
parent.targetwin.document.forms["$form"].elements["$titleelement"].value=val; |
| |
} else { |
| |
var url = 'forms[\"$form\"].elements[\"$titleelement\"].value'; |
| |
alert("Unable to transfer data to "+url); |
| |
} |
| |
} |
| |
END |
| |
} |
| |
|
| $result.=<<SCRIPT; |
$result.=<<SCRIPT; |
| <script type="text/javascript"> |
<script type="text/javascript"> |
| function select_data(title,url) { |
function select_data(title,url) { |
| changeURL(url); |
changeURL(url); |
| |
changeTitle(title); |
| parent.close(); |
parent.close(); |
| } |
} |
| function changeTitle(val) { |
$changetitle |
| } |
|
| function changeURL(val) { |
function changeURL(val) { |
| if (parent.targetwin.document) { |
if (parent.targetwin.document) { |
| parent.targetwin.document.forms["$form"].elements["$element"].value=val; |
parent.targetwin.document.forms["$form"].elements["$element"].value=val; |
|
Line 2785 END
|
Line 2438 END
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| sub search_status_header { |
sub search_status_header { |
| |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
| return <<ENDSTATUS; |
return <<ENDSTATUS; |
| <html><head><title>Search Status</title></head> |
<html><head><title>Search Status</title></head> |
| $bodytag |
$bodytag |
|
Line 2837 ENDFRAMES
|
Line 2491 ENDFRAMES
|
| =item Metadata Viewing Functions |
=item Metadata Viewing Functions |
| |
|
| Output is a HTML-ified string. |
Output is a HTML-ified string. |
| |
|
| Input arguments are title, author, subject, url, keywords, version, |
Input arguments are title, author, subject, url, keywords, version, |
| notes, short abstract, mime, language, creation date, |
notes, short abstract, mime, language, creation date, |
| last revision date, owner, copyright, hostname, and |
last revision date, owner, copyright, hostname, and |
|
Line 2852 extra custom metadata to show.
|
Line 2507 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 2863 sub detailed_citation_view {
|
Line 2519 sub detailed_citation_view {
|
| <b>Notes: </b> $values{'notes'}<br /> |
<b>Notes: </b> $values{'notes'}<br /> |
| <b>MIME Type: </b> $values{'mimetag'}<br /> |
<b>MIME Type: </b> $values{'mimetag'}<br /> |
| <b>Language: </b> $values{'language'}<br /> |
<b>Language: </b> $values{'language'}<br /> |
| <b>Copyright/Distribution:</b> $values{'cprtag'}<br /> |
<b>Copyright/Distribution:</b> $values{'copyrighttag'}<br /> |
| </p> |
</p> |
| $values{'extrashow'} |
$values{'extrashow'} |
| <p> |
<p> |
|
Line 2886 END
|
Line 2542 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 2912 END
|
Line 2569 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 2934 END
|
Line 2592 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 2989 $prefix
|
Line 2648 $prefix
|
| <mimetag>$values{'mimetag'}</mimetag> |
<mimetag>$values{'mimetag'}</mimetag> |
| </mimeInfo> |
</mimeInfo> |
| <languageInfo> |
<languageInfo> |
| <language>$values{'lang'}</language> |
<language>$values{'language'}</language> |
| <languagetag>$values{'language'}</languagetag> |
<languagetag>$values{'languagetag'}</languagetag> |
| </languageInfo> |
</languageInfo> |
| <creationdate>$values{'creationdate'}</creationdate> |
<creationdate>$values{'creationdate'}</creationdate> |
| <lastrevisiondate>$values{'lastrevisiondate'}</lastrevisiondate> |
<lastrevisiondate>$values{'lastrevisiondate'}</lastrevisiondate> |
|
Line 3023 END
|
Line 2682 END
|
| sub filled { |
sub filled { |
| my ($field)=@_; |
my ($field)=@_; |
| if ($field=~/\S/ && $field ne 'any') { |
if ($field=~/\S/ && $field ne 'any') { |
| return 1; |
return 1; |
| } |
} else { |
| else { |
return 0; |
| return 0; |
|
| } |
} |
| } |
} |
| |
|
|
Line 3051 $parms is extra information to include i
|
Line 2709 $parms is extra information to include i
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| sub output_blank_field_error { |
sub output_blank_field_error { |
| my ($r,$closebutton,$parms)=@_; |
my ($r,$closebutton,$parms,$hidden_fields)=@_; |
| |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
| # make query information persistent to allow for subsequent revision |
# make query information persistent to allow for subsequent revision |
| $r->print(<<BEGINNING); |
$r->print(<<BEGINNING); |
| <html> |
<html> |
|
Line 3100 Inputs:
|
Line 2759 Inputs:
|
| ###################################################################### |
###################################################################### |
| ###################################################################### |
###################################################################### |
| sub output_date_error { |
sub output_date_error { |
| my ($r,$message,$closebutton)=@_; |
my ($r,$message,$closebutton,$hidden_fields)=@_; |
| # make query information persistent to allow for subsequent revision |
# make query information persistent to allow for subsequent revision |
| |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1); |
| $r->print(<<RESULTS); |
$r->print(<<RESULTS); |
| <html> |
<html> |
| <head> |
<head> |
|
Line 3155 sub start_fresh_session {
|
Line 2815 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'); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsearchcat.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface