'); } if ($env{'form.setkeys'}) { $r->print( '
'); } if ($code) { $r->print( ''.&mt('Course identifier to share with students: [_1]',$code).'
' ); } if ($env{'form.crscode'} ne '') { &Apache::lonnet::devalidate_cache_new('instcats',$crsudom); } ®ister_cleanups($r,$crsudom,$env{'form.crscode'}); $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,$cancreate,$permission) = @_; my $start_page = &Apache::loncommon::start_page('Create a New Course, Community or Placement Test'); 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 $approve = 'Display requests awaiting approval'; if ($permission->{'create'}) { $approve = 'Approve or reject requests'; } my @menu; @menu = ({ categorytitle => 'Course/Community Creation', items => [ { linktext => 'Create a single course', url => '/adm/createcourse?phase=courseone', permission => $permission->{'create'}, #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 => $permission->{'create'} && $cancreate->{'Community'}, #help => '', icon => 'crsnew.png', linktitle => 'Create a new collaborative community by completing an online form.' }, { linktext => 'Create a single placement test', url => '/adm/createcourse?phase=placementone', permission => $permission->{'create'} && $cancreate->{'Placement'}, #help => '', icon => 'crsnew.png', linktitle => 'Create a new placement test by completing an online form.' }, { linktext => 'Create courses/communities/placement tests by uploading an attributes file', url => '/adm/createcourse?phase=batchone', permission => $permission->{'create'}, help => 'Batch_Creation', icon => 'uplcrs.png', linktitle => 'Upload an attributes file containing specifications for one or more courses, communities or placement tests in XML format.' }, ] }, { categorytitle => 'Course/Community Requests', items => [ { linktext => $approve, url => '/adm/createcourse?phase=requestdisplay', permission => $show_all_choices, #help => '', icon => 'rcrs.png', linktitle => 'Display course, community creation and placement test 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, communities and placement tests 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, Community, or Placement Test'); my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course/Community/Placement Test Attributes File','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); $r->print($start_page.$crumbs); $r->print(''.$clonemsg.'
'."\n"; } } } else { $result = ''.&mt('Could not open attributes file.').'
'.&mt('No courses created.').'
'.&mt('No uploaded attributes file found.').'
'.&mt('No courses created.').'
'.&mt('Invalid path to attributes file.').'
'.&mt('No courses created.').'
'.&mt("Your username, domain, and/or your current role's domain are missing or contain invalid characters.").
'
'.&mt('No courses created.').'