--- rat/lonratedt.pm 2015/03/11 21:09:04 1.105.2.7 +++ rat/lonratedt.pm 2016/01/15 19:13:04 1.112 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.105.2.7 2015/03/11 21:09:04 raeburn Exp $ +# $Id: lonratedt.pm,v 1.112 2016/01/15 19:13:04 damieng Exp $ # # Copyright Michigan State University Board of Trustees # @@ -43,32 +43,89 @@ use HTML::Entities(); # --------------------------------------------------------- Build up RAT screen sub ratedt { my ($r,$url)=@_; - my %layout = ('border' => "0"); - if ($env{'environment.remote'} eq 'off') { - $layout{'rows'} = "1,250,*"; - } else { - $layout{'rows'} = "1,70,*"; - } - my $js =' -'; - - my $start_page = - &Apache::loncommon::start_page('Edit Sequence',$js, - {'frameset' => 1, - 'add_entries' => \%layout}); - - my $end_page = - &Apache::loncommon::end_page({'frameset' => 1}); - $r->print(< - - -$end_page + + + + Edit Sequence + + + + + + +
+
+ + + + + ENDDOCUMENT } @@ -235,8 +292,8 @@ sub smpedt { unless ($fatal) { $targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Saved')); } else { - $targetmsg=&Apache::lonhtmlcommon::confirm_success( - &mt('An error occurred while saving.'),1); + $targetmsg=&Apache::lonhtmlcommon::confirm_success( + &mt('An error occurred while saving.'),1); } } if ($env{'form.revert'}) { @@ -245,13 +302,13 @@ sub smpedt { my ($errtext,$fatal)= &LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),''); } - $targetmsg = &Apache::loncommon::confirmwrapper($targetmsg) if ($targetmsg); + $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 @@ -496,7 +553,7 @@ sub smpedt { my $editscript=&editscript('simple'); my %lt=&Apache::lonlocal::texthash( - 'sm' => 'Select Map', + 'sm' => 'Select Map', 'sa' => 'Save', 'nt' => 'New Title', 'se' => 'Search', @@ -629,11 +686,11 @@ $importwindow $lt{'cs'}
-

+

$lt{'ps'}
-

- + +

$lt{'pas'}