'); } if ($env{'form.setkeys'}) { $r->print( '
'); } # Flush the course logs so reverse user roles immediately updated $r->register_cleanup(\&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')); # Create menu my @menu; @menu = ({ categorytitle => 'Course/Community Creation', items => [ { linktext => 'Create a single course', url => '/adm/createcourse?phase=courseone', permission => 1, #help => '', icon => 'crsnew.png', linktitle => 'Create a new course by completing an online form.' }, { linktext => 'Create a single community', url => '/adm/createcourse?phase=groupone', permission => $show_all_choices, #help => '', icon => 'crsnew.png', linktitle => 'Create a new collaborative community by completing an online form.' }, { linktext => 'Create courses/communities by uploading an attributes file', url => '/adm/createcourse?phase=batchone', permission => 1, help => 'Batch_Creation', icon => 'uplcrs.png', linktitle => 'Upload an attributes file containing specifications for one or more courses or communities in XML format.' }, ] }, { categorytitle => 'Course/Community Requests', items => [ { linktext => 'Approve or reject requests', url => '/adm/createcourse?phase=requestdisplay', permission => $show_all_choices, #help => '', icon => 'rcrs.png', linktitle => 'Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.' }, { linktext => 'View pending official course requests', url => '/adm/createcourse?phase=pendingdisplay', permission => $show_all_choices, #help => '', icon => 'edit-find.png', alttext => '', linktitle => 'Display official course requests submitted by authorized users, held pending validation of instructor status.' }, ] }, { categorytitle => 'Administration', items => [ { linktext => 'View creation log', url => '/adm/createcourse?phase=creationlog', permission => $show_all_choices, #help => '', icon => 'document-properties.png', linktitle => 'Display information about when, how and by whom courses and communities were created in this domain.' }, ] }, ); $r->print( $start_page .$crumbs .&Apache::lonhtmlcommon::generate_menu(@menu) .$end_page ); } sub upload_batchfile { my $r = shift; my $start_page = &Apache::loncommon::start_page('Create a New Course or Community'); my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course/Community Attributes File','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); $r->print($start_page.$crumbs); $r->print('