loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.240, 2004/08/24 20:59:15	version 1.242, 2004/08/25 21:00:46
Line 1909 sub remove_user_file_handler {	Line 1909 sub remove_user_file_handler {
my $file=$udir.'/userfiles/'.$ufile;	my $file=$udir.'/userfiles/'.$ufile;
if (-e $file) {	if (-e $file) {
if (-f $file){	if (-f $file){
unlink($file);	unlink($file);
}elsif(-d $file){	} elsif(-d $file) {
rmdir($file);	rmdir($file);
}	}
if (-e $file) {	if (-e $file) {
&Failure($client, "failed\n", "$cmd:$tail");	&Failure($client, "failed\n", "$cmd:$tail");
Line 2177 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,