Return to loncreatecourse.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.98, 2006/11/02 21:06:06 | version 1.99, 2006/11/23 01:09:36 |
---|---|
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); |