loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.239, 2004/08/24 10:59:50	version 1.242, 2004/08/25 21:00:46
Line 1908 sub remove_user_file_handler {	Line 1908 sub remove_user_file_handler {
if (-e $udir) {	if (-e $udir) {
my $file=$udir.'/userfiles/'.$ufile;	my $file=$udir.'/userfiles/'.$ufile;
if (-e $file) {	if (-e $file) {
unlink($file);	if (-f $file){
	unlink($file);
	} elsif(-d $file) {
	rmdir($file);
	}
if (-e $file) {	if (-e $file) {
&Failure($client, "failed\n", "$cmd:$tail");	&Failure($client, "failed\n", "$cmd:$tail");
} else {	} else {
Line 2173 sub put_user_profile_entry {	Line 2177 sub put_user_profile_entry {

my $userinput = "$cmd:$tail";	my $userinput = "$cmd:$tail";

my ($udom,$uname,$namespace,$what) =split(/:/,$tail);	my ($udom,$uname,$namespace,$what) =split(/:/,$tail,4);
if ($namespace ne 'roles') {	if ($namespace ne 'roles') {
chomp($what);	chomp($what);
my $hashref = &tie_user_hash($udom, $uname, $namespace,	my $hashref = &tie_user_hash($udom, $uname, $namespace,