--- loncom/interface/portfolio.pm 2005/09/09 19:12:29 1.88 +++ 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); @@ -165,13 +165,15 @@ sub display_directory { if (exists $locked_files{$current_path.$filename}){ $r->print('Locked'); } else { + my $cat=''.&mt('Catalog Information').
+			    ''; $r->print(' Rename - Meta + '.$cat.' '); } } - $r->print(''); + $r->print(''); $r->print(''. $filename.''); $r->print(''.$size.''); @@ -616,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__