![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to lond CVS log | Up to [LON-CAPA] / loncom |
| version 1.240, 2004/08/24 20:59:15 | version 1.241, 2004/08/24 21:25:08 |
|---|---|
| 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"); |