loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.36, 2003/09/08 21:55:46	version 1.37, 2003/09/09 17:26:03
Line 175 sub copyresourcedb {	Line 175 sub copyresourcedb {
delete $data{$_};	delete $data{$_};
}	}
}	}
	# adjust symbs
	my $pattern='uploaded/'.$origcrsdata{'domain'}.'/'.$origcrsdata{'num'}.'/';
	$pattern=~s/(\W)/\\$1/gs;
	my $new= 'uploaded/'. $newcrsdata{'domain'}.'/'. $newcrsdata{'num'}.'/';
	foreach (keys %data) {
	if ($_=~/$pattern/) {
	my $newkey=$_;
	$newkey=~s/$pattern/$new/;
	$data{$newkey}=$data{$_};
	delete $data{$_};
	}
	}
# adjust dates	# adjust dates
foreach (keys %data) {	foreach (keys %data) {
my $thiskey=$_;	my $thiskey=$_;
Line 421 ENDENHEAD	Line 433 ENDENHEAD
} else {	} else {
$r->print(	$r->print(
'<br /><font color="green">Cloning course from '.$clonehome.'</font>');	'<br /><font color="green">Cloning course from '.$clonehome.'</font>');
	my %oldcenv=&Apache::lonnet::dump('environment',$crsudom,$crsunum);
# Copy all files	# Copy all files
&copycoursefiles($cloneid,$courseid);	&copycoursefiles($cloneid,$courseid);
	# Restore URL
	$cenv{'url'}=$oldcenv{'url'};
# Restore title	# Restore title
$cenv{'description'}=$cdescr;	$cenv{'description'}=$oldcenv{'description'};
	# Mark as cloned
$cenv{'clonedfrom'}=$cloneid;	$cenv{'clonedfrom'}=$cloneid;
}	}
}	}