loncom/interface/loncreatecourse.pm - diff

Return to loncreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.97, 2006/08/19 01:21:22	version 1.99, 2006/11/23 01:09:36
Line 33 use strict;	Line 33 use strict;
use Apache::Constants qw(:common :http);	use Apache::Constants qw(:common :http);
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonratedt;
use Apache::londocs;	use Apache::londocs;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::londropadd;	use Apache::londropadd;
Line 567 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);