[LON-CAPA-cvs] cvs: rat(version_0_5_1) / lonratedt.pm

[albertel]

albertel		Fri Aug 30 18:28:05 2002 EDT

  Modified files:              (Branch: version_0_5_1)
    /rat	lonratedt.pm 
  Log:
  - backport o single resource fix from 1.33
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.31 rat/lonratedt.pm:1.31.2.1
--- rat/lonratedt.pm:1.31	Mon Jun 24 10:12:04 2002
+++ rat/lonratedt.pm	Fri Aug 30 18:28:05 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.31 2002/06/24 14:12:04 www Exp $
+# $Id: lonratedt.pm,v 1.31.2.1 2002/08/30 22:28:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -38,8 +38,7 @@
 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
@@ -318,6 +317,10 @@
     }
    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';
 }