--- rat/lonratedt.pm 2004/09/02 13:21:53 1.60 +++ 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.60 2004/09/02 13:21:53 www Exp $ +# $Id: lonratedt.pm,v 1.63 2004/11/17 20:14:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -393,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(< @@ -401,9 +405,9 @@ sub ratedt { var flag=0; - +$frameset - + @@ -977,7 +981,8 @@ sub smpedt { # ----------------------------------------------------- Start simple RAT screen my $editscript=&editscript('simple'); - my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1). + 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', @@ -1147,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] }; @@ -1157,7 +1163,7 @@ sub viewmap { } $r->print(&Apache::lonratsrv::qtescape($title)); if ($url) { $r->print(''); } - $r->print('
'); + $r->print("
\n"); } } $r->print('');