loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.91, 2005/12/19 20:41:45	version 1.92, 2005/12/19 23:19:18
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);