--- loncom/interface/loncreatecourse.pm 2007/03/03 01:40:28 1.101 +++ loncom/interface/loncreatecourse.pm 2007/08/02 19:52:30 1.103.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.101 2007/03/03 01:40:28 albertel Exp $ +# $Id: loncreatecourse.pm,v 1.103.2.1 2007/08/02 19:52:30 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,10 +44,11 @@ use LONCAPA; sub print_course_creation_page { my $r=shift; - my $crstype = 'Group'; - if ($env{'form.phase'} eq 'courseone') { - $crstype = 'Course'; - } + my $crstype = 'Course'; +# my $crstype = 'Group'; +# if ($env{'form.phase'} eq 'courseone') { +# $crstype = 'Course'; +# } my $defdom=$env{'request.role.domain'}; my %host_servers = &Apache::lonnet::get_servers($defdom,'library'); my $course_home = '<select name="course_home" size="1">'."\n"; @@ -575,7 +576,6 @@ sub create_course { $crstype='Course'; $enrollstart=&Apache::lonhtmlcommon::get_date_from_form('startenroll'); $enrollend=&Apache::lonhtmlcommon::get_date_from_form('endenroll'); - } $startaccess = &Apache::lonhtmlcommon::get_date_from_form('startaccess'); $endaccess = &Apache::lonhtmlcommon::get_date_from_form('endaccess'); @@ -676,7 +676,7 @@ sub create_course { # Make the requested user a course coordinator or group coordinator # if (($ccdomain) && ($ccuname)) { - $r->print(&mt('Assigning role of [_1] Coordinator to [_2] at [_3]:', + $r->print(&mt('Assigning role of [_1] Coordinator to [_2] at [_3]: ', $crstype,$ccuname,$ccdomain). &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid, 'cc').'<p>'); @@ -696,7 +696,7 @@ sub create_course { sub print_intro_page { my $r = shift; my $start_page = - &Apache::loncommon::start_page('Create a New Course or Group Space'); + &Apache::loncommon::start_page('Create a New Course'); my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Options','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); @@ -707,11 +707,11 @@ sub print_intro_page { short_description => &mt('Create a new course by completing an online form.'), }, - { internal_name => 'groupone', - name => &mt('Create a single collaborative group space '), - short_description => - &mt('Create a new group space for non-course use by completing an online form .'), - }, +# { internal_name => 'groupone', +# name => &mt('Create a single collaborative group space '), +# short_description => +# &mt('Create a new group space for non-course use by completing an online form .'), +# }, { internal_name => 'batchone', name => &mt('Create courses/groups by uploading an attributes file'), short_description => @@ -743,11 +743,11 @@ sub upload_batchfile { my $r = shift; my $start_page = &Apache::loncommon::start_page('Create a New Course or Group Space'); - my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course/Group Attributes File','Create_Course',undef,'Create_Courses'); + my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course Attributes File','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); $r->print($start_page.$crumbs); - $r->print('<h3>'.&mt('Upload a courses or groups attributes file').'</h3>'); + $r->print('<h3>'.&mt('Upload a courses attributes file').'</h3>'); $r->print('<form name="batchcreate" method="post" '. 'enctype="multipart/form-data" action="/adm/createcourse">'. '<input type="file" name="coursecreatorxml" />'. @@ -794,7 +794,8 @@ sub process_batchfile { } } } - $r->print($start_page.$crumbs.$result.$end_page); + $r->print($start_page.$crumbs.$logmsg.$result.'<br /><a href="/adm/createcourse">'. + &mt('Creation options menu').'</a>'.$end_page); }