loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);