Diff for /loncom/lond between versions 1.240 and 1.242

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,

Removed from v.1.240  
changed lines
  Added in v.1.242


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>