rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

version 1.39, 2002/10/25 13:40:52	version 1.40, 2002/11/11 21:04:49
Line 710 sub smpedt {	Line 710 sub smpedt {
} elsif ($ENV{'form.renameres'}) {	} elsif ($ENV{'form.renameres'}) {
my $residx=$Apache::lonratedt::order[$ENV{'form.renameidx'}-1];	my $residx=$Apache::lonratedt::order[$ENV{'form.renameidx'}-1];
my ($name,@resrest)=split(/\:/,$Apache::lonratedt::resources[$residx]);	my ($name,@resrest)=split(/\:/,$Apache::lonratedt::resources[$residx]);
$name=&Apache::lonnet::escape($ENV{'form.renametitle'});	$name=$ENV{'form.renametitle'};
	$name=~s/\:/\&colon\;/g;
$Apache::lonratedt::resources[$residx]=$name.':'.join(':'.@resrest);	$Apache::lonratedt::resources[$residx]=$name.':'.join(':'.@resrest);
&storemap(&Apache::lonnet::filelocation('',$url));	&storemap(&Apache::lonnet::filelocation('',$url));
}	}