'); } if ($env{'form.setkeys'}) { $r->print( '
'); } # Flush the course logs so reverse user roles immediately updated &Apache::lonnet::flushcourselogs(); $r->print(''.&mt('Roles will be active at next login').'.
'); } $r->print(''. &mt("Create Another $crstype").'
'. &Apache::loncommon::end_page()); } sub print_intro_page { my ($r,$show_all_choices) = @_; my $start_page = &Apache::loncommon::start_page('Create a New Course or Community'); my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Options','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); my $helplink=&Apache::loncommon::help_open_topic('Create_Course_Community',&mt('Help on Creating Courses and Communities')); my @choices = ({ internal_name => 'courseone', name => &mt('Create a single course'), short_description => &mt('Create a new course by completing an online form.'), }); if ($show_all_choices) { push(@choices,{ internal_name => 'groupone', name => &mt('Create a single community'), short_description => &mt('Create a new collaborative community by completing an online form.'), }, { internal_name => 'batchone', name => &mt('Create courses/communities by uploading an attributes file'), short_description => &mt('Upload an attributes file containing specifications for one or more courses or communities in XML format.'), help => 'Batch_Creation', }, { internal_name => 'requestdisplay', name => &mt('Approve or reject requests'), short_description => &mt('Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'), }, { internal_name => 'pendingdisplay', name => &mt('Display official course requests'), short_description => &mt('Display official course requests submitted by authorized users, held pending validation of instructor status.'), }, { internal_name => 'creationlog', name => &mt('View creation log'), short_description => &mt('Display information about when, how and by whom courses and communities were created in this domain.'), }); } else { push(@choices,{ internal_name => 'batchone', name => &mt('Create courses by uploading an attributes file'), short_description => &mt('Upload an attributes file containing specifications for one or more courses in XML format.'), help => 'Batch_Creation', }); } my $options; foreach my $choice (@choices) { $options .='