--- rat/lonratedt.pm 2005/06/08 16:10:01 1.68 +++ rat/lonratedt.pm 2005/06/08 16:35:46 1.69 @@ -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 @@ sub mapread { 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 @@ sub storemap { } } } + 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