--- loncom/interface/portfolio.pm 2013/04/30 14:27:51 1.244 +++ 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.244 2013/04/30 14:27:51 raeburn Exp $ +# $Id: portfolio.pm,v 1.245 2013/05/03 17:53:02 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2101,21 +2101,24 @@ function confirmOverwrite() { } // ]]> +

$msg -

-$lt{'over'} +

+ +

$lt{'over'}   - +

+

$hidden $parserflag $group_elem -

-

+

+ END } else { $r->print( @@ -2213,10 +2216,13 @@ sub overwrite { } } if ($fname eq '') { - my $msg = &mt('Invalid filename: [_1]; the name of the uploaded file did not contain any letters, '. + $r->print( + &Apache::loncommon::confirmwrapper( + &Apache::lonhtmlcommon::confirm_success( + &mt('Invalid filename: [_1]; the name of the uploaded file did not contain any letters, '. 'so after eliminating special characters there was nothing left.', - ''.$env{'form.filename'}.''); - $r->print($msg.&done(undef,$url)); + ''.$env{'form.filename'}.''),1))); + $r->print(&done(undef,$url)); return; } $env{'form.'.$formname.'.filename'} = $fname; @@ -2227,9 +2233,11 @@ sub overwrite { \%allfiles,\%codebase,undef,undef,undef, undef,undef,undef,\$mimetype); if ($result !~ m|^/uploaded/|) { - $r->print('

'.&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.').'

'); + $r->print( + &Apache::loncommon::confirmwrapper( + &Apache::lonhtmlcommon::confirm_success( + &mt('Overwriting completed.')) + .'
'.&mt('No embedded items identified.'))); } } + } else { + $r->print( + &Apache::loncommon::confirmwrapper( + &Apache::lonhtmlcommon::confirm_success( + &mt('Overwriting completed.')))); } - $r->print(&after_overwrite(undef,$url)); } - return; -} -sub after_overwrite { - my ($text,$url) = @_; my $group_elem; if (defined($env{'form.group'})) { $group_elem = ''; @@ -2256,18 +2267,18 @@ sub after_overwrite { $group_elem .= ''."\n"; } } - if ($text eq '') { - $text = &mt('Done'); - } my $hidden = &hidden_elems(); - return <$text -
-$hidden -$group_elem -
-END + $r->print( + &Apache::lonhtmlcommon::actionbox( + ['' + .&mt('Return to directory') + .'']) + .'
' + .$hidden + .$group_elem + .'
' + ); + return; } sub lock_info {