loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.112 and 1.113

version 1.112, 2004/04/05 20:14:06	version 1.113, 2004/04/06 23:05:29
Line 466 END	Line 466 END
}	}
}	}
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;	$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//;
if (($residx) && ($folder!~/supplemental/)) {	if ((!$isfolder) && ($residx) && ($folder!~/supplemental/)) {
$url.=(($url=~/\?/)?'&':'?').'symb='.	my $symb=&Apache::lonnet::symbclean(
&Apache::lonnet::escape(&Apache::lonnet::symbclean(
&Apache::lonnet::declutter('uploaded/'.	&Apache::lonnet::declutter('uploaded/'.
$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}.'/'.
$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder.	$ENV{'course.'.$ENV{'request.course.id'}.'.num'}.'/'.$folder.
'.sequence').	'.sequence').
'___'.$residx.'___'.	'___'.$residx.'___'.
&Apache::lonnet::declutter($url)));	&Apache::lonnet::declutter($url));
	(undef,undef,$url)=&Apache::lonnet::decode_symb($symb);
	$url=&Apache::lonnet::clutter($url);
	$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
}	}
if ($isfolder) { $url.='&foldername='.	if ($isfolder) { $url.='&foldername='.
&Apache::lonnet::escape($foldertitle); }	&Apache::lonnet::escape($foldertitle); }
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder.	$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
'"><img src="'.$icon.'" border="0"></a></td>'.	'" border="0"></a></td>'.
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>";	"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>";
return $line;	return $line;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.112
changed lines
	Added in v.1.113