rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

version 1.29, 2002/05/25 18:50:46	version 1.31, 2002/06/24 14:12:04
Line 36 use strict;	Line 36 use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonratsrv;	use Apache::lonratsrv;
	use Apache::lonsequence;

my @order;	my @order;
my @resources;	my @resources;
Line 67 sub mapread {	Line 68 sub mapread {
if ($command eq 'objlinks') {	if ($command eq 'objlinks') {
$links[$number]=$content;	$links[$number]=$content;
}	}
	if ($command eq 'objparms') {
	return('Map has resource parameters. Use advanced editor.',1);
	}
}	}
# ------------------------------------------------------- Is this a linear map?	# ------------------------------------------------------- Is this a linear map?
my @starters=();	my @starters=();
Line 443 sub smpedt {	Line 447 sub smpedt {
}	}

foreach (	foreach (
&attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {	&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) {
my ($name,$url)=split(/\:/,$_);	my ($name,$url)=split(/\:/,$_);
if ($url) {	if ($url) {
$importdetail.='&'.&Apache::lonnet::escape($name).'='.	$importdetail.='&'.&Apache::lonnet::escape($name).'='.