rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

version 1.53, 2004/01/15 03:18:20	version 1.54, 2004/04/23 22:34:15
Line 176 use Apache::loncommon;	Line 176 use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use File::Copy;	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	# Mapread read maps into global arrays @links and @resources, determines status
Line 206 sub mapread {	Line 206 sub mapread {
$links[$number]=$content;	$links[$number]=$content;
}	}
if ($command eq 'objparms') {	if ($command eq 'objparms') {
return(&mt('Map has resource parameters. Use advanced editor.'),1);	$resparms[$number]=$content;
}	}
}	}
# ------------------------------------------------------- Is this a linear map?	# ------------------------------------------------------- Is this a linear map?
Line 514 sub storemap {	Line 514 sub storemap {
if (defined($resources[$order[$i]])) {	if (defined($resources[$order[$i]])) {
$output.='<&>objcont<:>'.$order[$i].'<:>'.$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($order[$i+1])) {
if (defined($resources[$order[$i+1]])) {	if (defined($resources[$order[$i+1]])) {
$output.='<&>objlinks<:>'.$k.'<:>'.	$output.='<&>objlinks<:>'.$k.'<:>'.