version 1.124, 2002/06/20 14:31:31
|
version 1.128, 2002/06/24 16:45:22
|
Line 67 search (on a server basis) is displayed
|
Line 67 search (on a server basis) is displayed
|
############################################################################### |
############################################################################### |
############################################################################### |
############################################################################### |
|
|
|
############################################################################### |
## ## |
## ## |
## ORGANIZATION OF THIS PERL MODULE ## |
## ORGANIZATION OF THIS PERL MODULE ## |
## ## |
## ## |
## 1. Modules used by this module ## |
## 1. Modules used by this module ## |
## 2. Choices for different output views (detailed, summary, xml, etc) ## |
## 2. Variables used throughout the module ## |
## 3. BEGIN block (to be run once after compilation) ## |
## 3. handler subroutine called via Apache and mod_perl ## |
## 4. Handling routine called via Apache and mod_perl ## |
## 4. Other subroutines ## |
## 5. Other subroutines ## |
|
## ## |
## ## |
############################################################################### |
############################################################################### |
|
|
Line 101 use Apache::loncommon();
|
Line 101 use Apache::loncommon();
|
|
|
=over 4 |
=over 4 |
|
|
=item %hostdomains |
|
|
|
matches host name to host domain |
|
|
|
=item %hostips |
|
|
|
matches host name to host ip |
|
|
|
=item %hitcount |
|
|
|
stores number of hits per host |
|
|
|
=item $closebutton |
=item $closebutton |
|
|
button that closes the search window |
button that closes the search window |
Line 137 used in &handler() and is also used in &
|
Line 125 used in &handler() and is also used in &
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
|
|
# -- information holders |
|
my %hostdomains; # matches host name to host domain |
|
my %hostips; # matches host name to host ip |
|
my %hitcount; # stores number of hits per host |
|
|
|
# -- dynamically rendered interface components |
# -- dynamically rendered interface components |
my $closebutton; # button that closes the search window |
my $closebutton; # button that closes the search window |
my $importbutton; # button to take the selected results and go to group sorting |
my $importbutton; # button to take the selected results and go to group sorting |
|
|
# -- miscellaneous variables |
# -- miscellaneous variables |
my $yourself; # allows for quickly limiting to oneself |
|
my %hash; # database hash |
my %hash; # database hash |
|
my $diropendb = ""; # db file |
# ------------------------------------------ choices for different output views |
|
# Detailed Citation View ---> sub detailed_citation_view |
|
# Summary View ---> sub summary_view |
|
# Fielded Format ---> sub fielded_format_view |
|
# XML/SGML ---> sub xml_sgml_view |
|
|
|
#------------------------------------------------------------- global variables |
|
my $diropendb = ""; |
|
my $domain = ""; |
|
|
|
# ----------------------------------------------------------------------- BEGIN |
|
|
|
=pod |
|
|
|
=item BEGIN block |
|
|
|
Load %hostdomains and %hostips with data from lonnet.pm. Only library |
|
servers are considered. |
|
|
|
=cut |
|
|
|
BEGIN { |
|
foreach (keys (%Apache::lonnet::libserv)) { |
|
$hostdomains{$_}=$Apache::lonnet::hostdom{$_}; |
|
$hostips{$_}=$Apache::lonnet::hostip{$_}; |
|
} |
|
} |
|
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
Line 515 ENDDOCUMENT
|
Line 470 ENDDOCUMENT
|
=item &make_persistent() |
=item &make_persistent() |
|
|
Returns a scalar which holds the current ENV{'form.*'} values in |
Returns a scalar which holds the current ENV{'form.*'} values in |
a 'hidden' html input tag. |
a 'hidden' html input tag. This allows search interface information |
|
to be somewhat persistent. |
|
|
=cut |
=cut |
|
|
Line 524 a 'hidden' html input tag.
|
Line 480 a 'hidden' html input tag.
|
|
|
sub make_persistent { |
sub make_persistent { |
my $persistent=''; |
my $persistent=''; |
|
|
foreach (keys %ENV) { |
foreach (keys %ENV) { |
if (/^form\./ && !/submit/) { |
if (/^form\./ && !/submit/) { |
my $name=$_; |
my $name=$_; |
Line 532 sub make_persistent {
|
Line 487 sub make_persistent {
|
$ENV{$key}=~s/\'//g; # do not mess with html field syntax |
$ENV{$key}=~s/\'//g; # do not mess with html field syntax |
$name=~s/^form\.//; |
$name=~s/^form\.//; |
$persistent.=<<END; |
$persistent.=<<END; |
<input type='hidden' name='$name' value='$ENV{$key}' /> |
<input type="hidden" name="$name" value="$ENV{$key}" /> |
END |
END |
} |
} |
} |
} |
Line 574 is where the $name and $value are used)
|
Line 529 is where the $name and $value are used)
|
|
|
=item &dateboxes() |
=item &dateboxes() |
|
|
|
Returns html selection form elements for the specification of |
|
the day, month, and year. |
|
|
=item &selectbox() |
=item &selectbox() |
|
|
|
Returns html selection form. |
|
|
=back |
=back |
|
|
=cut |
=cut |
Line 675 sub selectbox {
|
Line 635 sub selectbox {
|
|
|
=pod |
=pod |
|
|
=item &advancedsearch() |
=item &advancedsearch() |
|
|
|
Parse advanced search results. |
|
|
=cut |
=cut |
|
|
Line 786 sub advancedsearch {
|
Line 748 sub advancedsearch {
|
$customquery,$customshow); |
$customquery,$customshow); |
} |
} |
&output_results('Advanced',$r,$envhash,$customquery,$reply,$hidden); |
&output_results('Advanced',$r,$envhash,$customquery,$reply,$hidden); |
} |
return OK; |
elsif ($customquery) { |
} elsif ($customquery) { |
my $reply; # reply hash reference |
my $reply; # reply hash reference |
$reply=&Apache::lonnet::metadata_query('', |
$reply=&Apache::lonnet::metadata_query('', |
$customquery,$customshow); |
$customquery,$customshow); |
&output_results('Advanced',$r,$envhash,$customquery,$reply,$hidden); |
&output_results('Advanced',$r,$envhash,$customquery,$reply,$hidden); |
|
return OK; |
} |
} |
# should not get to this point |
# should not get to this point |
return 'Error. Should not have gone to this point.'; |
return 'Error. Should not have gone to this point.'; |
Line 804 sub advancedsearch {
|
Line 767 sub advancedsearch {
|
|
|
=item &basicsearch() |
=item &basicsearch() |
|
|
|
Parse basic search form. |
|
|
=cut |
=cut |
|
|
###################################################################### |
###################################################################### |
Line 838 sub basicsearch {
|
Line 803 sub basicsearch {
|
$query=&build_SQL_query('concat('.$concatarg.')',$ENV{'form.'.'basicexp'}); |
$query=&build_SQL_query('concat('.$concatarg.')',$ENV{'form.'.'basicexp'}); |
|
|
# Get reply (either a hash reference to filehandles or bad connection) |
# Get reply (either a hash reference to filehandles or bad connection) |
|
# &Apache::lonnet::logthis("metadata query started:".time); |
my $reply=&Apache::lonnet::metadata_query('select * from metadata where '.$query); |
my $reply=&Apache::lonnet::metadata_query('select * from metadata where '.$query); |
|
# &Apache::lonnet::logthis("metadata query finished:".time); |
# Output search results |
# Output search results |
|
|
&output_results('Basic',$r,$envhash,$query,$reply,$hidden); |
&output_results('Basic',$r,$envhash,$query,$reply,$hidden); |
Line 855 sub basicsearch {
|
Line 821 sub basicsearch {
|
|
|
=item &build_SQL_query() |
=item &build_SQL_query() |
|
|
|
Builds a SQL query string from a logical expression with AND/OR keywords |
|
using Text::Query and &recursive_SQL_query_builder() |
|
|
=cut |
=cut |
|
|
###################################################################### |
###################################################################### |
Line 877 sub build_SQL_query {
|
Line 846 sub build_SQL_query {
|
|
|
=item &build_custommetadata_query() |
=item &build_custommetadata_query() |
|
|
|
Constructs a custom metadata query using a rather heinous regular |
|
expression. |
|
|
=cut |
=cut |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub build_custommetadata_query { |
sub build_custommetadata_query { |
my ($field_name,$logic_statement)=@_; |
my ($field_name,$logic_statement)=@_; |
&Apache::lonnet::logthis("Entered build_custommetadata_query:". |
|
$field_name.':'.$logic_statement); |
|
my $q=new Text::Query('abc', |
my $q=new Text::Query('abc', |
-parse => 'Text::Query::ParseAdvanced', |
-parse => 'Text::Query::ParseAdvanced', |
-build => 'Text::Query::BuildAdvancedString'); |
-build => 'Text::Query::BuildAdvancedString'); |
Line 899 sub build_custommetadata_query {
|
Line 869 sub build_custommetadata_query {
|
\*$2\[\^\\<\]?# *wordtwo[^\<] |
\*$2\[\^\\<\]?# *wordtwo[^\<] |
\*\\<\\\/$1\\>?# *\<\/wordone\> |
\*\\<\\\/$1\\>?# *\<\/wordone\> |
/g; |
/g; |
&Apache::lonnet::logthis("match expression: ".$matchexp); |
|
return $matchexp; |
return $matchexp; |
} |
} |
|
|
Line 910 sub build_custommetadata_query {
|
Line 879 sub build_custommetadata_query {
|
|
|
=item &recursive_SQL_query_build() |
=item &recursive_SQL_query_build() |
|
|
|
Recursively constructs an SQL query. Takes as input $dkey and $pattern. |
|
|
=cut |
=cut |
|
|
###################################################################### |
###################################################################### |
Line 954 sub recursive_SQL_query_build {
|
Line 925 sub recursive_SQL_query_build {
|
|
|
=item &build_date_queries() |
=item &build_date_queries() |
|
|
|
Builds a SQL logic query to check time/date entries. |
|
Also reports errors (check for /^Incorrect/). |
|
|
=cut |
=cut |
|
|
###################################################################### |
###################################################################### |
Line 1024 contacted, etc.)
|
Line 998 contacted, etc.)
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub output_results { |
sub output_results { |
|
# &Apache::lonnet::logthis("output_results:".time); |
my $fnum; # search result counter |
my $fnum; # search result counter |
my ($mode,$r,$envhash,$query,$replyref,$hidden)=@_; |
my ($mode,$r,$envhash,$query,$replyref,$hidden)=@_; |
my %ENV=%{$envhash}; |
my %ENV=%{$envhash}; |
my %rhash=%{$replyref}; |
my %rhash=%{$replyref}; |
my $compiledresult=''; |
my $compiledresult=''; |
my $timeremain=300; |
my $timeremain=300; # (seconds) |
my $elapsetime=0; |
my $elapsetime=0; |
my $resultflag=0; |
my $resultflag=0; |
my $tflag=1; |
my $tflag=1; |
|
# |
# make query information persistent to allow for subsequent revision |
# make query information persistent to allow for subsequent revision |
my $persistent=&make_persistent(); |
my $persistent=&make_persistent(); |
|
# spit out the generic header |
|
$r->print(&search_results_header()); |
|
$r->rflush(); |
|
# begin showing the cataloged results |
|
$r->print(<<CATALOGBEGIN); |
|
</head> |
|
<body bgcolor="#ffffff"> |
|
<img align=right src=/adm/lonIcons/lonlogos.gif> |
|
<h1>Search Catalog</h1> |
|
CATALOGBEGIN |
|
$r->print(<<CATALOGCONTROLS); |
|
<form name='results' method="post" action="/adm/searchcat"> |
|
$hidden |
|
<input type='hidden' name='acts' value='' /> |
|
<input type='button' value='Revise search request' |
|
onClick='this.form.submit();' /> |
|
$importbutton |
|
$closebutton |
|
$persistent |
|
<hr /> |
|
<h3>Search Query</h3> |
|
CATALOGCONTROLS |
|
# |
|
# Remind them what they searched for |
|
# |
|
if ($mode eq 'Basic') { |
|
$r->print('<p><b>Basic search:</b> '.$ENV{'form.basicexp'}.'</p>'); |
|
} elsif ($mode eq 'Advanced') { |
|
$r->print('<p><b>Advanced search</b> '.$query.'</p>'); |
|
} |
|
$r->print('<h3>Search Results</h3>'); |
|
$r->rflush(); |
|
# |
|
# make the pop-up window for status |
|
# |
|
$r->print(&make_popwin(%rhash)); |
|
$r->rflush(); |
|
## |
|
## Prepare for the main loop below |
|
## |
|
my $servercount=0; |
|
my $hitcountsum=0; |
|
my $servernum=(keys %rhash); |
|
my $serversleft=$servernum; |
|
## |
|
## Run until we run out of time or we run out of servers |
|
## |
|
while($serversleft && $timeremain) { |
|
## |
|
## %rhash has servers deleted from it as results come in |
|
## (within the foreach loop below). |
|
## |
|
foreach my $rkey (sort keys %rhash) { |
|
# &Apache::lonnet::logthis("Server $rkey:".time); |
|
$servercount++; |
|
$compiledresult=''; |
|
my $reply=$rhash{$rkey}; |
|
my @results; |
|
if ($reply eq 'con_lost') { |
|
&popwin_imgupdate($r,$rkey,"srvbad.gif"); |
|
$serversleft--; |
|
delete $rhash{$rkey}; |
|
} else { |
|
# must do since 'use strict' checks for tainting |
|
$reply=~/^([\.\w]+)$/; |
|
my $replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
|
$reply=~/(.*?)\_/; |
|
for (my $counter=0;$counter<2;$counter++) { |
|
if (-e $replyfile && ! -e "$replyfile.end") { |
|
&popwin_imgupdate($r,$rkey,"srvhalf.gif"); |
|
&popwin_js($r,'popwin.hc["'.$rkey.'"]='. |
|
'"still transferring..."'.';'); |
|
} |
|
# Are we finished transferring data? |
|
if (-e "$replyfile.end") { |
|
$serversleft--; |
|
delete $rhash{$rkey}; |
|
if (-s $replyfile) { |
|
&popwin_imgupdate($r,$rkey,"srvgood.gif"); |
|
my $fh; |
|
unless ($fh=Apache::File->new($replyfile)){ |
|
# Is it really appropriate to die on this error? |
|
$r->print('ERROR: file '. |
|
$replyfile.' cannot be opened'); |
|
return OK; |
|
} |
|
@results=<$fh> if $fh; |
|
my $hits =@results; |
|
&popwin_js($r,'popwin.hc["'.$rkey.'"]='. |
|
$hits.';'); |
|
$hitcountsum+=$hits; |
|
&popwin_js($r,'popwin.document.forms.popremain.'. |
|
'numhits.value='.$hitcountsum.';'); |
|
} else { |
|
&popwin_imgupdate($r,$rkey,"srvempty.gif"); |
|
&popwin_js($r,'popwin.hc["'.$rkey.'"]=0;'); |
|
} |
|
last; |
|
} # end of if ( -e "$replyfile.end") |
|
last unless $timeremain; |
|
sleep 1; # wait for daemons to write files? |
|
$timeremain--; |
|
$elapsetime++; |
|
&popwin_js($r,"popwin.document.popremain.". |
|
"elapsetime.value=$elapsetime;"); |
|
} |
|
&popwin_js($r,'popwin.document.whirly.'. |
|
'src="/adm/lonIcons/lonanimend.gif";'); |
|
} # end of if ($reply eq 'con_lost') else statement |
|
my %Fields = undef; # Holds the data to be sent to the various |
|
# *_view routines. |
|
my ($extrashow,$customfields,$customhash) = &handle_custom_fields(\@results); |
|
my @customfields = @$customfields; |
|
my %customhash = %$customhash; |
|
untie %hash if (keys %hash); |
|
# |
|
if (! tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
|
$r->print('<html><head></head><body>Unable to tie hash to db '. |
|
'file</body></html>'); |
|
} else { |
|
if ($ENV{'form.launch'} eq '1') { |
|
&start_fresh_session(); |
|
} |
|
foreach my $result (@results) { |
|
next if $result=~/^custom\=/; |
|
chomp $result; |
|
next unless $result; |
|
%Fields = &parse_raw_result($result,$rkey); |
|
$Fields{'extrashow'}=$extrashow; |
|
if ($extrashow) { |
|
foreach my $field (@customfields) { |
|
my $value=''; |
|
$value = $1 if ($customhash{$Fields{'url'}}=~/\<{$field}[^\>]*\>(.*?)\<\/{$field}[^\>]*\>/s); |
|
$Fields{'extrashow'}=~s/\<\!\-\- $field \-\-\>/ $value/g; |
|
} |
|
} |
|
if ($compiledresult or $servercount!=$servernum) { |
|
$compiledresult.="<hr align='left' width='200' noshade />"; |
|
} |
|
$compiledresult.="\n<p>\n"; |
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
|
my $titleesc=$Fields{'title'}; |
|
$titleesc=~s/\'/\\'/; # ' |
|
$compiledresult.=<<END if ($ENV{'form.catalogmode'} eq 'interactive'); |
|
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
|
onClick="javascript:select_data('$titleesc','$Fields{'url'}')"> |
|
</font> |
|
<br /> |
|
END |
|
} |
|
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
|
$fnum+=0; |
|
$hash{"pre_${fnum}_link"}=$Fields{'url'}; |
|
$hash{"pre_${fnum}_title"}=$Fields{'title'}; |
|
$compiledresult.=<<END; |
|
<font size='-1'> |
|
<input type="checkbox" name="returnvalues" value="SELECT" |
|
onClick="javascript:queue($fnum)" /> |
|
</font> |
|
<br /> |
|
END |
|
# <input type="hidden" name="title$fnum" value="$title" /> |
|
# <input type="hidden" name="url$fnum" value="$url" /> |
|
$fnum++; |
|
} |
|
my $viewselect; |
|
if ($mode eq 'Basic') { |
|
$viewselect=$ENV{'form.basicviewselect'}; |
|
} |
|
elsif ($mode eq 'Advanced') { |
|
$viewselect=$ENV{'form.advancedviewselect'}; |
|
} |
|
if ($viewselect eq 'Detailed Citation View') { |
|
$compiledresult.=&detailed_citation_view |
|
(%Fields, hostname => $rkey ); |
|
} |
|
elsif ($viewselect eq 'Summary View') { |
|
$compiledresult.=&summary_view |
|
(%Fields, hostname => $rkey ); |
|
} |
|
elsif ($viewselect eq 'Fielded Format') { |
|
$compiledresult.=&fielded_format_view |
|
(%Fields, hostname => $rkey ); |
|
} |
|
elsif ($viewselect eq 'XML/SGML') { |
|
$compiledresult.=&xml_sgml_view |
|
(%Fields, hostname => $rkey ); |
|
} |
|
} |
|
untie %hash; |
|
} |
|
if ($compiledresult) { |
|
$resultflag=1; |
|
$r->print($compiledresult); |
|
} |
|
my $percent=sprintf('%3.0f',($servercount/$servernum*100)); |
|
} # End of foreach loop over servers remaining |
|
} # End of big loop - while($serversleft && $timeremain) |
|
unless ($resultflag) { |
|
$r->print("\nThere were no results that matched your query\n"); |
|
} |
|
# $r->print('<script type="text/javascript">'.'popwin.close()</script>'."\n"); $r->rflush(); |
|
$r->print("</body>\n</html>\n"); |
|
return; |
|
} |
|
|
|
########################################################### |
|
########################################################### |
|
|
|
=pod |
|
|
|
=item &parse_raw_result() |
|
|
|
Takes a line from the file of results and parse it. Returns a hash |
|
with keys for the following fields: |
|
'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 |
|
lonnet function: 'language', 'cprtag', 'mimetag'. |
|
|
|
The 'title' field is set to "Untitled" if the title field is blank. |
|
|
|
'abstract' and 'keywords' are truncated to 200 characters. |
|
|
|
=cut |
|
|
|
########################################################### |
|
########################################################### |
|
sub parse_raw_result { |
|
my ($result,$hostname) = @_; |
|
# Check for a comma - if it is there then we do not need to unescape the |
|
# string. There seems to be some kind of problem with some items in |
|
# the database - the entire string gets sent out unescaped...? |
|
unless ($result =~ /,/) { |
|
$result = &Apache::lonnet::unescape($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'}); |
|
# 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'}) { |
|
$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; |
|
} |
|
|
|
########################################################### |
|
########################################################### |
|
|
|
=pod |
|
|
|
=item &handle_custom_fields() |
|
|
|
=cut |
|
|
|
########################################################### |
|
########################################################### |
|
sub handle_custom_fields { |
|
my @results = @{shift()}; |
|
my $customshow=''; |
|
my $extrashow=''; |
|
my @customfields; |
|
if ($ENV{'form.customshow'}) { |
|
$customshow=$ENV{'form.customshow'}; |
|
$customshow=~s/[^\w\s]//g; |
|
my @fields=map { |
|
"<font color=\"#008000\">$_:</font><!-- $_ -->"; |
|
} split(/\s+/,$customshow); |
|
@customfields=split(/\s+/,$customshow); |
|
if ($customshow) { |
|
$extrashow="<ul><li>".join("</li><li>",@fields)."</li></ul>\n"; |
|
} |
|
} |
|
my $customdata=''; |
|
my %customhash; |
|
foreach my $result (@results) { |
|
if ($result=~/^(custom\=.*)$/) { # grab all custom metadata |
|
my $tmp=$result; |
|
$tmp=~s/^custom\=//; |
|
my ($k,$v)=map {&Apache::lonnet::unescape($_); |
|
} split(/\,/,$tmp); |
|
$customhash{$k}=$v; |
|
} |
|
} |
|
return ($extrashow,\@customfields,\%customhash); |
|
} |
|
|
|
###################################################################### |
|
###################################################################### |
|
|
|
=pod |
|
|
|
=item &search_results_header |
|
|
|
Output the proper javascript code to deal with different calling modes. |
|
|
|
Takes inputs directly from from %ENV. The following environment variables |
|
are checked: |
|
|
|
=over 4 |
|
|
|
=item 'form.catalogmode' |
|
|
|
Checked for 'interactive' and 'groupsearch'. |
|
|
|
=item 'form.mode' |
|
|
|
Checked for existance & 'edit' mode. |
|
|
|
=item 'form.form' |
|
|
|
=item 'form.element' |
|
|
|
=back |
|
|
|
=cut |
|
|
|
###################################################################### |
|
###################################################################### |
|
sub search_results_header { |
|
my $result = ''; |
# output beginning of search page |
# output beginning of search page |
$r->print(<<BEGINNING); |
$result.=<<BEGINNING; |
<html> |
<html> |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
BEGINNING |
BEGINNING |
|
|
# conditional output of script functions dependent on the mode in |
# conditional output of script functions dependent on the mode in |
# which the search was invoked |
# which the search was invoked |
if ($ENV{'form.catalogmode'} eq 'interactive'){ |
if ($ENV{'form.catalogmode'} eq 'interactive'){ |
if (! exists($ENV{'form.mode'}) || $ENV{'form.mode'} ne 'edit') { |
if (! exists($ENV{'form.mode'}) || $ENV{'form.mode'} ne 'edit') { |
$r->print(<<SCRIPT) |
$result.=<<SCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function select_data(title,url) { |
function select_data(title,url) { |
changeTitle(title); |
changeTitle(title); |
Line 1070 SCRIPT
|
Line 1406 SCRIPT
|
} elsif ($ENV{'form.mode'} eq 'edit') { |
} elsif ($ENV{'form.mode'} eq 'edit') { |
my $form = $ENV{'form.form'}; |
my $form = $ENV{'form.form'}; |
my $element = $ENV{'form.element'}; |
my $element = $ENV{'form.element'}; |
$r->print(<<SCRIPT) |
$result.=<<SCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function select_data(title,url) { |
function select_data(title,url) { |
changeURL(url); |
changeURL(url); |
Line 1090 function changeURL(val) {
|
Line 1426 function changeURL(val) {
|
SCRIPT |
SCRIPT |
} |
} |
} |
} |
$r->print(<<SCRIPT) if $ENV{'form.catalogmode'} eq 'groupsearch'; |
$result.=<<SCRIPT if $ENV{'form.catalogmode'} eq 'groupsearch'; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function select_data(title,url) { |
function select_data(title,url) { |
// alert('DEBUG: Should be storing '+title+' and '+url); |
// alert('DEBUG: Should be storing '+title+' and '+url); |
Line 1110 SCRIPT
|
Line 1446 SCRIPT
|
} |
} |
</script> |
</script> |
SCRIPT |
SCRIPT |
$r->print(<<SCRIPT); |
$result.=<<SCRIPT; |
<script type="text/javascript"> |
<script type="text/javascript"> |
function displayinfo(val) { |
function displayinfo(val) { |
popwin.document.forms.popremain.sdetails.value=val; |
popwin.document.forms.popremain.sdetails.value=val; |
Line 1125 SCRIPT
|
Line 1461 SCRIPT
|
} |
} |
</script> |
</script> |
SCRIPT |
SCRIPT |
$r->rflush(); |
return $result; |
|
} |
|
|
# begin showing the cataloged results |
###################################################################### |
$r->print(<<CATALOGBEGIN); |
###################################################################### |
</head> |
|
<body bgcolor="#ffffff"> |
=pod |
<img align=right src=/adm/lonIcons/lonlogos.gif> |
|
<h1>Search Catalog</h1> |
|
CATALOGBEGIN |
|
$r->print(<<CATALOGCONTROLS); |
|
<form name='results' method="post" action="/adm/searchcat"> |
|
$hidden |
|
<input type='hidden' name='acts' value='' /> |
|
<input type='button' value='Revise search request' |
|
onClick='this.form.submit();' /> |
|
$importbutton |
|
$closebutton |
|
$persistent |
|
<hr /> |
|
<h3>Search Query</h3> |
|
CATALOGCONTROLS |
|
if ($mode eq 'Basic') { |
|
$r->print(<<RESULTS); |
|
<p> |
|
<b>Basic search:</b> $ENV{'form.basicexp'} |
|
</p> |
|
RESULTS |
|
} |
|
elsif ($mode eq 'Advanced') { |
|
$r->print(<<RESULTS); |
|
<p> |
|
<b>Advanced search</b> |
|
$query |
|
</p> |
|
RESULTS |
|
} |
|
$r->print('<h3>Search Results</h3>'); |
|
$r->rflush(); |
|
my $servernum=(keys %rhash)+0; |
|
|
|
# define server grid (shows status of multiple machines) |
=item &make_popwin() |
|
|
|
Returns html with javascript in it to open up the status window. |
|
|
|
=cut |
|
|
|
###################################################################### |
|
###################################################################### |
|
sub make_popwin { |
|
my %rhash = @_; |
|
my $servernum=(keys %rhash); |
my $hcinit; |
my $hcinit; |
my $grid="'<br />'+"; |
my $grid="'<br />'+\n"; |
$grid.="\n"; |
# $sn is the server number, used ONLY to make sure we have |
|
# rows of 10 each. No longer used to index images. |
my $sn=1; |
my $sn=1; |
for my $sk (sort keys %rhash) { |
foreach my $sk (sort keys %rhash) { |
# '<a href=" |
# '<a href=" |
$grid.="'<a href=\""; |
$grid.="'<a href=\""; |
# javascript:displayinfo('+ |
# javascript:displayinfo('+ |
Line 1187 RESULTS
|
Line 1502 RESULTS
|
$hcinit.="hc[\"$sk\"]=\"not yet connected...\";"; |
$hcinit.="hc[\"$sk\"]=\"not yet connected...\";"; |
} |
} |
$grid.=" hitcount=".$hc; |
$grid.=" hitcount=".$hc; |
$grid.=" domain=".$hostdomains{$sk}; |
$grid.=" domain=".$Apache::lonnet::hostdom{$sk}; |
$grid.=" IP=".$hostips{$sk}; |
$grid.=" IP=".$Apache::lonnet::hostip{$sk}; |
# '+"'"+'">'+ |
# '+"'"+'">'+ |
$grid.="'+\"'\"+')\">'+"; |
$grid.="'+\"'\"+')\">'+"; |
$grid.="\n"; |
$grid.="\n"; |
$grid.="'<img border=\"0\" name=\"img".$sn."\"". |
$grid.="'<img border=\"0\" name=\"img_".$Apache::lonnet::hostdom{$sk}. |
" src=\"/adm/lonIcons/srvnull.gif\" alt=\"".$sk."\" /></a>'+\n"; |
'_'.$sk."\" src=\"/adm/lonIcons/srvnull.gif\" alt=\"".$sk. |
|
"\" /></a>'+\n"; |
$grid.="'<br />'+\n" unless $sn%10; |
$grid.="'<br />'+\n" unless $sn%10; |
$sn++; |
$sn++; |
} |
} |
$r->print(<<ENDPOP); |
my $result.=<<ENDPOP; |
<script type="text/javascript"> |
<script type="text/javascript"> |
popwin=open('','popwin','scrollbars=1,width=400,height=220'); |
popwin=open('','popwin','scrollbars=1,width=400,height=220'); |
popwin.focus(); |
popwin.focus(); |
Line 1241 RESULTS
|
Line 1557 RESULTS
|
popwin.document.close(); |
popwin.document.close(); |
</script> |
</script> |
ENDPOP |
ENDPOP |
$r->rflush(); |
return $result; |
|
|
my $servercount=0; |
|
my $hitcountsum=0; |
|
my $bloop=$servernum; |
|
my %orkey; |
|
BLOOP: while(1) { |
|
my $sn=0; |
|
last BLOOP unless $bloop; |
|
last BLOOP unless $timeremain; |
|
RLOOP: foreach my $rkey (sort keys %rhash) { |
|
$sn++; |
|
next RLOOP if $orkey{$rkey}; |
|
$servercount++; |
|
$tflag=1; |
|
$compiledresult=''; |
|
my $hostname=$rkey; |
|
my $reply=$rhash{$rkey}; |
|
my @results; |
|
|
|
my $replyfile=''; |
|
|
|
if ($reply eq 'con_lost') { |
|
&popwin_imgupdate($r,$sn,"srvbad.gif"); |
|
$bloop--; |
|
$orkey{$rkey}=1; |
|
} |
|
else { |
|
$reply=~/^([\.\w]+)$/; # must do since 'use strict' checks for tainting |
|
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
|
$reply=~/(.*?)\_/; |
|
{ |
|
my $temp=0; |
|
WLOOP: while (1) { |
|
if (-e $replyfile && $tflag) { |
|
&popwin_imgupdate($r,$sn,"srvhalf.gif"); |
|
&popwin_js($r,'popwin.hc["'.$rkey.'"]='. |
|
'"still transferring..."'.';'); |
|
$tflag=0; |
|
} |
|
if (-e "$replyfile.end") { |
|
$bloop--; |
|
$orkey{$rkey}=1; |
|
if (-s $replyfile) { |
|
&popwin_imgupdate($r,$sn,"srvgood.gif"); |
|
my $fh=Apache::File->new($replyfile) or |
|
($r->print('ERROR: file '. |
|
$replyfile.' cannot be opened') and |
|
return OK); |
|
@results=<$fh> if $fh; |
|
$hitcount{$rkey}=@results+0; |
|
&popwin_js($r,'popwin.hc["'.$rkey.'"]='. |
|
$hitcount{$rkey}.';'); |
|
$hitcountsum+=$hitcount{$rkey}; |
|
&popwin_js($r,'popwin.document.forms.popremain.'. |
|
'numhits.value='.$hitcountsum.';'); |
|
} |
|
else { |
|
&popwin_imgupdate($r,$sn,"srvempty.gif"); |
|
&popwin_js($r,'popwin.hc["'.$rkey.'"]=0;'); |
|
} |
|
last WLOOP; |
|
} |
|
if ($temp>1) { |
|
sleep 1; |
|
$timeremain--; |
|
$elapsetime++; |
|
last WLOOP; |
|
} |
|
last WLOOP unless $timeremain; |
|
sleep 1; |
|
$timeremain--; |
|
$elapsetime++; |
|
&popwin_js($r,"popwin.document.popremain.". |
|
"elapsetime.value=$elapsetime;"); |
|
$temp++; |
|
} |
|
} |
|
&popwin_js($r,'popwin.document.whirly.'. |
|
'src="/adm/lonIcons/lonanimend.gif";'); |
|
} |
|
my $customshow=''; |
|
my $extrashow=''; |
|
my @customfields; |
|
if ($ENV{'form.customshow'}) { |
|
$customshow=$ENV{'form.customshow'}; |
|
$customshow=~s/[^\w\s]//g; |
|
my @fields=map {"<font color=\"#008000\">$_:</font><!-- $_ -->"} |
|
split(/\s+/,$customshow); |
|
@customfields=split(/\s+/,$customshow); |
|
if ($customshow) { |
|
$extrashow="<ul><li>".join("</li><li>",@fields)."</li></ul>\n"; |
|
} |
|
} |
|
my $customdata=''; |
|
my %customhash; |
|
foreach my $result (@results) { |
|
if ($result=~/^(custom\=.*)$/) { # grab all custom metadata |
|
my $tmp=$result; |
|
$tmp=~s/^custom\=//; |
|
my ($k,$v)=map {&Apache::lonnet::unescape($_); |
|
} split(/\,/,$tmp); |
|
$customhash{$k}=$v; |
|
} |
|
} |
|
if (keys %hash) { |
|
untie %hash; |
|
} |
|
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT,0640)) { |
|
if ($ENV{'form.launch'} eq '1') { |
|
&start_fresh_session(); |
|
} |
|
foreach my $result (@results) { |
|
next if $result=~/^custom\=/; |
|
chomp $result; |
|
next unless $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; |
|
unless ($title =~ /^\s*$/ ) { $title='<i>Untitled</i>'; } |
|
unless ($ENV{'user.adv'}) { |
|
$keywords='<i>- not displayed -</i>'; |
|
$fields[4]=$keywords; |
|
$notes='<i>- not displayed -</i>'; |
|
$fields[6]=$notes; |
|
$abstract='<i>- not displayed -</i>'; |
|
$fields[7]=$abstract; |
|
$subject='<i>- not displayed -</i>'; |
|
$fields[2]=$subject; |
|
} |
|
|
|
my $shortabstract=$abstract; |
|
$shortabstract=substr($abstract,0,200).'...' if length($abstract)>200; |
|
$fields[7]=$shortabstract; |
|
my $shortkeywords=$keywords; |
|
$shortkeywords=substr($keywords,0,200).'...' if length($keywords)>200; |
|
$fields[4]=$shortkeywords; |
|
|
|
my $extrashow2=$extrashow; |
|
if ($extrashow) { |
|
foreach my $field (@customfields) { |
|
my $value=''; |
|
if ($customhash{$url}=~/\<${field}[^\>]*\>(.*?)\<\/${field}[^\>]*\>/s) { |
|
$value=$1; |
|
} |
|
$extrashow2=~s/\<\!\-\- $field \-\-\>/ $value/g; |
|
} |
|
} |
|
|
|
$compiledresult.=<<END if $compiledresult or $servercount!=$servernum; |
|
<hr align='left' width='200' noshade /> |
|
END |
|
$compiledresult.=<<END; |
|
<p> |
|
END |
|
if ($ENV{'form.catalogmode'} eq 'interactive') { |
|
my $titleesc=$title; |
|
$titleesc=~s/\'/\\'/; # ' |
|
|
|
$compiledresult.=<<END if ($ENV{'form.catalogmode'} eq 'interactive'); |
|
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
|
onClick="javascript:select_data('$titleesc','$url')"> |
|
</font> |
|
<br /> |
|
END |
|
} |
|
if ($ENV{'form.catalogmode'} eq 'groupsearch') { |
|
$fnum+=0; |
|
$hash{"pre_${fnum}_link"}=$url; |
|
$hash{"pre_${fnum}_title"}=$title; |
|
$compiledresult.=<<END; |
|
<font size='-1'> |
|
<input type="checkbox" name="returnvalues" value="SELECT" |
|
onClick="javascript:queue($fnum)" /> |
|
</font> |
|
<br /> |
|
END |
|
# <input type="hidden" name="title$fnum" value="$title" /> |
|
# <input type="hidden" name="url$fnum" value="$url" /> |
|
$fnum++; |
|
} |
|
my $httphost=$ENV{'HTTP_HOST'}; |
|
|
|
my $viewselect; |
|
if ($mode eq 'Basic') { |
|
$viewselect=$ENV{'form.basicviewselect'}; |
|
} |
|
elsif ($mode eq 'Advanced') { |
|
$viewselect=$ENV{'form.advancedviewselect'}; |
|
} |
|
|
|
if ($viewselect eq 'Detailed Citation View') { |
|
$compiledresult.=&detailed_citation_view(@fields, |
|
$hostname,$httphost, |
|
$extrashow2); |
|
} |
|
elsif ($viewselect eq 'Summary View') { |
|
$compiledresult.=&summary_view(@fields,$hostname,$httphost, |
|
$extrashow2); |
|
} |
|
elsif ($viewselect eq 'Fielded Format') { |
|
$compiledresult.=&fielded_format_view(@fields,$hostname, |
|
$httphost,$extrashow2); |
|
} |
|
elsif ($viewselect eq 'XML/SGML') { |
|
$compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost, |
|
$extrashow2); |
|
} |
|
|
|
} |
|
|
|
untie %hash; |
|
} |
|
else { |
|
$r->print('<html><head></head><body>Unable to tie hash to db '. |
|
'file</body></html>'); |
|
} |
|
if ($compiledresult) { |
|
$resultflag=1; |
|
} |
|
|
|
$r->print(<<RESULTS); |
|
$compiledresult |
|
RESULTS |
|
my $percent=sprintf('%3.0f',($servercount/$servernum*100)); |
|
} |
|
} |
|
unless ($resultflag) { |
|
$r->print("\nThere were no results that matched your query\n"); |
|
} |
|
# $r->print('<script type="text/javascript">'.'popwin.close()</script>'."\n"); $r->rflush(); |
|
$r->print(<<RESULTS); |
|
</body> |
|
</html> |
|
RESULTS |
|
} |
} |
|
|
###################################################################### |
###################################################################### |
Line 1491 RESULTS
|
Line 1570 RESULTS
|
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, httphost, and |
last revision date, owner, copyright, hostname, and |
extra custom metadata to show. |
extra custom metadata to show. |
|
|
=over 4 |
=over 4 |
Line 1503 extra custom metadata to show.
|
Line 1582 extra custom metadata to show.
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub detailed_citation_view { |
sub detailed_citation_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my %values = @_; |
$notes,$shortabstract,$mime,$lang, |
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost,$extrashow)=@_; |
|
my $result=<<END; |
my $result=<<END; |
<i>$owner</i>, last revised $lastrevisiondate |
<i>$values{'owner'}</i>, last revised $values{'lastrevisiondate'} |
<h3><A HREF="http://$httphost$url" TARGET='search_preview'>$title</A></h3> |
<h3><a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
<h3>$author</h3> |
target='search_preview'>$values{'title'}</a></h3> |
|
<h3>$values{'author'}</h3> |
</p> |
</p> |
<p> |
<p> |
<b>Subject:</b> $subject<br /> |
<b>Subject:</b> $values{'subject'}<br /> |
<b>Keyword(s):</b> $keywords<br /> |
<b>Keyword(s):</b> $values{'keywords'}<br /> |
<b>Notes:</b> $notes<br /> |
<b>Notes:</b> $values{'notes'}<br /> |
<b>MIME Type:</b> |
<b>MIME Type:</b> |
END |
END |
$result.=&Apache::loncommon::filedescription($mime); |
$result.=&Apache::loncommon::filedescription($values{'mime'}); |
$result.=<<END; |
$result.=<<END; |
<br /> |
<br /> |
<b>Language:</b> |
<b>Language:</b> |
END |
END |
$result.=&Apache::loncommon::languagedescription($lang); |
$result.=&Apache::loncommon::languagedescription($values{'lang'}); |
$result.=<<END; |
$result.=<<END; |
<br /> |
<br /> |
<b>Copyright/Distribution:</b> |
<b>Copyright/Distribution:</b> |
END |
END |
$result.=&Apache::loncommon::copyrightdescription($copyright); |
$result.=&Apache::loncommon::copyrightdescription($values{'copyright'}); |
$result.=<<END; |
$result.=<<END; |
<br /> |
<br /> |
</p> |
</p> |
$extrashow |
$values{'extrashow'} |
<p> |
<p> |
$shortabstract |
$values{'shortabstract'} |
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 1552 END
|
Line 1629 END
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub summary_view { |
sub summary_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my %values = @_; |
$notes,$shortabstract,$mime,$lang, |
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost,$extrashow)=@_; |
|
my $cprtag=&Apache::loncommon::copyrightdescription($copyright); |
|
my $result=<<END; |
my $result=<<END; |
<a href="http://$httphost$url" TARGET='search_preview'>$author</a><br /> |
<a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
$title<br /> |
target='search_preview'>$values{'author'}</a><br /> |
$owner -- $lastrevisiondate<br /> |
$values{'title'}<br /> |
$cprtag<br /> |
$values{'owner'} -- $values{'lastrevisiondate'}<br /> |
$extrashow |
$values{'copyrighttag'}<br /> |
|
$values{'extrashow'} |
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 1580 END
|
Line 1654 END
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub fielded_format_view { |
sub fielded_format_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my %values = @_; |
$notes,$shortabstract,$mime,$lang, |
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost,$extrashow)=@_; |
|
my $mimetag=&Apache::loncommon::filedescription($mime); |
|
my $language=&Apache::loncommon::languagedescription($lang); |
|
my $cprtag=&Apache::loncommon::copyrightdescription($copyright); |
|
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<b>URL: </b> <a href="http://$ENV{'HTTP_HOST'}$values{'url'}" |
|
target='search_preview'>$values{'url'}</a> |
<br /> |
<br /> |
<b>Title:</b> $title<br /> |
<b>Title:</b> $values{'title'}<br /> |
<b>Author(s):</b> $author<br /> |
<b>Author(s):</b> $values{'author'}<br /> |
<b>Subject:</b> $subject<br /> |
<b>Subject:</b> $values{'subject'}<br /> |
<b>Keyword(s):</b> $keywords<br /> |
<b>Keyword(s):</b> $values{'keywords'}<br /> |
<b>Notes:</b> $notes<br /> |
<b>Notes:</b> $values{'notes'}<br /> |
<b>MIME Type:</b> $mimetag<br /> |
<b>MIME Type:</b> $values{'mimetag'}<br /> |
<b>Language:</b> $language<br /> |
<b>Language:</b> $values{'language'}<br /> |
<b>Creation Date:</b> $creationdate<br /> |
<b>Creation Date:</b> $values{'creationdate'}<br /> |
<b>Last Revision Date:</b> $lastrevisiondate<br /> |
<b>Last Revision Date:</b> $values{'lastrevisiondate'}<br /> |
<b>Publisher/Owner:</b> $owner<br /> |
<b>Publisher/Owner:</b> $values{'owner'}<br /> |
<b>Copyright/Distribution:</b> $cprtag<br /> |
<b>Copyright/Distribution:</b> $values{'copyrighttag'}<br /> |
<b>Repository Location:</b> $hostname<br /> |
<b>Repository Location:</b> $values{'hostname'}<br /> |
<b>Abstract:</b> $shortabstract<br /> |
<b>Abstract:</b> $values{'shortabstract'}<br /> |
$extrashow |
$values{'extrashow'} |
</p> |
</p> |
END |
END |
return $result; |
return $result; |
Line 1623 END
|
Line 1692 END
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub xml_sgml_view { |
sub xml_sgml_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my %values = @_; |
$notes,$shortabstract,$mime,$lang, |
|
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost,$extrashow)=@_; |
|
my $cprtag=&Apache::loncommon::copyrightdescription($copyright); |
|
my $mimetag=&Apache::loncommon::filedescription($mime); |
|
my $language=&Apache::loncommon::languagedescription($lang); |
|
my $result=<<END; |
my $result=<<END; |
<pre> |
<pre> |
<LonCapaResource> |
<LonCapaResource> |
<url>$url</url> |
<url>$values{'url'}</url> |
<title>$title</title> |
<title>$values{'title'}</title> |
<author>$author</author> |
<author>$values{'author'}</author> |
<subject>$subject</subject> |
<subject>$values{'subject'}</subject> |
<keywords>$keywords</keywords> |
<keywords>$values{'keywords'}</keywords> |
<notes>$notes</notes> |
<notes>$values{'notes'}</notes> |
<mimeInfo> |
<mimeInfo> |
<mime>$mime</mime> |
<mime>$values{'mime'}</mime> |
<mimetag>$mimetag</mimetag> |
<mimetag>$values{'mimetag'}</mimetag> |
</mimeInfo> |
</mimeInfo> |
<languageInfo> |
<languageInfo> |
<language>$lang</language> |
<language>$values{'lang'}</language> |
<languagetag>$language</languagetag> |
<languagetag>$values{'language'}</languagetag> |
</languageInfo> |
</languageInfo> |
<creationdate>$creationdate</creationdate> |
<creationdate>$values{'creationdate'}</creationdate> |
<lastrevisiondate>$lastrevisiondate</lastrevisiondate> |
<lastrevisiondate>$values{'lastrevisiondate'}</lastrevisiondate> |
<owner>$owner</owner> |
<owner>$values{'owner'}</owner> |
<copyrightInfo> |
<copyrightInfo> |
<copyright>$copyright</copyright> |
<copyright>$values{'copyright'}</copyright> |
<copyrighttag>$cprtag</copyrighttag> |
<copyrighttag>$values{'copyrighttag'}</copyrighttag> |
</copyrightInfo> |
</copyrightInfo> |
<repositoryLocation>$hostname</repositoryLocation> |
<repositoryLocation>$values{'hostname'}</repositoryLocation> |
<shortabstract>$shortabstract</shortabstract> |
<shortabstract>$values{'shortabstract'}</shortabstract> |
</LonCapaResource> |
</LonCapaResource> |
</pre> |
</pre> |
$extrashow |
$values{'extrashow'} |
END |
END |
return $result; |
return $result; |
} |
} |
Line 1827 END
|
Line 1890 END
|
|
|
=item &popwin_imgupdate() |
=item &popwin_imgupdate() |
|
|
|
Send a given image (and its location) out to the browser. Takes as |
|
input $r, loncapa server id, and an icon URL. |
|
|
=cut |
=cut |
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
sub popwin_imgupdate { |
sub popwin_imgupdate { |
my ($r,$imgnum,$icon) = @_; |
my ($r,$server,$icon) = @_; |
&popwin_js($r,'popwin.document.img'.$imgnum.'.'. |
&popwin_js($r,'popwin.document.img_'.$Apache::lonnet::hostdom{$server}. |
'src="/adm/lonIcons/'.$icon.'";'); |
'_'.$server.'.'.'src="/adm/lonIcons/'.$icon.'";'); |
} |
} |
|
|
1; |
1; |
Line 1845 __END__
|
Line 1911 __END__
|
|
|
=back |
=back |
|
|
=over 4 |
|
|
|
=head1 HANDLER SUBROUTINE |
|
|
|
This routine is called by Apache and mod_perl. |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
configure dynamic components of interface |
|
|
|
=item * |
|
|
|
determine current user |
|
|
|
=item * |
|
|
|
see if a search invocation should be done |
|
|
|
=item * |
|
|
|
else, begin building search interface to output |
|
|
|
=item * |
|
|
|
compute date selection boxes |
|
|
|
=item * |
|
|
|
compute customized metadata field |
|
|
|
=item * |
|
|
|
print screen |
|
|
|
=back |
|
|
|
=head1 OTHER SUBROUTINES |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
get_unprocessed_cgi() : reads in critical name/value pairs that may have not |
|
been processed and passed into %ENV by the web server |
|
|
|
=item * |
|
|
|
make_persistent() : makes a set of hidden HTML fields to make |
|
SQL search interface information to be persistent |
|
|
|
=back |
|
|
|
WEB INTERFACE COMPONENT FUNCTIONS |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
simpletextfield(name,value) : returns HTML formatted string for simple text |
|
field |
|
|
|
=item * |
|
|
|
simplecheckbox(name,value) : returns HTML formatted string for simple |
|
checkbox |
|
|
|
=item * |
|
|
|
searchphrasefield(title,name,value) : returns HTML formatted string for |
|
a search expression phrase field |
|
|
|
=item * |
|
|
|
dateboxes(name, defaultmonth, defaultday, defaultyear) : returns HTML |
|
formatted string for a calendar date |
|
|
|
=item * |
|
|
|
selectbox(title,name,value,%HASH=options) : returns HTML formatted string for |
|
a selection box field |
|
|
|
=back |
|
|
|
SEARCH FUNCTIONS |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
advancedsearch(server reference, environment reference) : perform a complex |
|
multi-field logical query |
|
|
|
=item * |
|
|
|
basicsearch(server reference, environment reference) : perform a simple |
|
single-field logical query |
|
|
|
=item * |
|
|
|
build_SQL_query(field name, logic) : builds a SQL query string from a |
|
logical expression with AND/OR keywords |
|
|
|
=item * |
|
|
|
build_custommetadata_query(field_name, logic_statement) : builds a perl |
|
regular expression from a logical expression with AND/OR keywords |
|
|
|
=item * |
|
|
|
recursive_SQL_query_build(field name, reverse notation expression) : |
|
builds a SQL query string from a reverse notation expression |
|
logical expression with AND/OR keywords |
|
|
|
=item * |
|
|
|
build_date_queries(cmonth1, cday1, cyear1, cmonth2, cday2, cyear2, |
|
lmonth1, lday1, lyear1, lmonth2, lday2, lyear2) : |
|
Builds a SQL logic query to check time/date entries. |
|
|
|
=back |
|
|
|
OUTPUTTING RESULTS FUNCTION |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
output_results(output mode, server reference, environment reference, |
|
reply list reference) : outputs results from search |
|
|
|
=back |
|
|
|
DIFFERENT WAYS TO VIEW METADATA RECORDS |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
detailed_citation_view(ORDERED METADATA LIST FOR A RESULT OBJECT INSTANCE) : |
|
see metadata viewing notes below |
|
|
|
=item * |
|
|
|
summary_view(ORDERED METADATA LIST FOR A RESULT OBJECT INSTANCE) : |
|
see metadata viewing notes below |
|
|
|
=item * |
|
|
|
fielded_format_view(ORDERED METADATA LIST FOR A RESULT OBJECT INSTANCE) : |
|
see metadata viewing notes below |
|
|
|
=item * |
|
|
|
xml_sgml_view(ORDERED METADATA LIST FOR A RESULT OBJECT INSTANCE) : |
|
see metadata viewing notes below |
|
|
|
=back |
|
|
|
_____________________________________________________________________ |
|
| * Metadata viewing notes | |
|
| Output is a HTML-ified string. | |
|
| Input arguments are title, author, subject, url, keywords, version, | |
|
| notes, short abstract, mime, language, creation date, | |
|
| last revision date, owner, copyright, hostname, httphost, and | |
|
| extra custom metadata to show. | |
|
--------------------------------------------------------------------- |
|
|
|
TEST CONDITIONAL FUNCTIONS |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
filled(field) : determines whether a given field has been filled |
|
|
|
=back |
|
|
|
ERROR FUNCTIONS |
|
|
|
=over 4 |
|
|
|
=item * |
|
|
|
output_blank_field_error(server reference) : outputs a message saying that |
|
more fields need to be filled in |
|
|
|
=item * |
|
|
|
output_date_error(server reference, error message) : |
|
|
|
|
|
=back |
|
|
|
=cut |
=cut |