version 1.51, 2001/03/21 02:18:14
|
version 1.53, 2001/03/21 02:27:11
|
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 617 sub output_results {
|
Line 617 sub output_results {
|
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$shortabstract=substr($abstract,0,200) if length($abstract)>200; |
$fields[7]=$shortabstract; |
$fields[7]=$shortabstract; |
$compiledresult.=<<END; |
$compiledresult.=<<END; |
<p> |
<p>($title) |
END |
END |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
$compiledresult.=<<END if $ENV{'form.catalogmode'} eq 'interactive'; |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
<font size='-1'><INPUT TYPE="button" NAME="returnvalues" VALUE="SELECT" |
Line 626 onClick="javascript:select_data('$title'
|
Line 626 onClick="javascript:select_data('$title'
|
<br> |
<br> |
END |
END |
my $httphost=$ENV{'HTTP_HOST'}; |
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); |
$hostname,$httphost); |