--- rat/lonratedt.pm	2002/05/09 21:59:33	1.6
+++ rat/lonratedt.pm	2002/05/10 15:42:16	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.6 2002/05/09 21:59:33 www Exp $
+# $Id: lonratedt.pm,v 1.7 2002/05/10 15:42:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,6 +35,7 @@ package Apache::lonratedt;
 use strict;
 use Apache::Constants qw(:common);
 use Apache::lonnet;
+use Apache::lonratsrv;
 
 # --------------------------------------------------------- Build up RAT screen
 sub ratedt {
@@ -59,6 +60,9 @@ ENDDOCUMENT
 
 sub smpedt {
    my ($r,$fn)=@_;
+   my $errtext='';
+   my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,$errtext);
+   my @loadelements=split(/\<\&\>/,$outtext);
    $r->print(<<ENDSMPHEAD);
 <html>
 <head>
@@ -147,12 +151,14 @@ function idxcheck(mode) {
 <form method=post>
 <input type=submit name=forceadv 
 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:groupimport()">Group Import</a>
 
 ENDSMPHEAD
-
+    $r->print('<pre>');
+   foreach (@loadelements) { $r->print($_."\n") }
+			     $r->print('</pre>');
     $r->print(
       '<input type=submit name=forcesmp value="Store"></form></body></html>');
 }
