--- loncom/interface/portfolio.pm 2010/02/12 19:19:21 1.212.2.4
+++ loncom/interface/portfolio.pm 2009/11/23 03:57:27 1.218
@@ -1,7 +1,7 @@
# The LearningOnline Network
# portfolio browser
#
-# $Id: portfolio.pm,v 1.212.2.4 2010/02/12 19:19:21 raeburn Exp $
+# $Id: portfolio.pm,v 1.218 2009/11/23 03:57:27 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -94,7 +94,6 @@ sub display_common {
'createdir_label' => 'Create subdirectory in current directory',
'parse' => 'Upload embedded images/multimedia/css/linked files if HTML file',
);
-
my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');
@@ -118,7 +117,7 @@ END
$r->print('
'
.'
';
- return $disk_meter;
+ return &Apache::loncommon::head_subbox($disk_meter);
}
sub display_directory_line {
@@ -237,7 +236,7 @@ sub display_directory_line {
$r->print($line); # contains first two cells of table
my $lock_info;
if ($version_flag) { # versioned can't be versioned, so TRUE when root file
- $r->print('
');
+ $r->print('
');
$r->print('
'.$version_flag.'
');
} else { # this is a graded or handed back file
my ($user,$domain) = &get_name_dom($env{'form.group'});
@@ -415,7 +414,7 @@ sub display_directory {
$colspan_fill=' colspan="4"';
}
$r->print('