version 1.459, 2011/09/10 03:18:34
|
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++) { |
Line 1787 sub editor {
|
Line 1787 sub editor {
|
if ($supplementalflag) { |
if ($supplementalflag) { |
$tid = 2; |
$tid = 2; |
} |
} |
$r-print(&generate_edit_table($tid,$orderhash,$to_show)); |
|
if ($allowed) { |
if ($allowed) { |
|
$r->print(&generate_edit_table($tid,$orderhash,$to_show)); |
&print_paste_buffer($r,$container); |
&print_paste_buffer($r,$container); |
|
} else { |
|
$r->print($to_show); |
} |
} |
return; |
return; |
} |
} |