loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.207, 2004/07/23 11:03:05	version 1.208, 2004/07/23 13:36:29
Line 2487 sub make_new_child {	Line 2487 sub make_new_child {
# ------------------------------------------------------------------------- put	# ------------------------------------------------------------------------- put
} elsif ($userinput =~ /^put/) {	} elsif ($userinput =~ /^put/) {
if(isClient) {	if(isClient) {
my ($cmd,$udom,$uname,$namespace,$what,@extras)	my ($cmd,$udom,$uname,$namespace,$what)
=split(/:/,$userinput);	=split(/:/,$userinput,5);
$namespace=~s/\//\_/g;	$namespace=~s/\//\_/g;
$namespace=~s/\W//g;	$namespace=~s/\W//g;
if ($namespace ne 'roles') {	if ($namespace ne 'roles') {
if (@extras) {
$what .= ':'.join(':',@extras);
}
chomp($what);	chomp($what);
my $proname=propath($udom,$uname);	my $proname=propath($udom,$uname);
my $now=time;	my $now=time;