--- loncom/interface/portfolio.pm 2008/11/28 16:10:20 1.197 +++ loncom/interface/portfolio.pm 2008/12/05 10:23:56 1.200 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.197 2008/11/28 16:10:20 bisitz Exp $ +# $Id: portfolio.pm,v 1.200 2008/12/05 10:23:56 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -87,13 +87,12 @@ sub display_common { my $groupitem = &group_form_data(); my $iconpath= $r->dir_config('lonIconsURL') . "/"; - my %text=&Apache::lonlocal::texthash( + my %lt=&Apache::lonlocal::texthash( 'upload' => 'Upload', - 'upload_label' => - 'Upload file to current directory:', + 'upload_label' => 'Upload file to current directory', 'createdir' => 'Create Subdirectory', 'createdir_label' => - 'Create subdirectory in current directory:', + 'Create subdirectory in current directory', 'parse' => 'If HTML file, upload embedded images/multimedia/css/linked files' ); my $escuri = &HTML::Entities::encode($r->uri,'&<>"'); @@ -108,50 +107,51 @@ sub display_common { $parse_check = <<"END";
- END } - $r->print(<<"TABLE"); - - - - - - - - - -
- $text{'upload_label'} - -
- $groupitem - - - - - - -$help_fileupload -$parse_check -
-
- $text{'createdir_label'} - -
- $groupitem - - - - - $help_createdir -
-
-TABLE - } + + $r->print('
'); + # Upload File + $r->print('
' + .'
' + .'
' + .''.$lt{'upload_label'}.'' + .$groupitem + .'' + .'' + .'' + .'' + .'' + .'' + .$help_fileupload + .$parse_check + .'
' + .'
' + .'
' + ); + # Create Subdirectory + $r->print('
' + .'
' + .'
' + .''.$lt{'createdir_label'}.'' + .''.$groupitem + .'' + .'' + .'' + .'' + .'' + .$help_createdir + .'
' + .'
' + .'
' + ); + $r->print('
'); + } # end "if can_upload" + my @tree = split (/\//,$current_path); my %anchor_fields = ( 'selectfile' => $port_path, @@ -271,7 +271,9 @@ sub display_directory { $display_out = '
'. &group_form_data(). ''. + '

'. ''. + '

'. ''. ''. '
'; @@ -477,16 +479,20 @@ sub display_directory { -
- +

+
+ +

'); } else { $r->print(&Apache::loncommon::end_data_table()); if ($can_delete) { $r->print(' +

'. &Apache::loncommon::help_open_topic('Portfolio DeleteFile').' +

' @@ -1494,7 +1500,7 @@ sub course_row { } $max_id ++; my $role_selects = &role_selectors($num,$role_id,$type,$content,'display'); - $r->print('
'.$role_selects.''); + $r->print('
'.$role_selects.''); } $r->print(''); } @@ -1569,7 +1575,7 @@ sub additional_item { sub actionbox { my ($status,$num,$scope) = @_; - my $output = '
'. '