loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.98, 2006/11/02 21:06:06	version 1.100, 2007/01/10 21:37:50
Line 566 ENDDOCUMENT	Line 566 ENDDOCUMENT

sub create_course {	sub create_course {
my $r=shift;	my $r=shift;
my $ccuname=$env{'form.ccuname'};	my $ccuname =&LONCAPA::clean_username($env{'form.ccuname'});
my $ccdomain=$env{'form.ccdomain'};	my $ccdomain=&LONCAPA::clean_domain($env{'form.ccdomain'});
$ccuname=~s/\W//g;
$ccdomain=~s/\W//g;
my $crstype = 'Group';	my $crstype = 'Group';
my ($enrollstart,$enrollend,$startaccess,$endaccess);	my ($enrollstart,$enrollend,$startaccess,$endaccess);

Line 690 sub create_course {	Line 688 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">'.	'<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.
&mt('Create Another [_1]',$crstype).'</a></p>'.	&mt('Create Another [_1]',$crstype).'</a></p>'.
&Apache::loncommon::end_page());	&Apache::loncommon::end_page());
}	}