loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.28, 2004/08/24 07:29:51	version 1.29, 2004/08/24 07:35:57
Line 180 sub display_directory {	Line 180 sub display_directory {
$r->print($displayOut);	$r->print($displayOut);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
my @tree = split (/\//,$current_path);	my @tree = split (/\//,$current_path);
$r->print('<font size="+2">'.&make_anchor('/','/'));	$r->print('<font size="+2">'.&make_anchor('portfolio','/').'/');
if (@tree > 1){	if (@tree > 1){
my $newCurrentPath = '';	my $newCurrentPath = '';
for (my $i = 1; $i< @tree; $i++){	for (my $i = 1; $i< @tree; $i++){