--- rat/lonratedt.pm 2004/04/26 16:56:26 1.57 +++ rat/lonratedt.pm 2004/11/17 20:14:23 1.63 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.57 2004/04/26 16:56:26 www Exp $ +# $Id: lonratedt.pm,v 1.63 2004/11/17 20:14:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -187,8 +187,10 @@ sub mapread { undef @links; undef @resources; undef @order; + undef @resparms; @resources=(''); @order=(); + @resparms=(); my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,''); if ($errtext) { return ($errtext,2); } @@ -391,6 +393,10 @@ sub attemptread { # --------------------------------------------------------- Build up RAT screen sub ratedt { my ($r,$url)=@_; + my $frameset = ''; + if ($ENV{'environment.remote'} eq 'off') { + $frameset = ''; + } $r->print(< @@ -399,9 +405,9 @@ sub ratedt { var flag=0; - +$frameset - + @@ -574,7 +580,7 @@ sub delparameter { } sub getparameter { - my ($to,$name); + my ($to,$name)=@_; my $value=undef; my $ptype=undef; foreach (split('&&&',$resparms[$to])) { @@ -704,14 +710,18 @@ sub smpedt { my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp'; my $targetmsg=''; if ($ENV{'form.save'}) { - $targetmsg='Saving ...
'; copy($tmpfn,&Apache::lonnet::filelocation('',$url)); unlink($tmpfn); my ($errtext,$fatal)= &mapread(&Apache::lonnet::filelocation('',$url),''); + unless ($fatal) { + $targetmsg=''.&mt('Saved.').'
'; + } else { + $targetmsg=''.&mt('An error occured while saving.').'
'; + } } if ($ENV{'form.revert'}) { - $targetmsg='Reverting ...
'; + $targetmsg=''.&mt('Reverted.').'
'; unlink($tmpfn); my ($errtext,$fatal)= &mapread(&Apache::lonnet::filelocation('',$url),''); @@ -971,10 +981,9 @@ sub smpedt { # ----------------------------------------------------- Start simple RAT screen my $editscript=&editscript('simple'); - my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1). - &Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation'). - &Apache::loncommon::help_open_faq(6). - &Apache::loncommon::help_open_bug('RAT'); + my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, + ($ENV{'environment.remote'} ne 'off')). + &Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT'); my %lt=&Apache::lonlocal::texthash( 'sa' => 'Save', 'nt' => 'New Title', @@ -1130,8 +1139,7 @@ sub viewmap { my ($r,$url,$adv,$errtext)=@_; $r->print(''. &Apache::loncommon::bodytag('Edit Content of a Map'). - &Apache::loncommon::help_open_faq(6). - &Apache::loncommon::help_open_bug('RAT'). + &Apache::loncommon::help_open_menu('','','','',6,'RAT'). &buttons($adv)); if ($errtext) { $r->print($errtext.'

'); @@ -1144,7 +1152,8 @@ sub viewmap { foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) { if (defined($_)) { $idx++; - my ($title,$url)=split(/\:/,$_); + my ($title,$url,$cond)=split(/\:/,$_); + if ($cond eq 'cond') { next; } $title=~s/\&colon\;/\:/g; $url=~s/\&colon\;/\:/g; unless ($title) { $title=(split(/\//,$url))[-1] }; @@ -1154,7 +1163,7 @@ sub viewmap { } $r->print(&Apache::lonratsrv::qtescape($title)); if ($url) { $r->print(''); } - $r->print('
'); + $r->print("
\n"); } } $r->print('');