--- loncom/interface/portfolio.pm 2013/07/02 19:04:37 1.246 +++ loncom/interface/portfolio.pm 2013/07/03 16:00:03 1.247 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.246 2013/07/02 19:04:37 raeburn Exp $ +# $Id: portfolio.pm,v 1.247 2013/07/03 16:00:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -98,7 +98,7 @@ sub display_common { my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles'); my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory'); my $help_portfolio = &Apache::loncommon::help_open_topic('Portfolio About', &mt('Help on the portfolio')); - $r->print(&display_portfolio_usage($group)); + $r->print(&display_portfolio_usage($group,$help_portfolio)); my $parse_check; if (!&suppress_embed_prompt()) { $parse_check = <<"END"; @@ -112,7 +112,6 @@ sub display_common { END } - $r->print('
'.$help_portfolio); # Upload File $r->print('
' .'
' @@ -149,7 +148,6 @@ END .'
' .'
' ); - $r->print('
'); } # end "if can_upload" my @tree = split (/\//,$current_path); @@ -189,7 +187,7 @@ END } sub display_portfolio_usage { - my ($group) = @_; + my ($group,$helpitem) = @_; my $disk_quota = &get_quota($group); my $getpropath = 1; my $portfolio_root = &get_portfolio_root(); @@ -197,7 +195,12 @@ sub display_portfolio_usage { my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath); return &Apache::loncommon::head_subbox( - &Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota)); + '
' + .$helpitem + .'
' + .'
' + .&Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota) + .'
'); } sub display_directory_line {