loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.96, 2003/12/09 19:48:51	version 1.97, 2003/12/30 20:47:23
Line 425 END	Line 425 END
# Figure out what kind of a resource this is	# Figure out what kind of a resource this is
my ($extension)=($url=~/\.(\w+)$/);	my ($extension)=($url=~/\.(\w+)$/);
my $uploaded=($url=~/^\/*uploaded\//);	my $uploaded=($url=~/^\/*uploaded\//);
my $icon='unknown';	my $icon=&Apache::loncommon::icon($url);
if (-e "/home/httpd/html/adm/lonIcons/$extension.gif") {
$icon=$extension;
}
my $isfolder=0;	my $isfolder=0;
if ($uploaded) {	if ($uploaded) {
if ($extension eq 'sequence') {	if ($extension eq 'sequence') {
$icon='folder_closed';	$icon=$iconpath.'/folder_closed.gif';
$url=~/\/(\w+)\.sequence/;	$url=~/\/(\w+)\.sequence/;
$url='/adm/coursedocs?folder='.$1;	$url='/adm/coursedocs?folder='.$1;
$isfolder=1;	$isfolder=1;
Line 454 END	Line 451 END
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.'" target="cat_'.$folder.
'"><img src="/adm/lonIcons/'.	'"><img src="'.$icon.'" border="0"></a></td>'.
$icon.'.gif" border="0"></a></td>'.
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>";	"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>";
return $line;	return $line;
}	}