--- loncom/interface/portfolio.pm 2005/12/09 23:49:45 1.89 +++ loncom/interface/portfolio.pm 2005/12/19 20:41:45 1.91 @@ -132,7 +132,7 @@ sub display_directory { $r->print('
'); } 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 { my ($afile)=split('&',$a,2); @@ -173,7 +173,7 @@ sub display_directory { '); } } - $r->print(''); + $r->print(''); $r->print(''. $filename.''); $r->print(''.$size.''); @@ -618,8 +618,8 @@ sub handler { &display_common($r,$current_path,$is_empty,\@dir_list); &display_directory($r,$current_path,$is_empty,\@dir_list); $r->print("\n\n"); - return OK; } + return OK; } 1; __END__