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.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);