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='". |