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.91, 2005/12/19 20:41:45
Line 132 sub display_directory {	Line 132 sub display_directory {
$r->print('<form method="post" action="/adm/portfolio">');	$r->print('<form method="post" action="/adm/portfolio">');
}	}
my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";	my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";
my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";	my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path/";
foreach my $line (sort	foreach my $line (sort
{	{
my ($afile)=split('&',$a,2);	my ($afile)=split('&',$a,2);
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>');