version 1.26, 2003/07/24 17:53:59
|
version 1.31, 2003/09/02 18:00:14
|
Line 48 use Apache::loncommon;
|
Line 48 use Apache::loncommon;
|
use Apache::lonratedt; |
use Apache::lonratedt; |
use Apache::londocs; |
use Apache::londocs; |
|
|
|
# -------------------------------------------- Return path to profile directory |
|
|
|
sub propath { |
|
my ($udom,$uname)=@_; |
|
$udom=~s/\W//g; |
|
$uname=~s/\W//g; |
|
my $subdir=$uname.'__'; |
|
$subdir =~ s/(.)(.)(.).*/$1\/$2\/$3/; |
|
my $proname="$Apache::lonnet::perlvar{'lonUsersDir'}/$udom/$subdir/$uname"; |
|
return $proname; |
|
} |
|
|
|
# ================================================ Get course directory listing |
|
|
|
sub crsdirlist { |
|
my ($courseid,$which)=@_; |
|
unless ($which) { $which=''; } |
|
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
|
my @listing=&Apache::lonnet::dirlist |
|
($which,$crsdata{'domain'},$crsdata{'num'}, |
|
&propath($crsdata{'domain'},$crsdata{'num'})); |
|
my @output=(); |
|
foreach (@listing) { |
|
unless ($_=~/^\./) { |
|
push (@output,(split(/\&/,$_))[0]); |
|
} |
|
} |
|
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, my $which,$ENV{'form.output'})=@_; |
|
my %crsdata=&Apache::lonnet::coursedescription($courseid); |
|
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)); |
|
} |
|
|
|
# =============================================================== 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,$_); |
|
} |
|
} |
|
} |
|
} |
|
|
|
# ======================================================= Copy all course files |
|
|
|
sub copycoursefiles { |
|
my ($origcrsid,$newcrsid)=@_; |
|
©userfiles($origcrsid,$newcrsid); |
|
©dbfiles($origcrsid,$newcrsid); |
|
} |
|
|
# ===================================================== Phase one: fill-in form |
# ===================================================== Phase one: fill-in form |
|
|
sub print_course_creation_page { |
sub print_course_creation_page { |
Line 208 ENDENHEAD
|
Line 308 ENDENHEAD
|
$ENV{'form.course_home'}, |
$ENV{'form.course_home'}, |
$ENV{'form.nonstandard'}); |
$ENV{'form.nonstandard'}); |
|
|
|
# Note: The testing routines depend on this being output; see |
|
# Utils::Course. This needs to at least be output as a comment |
|
# if anyone ever decides to not show this, and Utils::Course::new |
|
# will need to be suitably modified. |
$r->print('New LON-CAPA Course ID: '.$courseid.'<br>'); |
$r->print('New LON-CAPA Course ID: '.$courseid.'<br>'); |
# |
# |
# Check if created correctly |
# Check if created correctly |