--- rat/lonratedt.pm	2001/05/26 19:55:07	1.3
+++ rat/lonratedt.pm	2002/05/10 15:42:16	1.7
@@ -1,15 +1,41 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
+#
+# $Id: lonratedt.pm,v 1.7 2002/05/10 15:42:16 www Exp $
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
 # (TeX Content Handler
 #
 # 05/29/00,05/30 Gerd Kortemeyer)
-# 7/1 Gerd Kortemeyer
+# 7/1,6/30 Gerd Kortemeyer
 
 package Apache::lonratedt;
 
 use strict;
 use Apache::Constants qw(:common);
 use Apache::lonnet;
+use Apache::lonratsrv;
 
 # --------------------------------------------------------- Build up RAT screen
 sub ratedt {
@@ -34,17 +60,121 @@ 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>
+<script>
+var srch;
+var srchflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -1 means never yet opened/defined
+var srchmode='';
+
+var idx;
+var idxflag=-1; // 1 means currently open
+                 // 0 means closed (but has been open)
+                 // -1 means never yet opened/defined
+var idxmode='';
+
+// ------------------------------------------------------ Clears indexer window
+function idxclear() {
+  idx.document.clear();
+}
+
+// ------------------------------------------------------- Clears search window
+function srchclear() {
+  srch.document.clear();
+}
+
+// ------------------------------------------------------ Closes indexer window
+function idxclose() {
+  if (idx && !idx.closed) {
+    idxflag=0;
+    idx.close();
+  }
+}
+
+// ------------------------------------------------------- Closes search window
+function srchclose() {
+  if (srch && !srch.closed) {
+    srchflag=0;
+    srch.close();
+  }
+}
+
+// -------------------------------------------------------- Open indexer window
+function idxopen(mode) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   idxmode=mode;
+   idxflag=1;
+   idx=open("/res/?launch=1&mode=simple&catalogmode="+mode,"idxout",options);
+   idx.focus();
+}
+
+// --------------------------------------------------------- Open search window
+function srchopen(mode) {
+   var options="scrollbars=1,resizable=1,menubar=0";
+   srchmode=mode;
+   srchflag=1;
+   srch=open("/adm/searchcat?launch=1&mode=simple&catalogmode="+mode,"srchout",options);
+   srch.focus();
+}
+// ----------------------------------------------------- launch indexer browser
+function groupsearch() {
+   srchcheck('groupsearch');
+}
+
+function groupimport() {
+   idxcheck('groupimport');
+}
+// ------------------------------------------------------- Do srch status check
+function srchcheck(mode) {
+   if (!srch || srch.closed || srchmode!=mode) {
+      srchopen(mode);
+   }
+   srch.focus();
+}
+
+// -------------------------------------------------------- Do idx status check
+function idxcheck(mode) {
+   if (!idx || idx.closed || idxmode!=mode) {
+      idxopen(mode);
+   }
+   idx.focus();
+}
+</script>
+</head>                 
 <body bgcolor='#FFFFFF'>
 <form method=post>
 <input type=submit name=forceadv 
-value="Advanced Map Editing - Resource Assembly Tool"><hr>
+value="Advanced Map Editing - Graphical Resource Assembly Tool"><hr>
+<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>');
 }
 
+sub nodir {
+   my ($r,$dir)=@_;
+   $dir=~s/^\/home\/\w+\/public\_html//;
+   $r->print(<<ENDNODIR);
+<html>
+<body bgcolor='#FFFFFF'>
+<h1>No such directory: $dir</h1>
+</body>
+</html>
+ENDNODIR
+}
+
 # ================================================================ Main Handler
 
 sub handler {
@@ -57,6 +187,11 @@ sub handler {
   my $url=$r->uri;
   my $fn=&Apache::lonnet::filelocation('',$url);
 
+  my ($dir)=($fn=~/^(.+)\/[^\/]+$/);
+  unless (-e $dir) {
+      &nodir($r,$dir);
+      return OK;
+  }
   my $adv=0;
 
   unless ($ENV{'form.forcesmp'}) {
