--- loncom/interface/loncreatecourse.pm 2008/11/11 16:40:43 1.111 +++ loncom/interface/loncreatecourse.pm 2009/04/04 21:47:40 1.121 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.111 2008/11/11 16:40:43 jms Exp $ +# $Id: loncreatecourse.pm,v 1.121 2009/04/04 21:47:40 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,33 +39,21 @@ courses and assign course coordinators. This is part of the LearningOnline Network with CAPA project described at http://www.lon-capa.org. -=head1 HANDLER SUBROUTINE - -handler() - -=head1 OTHER SUBROUTINES +=head1 SUBROUTINES =over -=item * - -print_course_creation_page() - -=item * - -create_course() +=item handler() -=item * +=item print_course_creation_page() -print_intro_page() +=item create_course() -=item * +=item print_intro_page() -upload_batchfile() +=item upload_batchfile() -=item * - -process_batchfile() +=item process_batchfile() =back @@ -168,7 +156,7 @@ function validate(formname) { 'stco' => "standard courses only", 'blnk' => "Blank", 'sllb' => "Syllabus", - 'navi' => "Navigate", + 'navi' => "Navigate Contents", 'cid' => "Course ID", 'dmn' => "Domain", 'dsh' => "Date Shift", @@ -183,7 +171,7 @@ function validate(formname) { 'scfc' => "Set content feedback to Course Coordinator", 'cmmn' => "Communication", 'dsrd' => "Disable student resource discussion", - 'dsuc' => "Disable student use of chatrooms", + 'dsuc' => "Disable student use of chat rooms", 'acco' => "Access Control", 'snak' => "Students need access key to enter course", 'kaut' => @@ -197,6 +185,7 @@ function validate(formname) { 'no' => "No", 'audr' => "Automated drops", 'dacu' => "Duration of automated classlist updates", + 'dads' => 'Default Access Dates for Students', 'dacc' => "Default start and end dates for student access", 'psam' => "Please select the Authentication mechanism", 'pcda' => "Please choose the default authentication method to be used by new users added to this LON-CAPA domain by the automated enrollment process", @@ -206,7 +195,7 @@ function validate(formname) { 'irsp' => "Include retrieval of student photographs?", 'rshm' => 'Resource Space Home', 'cgrs' => "Course Group Settings", - 'cgrq' => "Set a quota for the total disk space available for storage of course group portfolio files.", + 'cgrq' => 'Set a quota for the total disk space available for storage of course group portfolio files', 'opco' => "Open Course", 'ginf' => "Group Information", 'gtit' => "Group Title", @@ -220,7 +209,7 @@ function validate(formname) { 'sgpf' => "Set group policy feedback to Group Coordinator", 'scfg' => "Set content feedback to Group Coordinator", 'dmrd' => "Disable member resource discussion", - 'dmuc' => "Disable member use of chatrooms", + 'dmuc' => "Disable member use of chat rooms", 'mnak' => "Members need access key to enter group", 'kaug' => 'Key authority (id@domain) if other than group', @@ -270,7 +259,7 @@ END $r->print($start_page.$crumbs); if ($crstype eq 'Course') { - $r->print('
' + $r->print('
' .&Apache::lonhtmlcommon::start_pick_box() .&Apache::lonhtmlcommon::row_headline() @@ -386,6 +375,14 @@ END ); $r->print(&Apache::lonhtmlcommon::row_headline() + .'

'.$lt{'dads'}.'

' + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title($lt{'dacc'}) + .$access_table + .&Apache::lonhtmlcommon::row_closure() + ); + + $r->print(&Apache::lonhtmlcommon::row_headline() .'

'.$lt{'assp'}.'

' .&Apache::lonhtmlcommon::row_closure() @@ -414,7 +411,7 @@ END .&Apache::lonhtmlcommon::row_closure() .&Apache::lonhtmlcommon::row_title($lt{'dsuc'}) - .'' .&Apache::lonhtmlcommon::row_closure() .&Apache::lonhtmlcommon::row_headline() @@ -455,10 +452,6 @@ END .$enroll_table .&Apache::lonhtmlcommon::row_closure() - .&Apache::lonhtmlcommon::row_title($lt{'dacc'}) - .$access_table - .&Apache::lonhtmlcommon::row_closure() - .&Apache::lonhtmlcommon::row_title($lt{'psam'}) .$lt{'pcda'}.'
' .$krbform.'
' @@ -509,6 +502,7 @@ END ); $r->print(<

@@ -774,9 +768,9 @@ 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]: ', - $crstype,$ccuname,$ccdomain). - &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid, + $r->print(&mt('Assigning role of '.$crstype.' Coordinator to [_1]:', + ,''.$ccuname.':'.$ccdomain.'') + .&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid, 'cc','','','','','createcourse').'

'); } if ($env{'form.setkeys'}) { @@ -788,7 +782,7 @@ sub create_course { $r->print('

'.&mt('Roles will be active at next login').'.

'); } $r->print('

'. - &mt('Create Another [_1]',$crstype).'

'. + &mt("Create Another $crstype").'

'. &Apache::loncommon::end_page()); } @@ -850,7 +844,7 @@ sub upload_batchfile { $r->print(''. ''. - '

'. + '

'. ''); $r->print($end_page);