--- loncom/interface/portfolio.pm 2010/02/12 19:19:21 1.212.2.4
+++ loncom/interface/portfolio.pm 2010/02/19 10:20:31 1.220
@@ -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.220 2010/02/19 10:20:31 bisitz 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('
');
- $r->print('
'
+ $r->print('
'
.'
'.&mt('Go to ...').'
');
my %anchor_fields = (
'selectfile' => $filename.'/',
@@ -1779,8 +1778,23 @@ function getIndexByName(item) {
END_SCRIPT
- $r->print(&mt('Select roles, course status, section(s) and group(s) for users who will be able to access the portfolio file.'));
- $r->print('
'.&mt('Roles').'
'.&mt('[_1] status',$type).'
'.&mt('Sections').'
'.&mt('Groups').'
'.$role_selects.'
');
+ $r->print(
+ '
'
+ .&mt('Select roles, '.lc($type).' status, section(s) and group(s) for users'
+ .' who will be able to access the portfolio file.')
+ .'