--- rat/lonratedt.pm	2002/06/04 13:23:54	1.30
+++ rat/lonratedt.pm	2002/09/04 19:11:24	1.31.2.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.30 2002/06/04 13:23:54 www Exp $
+# $Id: lonratedt.pm,v 1.31.2.2 2002/09/04 19:11:24 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,8 +38,7 @@ use Apache::lonnet;
 use Apache::lonratsrv;
 use Apache::lonsequence;
 
-my @order;
-my @resources;
+use vars qw(@order @resources);
 
 
 # Mapread read maps into global arrays @links and @resources, determines status
@@ -68,6 +67,9 @@ sub mapread {
         if ($command eq 'objlinks') {
             $links[$number]=$content;
         }
+        if ($command eq 'objparms') {
+	    return('Map has resource parameters. Use advanced editor.',1);
+        }
     }
 # ------------------------------------------------------- Is this a linear map?
     my @starters=();
@@ -315,6 +317,10 @@ sub startfinish {
     }
    my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]);
    $resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res';
+   if ($#order==0) {
+       $resources[$#resources+1]='::false';
+       $order[1]=$#resources;
+   }
    my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
    $resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
 }
@@ -541,6 +547,8 @@ sub smpedt {
 # ------------------------------------------------------------ Assemble windows
    
    my $idx=-1;
+   $importdetail='&'.$importdetail;
+   $importdetail=~s/^\&+/\&/;
    my $importwindow=
        '<option value="-1"> ---- Import and Paste Area ---- </option>'.
      join("\n",map {