version 1.68, 2004/09/25 17:52:03
|
version 1.70, 2004/11/23 06:58:34
|
Line 38 use Apache::londocs;
|
Line 38 use Apache::londocs;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::londropadd; |
use Apache::londropadd; |
use lib '/home/httpd/lib/perl'; |
use lib '/home/httpd/lib/perl'; |
use localenroll; |
|
|
|
# ================================================ Get course directory listing |
# ================================================ Get course directory listing |
|
|
Line 204 sub copyresourcedb {
|
Line 203 sub copyresourcedb {
|
sub copyuserfiles { |
sub copyuserfiles { |
my ($origcrsid,$newcrsid)=@_; |
my ($origcrsid,$newcrsid)=@_; |
foreach (&crsdirlist($origcrsid,'userfiles')) { |
foreach (&crsdirlist($origcrsid,'userfiles')) { |
©file($origcrsid,$newcrsid,$_); |
if ($_ !~m|^scantron_|) { |
|
©file($origcrsid,$newcrsid,$_); |
|
} |
} |
} |
} |
} |
# ========================================================== Copy all userfiles |
# ========================================================== Copy all userfiles |
Line 252 sub print_course_creation_page {
|
Line 253 sub print_course_creation_page {
|
($ENV{'request.role.domain'},'clonedomain'). |
($ENV{'request.role.domain'},'clonedomain'). |
&Apache::loncommon::selectcourse_link |
&Apache::loncommon::selectcourse_link |
('ccrs','clonecourse','clonedomain'); |
('ccrs','clonecourse','clonedomain'); |
my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript(); |
my $coursebrowserjs=&Apache::loncommon::coursebrowser_javascript($ENV{'request.role.domain'}); |
my $starttime = time; |
my $starttime = time; |
my $endtime = time+(6*30*24*60*60); # 6 months from now, approx |
my $endtime = time+(6*30*24*60*60); # 6 months from now, approx |
my $enroll_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'create_enrolldates'); |
my $enroll_table = &Apache::londropadd::date_setting_table($starttime,$endtime,'create_enrolldates'); |