loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.86, 2006/03/21 18:34:23	version 1.88, 2006/05/15 19:11:40
Line 234 sub copydbfiles {	Line 234 sub copydbfiles {
foreach (&crsdirlist($origcrsid)) {	foreach (&crsdirlist($origcrsid)) {
if ($_=~/\.db$/) {	if ($_=~/\.db$/) {
unless	unless
($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|(grading\|review)queue\|CODEs)/) {	($_=~/^(nohist\_\|discussiontimes\|classlist\|versionupdate\|resourcedata\|\Q$origcrs_discussion\E\|slots\|slot_reservations\|gradingqueue\|reviewqueue\|CODEs)/) {
&copydb($origcrsid,$newcrsid,$_);	&copydb($origcrsid,$newcrsid,$_);
my $histfile=$_;	my $histfile=$_;
$histfile=~s/\.db$/\.hist/;	$histfile=~s/\.db$/\.hist/;
Line 706 sub create_course {	Line 706 sub create_course {
# Flush the course logs so reverse user roles immediately updated	# Flush the course logs so reverse user roles immediately updated
&Apache::lonnet::flushcourselogs();	&Apache::lonnet::flushcourselogs();
$r->print('<p>'.&mt('Roles will be active at next login').'.</p>'.	$r->print('<p>'.&mt('Roles will be active at next login').'.</p>'.
	'<p><a href="/adm/createcourse">'.
	&mt('Create Another Course').'</a></p>'.
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}