loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.90, 2005/12/19 20:11:35	version 1.93, 2006/01/25 22:56:11
Line 143 sub display_directory {	Line 143 sub display_directory {
#$dom	#$dom
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);
$filename =~ s/\s+$//;	$filename =~ s/\s+$//;
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(.)\.(.*)/)) {	if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/)) {
if ($dirptr&$testdir) {	if ($dirptr&$testdir) {
if ($select_mode eq 'true'){	if ($select_mode eq 'true'){
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>');	$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>');
Line 173 sub display_directory {	Line 173 sub display_directory {
</td>');	</td>');
}	}
}	}
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>');	$r->print('<td><img src="'.&Apache::loncommon::icon($filename).'"></td>');
$r->print('<td><a href="'.$href_location.$filename.'">'.	$r->print('<td><a href="'.$href_location.$filename.'">'.
$filename.'</a></td>');	$filename.'</a></td>');
$r->print('<td>'.$size.'</td>');	$r->print('<td>'.$size.'</td>');