--- rat/lonratedt.pm 2013/06/05 14:50:15 1.105.2.5
+++ rat/lonratedt.pm 2014/02/26 18:52:37 1.105.2.6
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.105.2.5 2013/06/05 14:50:15 raeburn Exp $
+# $Id: lonratedt.pm,v 1.105.2.6 2014/02/26 18:52:37 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -233,22 +233,27 @@ sub smpedt {
my ($errtext,$fatal)=
&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),'');
unless ($fatal) {
- $targetmsg=''.&mt('Saved.').'
';
+ $targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Saved'));
} else {
- $targetmsg=''.&mt('An error occurred while saving.').'
';
+ $targetmsg=&Apache::lonhtmlcommon::confirm_success(
+ &mt('An error occurred while saving.'),1);
}
}
if ($env{'form.revert'}) {
- $targetmsg=''.&mt('Reverted.').'
';
+ $targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Reverted'));
unlink($tmpfn);
my ($errtext,$fatal)=
&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),'');
}
+ $targetmsg = &Apache::loncommon::confirmwrapper($targetmsg) if ($targetmsg);
if (-e $tmpfn) {
- $targetmsg=
- ''.&mt('You are working with an unsaved version of your map.').'
';
- my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');
+ $targetmsg=
+ '
' + .&mt('You are working with an unsaved version of your map.') + .'
'; + my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,''); } + $errtext = ''.$errtext.'
' if ($errtext); # ---------------------------------------------------------- Process form input my @importselect=&Apache::loncommon::get_env_multiple('form.importsel'); @@ -491,6 +496,7 @@ sub smpedt { my $editscript=&editscript('simple'); my %lt=&Apache::lonlocal::texthash( + 'sm' => 'Select Map', 'sa' => 'Save', 'nt' => 'New Title', 'se' => 'Search', @@ -512,9 +518,7 @@ sub smpedt { 'pas' => 'Paste after selected', 'reco' => 'Recover Deleted' ); - my $js=<