--- loncom/interface/portfolio.pm 2013/04/24 02:23:51 1.242 +++ loncom/interface/portfolio.pm 2013/05/03 17:53:02 1.245 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.242 2013/04/24 02:23:51 raeburn Exp $ +# $Id: portfolio.pm,v 1.245 2013/05/03 17:53:02 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -640,7 +640,7 @@ sub display_file { sub done { my ($linktext,$url)=@_; - unless (defined $linktext) { + unless (defined($linktext)) { $linktext='Return to directory'; } my %anchor_fields = ( @@ -1219,7 +1219,7 @@ sub update_access { $totalnew = $lastitem; my @numbers; for (my $i=$firstitem; $i<$lastitem; $i++) { - push (@numbers,$i); + push(@numbers,$i); } &display_access_row($r,$status,$newitem,\@numbers, $access_controls{$file_name},$now,$then); @@ -2101,21 +2101,24 @@ function confirmOverwrite() { } // ]]> +
$msg
-
'.&mt('An error occurred ([_1]) while trying to overwrite [_2].' - ,$result,&display_file(undef,$fname)).'
'); - $r->print(&after_overwrite(&mt('Back'),$url)); + $r->print( + &Apache::loncommon::confirmwrapper( + &Apache::lonhtmlcommon::confirm_success( + &mt('An error occurred ([_1]) while trying to overwrite [_2].' + ,$result,&display_file(undef,$fname)),1))); } else { if ($mode eq 'parse') { if ($mimetype eq 'text/html') { @@ -2237,18 +2245,21 @@ sub overwrite { &print_dependency_form($r,$url,\%allfiles,\%codebase,$result); return; } else { - $r->print(''.&mt('Overwriting completed.').'
'.
- &mt('No embedded items identified.').'
'
.&mt('No file was selected to upload.')
- .'<
'
+ .'
'
.&mt('To upload a file, click [_1]Browse...[_2] and select a file, then click [_1]Upload[_2].'
,'','')
.'