--- loncom/interface/portfolio.pm 2006/06/28 19:57:44 1.121.2.3 +++ loncom/interface/portfolio.pm 2006/07/19 10:26:43 1.121.2.6 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.121.2.3 2006/06/28 19:57:44 albertel Exp $ +# $Id: portfolio.pm,v 1.121.2.6 2006/07/19 10:26:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,6 +36,7 @@ use Apache::lonfeedback; use Apache::lonlocal; use Apache::lonnet; use Apache::longroup; +use Apache::lonhtmlcommon; use HTML::Entities; use LONCAPA; @@ -297,17 +298,17 @@ sub display_directory { &mt($curr_access).'   '); $r->print(''.$access_admin_text.''); + '">'.$access_admin_text.''); } - $r->print(''.$/); + $r->print(''.$/); } } } if ($select_mode eq 'true') { $r->print(' - - - + + +
@@ -526,7 +527,7 @@ sub rename_confirmed { } sub display_access { - my ($r,$url,$group,$can_setacl) = @_; + my ($r,$url,$group,$can_setacl,$port_path) = @_; my ($uname,$udom) = &get_name_dom($group); my $file_name = $env{'form.currentpath'}.$env{'form.access'}; $file_name = &prepend_group($file_name,$group); @@ -534,7 +535,9 @@ sub display_access { $uname); my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group,$file_name); my $aclcount = keys(%access_controls); - my $header = '

'.&mt('Allowing others to retrieve portfolio file: [_1]',$env{'form.currentpath'}.$env{'form.access'}).'

'; + my $header = '

'.&mt('Allowing others to retrieve portfolio file: [_1]', + $port_path.$env{'form.currentpath'}. + $env{'form.access'}).'

'; my $info .= &mt('Access to this file by others can be set to be one or more of the following types: public, passphrase-protected or conditional.'). '