version 1.68, 2004/09/25 17:52:03
|
version 1.73, 2004/12/07 01:31:17
|
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 139 sub copydb {
|
Line 138 sub copydb {
|
my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid); |
my %newcrsdata= &Apache::lonnet::coursedescription($newcrsid); |
my %data=&Apache::lonnet::dump |
my %data=&Apache::lonnet::dump |
($which,$origcrsdata{'domain'},$origcrsdata{'num'}); |
($which,$origcrsdata{'domain'},$origcrsdata{'num'}); |
|
foreach my $key (keys(%data)) { |
|
if ($key=~/^internal./) { delete($data{$key}); } |
|
} |
return &Apache::lonnet::put |
return &Apache::lonnet::put |
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'}); |
($which,\%data,$newcrsdata{'domain'},$newcrsdata{'num'}); |
} |
} |
Line 204 sub copyresourcedb {
|
Line 206 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 256 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'); |
Line 612 ENDENHEAD
|
Line 616 ENDENHEAD
|
$cdescr,$curl, |
$cdescr,$curl, |
$ENV{'form.course_home'}, |
$ENV{'form.course_home'}, |
$ENV{'form.nonstandard'}, |
$ENV{'form.nonstandard'}, |
$ENV{'form.crscode'}); |
$ENV{'form.crscode'}, |
|
$ENV{'form.ccuname'}); |
|
|
# Note: The testing routines depend on this being output; see |
# Note: The testing routines depend on this being output; see |
# Utils::Course. This needs to at least be output as a comment |
# Utils::Course. This needs to at least be output as a comment |
Line 686 ENDENHEAD
|
Line 691 ENDENHEAD
|
my ($sec,$gp) = split/:/,$item; |
my ($sec,$gp) = split/:/,$item; |
my $class = $ENV{'form.crscode'}.$sec; |
my $class = $ENV{'form.crscode'}.$sec; |
my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$class,$cenv{'internal.courseowner'}); |
my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$class,$cenv{'internal.courseowner'}); |
if ($addcheck eq 'ok') { |
$cenv{'internal.sectionnums'} .= $item.','; |
$cenv{'internal.sectionnums'} .= $item.','; |
unless ($addcheck eq 'ok') { |
} else { |
|
push @badclasses, $class; |
push @badclasses, $class; |
} |
} |
} |
} |
Line 709 ENDENHEAD
|
Line 713 ENDENHEAD
|
foreach my $item (@xlists) { |
foreach my $item (@xlists) { |
my ($xl,$gp) = split/:/,$item; |
my ($xl,$gp) = split/:/,$item; |
my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$xl,$cenv{'internal.courseowner'}); |
my $addcheck = &Apache::lonnet::auto_new_course($crsunum,$crsudom,$xl,$cenv{'internal.courseowner'}); |
if ($addcheck eq 'ok') { |
$cenv{'internal.crosslistings'} .= $item.','; |
$cenv{'internal.crosslistings'} .= $item.','; |
unless ($addcheck eq 'ok') { |
} else { |
|
push @badclasses, $xl; |
push @badclasses, $xl; |
} |
} |
} |
} |
Line 731 ENDENHEAD
|
Line 734 ENDENHEAD
|
} |
} |
if (@badclasses > 0) { |
if (@badclasses > 0) { |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'tclb' => 'The courses listed below have not been included as sections or crosslistings affiliated with your new LON-CAPA course. If automated course roster updates are enabled for this class, these particular sections/crosslistings will not contribute towards enrollment, because the user identified as the course owner for this LON-CAPA course', |
'tclb' => 'The courses listed below were included as sections or crosslistings affiliated with your new LON-CAPA course. However, if automated course roster updates are enabled for this class, these particular sections/crosslistings will not contribute towards enrollment, because the user identified as the course owner for this LON-CAPA course', |
'dnhr' => 'does not have rights to access enrollment in these classes', |
'dnhr' => 'does not have rights to access enrollment in these classes', |
'adby' => 'as determined by the policies of your institution on access to official classlists' |
'adby' => 'as determined by the policies of your institution on access to official classlists' |
); |
); |