Diff for /rat/lonratedt.pm between versions 1.6 and 1.7

version 1.6, 2002/05/09 21:59:33 version 1.7, 2002/05/10 15:42:16
Line 35  package Apache::lonratedt; Line 35  package Apache::lonratedt;
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::lonnet;  use Apache::lonnet;
   use Apache::lonratsrv;
   
 # --------------------------------------------------------- Build up RAT screen  # --------------------------------------------------------- Build up RAT screen
 sub ratedt {  sub ratedt {
Line 59  ENDDOCUMENT Line 60  ENDDOCUMENT
   
 sub smpedt {  sub smpedt {
    my ($r,$fn)=@_;     my ($r,$fn)=@_;
      my $errtext='';
      my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,$errtext);
      my @loadelements=split(/\<\&\>/,$outtext);
    $r->print(<<ENDSMPHEAD);     $r->print(<<ENDSMPHEAD);
 <html>  <html>
 <head>  <head>
Line 147  function idxcheck(mode) { Line 151  function idxcheck(mode) {
 <form method=post>  <form method=post>
 <input type=submit name=forceadv   <input type=submit name=forceadv 
 value="Advanced Map Editing - Graphical Resource Assembly Tool"><hr>  value="Advanced Map Editing - Graphical Resource Assembly Tool"><hr>
 This is the future site of the great simple RAT  <font color=red>$errtext</font>
 <a href="javascript:groupsearch()">Group Search</a>  <a href="javascript:groupsearch()">Group Search</a>
 <a href="javascript:groupimport()">Group Import</a>  <a href="javascript:groupimport()">Group Import</a>
   
 ENDSMPHEAD  ENDSMPHEAD
       $r->print('<pre>');
      foreach (@loadelements) { $r->print($_."\n") }
        $r->print('</pre>');
     $r->print(      $r->print(
       '<input type=submit name=forcesmp value="Store"></form></body></html>');        '<input type=submit name=forcesmp value="Store"></form></body></html>');
 }  }

Removed from v.1.6  
changed lines
  Added in v.1.7


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>