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

www lon-capa-cvs@mail.lon-capa.org
Wed, 08 Jun 2005 16:35:48 -0000


www		Wed Jun  8 12:35:48 2005 EDT

  Modified files:              
    /rat	lonratedt.pm 
  Log:
  Save the Zombies!
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.68 rat/lonratedt.pm:1.69
--- rat/lonratedt.pm:1.68	Wed Jun  8 12:10:01 2005
+++ rat/lonratedt.pm	Wed Jun  8 12:35:46 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.68 2005/06/08 16:10:01 www Exp $
+# $Id: lonratedt.pm,v 1.69 2005/06/08 16:35:46 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -205,6 +205,7 @@
 	my ($command,$number,$content)=split(/\<\:\>/,$_);
         if ($command eq 'objcont') {
 	    my ($title,$src,$ext,$type)=split(/\:/,$content);
+	    if ($ext eq 'cond') { next; }
 	    if ($type ne 'zombie') {
 		$resources[$number]=$content;
 	    } else {
@@ -556,6 +557,11 @@
             }
         }
     }
+    for (my $i=0; $i<=$#zombies; $i++) {
+        if (defined($zombies[$i])) {
+	    $output.='<&>objcont<:>'.$i.'<:>'.$zombies[$i];
+        }
+    }
     $output=~s/http\&colon\;\/\///g;
     $env{'form.output'}=$output;
     return