version 1.50, 2001/03/21 02:09:38
|
version 1.52, 2001/03/21 02:24:00
|
Line 593 sub output_results {
|
Line 593 sub output_results {
|
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
$replyfile=$r->dir_config('lonDaemons').'/tmp/'.$1; |
$reply=~/(.*?)\_/; |
$reply=~/(.*?)\_/; |
my $hostname=$1; |
my $hostname=$1; |
|
sleep 3; # temporary fix, need to check for completion and status |
{ |
{ |
while (1) { |
while (1) { |
last if -e $replyfile; |
last if -e $replyfile; |
Line 615 sub output_results {
|
Line 615 sub output_results {
|
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
$creationdate,$lastrevisiondate,$owner,$copyright)=@fields; |
my $shortabstract=$abstract; |
my $shortabstract=$abstract; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
|
$fields[7]=$shortabstract; |
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<p> |
<p> |
END |
END |
Line 624 onClick="javascript:select_data('$title'
|
Line 625 onClick="javascript:select_data('$title'
|
</font> |
</font> |
<br> |
<br> |
END |
END |
|
my $httphost=$ENV{'HTTP_HOST'}; |
if ($ENV{'form.viewselect'} eq 'Detailed Citation View') { |
if ($ENV{'form.viewselect'} eq 'Detailed Citation View') { |
$compiledresult.=&detailed_citation_view(@fields); |
$compiledresult.=&detailed_citation_view(@fields, |
|
$hostname,$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'Summary View') { |
elsif ($ENV{'form.viewselect'} eq 'Summary View') { |
$compiledresult.=&summary_view(@fields); |
$compiledresult.=&summary_view(@fields,$hostname,$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'Fielded Format') { |
elsif ($ENV{'form.viewselect'} eq 'Fielded Format') { |
$compiledresult.=&fielded_format_view(@fields); |
$compiledresult.=&fielded_format_view(@fields,$hostname, |
|
$httphost); |
} |
} |
elsif ($ENV{'form.viewselect'} eq 'XML/SGML') { |
elsif ($ENV{'form.viewselect'} eq 'XML/SGML') { |
$compiledresult.=&xml_sgml_view(@fields); |
$compiledresult.=&xml_sgml_view(@fields,$hostname,$httphost); |
} |
} |
|
|
} |
} |
Line 761 sub recursive_SQL_query_build {
|
Line 764 sub recursive_SQL_query_build {
|
# ------------------------------------------------------ Detailed Citation View |
# ------------------------------------------------------ Detailed Citation View |
sub detailed_citation_view { |
sub detailed_citation_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
DETAILED |
|
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<br> |
<br> |
<b>Title:</b> $title<br> |
<b>Title:</b> $title<br> |
<b>Author(s):</b> $author<br> |
<b>Author(s):</b> $author<br> |
Line 787 END
|
Line 792 END
|
# ---------------------------------------------------------------- Summary View |
# ---------------------------------------------------------------- Summary View |
sub summary_view { |
sub summary_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
SUMMARY |
|
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<br> |
<br> |
<b>Title:</b> $title<br> |
<b>Title:</b> $title<br> |
<b>Author(s):</b> $author<br> |
<b>Author(s):</b> $author<br> |
Line 813 END
|
Line 820 END
|
# -------------------------------------------------------------- Fielded Format |
# -------------------------------------------------------------- Fielded Format |
sub fielded_format_view { |
sub fielded_format_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
FIELDED |
|
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<br> |
<br> |
<b>Title:</b> $title<br> |
<b>Title:</b> $title<br> |
<b>Author(s):</b> $author<br> |
<b>Author(s):</b> $author<br> |
Line 839 END
|
Line 848 END
|
# -------------------------------------------------------------------- XML/SGML |
# -------------------------------------------------------------------- XML/SGML |
sub xml_sgml_view { |
sub xml_sgml_view { |
my ($title,$author,$subject,$url,$keywords,$version, |
my ($title,$author,$subject,$url,$keywords,$version, |
$notes,$abstract,$mime,$lang, |
$notes,$shortabstract,$mime,$lang, |
$creationdate,$lastrevisiondate,$owner,$copyright)=@_; |
$creationdate,$lastrevisiondate,$owner,$copyright, |
|
$hostname,$httphost)=@_; |
my $result=<<END; |
my $result=<<END; |
<b>URL: </b> <A HREF="http://$ENV{'HTTP_HOST'}$url" TARGET='search_preview'>$url</A> |
XML/SGML |
|
<b>URL: </b> <A HREF="http://$httphost$url" TARGET='search_preview'>$url</A> |
<br> |
<br> |
<b>Title:</b> $title<br> |
<b>Title:</b> $title<br> |
<b>Author(s):</b> $author<br> |
<b>Author(s):</b> $author<br> |