--- loncom/interface/portfolio.pm 2013/05/03 17:53:02 1.245 +++ loncom/interface/portfolio.pm 2013/07/15 14:32:44 1.248 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.245 2013/05/03 17:53:02 bisitz Exp $ +# $Id: portfolio.pm,v 1.248 2013/07/15 14:32:44 bisitz 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_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); @@ -188,46 +186,21 @@ END $r->print(""); } -sub display_usage { - my ($group) = @_; +sub display_portfolio_usage { + my ($group,$helpitem) = @_; my $disk_quota = &get_quota($group); my $getpropath = 1; my $portfolio_root = &get_portfolio_root(); my ($uname,$udom) = &get_name_dom($group); my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath); - my $usage = $current_disk_usage/1000; - my $quota = $disk_quota/1000; - my $percent; - if ($disk_quota == 0) { - $percent = 100.0; - } else { - $percent = 100*($current_disk_usage/$disk_quota); - } - $usage = sprintf("%.2f",$usage); - $quota = sprintf("%.2f",$quota); - $percent = sprintf("%.0f",$percent); - my ($color,$cssclass); - if ($percent <= 60) { - $color = '#00A000'; - } elsif ($percent > 60 && $percent < 90) { - $color = '#FFD300'; - $cssclass = 'class="LC_warning"'; - } elsif( $percent >= 90) { - $color = '#FF0000'; - $cssclass = 'class="LC_error"'; - } - my $prog_width = $percent; - if ($prog_width > 100) { - $prog_width = 100; - } - my $disk_meter = ' -
'.&mt('Currently using [_1] of the [_2] available.',$usage.' MB ('.$percent.'%)',$quota.' MB')."\n". -'
'."\n". -'
'."\n". -'
'."\n". -'
'; - return &Apache::loncommon::head_subbox($disk_meter); + return &Apache::loncommon::head_subbox( + '
' + .$helpitem + .'
' + .'
' + .&Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota) + .'
'); } sub display_directory_line { @@ -563,7 +536,7 @@ sub display_directory {


- +

'); @@ -1659,7 +1632,7 @@ sub course_row { } $r->print('
'.&mt('Add a roles-based condition'). ' {'domain'}','$content->{'number'}', '$showtype'".')" value="" />'); $newrole_id = $max_id;