version 1.29, 2003/08/30 18:49:10
|
version 1.30, 2003/09/02 15:21:42
|
Line 90 sub readfile {
|
Line 90 sub readfile {
|
# ============================================================ Write a userfile |
# ============================================================ Write a userfile |
|
|
sub writefile { |
sub writefile { |
my ($courseid,$which,$data)=@_; |
(my $courseid, my $which,$ENV{'form.output'})=@_; |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
$ENV{'form.output'}=$data; |
|
return &Apache::lonnet::finishuserfileupload( |
return &Apache::lonnet::finishuserfileupload( |
$crsdata{'num'},$crsdata{'domain'}, |
$crsdata{'num'},$crsdata{'domain'}, |
$crsdata{'home'}, |
$crsdata{'home'}, |
Line 106 sub copyfile {
|
Line 105 sub copyfile {
|
return &writefile($newcrsid,$which,&readfile($origcrsid,$which)); |
return &writefile($newcrsid,$which,&readfile($origcrsid,$which)); |
} |
} |
|
|
|
# =============================================================== Copy a dbfile |
|
|
|
sub copydb { |
|
my ($origcrsid,$newcrsid,$which)=@_; |
|
$which=~s/\.db$//; |
|
my %origcrsdata=&Apache::lonnet::coursedescription($origcrsid); |
|
my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid); |
|
my %data=&Apache::lonnet::dump |
|
($which,$origcrsdata{'domain'},$origcrsdata{'num'}); |
|
return &Apache::lonnet::put |
|
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'}); |
|
} |
|
|
|
# ========================================================== Copy all userfiles |
|
|
|
sub copyuserfiles { |
|
my ($origcrsid,$newcrsid)=@_; |
|
foreach (&crsdirlist($origcrsid,'userfiles')) { |
|
©file($origcrsid,$newcrsid,$_); |
|
} |
|
} |
|
# ========================================================== Copy all userfiles |
|
|
|
sub copydbfiles { |
|
my ($origcrsid,$newcrsid)=@_; |
|
foreach (&crsdirlist($origcrsid)) { |
|
if ($_=~/\.db$/) { |
|
unless |
|
($_=~/^(nohist\_|discussiontimes|classlist|versionupdate)/) { |
|
©db($origcrsid,$newcrsid,$_); |
|
} |
|
} |
|
} |
|
} |
|
|
# ===================================================== Phase one: fill-in form |
# ===================================================== Phase one: fill-in form |
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |