--- loncom/interface/loncreatecourse.pm 2006/08/11 22:00:08 1.96 +++ loncom/interface/loncreatecourse.pm 2007/01/10 21:37:50 1.100 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.96 2006/08/11 22:00:08 albertel Exp $ +# $Id: loncreatecourse.pm,v 1.100 2007/01/10 21:37:50 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,7 +33,6 @@ use strict; use Apache::Constants qw(:common :http); use Apache::lonnet; use Apache::loncommon; -use Apache::lonratedt; use Apache::londocs; use Apache::lonlocal; use Apache::londropadd; @@ -567,10 +566,8 @@ ENDDOCUMENT sub create_course { my $r=shift; - my $ccuname=$env{'form.ccuname'}; - my $ccdomain=$env{'form.ccdomain'}; - $ccuname=~s/\W//g; - $ccdomain=~s/\W//g; + my $ccuname =&LONCAPA::clean_username($env{'form.ccuname'}); + my $ccdomain=&LONCAPA::clean_domain($env{'form.ccdomain'}); my $crstype = 'Group'; my ($enrollstart,$enrollend,$startaccess,$endaccess); @@ -691,7 +688,7 @@ sub create_course { # Flush the course logs so reverse user roles immediately updated &Apache::lonnet::flushcourselogs(); $r->print('
'.&mt('Roles will be active at next login').'.
'. - ''.
+ ' '.
&mt('Create Another [_1]',$crstype).''.
- $choice->{'name'}."
\n";
- $options .= ' '.(' 'x8).$choice->{'short_description'}.
+ $choice->{'name'}.'';
+ if (exists($choice->{'help'})) {
+ $options .= &Apache::loncommon::help_open_topic($choice->{'help'});
+ }
+ $options .= "\n".' '.(' 'x8).$choice->{'short_description'}.
"\n";
}