--- rat/lonratedt.pm 2004/01/15 03:18:20 1.53 +++ rat/lonratedt.pm 2004/04/23 22:34:15 1.54 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Edit Handler for RAT Maps # -# $Id: lonratedt.pm,v 1.53 2004/01/15 03:18:20 www Exp $ +# $Id: lonratedt.pm,v 1.54 2004/04/23 22:34:15 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -176,7 +176,7 @@ use Apache::loncommon; use Apache::lonlocal; use File::Copy; -use vars qw(@order @resources); +use vars qw(@order @resources @resparms); # Mapread read maps into global arrays @links and @resources, determines status @@ -206,7 +206,7 @@ sub mapread { $links[$number]=$content; } if ($command eq 'objparms') { - return(&mt('Map has resource parameters. Use advanced editor.'),1); + $resparms[$number]=$content; } } # ------------------------------------------------------- Is this a linear map? @@ -514,6 +514,9 @@ sub storemap { if (defined($resources[$order[$i]])) { $output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]]; } + if (defined($resparms[$order[$i]])) { + $output.='<&>objparms<:>'.$order[$i].'<:>'.$resparms[$order[$i]]; + } if (defined($order[$i+1])) { if (defined($resources[$order[$i+1]])) { $output.='<&>objlinks<:>'.$k.'<:>'.