loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.98, 2004/03/30 17:55:26	version 1.99, 2004/03/31 05:24:00
Line 837 sub display_line {	Line 837 sub display_line {
$title = &Apache::lonnet::metadata($filelink,'title')	$title = &Apache::lonnet::metadata($filelink,'title')
if ($metafile == 1);	if ($metafile == 1);
$title=$listname unless $title;	$title=$listname unless $title;
my $titleesc=HTML::Entities::encode($title);	my $titleesc=HTML::Entities::encode($title,'<>&"');
$titleesc=~s/\'/\\'/; #' (clean up this spare quote)	$titleesc=~s/\'/\\'/; #' (clean up this spare quote)
$r->print("<a href=\"javascript:select_data(\'",	$r->print("<a href=\"javascript:select_data(\'",
$titleesc,"','",$filelink,"')\">");	$titleesc,"','",$filelink,"')\">");
Line 849 sub display_line {	Line 849 sub display_line {
#$title = &Apache::lonnet::metadata($filelink,'title')	#$title = &Apache::lonnet::metadata($filelink,'title')
#if ($metafile == 1);	#if ($metafile == 1);
$title=$listname unless $title;	$title=$listname unless $title;
my $titleesc=&HTML::Entities::encode($title);	my $titleesc=&HTML::Entities::encode($title,'<>&"');
$r->print("<form name='form$fnum'>\n");	$r->print("<form name='form$fnum'>\n");
$r->print("<input type='checkbox' name='filelink"."' ".	$r->print("<input type='checkbox' name='filelink"."' ".
"value='$filelink' onClick='".	"value='$filelink' onClick='".