version 1.194, 2003/12/11 20:59:54
|
version 1.217, 2004/04/27 15:24:09
|
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 |
use HTML::Entities(); |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
## |
=pod |
## Global variables |
|
## |
=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 |
|
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 |
|
|
|
=over 4 |
my %Views = ("detailed" => \&detailed_citation_view, |
|
"summary" => \&summary_view, |
=item $hidden |
"fielded" => \&fielded_format_view, |
|
"xml" => \&xml_sgml_view, |
holds 'hidden' html forms |
"compact" => \&compact_view); |
|
|
=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 215 sub handler {
|
Line 150 sub handler {
|
## Initialize global variables |
## Initialize global variables |
## |
## |
my $domain = $r->dir_config('lonDefDomain'); |
my $domain = $r->dir_config('lonDefDomain'); |
$diropendb= "/home/httpd/perl/tmp/$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db"; |
$diropendb= "/home/httpd/perl/tmp/". |
|
"$ENV{'user.domain'}_$ENV{'user.name'}_searchcat.db"; |
# |
# |
# set the name of the persistent database |
# set the name of the persistent database |
# $ENV{'form.persistent_db_id'} can only have digits in it. |
# $ENV{'form.persistent_db_id'} can only have digits in it. |
Line 230 sub handler {
|
Line 166 sub handler {
|
'_'.&Apache::lonnet::escape($ENV{'user.name'}). |
'_'.&Apache::lonnet::escape($ENV{'user.name'}). |
'_'.$ENV{'form.persistent_db_id'}.'_persistent_search.db'; |
'_'.$ENV{'form.persistent_db_id'}.'_persistent_search.db'; |
## |
## |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
if (exists($ENV{'request.course.id'}) && $ENV{'request.course.id'} ne '') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/searchcat?'. |
|
'catalogmode='.$ENV{'form.catalogmode'}. |
|
'&launch='.$ENV{'form.launch'}. |
|
'&mode='.$ENV{'form.mode'}, |
|
text=>"Course and Catalog Search", |
|
bug=>'Searching',}); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/searchcat?'. |
|
'catalogmode='.$ENV{'form.catalogmode'}. |
|
'&launch='.$ENV{'form.launch'}. |
|
'&mode='.$ENV{'form.mode'}, |
|
text=>"Catalog Search", |
|
bug=>'Searching',}); |
|
} |
|
# |
if (! &get_persistent_form_data($persistent_db_file)) { |
if (! &get_persistent_form_data($persistent_db_file)) { |
if ($ENV{'form.phase'} =~ /(run_search|results)/) { |
if ($ENV{'form.phase'} =~ /(run_search|results)/) { |
&Apache::lonnet::logthis("lonsearchcat:Unable to recover data ". |
&Apache::lonnet::logthis("lonsearchcat:Unable to recover data ". |
Line 330 END
|
Line 285 END
|
} |
} |
$ENV{'form.phase'} = 'disp_basic' if (! exists($ENV{'form.phase'})); |
$ENV{'form.phase'} = 'disp_basic' if (! exists($ENV{'form.phase'})); |
$ENV{'form.show'} = 20 if (! exists($ENV{'form.show'})); |
$ENV{'form.show'} = 20 if (! exists($ENV{'form.show'})); |
|
# |
|
$ENV{'form.searchmode'} = 'basic'; |
|
if ($ENV{'form.phase'} eq 'adv_search' || |
|
$ENV{'form.phase'} eq 'disp_adv') { |
|
$ENV{'form.searchmode'} = 'advanced'; |
|
} elsif ($ENV{'form.phase'} eq 'course_search') { |
|
$ENV{'form.searchmode'} = 'course_search'; |
|
} |
|
# |
|
if ($ENV{'form.searchmode'} eq 'advanced') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/searchcat?phase=disp_adv&'. |
|
'catalogmode='.$ENV{'form.catalogmode'}. |
|
'&launch='.$ENV{'form.launch'}. |
|
'&mode='.$ENV{'form.mode'}, |
|
text=>"Advanced Search", |
|
bug=>'Searching',}); |
|
} elsif ($ENV{'form.searchmode'} eq 'course search') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/searchcat?phase=disp_adv&'. |
|
'catalogmode='.$ENV{'form.catalogmode'}. |
|
'&launch='.$ENV{'form.launch'}. |
|
'&mode='.$ENV{'form.mode'}, |
|
text=>"Course Search", |
|
bug=>'Searching',}); |
|
} |
## |
## |
## 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 354 END
|
Line 335 END
|
&course_search($r); |
&course_search($r); |
} elsif(($ENV{'form.phase'} eq 'basic_search') || |
} elsif(($ENV{'form.phase'} eq 'basic_search') || |
($ENV{'form.phase'} eq 'adv_search')) { |
($ENV{'form.phase'} eq 'adv_search')) { |
$ENV{'form.searchmode'} = 'basic'; |
|
if ($ENV{'form.phase'} eq 'adv_search') { |
|
$ENV{'form.searchmode'} = 'advanced'; |
|
} |
|
# Set up table |
# Set up table |
if (! defined(&create_results_table())) { |
if (! defined(&create_results_table())) { |
|
my $errorstring=&Apache::lonmysql::get_error(); |
|
&Apache::lonnet::logthis('lonsearchcat.pm: Unable to create '. |
|
'needed table. lonmysql error:'. |
|
$errorstring); |
$r->print(<<END); |
$r->print(<<END); |
<html><head><title>Search Error</title></head> |
<html><head><title>Search Error</title></head> |
$bodytag |
$bodytag |
Line 388 END
|
Line 369 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 410 END
|
Line 391 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; |
Line 420 sub course_search {
|
Line 412 sub course_search {
|
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 451 sub course_search {
|
Line 445 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 513 sub checkonthis {
|
Line 490 sub checkonthis {
|
} |
} |
} |
} |
|
|
|
sub untiehash { |
|
if (tied(%hash)) { |
|
untie(%hash); |
|
} |
|
} |
|
|
|
} # End of course search scoping |
|
|
|
sub search_html_header { |
|
my $Str = <<ENDHEADER; |
|
<html> |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
</head> |
|
ENDHEADER |
|
return $Str; |
|
} |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
|
Line 520 sub checkonthis {
|
Line 515 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::lonhtmlcommon::breadcrumbs(undef,'Searching','Searching', |
my $scrout=<<"ENDDOCUMENT"; |
undef,undef,! $ENV{'form.launch'}); |
<html> |
my $scrout = &search_html_header().$bodytag; |
<head> |
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) { |
<title>The LearningOnline Network with CAPA</title> |
# Define interface components |
<script type="text/javascript"> |
my $userelatedwords= |
function openhelp(val) { |
&mt('[_1] use related words', |
openhelpwin=open('/adm/help/searchcat.html','helpscreen', |
&Apache::lonhtmlcommon::checkbox |
'scrollbars=1,width=600,height=300'); |
('related',$ENV{'form.related'})); |
openhelpwin.focus(); |
my $onlysearchdomain= |
} |
&mt('[_1] only search domain [_2]', |
</script> |
&Apache::lonhtmlcommon::checkbox |
</head> |
('domains',$ENV{'form.domains'}), |
$bodytag |
$r->dir_config('lonDefDomain')); |
ENDDOCUMENT |
my $adv_search_link = |
if (&Apache::lonnet::allowed('bre',$ENV{'request.role.domain'})) { |
'<a href="/adm/searchcat?'. |
my $CatalogSearch=&mt('Catalog Search'); |
'phase=disp_adv&'. |
my $Statement=&mt('Enter terms or phrases separated by AND, OR, or NOT then press SEARCH below'); |
'catalogmode='.$ENV{'form.catalogmode'}. |
$scrout.=(<<ENDDOCUMENT); |
'&launch='.$ENV{'form.launch'}. |
<h1>$CatalogSearch</h1> |
'&mode='.$ENV{'form.mode'}. |
<form method="post" action="/adm/searchcat"> |
'">'.&mt('Advanced Search').'</a>'; |
<input type="hidden" name="phase" value="basic_search" /> |
# |
$hidden_fields |
$scrout.='<form name="loncapa_search" method="post" '. |
<p> |
'action="/adm/searchcat">'. |
$Statement. |
'<input type="hidden" name="phase" value="basic_search" />'. |
</p> |
$hidden_fields; |
<p> |
# |
<table> |
$scrout .= '<center>'.$/; |
<tr><td> |
if ($ENV{'request.course.id'}) { |
ENDDOCUMENT |
$scrout .= '<h1>'.&mt('LON-CAPA Catalog Search').'</h1>'; |
$scrout.=' '.&simpletextfield('basicexp',$ENV{'form.basicexp'},40). |
} else { |
' '; |
# No need to tell them they are searching |
my $relatedcheckbox = &simplecheckbox('related',$ENV{'form.related'}); |
$scrout.= ('<br />'x2); |
my $domain = $r->dir_config('lonDefDomain'); |
} |
my $domaincheckbox = &simplecheckbox('domains',$domain); |
$scrout.='<table>'. |
my $srch=&mt('Search'); |
'<tr><td align="center" valign="top">'. |
my $header=&mt('Advanced Search'); |
&Apache::lonhtmlcommon::textbox('basicexp', |
my $userelatedwords=&mt('use related words'); |
$ENV{'form.basicexp'},50).'<br />'. |
my $onlysearchdomain=&mt('only search domain'); |
'<font size="-1">'.&searchhelp().'</font>'.'</td>'. |
$scrout.=<<END; |
'<td><font size="-1">'. |
</td><td><a |
'<nobr>'.(' 'x3).$adv_search_link.'</nobr>'.'<br />'. |
href="/adm/searchcat?phase=disp_adv&catalogmode=$ENV{'form.catalogmode'}&launch=$ENV{'form.launch'}&mode=$ENV{'form.mode'}" |
'<nobr>'.(' 'x1).$userelatedwords.'</nobr>'.'<br />'. |
>$header</a></td></tr> |
'<nobr>'.(' 'x1).$onlysearchdomain.'</nobr>'.'<br />'. |
<tr><td>$relatedcheckbox $userelatedwords</td> |
'</font></td>'. |
<td>$domaincheckbox $onlysearchdomain <b>$domain</b></td></tr> |
'</tr>'.$/; |
</table> |
# |
</p> |
# $scrout .= '<tr><td align="center">'. |
<p> |
# '<font size="-1">'. |
<input type="submit" name="basicsubmit" value='$srch' /> |
# $userelatedwords.(' 'x3). |
$closebutton |
# $onlysearchdomain.(' 'x2).$adv_search_link. |
END |
# '</font>'. |
$scrout.=&selectbox('View','viewselect', |
# '</td></tr>'.$/; |
$ENV{'form.viewselect'}, |
$scrout .= '<tr><td align="center" colspan="2">'. |
undef,undef,undef, |
'<font size="-1">'. |
sort(keys(%Views))); |
'<input type="submit" name="basicsubmit" '. |
$scrout.=&selectbox('Per Page','show', |
'value="'.&mt('Search').'" />'. |
$ENV{'form.show'}, |
(' 'x2).$closebutton.(' 'x2).&viewoptions(). |
undef,undef,undef, |
'</font>'. |
(10,20,50,100)); |
'</td></tr>'.$/; |
$scrout.=<<ENDDOCUMENT; |
$scrout .= '</table>'.$/.'</center>'.'</form>'; |
</p> |
|
</form> |
|
ENDDOCUMENT |
|
} |
} |
if ($ENV{'request.course.id'}) { |
if ($ENV{'request.course.id'}) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash('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); |
|
<form name="loncapa_search" method="post" action="/adm/searchcat"> |
|
<center> |
<hr /> |
<hr /> |
<h1>$lt{'header'}</h1> |
<h1>$lt{'header'}</h1> |
<form 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 613 $lt{'note'}.
|
Line 607 $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> |
|
</center> |
|
</form> |
ENDENDCOURSE |
ENDENDCOURSE |
} |
} |
$scrout.=(<<ENDDOCUMENT); |
$scrout.=(<<ENDDOCUMENT); |
Line 641 ENDDOCUMENT
|
Line 640 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 $advanced_buttons = <<"END"; |
my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'). |
<p> |
&Apache::lonhtmlcommon::breadcrumbs(undef,'Searching', |
<input type="submit" name="advancedsubmit" value='SEARCH' /> |
'Searching', |
<input type="reset" name="reset" value='RESET' /> |
undef,undef, |
|
! $ENV{'form.launch'}); |
|
|
|
my %lt=&Apache::lonlocal::texthash('srch' => 'Search', |
|
'reset' => 'Reset', |
|
'help' => 'Help'); |
|
my $advanced_buttons=<<"END"; |
|
<input type="submit" name="advancedsubmit" value='$lt{"srch"}' /> |
|
<input type="reset" name="reset" value='$lt{"reset"}' /> |
$closebutton |
$closebutton |
<input type="button" value="HELP" onClick="openhelp()" /> |
|
</p> |
|
END |
END |
if (!defined($ENV{'form.viewselect'})) { |
my $scrout=&search_html_header(); |
$ENV{'form.viewselect'} ="Detailed Citation View"; |
$scrout .= <<"ENDHEADER"; |
} |
|
my $bodytag=&Apache::loncommon::bodytag('Advanced Catalog Search'); |
|
my $scrout=<<"ENDHEADER"; |
|
<html> |
|
<head> |
|
<title>The LearningOnline Network with CAPA</title> |
|
<script type="text/javascript"> |
|
function openhelp(val) { |
|
openhelpwin=open('/adm/help/searchcat.html','helpscreen', |
|
'scrollbars=1,width=600,height=300'); |
|
openhelpwin.focus(); |
|
} |
|
</script> |
|
</head> |
|
$bodytag |
$bodytag |
Enter terms or phrases separated by search operators |
<form method="post" action="/adm/searchcat" name="advsearch"> |
such as AND, OR, or NOT.<br /> |
<p> |
<form method="post" action="/adm/searchcat"> |
|
$advanced_buttons |
$advanced_buttons |
$hidden_fields |
|
<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.=(' 'x2).&viewoptions().'</p>'.$hidden_fields. |
$ENV{'form.viewselect'}, |
'<input type="hidden" name="phase" value="adv_search" />'; |
undef,undef,undef, |
my %fields=&Apache::lonmeta::fieldnames(); |
sort(keys(%Views))); |
# |
$scrout.=' '; |
$scrout .= '<h3>'.&mt('Standard Metadata').'</h3>'; |
$scrout.=&selectbox(undef,'show', |
$scrout .= "<table>\n"; |
$ENV{'form.show'}, |
$scrout .= '<tr><td> </td><td colspan="2"><font size="-1">'. |
undef,undef,undef, |
(' 'x2).&searchhelp()."</font></td></tr>\n"; |
(10,20,50,100)); |
my %related_word_search = |
$scrout.=' '. |
('title' => 1, |
'<font color="#800000" face="helvetica">'.&mt('Per Page').'</font>'; |
'author' => 0, |
$scrout.="</td><td>".&mt('Related').'<br />'.&mt('Words')."</td></tr>\n"; |
'owner' => 0, |
$scrout.=&searchphrasefield_with_related('title', 'title' , |
'authorspace' => 0, |
$ENV{'form.title'}); |
'modifyinguser'=> 0, |
$scrout.=&searchphrasefield('author', 'author' ,$ENV{'form.author'}); |
'keywords' => 1, |
$scrout.=&searchphrasefield_with_related('subject', 'subject' , |
'notes' => 1, |
$ENV{'form.subject'}); |
'abstract' => 1, |
$scrout.=&searchphrasefield_with_related('keywords','keywords', |
'standards'=> 1, |
$ENV{'form.keywords'}); |
'mime' => 1, |
$scrout.=&searchphrasefield('URL', 'url' ,$ENV{'form.url'}); |
); |
$scrout.=&searchphrasefield_with_related('notes', 'notes' , |
# |
$ENV{'form.notes'}); |
foreach my $field ('title','author','owner','authorspace','modifyinguser', |
$scrout.=&searchphrasefield_with_related('abstract','abstract', |
'keywords','notes','abstract','standards','mime') { |
$ENV{'form.abstract'}); |
$scrout.='<tr><td align="right">'.&titlefield($fields{$field}).'</td><td>'. |
# Hack - an empty table row. |
&Apache::lonmeta::prettyinput($field, |
$scrout.="<tr><td> </td><td> </td><td> </td></tr>\n"; |
$ENV{'form.'.$field}, |
$scrout.=&searchphrasefield('file<br />extension','extension', |
$field, |
$ENV{'form.extension'}); |
'advsearch', |
$scrout.="<tr><td> </td><td> </td><td> </td></tr>\n"; |
$related_word_search{$field}, |
$scrout.=&searchphrasefield('publisher<br />owner','owner', |
'</td><td align="left">', |
$ENV{'form.owner'}); |
$ENV{'form.'.$field.'_related'}, |
$scrout.="</table>\n"; |
50); |
$ENV{'form.category'}='any' if (! defined($ENV{'form.category'})); |
if ($related_word_search{$field}) { |
$scrout.=&selectbox('File Category','category', |
$scrout .= 'related words'; |
$ENV{'form.category'}, |
} else { |
'any','Any category', |
$scrout .= '</td><td> '; |
undef, |
} |
(&Apache::loncommon::filecategories())); |
$scrout .= '</td></tr>'.$/; |
$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(); |
foreach my $field ('lowestgradelevel','highestgradelevel') { |
# adjust the size of the select box |
$scrout.='<tr>'. |
my $size = 4; |
'<td align="right">'.&titlefield($fields{$field}).'</td>'. |
$size = (scalar @domains < ($size - 1) ? scalar @domains + 1 : $size); |
'<td colspan="2">'. |
$scrout.="\n".'<font color="#800000" face="helvetica"><b>'. |
&Apache::lonmeta::prettyinput($field, |
'DOMAINS TO BE SEARCHED</b></font><br />'. |
$ENV{'form.'.$field}, |
'<select name="domains" size="'.$size.'" multiple>'."\n". |
$field, |
'<option name="any" value="any" '. |
'advsearch', |
($domain_hash{'any'}? 'selected ' :''). |
0). |
'>all domains</option>'."\n"; |
'</td></tr>'.$/; |
foreach my $dom (sort @domains) { |
} |
$scrout.="<option name=\"$dom\" ". |
$scrout.='<tr><td align="right">'. |
($domain_hash{$dom} ? 'selected ' :'').">$dom</option>\n"; |
&titlefield(&mt('MIME Type Category')).'</td><td colspan="2">'. |
} |
&Apache::loncommon::filecategoryselect('category', |
$scrout.="</select>\n"; |
$ENV{'form.category'}). |
#---------------------------------------------------------------- |
'</td></tr>'.$/; |
$scrout.=&selectbox('Limit by language','language', |
$scrout.='<tr><td align="right" valign="top">'. |
$ENV{'form.language'},'any','Any Language', |
&titlefield(&mt('Domains')).'</td><td colspan="2">'. |
\&Apache::loncommon::languagedescription, |
&Apache::loncommon::domain_select('domains', |
(&Apache::loncommon::languageids), |
$ENV{'form.domains'},1). |
); |
'</td></tr>'.$/; |
# ------------------------------------------------ Compute date selection boxes |
# |
$scrout.=<<CREATIONDATESTART; |
# Misc metadata |
<p> |
$scrout.='<tr><td align="right" valign="top">'. |
<font color="#800000" face="helvetica"><b>LIMIT BY CREATION DATE RANGE:</b> |
&titlefield(&mt('Copyright/Distribution')).'</td><td colspan="2">'. |
</font> |
&Apache::lonmeta::selectbox('copyright', |
<br /> |
'',, |
between: |
\&Apache::loncommon::copyrightdescription, |
CREATIONDATESTART |
( undef, |
$scrout.=&dateboxes('creationdatestart',1,1,1976, |
&Apache::loncommon::copyrightids) |
$ENV{'form.creationdatestart_month'}, |
).'</td></tr>'.$/; |
$ENV{'form.creationdatestart_day'}, |
$scrout.='<tr><td align="right" valign="top">'. |
$ENV{'form.creationdatestart_year'}, |
&titlefield(&mt('Language')).'</td><td colspan="2">'. |
); |
&Apache::lonmeta::selectbox('language', |
$scrout.="and:\n"; |
'notset',, |
$scrout.=&dateboxes('creationdateend',12,31,2051, |
\&Apache::loncommon::languagedescription, |
$ENV{'form.creationdateend_month'}, |
('any',&Apache::loncommon::languageids) |
$ENV{'form.creationdateend_day'}, |
).'</td></tr>'; |
$ENV{'form.creationdateend_year'}, |
$scrout .= "</table>\n"; |
); |
# |
$scrout.="</p>"; |
# Dynamic metadata |
$scrout.=<<LASTREVISIONDATESTART; |
$scrout .= '<h3>'.&mt('Problem Statistics').'</h3>'; |
<p> |
$scrout .= "<table>\n"; |
<font color="#800000" face="helvetica"><b>LIMIT BY LAST REVISION DATE RANGE: |
$scrout .= '<tr><td> </td><td align="center">'.&mt('Minimum').'</td>'. |
</b></font> |
'<td align="center">'.&mt('Maximum').'</td></tr>'."\n"; |
<br />between: |
foreach my $statistic |
LASTREVISIONDATESTART |
({ name=>'stdno', |
$scrout.=&dateboxes('lastrevisiondatestart',1,1,1976, |
description=>'Number of Students',}, |
$ENV{'form.lastrevisiondatestart_month'}, |
{ name => 'avetries', |
$ENV{'form.lastrevisiondatestart_day'}, |
description=>'Average tries to answer correctly',}, |
$ENV{'form.lastrevisiondatestart_year'}, |
{ name => 'difficulty', |
); |
description=>'Degree of difficulty',}, |
$scrout.=<<LASTREVISIONDATEEND; |
{ name => 'disc', |
and: |
description=>'Degree of discrimination'}) { |
LASTREVISIONDATEEND |
$scrout .= '<tr><td align="right">'. |
$scrout.=&dateboxes('lastrevisiondateend',12,31,2051, |
&titlefield(&mt($statistic->{'description'})). |
$ENV{'form.lastrevisiondateend_month'}, |
'</td><td align="center">'. |
$ENV{'form.lastrevisiondateend_day'}, |
'<input type="text" name="'.$statistic->{'name'}.'_min" '. |
$ENV{'form.lastrevisiondateend_year'}, |
'value="" size="6" />'. |
); |
'</td><td align="center">'. |
$scrout.='</p>'; |
'<input type="text" name="'.$statistic->{'name'}.'_max" '. |
$ENV{'form.copyright'}='any' unless length($ENV{'form.copyright'}); |
'value="" size="6" />'. |
$scrout.=&selectbox('Limit by copyright/distribution','copyright', |
'</td></tr>'.$/; |
$ENV{'form.copyright'}, |
} |
'any','Any copyright/distribution', |
$scrout .= "</table>\n"; |
\&Apache::loncommon::copyrightdescription, |
$scrout .= '<h3>'.&mt('Evaluation Data').'</h3>'; |
(&Apache::loncommon::copyrightids), |
$scrout .= "<table>\n"; |
); |
$scrout .= '<tr><td> </td><td align="center">'.&mt('Minimum').'</td>'. |
# ------------------------------------------- Compute customized metadata field |
'<td align="center">'.&mt('Maximum').'</td></tr>'."\n"; |
# $scrout.=<<CUSTOMMETADATA; |
foreach my $evaluation |
#<p> |
( { name => 'clear', |
#<font color="#800000" face="helvetica"><b>LIMIT BY SPECIAL METADATA FIELDS:</b> |
description => 'Material presented in clear way'}, |
#</font> |
{ name =>'depth', |
#For resource-specific metadata, enter in an expression in the form of |
description => 'Material covered with sufficient depth'}, |
#<i>key</i>=<i>value</i> separated by operators such as AND, OR or NOT.<br /> |
{ name => 'helpful', |
#<b>Example:</b> grandmother=75 OR grandfather=85 |
description => 'Material is helpful'}, |
#<br /> |
{ name => 'correct', |
#CUSTOMMETADATA |
description => 'Material appears to be correct'}, |
# $scrout.=&simpletextfield('custommetadata',$ENV{'form.custommetadata'}); |
{ name => 'technical', |
# $scrout.=<<CUSTOMSHOW; |
description => 'Resource is technically correct'}){ |
#<p> |
$scrout .= '<tr><td align="right">'. |
#<font color="#800000" face="helvetica"><b>SHOW SPECIAL METADATA FIELDS:</b> |
&titlefield(&mt($evaluation->{'description'})). |
#</font> |
'</td><td align="center">'. |
#Enter in a space-separated list of special metadata fields to show |
'<input type="text" name="'.$evaluation->{'name'}.'_min" '. |
#in a fielded listing for each record result. |
'value="" size="6" />'. |
#<br /> |
'</td><td align="center">'. |
#CUSTOMSHOW |
'<input type="text" name="'.$evaluation->{'name'}.'_max" '. |
# $scrout.=&simpletextfield('customshow',$ENV{'form.customshow'}); |
'value="" size="6" />'. |
|
'</td></tr>'.$/; |
|
} |
|
$scrout .= "</table>\n"; |
|
# |
|
# Creation/Modification date limits |
|
$scrout .= '<h3>'.&mt('Creation and Modification dates').'</h3>'; |
|
$scrout .= "\n<table>\n"; |
|
my $cafter = |
|
&Apache::lonhtmlcommon::date_setter('advsearch', # formname |
|
'creationdate1', # fieldname |
|
0, # current value |
|
'', # special |
|
1, # includeempty |
|
'', # state |
|
1, # no_hh_mm_ss |
|
); |
|
my $cbefore = |
|
&Apache::lonhtmlcommon::date_setter('advsearch', # formname |
|
'creationdate2', # fieldname |
|
0, # current value |
|
'', # special |
|
1, # includeempty |
|
'', # state |
|
1, # no_hh_mm_ss |
|
); |
|
$scrout .= &mt('<tr><td align="right">Created between</td>'. |
|
'<td>[_1]</td></tr>'. |
|
'<tr><td align="right">and </td>'. |
|
'<td>[_2]</td></tr>',$cafter,$cbefore); |
|
my $lafter = |
|
&Apache::lonhtmlcommon::date_setter('advsearch', |
|
'revisiondate1', |
|
0, # current value |
|
'', # special |
|
1, # includeempty |
|
'', # state |
|
1, # no_hh_mm_ss |
|
); |
|
my $lbefore = |
|
&Apache::lonhtmlcommon::date_setter('advsearch', |
|
'revisiondate2', |
|
0, # current value |
|
'', # special |
|
1, # includeempty |
|
'', # state |
|
1, # no_hh_mm_ss |
|
); |
|
$scrout .= &mt('<tr><td align="right">Last modified between </td>'. |
|
'<td>[_1]</td></tr>'. |
|
'<tr><td align="right">and</td>'. |
|
'<td>[_2]</td></tr>',$lafter,$lbefore); |
|
$scrout.="</table>\n"; |
$scrout.=<<ENDDOCUMENT; |
$scrout.=<<ENDDOCUMENT; |
$advanced_buttons |
$advanced_buttons |
</form> |
</form> |
Line 838 ENDDOCUMENT
|
Line 863 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 $title; |
|
} |
|
|
|
###################################################################### |
|
###################################################################### |
|
|
|
=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".'<nobr>'; |
|
if (! defined($ENV{'form.viewselect'})) { |
|
$ENV{'form.viewselect'}='detailed'; |
|
} |
|
$scrout.=&Apache::lonmeta::selectbox('viewselect', |
|
$ENV{'form.viewselect'}, |
|
\&viewoptiontext, |
|
sort(keys(%Views))); |
|
$scrout.= ' '; |
|
my $countselect = &Apache::lonmeta::selectbox('show', |
|
$ENV{'form.show'}, |
|
undef, |
|
(10,20,50,100,1000,10000)); |
|
$scrout .= (' 'x2).&mt('[_1] Records per Page',$countselect). |
|
'</nobr>'.$/; |
|
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 893 sub get_persistent_form_data {
|
Line 1017 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 944 Inputs: Hash of values to save, filename
|
Line 1068 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 976 Inputs: filename of persistent database.
|
Line 1100 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 994 sub make_form_data_persistent {
|
Line 1118 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 1301 Parse advanced search form and return th
|
Line 1143 Parse advanced search form and return th
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub parse_advanced_search { |
sub parse_advanced_search { |
my ($r,$closebutton)=@_; |
my ($r,$closebutton,$hidden_fields)=@_; |
|
my @BasicFields = ('title','author','subject','keywords','url','version', |
|
'notes','abstract','extension','owner', |
|
# 'custommetadata','customshow', |
|
'modifyinguser','standards','mime'); |
|
my @StatsFields = ('stdno','avetries','difficulty','disc'); |
|
my @EvalFields = ('clear','depth','helpful','correct','technical'); |
|
my @ContextFields = ('courses','dependencies'); |
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 |
for my $field ('title','author','subject','keywords','url','version', |
for my $field (@BasicFields, |
'creationdatestart_month','creationdatestart_day', |
'creationdatestart_month','creationdatestart_day', |
'creationdatestart_year','creationdateend_month', |
'creationdatestart_year','creationdateend_month', |
'creationdateend_day','creationdateend_year', |
'creationdateend_day','creationdateend_year', |
'lastrevisiondatestart_month','lastrevisiondatestart_day', |
'lastrevisiondatestart_month','lastrevisiondatestart_day', |
'lastrevisiondatestart_year','lastrevisiondateend_month', |
'lastrevisiondatestart_year','lastrevisiondateend_month', |
'lastrevisiondateend_day','lastrevisiondateend_year', |
'lastrevisiondateend_day','lastrevisiondateend_year') { |
'notes','abstract','extension','language','owner', |
$ENV{'form.'.$field}=~s/[^\w\/\s\(\)\=\-\"\']//g; |
'custommetadata','customshow','category') { |
|
$ENV{"form.$field"}=~s/[^\w\/\s\(\)\=\-\"\']//g; |
|
} |
} |
foreach ('mode','form','element') { |
foreach ('mode','form','element') { |
# is this required? Hmmm. |
# is this required? Hmmm. |
next unless (exists($ENV{"form.$_"})); |
next if (! exists($ENV{'form.'.$_})); |
$ENV{"form.$_"}=&Apache::lonnet::unescape($ENV{"form.$_"}); |
$ENV{'form.'.$_}=&Apache::lonnet::unescape($ENV{'form.'.$_}); |
$ENV{"form.$_"}=~s/[^\w\/\s\(\)\=\-\"\']//g; |
$ENV{'form.'.$_}=~s/[^\w\/\s\(\)\=\-\"\']//g; |
} |
} |
# Preprocess the category form element. |
# Preprocess the category form element. |
$ENV{'form.category'} = 'any' if (! defined($ENV{'form.category'}) || |
$ENV{'form.category'} = 'any' if (! defined($ENV{'form.category'}) || |
ref($ENV{'form.category'})); |
ref($ENV{'form.category'})); |
# |
# |
# Check to see if enough information was filled in |
# Check to see if enough information was filled in |
for my $field ('title','author','subject','keywords','url','version', |
for my $field (@BasicFields) { |
'notes','abstract','category','extension','language', |
if (&filled($ENV{'form.'.$field})) { |
'owner','custommetadata') { |
|
if (&filled($ENV{"form.$field"})) { |
|
$fillflag++; |
$fillflag++; |
} |
} |
} |
} |
unless ($fillflag) { |
for my $field ('lowestgradelevel','highestgradelevel') { |
&output_blank_field_error($r,$closebutton,'phase=disp_adv'); |
if ( $ENV{'form.'.$field} =~ /^\d+$/ && |
|
$ENV{'form.'.$field} > 0) { |
|
$fillflag++; |
|
} |
|
} |
|
if (! $fillflag) { |
|
&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 1343 sub parse_advanced_search {
|
Line 1195 sub parse_advanced_search {
|
my @queries; |
my @queries; |
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 (@BasicFields) { |
'keywords','version','owner') { |
|
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 1376 sub parse_advanced_search {
|
Line 1227 sub parse_advanced_search {
|
$searchphrase = join(' OR ',@extensions); |
$searchphrase = join(' OR ',@extensions); |
} |
} |
} |
} |
if (exists($ENV{'form.extension'}) && $ENV{'form.extension'} !~ /^\s*$/) { |
|
$searchphrase .= ' OR ' if (defined($searchphrase)); |
|
my @extensions = split(/,/,$ENV{'form.extension'}); |
|
$searchphrase .= join(' OR ',@extensions); |
|
} |
|
if (defined($searchphrase)) { |
if (defined($searchphrase)) { |
push @queries,&build_SQL_query('mime',$searchphrase); |
push @queries,&build_SQL_query('mime',$searchphrase); |
$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.lowestgradelevel'} && |
|
$ENV{'form.lowestgradelevel'} ne '0' && |
|
$ENV{'form.lowestgradelevel'} =~ /^\d+$/) { |
|
push(@queries, |
|
'(lowestgradelevel>='.$ENV{'form.lowestgradelevel'}.')'); |
|
$pretty_search_string.="lowestgradelevel>=". |
|
$ENV{'form.lowestgradelevel'}."<br />\n"; |
|
} |
|
if ($ENV{'form.highestgradelevel'} && |
|
$ENV{'form.highestgradelevel'} ne '0' && |
|
$ENV{'form.highestgradelevel'} =~ /^\d+$/) { |
|
push(@queries, |
|
'(highestgradelevel<='.$ENV{'form.highestgradelevel'}.')'); |
|
$pretty_search_string.="highestgradelevel<=". |
|
$ENV{'form.highestgradelevel'}."<br />\n"; |
|
} |
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'}\")"; |
$pretty_search_string.=$font."language</font>= ". |
$pretty_search_string.=$font."language</font>= ". |
Line 1401 sub parse_advanced_search {
|
Line 1263 sub parse_advanced_search {
|
"<br \>\n"; |
"<br \>\n"; |
} |
} |
# |
# |
|
# Statistics |
|
foreach my $field (@StatsFields,@EvalFields) { |
|
my ($min,$max); |
|
if (exists($ENV{'form.'.$field.'_min'}) && |
|
$ENV{'form.'.$field.'_min'} ne '') { |
|
$min = $ENV{'form.'.$field.'_min'}; |
|
} |
|
if (exists($ENV{'form.'.$field.'_max'}) && |
|
$ENV{'form.'.$field.'_max'} ne '') { |
|
$max = $ENV{'form.'.$field.'_max'}; |
|
} |
|
next if (! defined($max) && ! defined($min)); |
|
if (defined($min) && defined($max)) { |
|
($min,$max) = sort {$a <=>$b} ($min,$max); |
|
} |
|
if (defined($min) && $min =~ /^(\d+\.\d+|\d+|\.\d+)$/) { |
|
push(@queries,'('.$field.'>'.$min.')'); |
|
$pretty_search_string.=$font.$field.'</font>>'.$min.'<br />'; |
|
} |
|
if (defined($max) && $max =~ /^(\d+\.\d+|\d+|\.\d+)$/) { |
|
push(@queries,'('.$field.'<'.$max.')'); |
|
$pretty_search_string.=$font.$field.'</font><'.$max.'<br />'; |
|
} |
|
} |
|
# |
# Evaluate date windows |
# Evaluate date windows |
my $datequery=&build_date_queries( |
my $cafter = |
$ENV{'form.creationdatestart_month'}, |
&Apache::lonhtmlcommon::get_date_from_form('creationdate1'); |
$ENV{'form.creationdatestart_day'}, |
my $cbefore = |
$ENV{'form.creationdatestart_year'}, |
&Apache::lonhtmlcommon::get_date_from_form('creationdate2'); |
$ENV{'form.creationdateend_month'}, |
if ($cafter > $cbefore) { |
$ENV{'form.creationdateend_day'}, |
my $tmp = $cafter; |
$ENV{'form.creationdateend_year'}, |
$cafter = $cbefore; |
$ENV{'form.lastrevisiondatestart_month'}, |
$cbefore = $tmp; |
$ENV{'form.lastrevisiondatestart_day'}, |
} |
$ENV{'form.lastrevisiondatestart_year'}, |
my $mafter = |
$ENV{'form.lastrevisiondateend_month'}, |
&Apache::lonhtmlcommon::get_date_from_form('revisiondate1'); |
$ENV{'form.lastrevisiondateend_day'}, |
my $mbefore = |
$ENV{'form.lastrevisiondateend_year'}, |
&Apache::lonhtmlcommon::get_date_from_form('revisiondate2'); |
); |
if ($mafter > $mbefore) { |
# Test to see if date windows are legitimate |
my $tmp = $mafter; |
if ($datequery=~/^Incorrect/) { |
$mafter = $mbefore; |
&output_date_error($r,$datequery,$closebutton); |
$mbefore = $tmp; |
return ; |
} |
} elsif ($datequery) { |
my ($datequery,$error,$prettydate)=&build_date_queries($cafter,$cbefore, |
|
$mafter,$mbefore); |
|
if (defined($error)) { |
|
&output_date_error($r,$error,$closebutton,$hidden_fields); |
|
} elsif (defined($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. |
|
$pretty_search_string .= '<br />'.$prettydate.'<br />'; |
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 1450 sub parse_advanced_search {
|
Line 1348 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=join(" AND ",@queries); |
$query="select * from metadata where ".join(" AND ",@queries); |
$query="select * from metadata where $query"; |
|
} elsif ($customquery) { |
} elsif ($customquery) { |
$query = ''; |
$query = ''; |
} |
} |
|
# &Apache::lonnet::logthis('query = '.$/.$query); |
return ($query,$customquery,$customshow,$libraries_to_query, |
return ($query,$customquery,$customshow,$libraries_to_query, |
$pretty_search_string); |
$pretty_search_string); |
} |
} |
Line 1472 sub parse_domain_restrictions {
|
Line 1370 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 1512 Parse the basic search form and return a
|
Line 1411 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 1524 sub parse_basic_search {
|
Line 1424 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 1540 sub parse_basic_search {
|
Line 1441 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 1552 sub parse_basic_search {
|
Line 1454 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 1706 Also reports errors (check for /^Incorre
|
Line 1607 Also reports errors (check for /^Incorre
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub build_date_queries { |
sub build_date_queries { |
my ($cmonth1,$cday1,$cyear1,$cmonth2,$cday2,$cyear2, |
my ($cafter,$cbefore,$mafter,$mbefore) = @_; |
$lmonth1,$lday1,$lyear1,$lmonth2,$lday2,$lyear2)=@_; |
my ($result,$error,$pretty_string); |
my @queries; |
# |
if ($cmonth1 or $cday1 or $cyear1 or $cmonth2 or $cday2 or $cyear2) { |
# Verify the input |
unless ($cmonth1 and $cday1 and $cyear1 and |
if (! defined($cafter) && ! defined($cbefore) && |
$cmonth2 and $cday2 and $cyear2) { |
! defined($mafter) && ! defined($mbefore)) { |
return "Incorrect entry for the creation date. You must specify ". |
# This is an okay situation, so return undef for the error |
"a starting month, day, and year and an ending month, ". |
return (undef,undef,undef); |
"day, and year."; |
} |
} |
if ((defined($cafter) && ! defined($cbefore)) || |
my $cnumeric1=sprintf("%d%2d%2d",$cyear1,$cmonth1,$cday1); |
(defined($cbefore) && ! defined($cafter))) { |
$cnumeric1+=0; |
# This is bad, so let them know |
my $cnumeric2=sprintf("%d%2d%2d",$cyear2,$cmonth2,$cday2); |
$error = &mt('Incorrect entry for the creation date. '. |
$cnumeric2+=0; |
'You must specify both the beginning and ending dates.'); |
if ($cnumeric1>$cnumeric2) { |
} |
return "Incorrect entry for the creation date. The starting ". |
if (! defined($error) && |
"date must occur before the ending date."; |
((defined($mafter) && ! defined($mbefore)) || |
} |
(defined($mbefore) && ! defined($mafter)))) { |
my $cquery="(creationdate BETWEEN '$cyear1-$cmonth1-$cday1' AND '". |
# This is also bad, so let them know |
"$cyear2-$cmonth2-$cday2 23:59:59')"; |
$error = &mt('Incorrect entry for the last revision date. '. |
push @queries,$cquery; |
'You must specify both the beginning and ending dates.'); |
} |
|
if ($lmonth1 or $lday1 or $lyear1 or $lmonth2 or $lday2 or $lyear2) { |
|
unless ($lmonth1 and $lday1 and $lyear1 and |
|
$lmonth2 and $lday2 and $lyear2) { |
|
return "Incorrect entry for the last revision date. You must ". |
|
"specify a starting month, day, and year and an ending ". |
|
"month, day, and year."; |
|
} |
|
my $lnumeric1=sprintf("%d%2d%2d",$lyear1,$lmonth1,$lday1); |
|
$lnumeric1+=0; |
|
my $lnumeric2=sprintf("%d%2d%2d",$lyear2,$lmonth2,$lday2); |
|
$lnumeric2+=0; |
|
if ($lnumeric1>$lnumeric2) { |
|
return "Incorrect entry for the last revision date. The ". |
|
"starting date must occur before the ending date."; |
|
} |
|
my $lquery="(lastrevisiondate BETWEEN '$lyear1-$lmonth1-$lday1' AND '". |
|
"$lyear2-$lmonth2-$lday2 23:59:59')"; |
|
push @queries,$lquery; |
|
} |
} |
if (@queries) { |
if (! defined($error)) { |
return join(" AND ",@queries); |
# |
|
# Build the queries |
|
my @queries; |
|
if (defined($cbefore) && defined($cafter)) { |
|
my (undef,undef,undef,$caday,$camon,$cayear) = localtime($cafter); |
|
my (undef,undef,undef,$cbday,$cbmon,$cbyear) = localtime($cbefore); |
|
# Correct for year being relative to 1900 |
|
$cayear+=1900; $cbyear+=1900; |
|
my $cquery= |
|
'(creationdate BETWEEN '. |
|
"'".$cayear.'-'.$camon.'-'.$caday."'". |
|
' AND '. |
|
"'".$cbyear.'-'.$cbmon.'-'.$cbday." 23:59:59')"; |
|
$pretty_string .= '<br />' if (defined($pretty_string)); |
|
$pretty_string .= |
|
&mt('created between [_1] and [_2]', |
|
&Apache::lonlocal::locallocaltime($cafter), |
|
&Apache::lonlocal::locallocaltime($cbefore+24*60*60-1)); |
|
push(@queries,$cquery); |
|
$pretty_string =~ s/ 00:00:00//g; |
|
} |
|
if (defined($mbefore) && defined($mafter)) { |
|
my (undef,undef,undef,$maday,$mamon,$mayear) = localtime($mafter); |
|
my (undef,undef,undef,$mbday,$mbmon,$mbyear) = localtime($mbefore); |
|
# Correct for year being relative to 1900 |
|
$mayear+=1900; $mbyear+=1900; |
|
my $mquery= |
|
'(lastrevisiondate BETWEEN '. |
|
"'".$mayear.'-'.$mamon.'-'.$maday."'". |
|
' AND '. |
|
"'".$mbyear.'-'.$mbmon.'-'.$mbday." 23:59:59')"; |
|
push(@queries,$mquery); |
|
$pretty_string .= '<br />' if (defined($pretty_string)); |
|
$pretty_string .= |
|
&mt('last revised between [_1] and [_2]', |
|
&Apache::lonlocal::locallocaltime($mafter), |
|
&Apache::lonlocal::locallocaltime($mbefore+24*60*60-1)); |
|
$pretty_string =~ s/ 00:00:00//g; |
|
} |
|
if (@queries) { |
|
$result .= join(" AND ",@queries); |
|
} |
} |
} |
return ''; |
return ($result,$error,$pretty_string); |
} |
} |
|
|
###################################################################### |
###################################################################### |
Line 1760 sub build_date_queries {
|
Line 1683 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 1783 sub copyright_check {
|
Line 1711 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 1845 sub ensure_db_and_table {
|
Line 1772 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 1853 sub ensure_db_and_table {
|
Line 1783 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 1945 the following format:
|
Line 1876 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 1993 Returns: the identifier of the table on
|
Line 1900 Returns: the identifier of the table on
|
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
sub set_up_table_structure { |
|
my ($datatypes,$fullindicies) = |
|
&LONCAPA::lonmetadata::describe_metadata_storage(); |
|
# Copy the table description before modifying it... |
|
@Datatypes = @{$datatypes}; |
|
unshift(@Datatypes,{name => 'id', |
|
type => 'MEDIUMINT', |
|
restrictions => 'UNSIGNED NOT NULL', |
|
primary_key => 'yes', |
|
auto_inc => 'yes' }); |
|
@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 2050 sub update_status {
|
Line 1972 sub update_status {
|
$r->rflush(); |
$r->rflush(); |
} |
} |
|
|
|
{ |
|
my $max_time = 40; # seconds for the search to complete |
|
my $start_time = 0; |
|
my $last_time = 0; |
|
|
|
sub reset_timing { |
|
$start_time = 0; |
|
$last_time = 0; |
|
} |
|
|
|
sub time_left { |
|
if ($start_time == 0) { |
|
$start_time = time; |
|
} |
|
my $time_left = $max_time - (time - $start_time); |
|
$time_left = 0 if ($time_left < 0); |
|
return $time_left; |
|
} |
|
|
sub update_seconds { |
sub update_seconds { |
my ($r,$text) = @_; |
my ($r) = @_; |
$text =~ s/\'/\\\'/g; |
my $time = &time_left(); |
$r->print |
if (($last_time-$time) > 0) { |
("<script>document.statusform.seconds.value = ' $text'</script>\n"); |
$r->print("<script>". |
$r->rflush(); |
"document.statusform.seconds.value = '$time'". |
|
"</script>\n"); |
|
$r->rflush(); |
|
} |
|
$last_time = $time; |
|
} |
|
|
} |
} |
|
|
###################################################################### |
###################################################################### |
Line 2063 sub update_seconds {
|
Line 2010 sub update_seconds {
|
|
|
=pod |
=pod |
|
|
=item &revise_button |
=item &revise_button() |
|
|
Inputs: None |
Inputs: None |
|
|
Line 2090 sub revise_button {
|
Line 2037 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 2098 sub revise_button {
|
Line 2048 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 |
|
# |
|
my $starttime = time; |
|
my $max_time = 30; # seconds for the search to complete |
|
# |
|
# Print run_search header |
# Print run_search header |
# |
# |
$r->print(<<END); |
$r->print(<<END); |
Line 2121 END
|
Line 2067 END
|
if (@Lines > 2) { |
if (@Lines > 2) { |
$pretty_string = join '<br \>',(@Lines[0..2],'....<br />'); |
$pretty_string = join '<br \>',(@Lines[0..2],'....<br />'); |
} |
} |
$r->print(&mt("Search").": ".$pretty_string); |
$r->print(&mt("Search: [_1]",$pretty_string)); |
$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 2137 END
|
Line 2082 END
|
@Servers_to_contact = sort(keys(%Apache::lonnet::libserv)); |
@Servers_to_contact = sort(keys(%Apache::lonnet::libserv)); |
} |
} |
my %Server_status; |
my %Server_status; |
|
# |
|
# Check on the mysql table we will use to store results. |
my $table =$ENV{'form.table'}; |
my $table =$ENV{'form.table'}; |
if (! defined($table) || $table eq '' || $table =~ /\D/ ) { |
if (! defined($table) || $table eq '' || $table =~ /\D/ ) { |
$r->print("Unable to determine table id to store search results in.". |
$r->print("Unable to determine table id to store search results in.". |
Line 2153 END
|
Line 2100 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 2177 END
|
Line 2128 END
|
</form> |
</form> |
END |
END |
$r->rflush(); |
$r->rflush(); |
my $time_remaining = $max_time - (time - $starttime) ; |
&reset_timing(); |
my $last_time = $time_remaining; |
&update_seconds($r); |
&update_seconds($r,$time_remaining); |
&update_status($r,&mt('contacting [_1]',$Servers_to_contact[0])); |
&update_status($r,'contacting '.$Servers_to_contact[0]); |
while (&time_left() && |
while (($time_remaining > 0) && |
|
((@Servers_to_contact) || keys(%Server_status))) { |
((@Servers_to_contact) || keys(%Server_status))) { |
# Send out a search request if it needs to be done. |
&update_seconds($r); |
|
# |
|
# Send out a search request |
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,&mt('contacting').' '.$server); |
&update_status($r,&mt('contacting [_1]',$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 2199 END
|
Line 2151 END
|
# left to contact. |
# left to contact. |
if (scalar (keys(%Server_status))) { |
if (scalar (keys(%Server_status))) { |
&update_status($r, |
&update_status($r, |
&mt('waiting on').' '.(join(' ',keys(%Server_status)))); |
&mt('waiting on [_1]',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)) { |
last if ($connection->aborted()); |
last if ($connection->aborted()); |
|
&update_seconds($r); |
if ($status eq 'con_lost') { |
if ($status eq 'con_lost') { |
delete ($Server_status{$server}); |
delete ($Server_status{$server}); |
next; |
next; |
Line 2216 END
|
Line 2168 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,&mt('Receiving results from').' '.$server); |
&update_status($r,&mt('Receiving results from [_1]',$server)); |
next; |
next; |
} |
} |
last if ($connection->aborted()); |
last if ($connection->aborted()); |
if (-e "$datafile.end") { |
if (-e "$datafile.end") { |
&update_status($r,&mt('Reading results from').' '.$server); |
&update_status($r,&mt('Reading results from [_1]',$server)); |
if (-z "$datafile") { |
if (-z "$datafile") { |
delete($Server_status{$server}); |
delete($Server_status{$server}); |
next; |
next; |
Line 2236 END
|
Line 2188 END
|
# Read in the whole file. |
# Read in the whole file. |
while (my $result = <$fh>) { |
while (my $result = <$fh>) { |
last if ($connection->aborted()); |
last if ($connection->aborted()); |
# handle custom fields? Someday we will! |
# |
|
# Records are stored one per line |
chomp($result); |
chomp($result); |
next unless $result; |
next if (! $result); |
|
# |
# Parse the result. |
# Parse the result. |
my %Fields = &parse_raw_result($result,$server); |
my %Fields = &parse_raw_result($result,$server); |
$Fields{'hostname'} = $server; |
$Fields{'hostname'} = $server; |
|
# |
|
# Skip based on copyright |
next if (! ©right_check(\%Fields)); |
next if (! ©right_check(\%Fields)); |
|
# |
# Store the result in the mysql database |
# Store the result in the mysql database |
my $result = &Apache::lonmysql::store_row($table,\%Fields); |
my $result = &Apache::lonmysql::store_row($table,\%Fields); |
if (! defined($result)) { |
if (! defined($result)) { |
$r->print(&Apache::lonmysql::get_error()); |
$r->print(&Apache::lonmysql::get_error()); |
} |
} |
# $r->print(&Apache::lonmysql::get_debug()); |
# |
$hitcountsum ++; |
$hitcountsum ++; |
$time_remaining = $max_time - (time - $starttime) ; |
&update_seconds($r); |
if ($last_time - $time_remaining > 0) { |
|
&update_seconds($r,$time_remaining); |
|
$last_time = $time_remaining; |
|
} |
|
if ($hitcountsum % 50 == 0) { |
if ($hitcountsum % 50 == 0) { |
&update_count_status($r,$hitcountsum); |
&update_count_status($r,$hitcountsum); |
} |
} |
} # End of foreach (@results) |
} |
$fh->close(); |
$fh->close(); |
# $server is only deleted if the results file has been |
# $server is only deleted if the results file has been |
# found and (successfully) opened. This may be a bad idea. |
# found and (successfully) opened. This may be a bad idea. |
Line 2268 END
|
Line 2221 END
|
&update_count_status($r,$hitcountsum); |
&update_count_status($r,$hitcountsum); |
} |
} |
last if ($connection->aborted()); |
last if ($connection->aborted()); |
# Finished looping through the servers |
&update_seconds($r); |
$starttime = time if (@Servers_to_contact); |
|
$time_remaining = $max_time - (time - $starttime) ; |
|
if ($last_time - $time_remaining > 0) { |
|
$last_time = $time_remaining; |
|
&update_seconds($r,$time_remaining); |
|
} |
|
} |
} |
&update_status($r,&mt('Search Complete').$server); |
&update_status($r,&mt('Search Complete [_1]',$server)); |
&update_seconds($r,0); |
&update_seconds($r); |
&Apache::lonmysql::disconnect_from_db(); |
# |
|
&Apache::lonmysql::disconnect_from_db(); # This is unneccessary |
|
# |
# 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, so let the client know the top frame needs to be |
|
# loaded from /adm/searchcat |
$r->print("</body></html>"); |
$r->print("</body></html>"); |
if ($ENV{'form.catalogmode'} ne 'groupsearch') { |
if ($ENV{'form.catalogmode'} ne 'groupsearch') { |
$r->print("<script>". |
$r->print("<script>". |
Line 2294 END
|
Line 2244 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 END
|
Line 2258 END
|
sub prev_next_buttons { |
sub prev_next_buttons { |
my ($current_min,$show,$total,$parms) = @_; |
my ($current_min,$show,$total,$parms) = @_; |
return '' if ($show eq 'all'); # No links if you get them all at once. |
return '' if ($show eq 'all'); # No links if you get them all at once. |
my $links; |
# |
## |
# Create links |
## Prev |
|
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) { |
my $prevlink = |
$links .= qq{ |
qq{<a href="/adm/searchcat?$parms&start=$prev_min&show=$show">}; |
<a href="/adm/searchcat?$parms&start=$prev_min&show=$show">prev</a> |
# |
}; |
|
} else { |
|
$links .= 'prev'; |
|
} |
|
## |
|
## Pages.... Someday. |
|
## |
|
$links .= qq{ |
|
<a href="/adm/searchcat?$parms&start=$current_min&$show=$show">reload</a> |
|
}; |
|
## |
|
## 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) { |
my $nextlink = |
$links .= qq{ |
qq{<a href="/adm/searchcat?$parms&start=$next_min&show=$show">}; |
<a href="/adm/searchcat?$parms&start=$next_min&show=$show">next</a> |
my $reloadlink = |
}; |
qq{<a href="/adm/searchcat?$parms&start=$current_min&$show=$show">}; |
} else { |
# |
$links .= ' next'; |
# Determine which parameters to pass |
} |
my $String = '[_1]prev[_2] [_3]reload[_4] [_5]next[_6]'; |
|
if ($prev_min == $current_min) { |
|
$String =~ s:\[_[12]\]::g; |
|
} |
|
if ($next_min == $current_min) { |
|
$String =~ s:\[_[56]\]::g; |
|
} |
|
my $links = &mt($String, |
|
$prevlink, '</a>', |
|
$reloadlink,'</a>', |
|
$nextlink, '</a>'); |
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 2369 sub display_results {
|
Line 2322 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 2381 sub display_results {
|
Line 2333 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 2397 sub display_results {
|
Line 2347 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 2410 sub display_results {
|
Line 2359 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 2420 sub display_results {
|
Line 2368 sub display_results {
|
."</center>\n" |
."</center>\n" |
); |
); |
if ($total_results == 0) { |
if ($total_results == 0) { |
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="1">'. |
$r->print('<meta HTTP-EQUIV="Refresh" CONTENT="2">'. |
'<h3>'.&mt('There are currently no results').'.</h3>'. |
'<h3>'.&mt('There are currently no results').'.</h3>'. |
"</form></body></html>"); |
"</form></body></html>"); |
return; |
return; |
Line 2430 sub display_results {
|
Line 2378 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 2443 sub display_results {
|
Line 2389 sub display_results {
|
} |
} |
my %Fields = %{&parse_row(@$row)}; |
my %Fields = %{&parse_row(@$row)}; |
my $output="<p>\n"; |
my $output="<p>\n"; |
|
if (! defined($Fields{'title'}) || $Fields{'title'} eq '') { |
|
$Fields{'title'} = 'Untitled'; |
|
} |
my $prefix=&catalogmode_output($Fields{'title'},$Fields{'url'}, |
my $prefix=&catalogmode_output($Fields{'title'},$Fields{'url'}, |
$Fields{'id'},$checkbox_num++); |
$Fields{'id'},$checkbox_num++); |
# Render the result into html |
# Render the result into html |
Line 2513 END
|
Line 2462 END
|
|
|
=pod |
=pod |
|
|
=item &parse_row |
=item &parse_row() |
|
|
Parse a row returned from the database. |
Parse a row returned from the database. |
|
|
Line 2524 Parse a row returned from the database.
|
Line 2473 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 2544 sub parse_row {
|
Line 2496 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 2562 The 'title' field is set to "Untitled" i
|
Line 2511 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 2668 sub handle_custom_fields {
|
Line 2565 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 2713 the name of the input field to put the t
|
Line 2610 the name of the input field to put the t
|
###################################################################### |
###################################################################### |
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 2816 END
|
Line 2714 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 2868 ENDFRAMES
|
Line 2767 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 2895 sub detailed_citation_view {
|
Line 2795 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 3009 END
|
Line 2909 END
|
###################################################################### |
###################################################################### |
sub xml_sgml_view { |
sub xml_sgml_view { |
my ($prefix,%values) = @_; |
my ($prefix,%values) = @_; |
|
my $xml = <<END; |
|
<LonCapaResource> |
|
<url>$values{'url'}</url> |
|
<title>$values{'title'}</title> |
|
<author>$values{'author'}</author> |
|
<subject>$values{'subject'}</subject> |
|
<keywords>$values{'keywords'}</keywords> |
|
<notes>$values{'notes'}</notes> |
|
<mimeInfo> |
|
<mime>$values{'mime'}</mime> |
|
<mimetag>$values{'mimetag'}</mimetag> |
|
</mimeInfo> |
|
<languageInfo> |
|
<language>$values{'language'}</language> |
|
<languagetag>$values{'languagetag'}</languagetag> |
|
</languageInfo> |
|
<creationdate>$values{'creationdate'}</creationdate> |
|
<lastrevisiondate>$values{'lastrevisiondate'}</lastrevisiondate> |
|
<owner>$values{'owner'}</owner> |
|
<copyrightInfo> |
|
<copyright>$values{'copyright'}</copyright> |
|
<copyrighttag>$values{'copyrighttag'}</copyrighttag> |
|
</copyrightInfo> |
|
<repositoryLocation>$values{'hostname'}</repositoryLocation> |
|
<shortabstract>$values{'shortabstract'}</shortabstract> |
|
</LonCapaResource> |
|
END |
|
$xml = &HTML::Entities::encode($xml,'<>&'); |
my $result=<<END; |
my $result=<<END; |
$prefix |
$prefix |
<pre> |
<pre> |
<LonCapaResource> |
$xml |
<url>$values{'url'}</url> |
|
<title>$values{'title'}</title> |
|
<author>$values{'author'}</author> |
|
<subject>$values{'subject'}</subject> |
|
<keywords>$values{'keywords'}</keywords> |
|
<notes>$values{'notes'}</notes> |
|
<mimeInfo> |
|
<mime>$values{'mime'}</mime> |
|
<mimetag>$values{'mimetag'}</mimetag> |
|
</mimeInfo> |
|
<languageInfo> |
|
<language>$values{'lang'}</language> |
|
<languagetag>$values{'language'}</languagetag> |
|
</languageInfo> |
|
<creationdate>$values{'creationdate'}</creationdate> |
|
<lastrevisiondate>$values{'lastrevisiondate'}</lastrevisiondate> |
|
<owner>$values{'owner'}</owner> |
|
<copyrightInfo> |
|
<copyright>$values{'copyright'}</copyright> |
|
<copyrighttag>$values{'copyrighttag'}</copyrighttag> |
|
</copyrightInfo> |
|
<repositoryLocation>$values{'hostname'}</repositoryLocation> |
|
<shortabstract>$values{'shortabstract'}</shortabstract> |
|
</LonCapaResource> |
|
</pre> |
</pre> |
$values{'extrashow'} |
$values{'extrashow'} |
<hr align='left' width='200' noshade /> |
<hr align='left' width='200' noshade /> |
Line 3058 END
|
Line 2962 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 3086 $parms is extra information to include i
|
Line 2989 $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 3135 Inputs:
|
Line 3039 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> |