version 1.28, 2003/08/30 14:36:24
|
version 1.29, 2003/08/30 18:49:10
|
Line 78 sub crsdirlist {
|
Line 78 sub crsdirlist {
|
return @output; |
return @output; |
} |
} |
|
|
|
# ============================================================= Read a userfile |
|
|
|
sub readfile { |
|
my ($courseid,$which)=@_; |
|
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
|
return &Apache::lonnet::getfile('/uploaded/'.$crsdata{'domain'}.'/'. |
|
$crsdata{'num'}.'/'.$which); |
|
} |
|
|
|
# ============================================================ Write a userfile |
|
|
|
sub writefile { |
|
my ($courseid,$which,$data)=@_; |
|
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
|
$ENV{'form.output'}=$data; |
|
return &Apache::lonnet::finishuserfileupload( |
|
$crsdata{'num'},$crsdata{'domain'}, |
|
$crsdata{'home'}, |
|
'output',$which); |
|
} |
|
|
|
# ============================================================= Copy a userfile |
|
|
|
sub copyfile { |
|
my ($origcrsid,$newcrsid,$which)=@_; |
|
return &writefile($newcrsid,$which,&readfile($origcrsid,$which)); |
|
} |
|
|
# ===================================================== Phase one: fill-in form |
# ===================================================== Phase one: fill-in form |
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |