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)); |
} |
} |