loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.80, 2005/07/08 14:27:14	version 1.84, 2005/11/15 20:17:00
Line 214 sub copyuserfiles {	Line 214 sub copyuserfiles {

sub copydbfiles {	sub copydbfiles {
my ($origcrsid,$newcrsid)=@_;	my ($origcrsid,$newcrsid)=@_;

	my ($origcrs_discussion) = ($origcrsid=~m\|^/(.*)\|);
	$origcrs_discussion=~s\|/\|_\|g;
foreach (&crsdirlist($origcrsid)) {	foreach (&crsdirlist($origcrsid)) {
if ($_=~/\.db$/) {	if ($_=~/\.db$/) {
unless	unless
($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|(grading\|review)queue\|CODEs)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
my $histfile=$_;	my $histfile=$_;
$histfile=~s/\.db$/\.hist/;	$histfile=~s/\.db$/\.hist/;
Line 784 sub construct_course {	Line 787 sub construct_course {
foreach my $item (@sections) {	foreach my $item (@sections) {
my ($sec,$gp) = split/:/,$item;	my ($sec,$gp) = split/:/,$item;
my $class = $args->{'crscode'}.$sec;	my $class = $args->{'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'});
$cenv{'internal.sectionnums'} .= $item.',';	$cenv{'internal.sectionnums'} .= $item.',';
unless ($addcheck eq 'ok') {	unless ($addcheck eq 'ok') {
push @badclasses, $class;	push @badclasses, $class;