|
version 1.460, 2011/09/10 19:00:07
|
version 1.461, 2011/10/23 23:46:02
|
|
Line 176 sub dumpcourse {
|
Line 176 sub dumpcourse {
|
| $newfilename=&clean($newfilename); |
$newfilename=&clean($newfilename); |
| $newfilename.='.'.$ext; |
$newfilename.='.'.$ext; |
| my @dirs=split(/\//,$newfilename); |
my @dirs=split(/\//,$newfilename); |
| my $path='/home/'.$ca.'/public_html'; |
my $path='/home/httpd/html/priv/'.$cd.'/'.$ca; |
| my $makepath=$path; |
my $makepath=$path; |
| my $fail=0; |
my $fail=0; |
| for (my $i=0;$i<$#dirs;$i++) { |
for (my $i=0;$i<$#dirs;$i++) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to londocs.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface