--- rat/lonratedt.pm 2000/07/01 17:55:31 1.1 +++ rat/lonratedt.pm 2001/05/26 19:55:07 1.3 @@ -9,6 +9,41 @@ package Apache::lonratedt; use strict; use Apache::Constants qw(:common); +use Apache::lonnet; + +# --------------------------------------------------------- Build up RAT screen +sub ratedt { + my ($r,$url)=@_; + $r->print(< + + + + + + + + + + +ENDDOCUMENT +} + +sub smpedt { + my ($r,$fn)=@_; + $r->print(< + +'); +} # ================================================================ Main Handler @@ -20,18 +55,24 @@ sub handler { return OK if $r->header_only; my $url=$r->uri; + my $fn=&Apache::lonnet::filelocation('',$url); - $r->print(< - - - - - - - -ENDDOCUMENT + unless ($ENV{'form.forcesmp'}) { + if ($ENV{'form.forceadv'}) { + $adv=1; + } elsif (my $fh=Apache::File->new($fn)) { + my $allmap=join('',<$fh>); + $adv=($allmap=~/\]+mode\s*\=\s*(\'|\")rat/is); + } + } + + if ($adv) { + &ratedt($r,$url); + } else { + &smpedt($r,$fn); + } return OK; }