[BACK]Return to loncreatecourse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncreatecourse.pm between versions 1.111 and 1.122

version 1.111, 2008/11/11 16:40:43 version 1.122, 2009/04/22 14:47:59
Line 39  courses and assign course coordinators. Line 39  courses and assign course coordinators.
 This is part of the LearningOnline Network with CAPA project  This is part of the LearningOnline Network with CAPA project
 described at http://www.lon-capa.org.  described at http://www.lon-capa.org.
   
 =head1 HANDLER SUBROUTINE  =head1 SUBROUTINES
   
 handler()  
   
 =head1 OTHER SUBROUTINES  
   
 =over  =over
   
 =item *  =item handler()
   
 print_course_creation_page()  
   
 =item *  
   
 create_course()  
   
 =item *  =item print_course_creation_page()
   
 print_intro_page()  =item create_course()
   
 =item *  =item print_intro_page()
   
 upload_batchfile()  =item upload_batchfile()
   
 =item *  =item process_batchfile()
   
 process_batchfile()  
   
 =back  =back
   
Line 168  function validate(formname) { Line 156  function validate(formname) {
                     'stco' => "standard courses only",                      'stco' => "standard courses only",
                     'blnk' => "Blank",                      'blnk' => "Blank",
                     'sllb' => "Syllabus",                      'sllb' => "Syllabus",
                     'navi' => "Navigate",                      'navi' => "Navigate Contents",
                     'cid'  => "Course ID",                      'cid'  => "Course ID",
                     'dmn'  => "Domain",                      'dmn'  => "Domain",
                     'dsh'  => "Date Shift",                      'dsh'  => "Date Shift",
Line 183  function validate(formname) { Line 171  function validate(formname) {
                     'scfc' => "Set content feedback to Course Coordinator",                      'scfc' => "Set content feedback to Course Coordinator",
                     'cmmn' => "Communication",                      'cmmn' => "Communication",
                     'dsrd' => "Disable student resource discussion",                      'dsrd' => "Disable student resource discussion",
                     'dsuc' => "Disable student use of chatrooms",                      'dsuc' => "Disable student use of chat rooms",
                     'acco' => "Access Control",                      'acco' => "Access Control",
                     'snak' => "Students need access key to enter course",                      'snak' => "Students need access key to enter course",
     'kaut' =>       'kaut' => 
Line 197  function validate(formname) { Line 185  function validate(formname) {
                     'no'   => "No",                      'no'   => "No",
                     'audr' => "Automated drops",                      'audr' => "Automated drops",
                     'dacu' => "Duration of automated classlist updates",                      'dacu' => "Duration of automated classlist updates",
                       'dads' => 'Default Access Dates for Students',
                     'dacc' => "Default start and end dates for student access",                      'dacc' => "Default start and end dates for student access",
                     'psam' => "Please select the Authentication mechanism",                      '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",                      'pcda' => "Please choose the default authentication method to be used by new users added to this LON-CAPA domain by the automated enrollment process",
Line 206  function validate(formname) { Line 195  function validate(formname) {
                     'irsp' => "Include retrieval of student photographs?",                      'irsp' => "Include retrieval of student photographs?",
     'rshm' => 'Resource Space Home',      'rshm' => 'Resource Space Home',
                     'cgrs' => "Course Group Settings",                      '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",                      'opco' => "Open Course",
                     'ginf' => "Group Information",                      'ginf' => "Group Information",
                     'gtit' => "Group Title",                      'gtit' => "Group Title",
Line 220  function validate(formname) { Line 209  function validate(formname) {
                     'sgpf' => "Set group policy feedback to Group Coordinator",                      'sgpf' => "Set group policy feedback to Group Coordinator",
                     'scfg' => "Set content feedback to Group Coordinator",                      'scfg' => "Set content feedback to Group Coordinator",
                     'dmrd' => "Disable member resource discussion",                      '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",                      'mnak' => "Members need access key to enter group",
                     'kaug' =>                      'kaug' =>
                     'Key authority (<tt>id@domain</tt>) if other than group',                      'Key authority (<tt>id@domain</tt>) if other than group',
Line 270  END Line 259  END
     $r->print($start_page.$crumbs);      $r->print($start_page.$crumbs);
   
     if ($crstype eq 'Course') {      if ($crstype eq 'Course') {
         $r->print('<form action="/adm/createcourse" method="post" name="ccrs">'          $r->print('<form action="/adm/createcourse" method="post" name="ccrs"><div class="LC_createcourse">'
                  .&Apache::lonhtmlcommon::start_pick_box()                   .&Apache::lonhtmlcommon::start_pick_box()
   
                  .&Apache::lonhtmlcommon::row_headline()                   .&Apache::lonhtmlcommon::row_headline()
Line 386  END Line 375  END
         );          );
   
         $r->print(&Apache::lonhtmlcommon::row_headline()          $r->print(&Apache::lonhtmlcommon::row_headline()
                    .'<h3>'.$lt{'dads'}.'</h3>'
                    .&Apache::lonhtmlcommon::row_closure()
                    .&Apache::lonhtmlcommon::row_title($lt{'dacc'})
                    .$access_table
                    .&Apache::lonhtmlcommon::row_closure()
           );
   
           $r->print(&Apache::lonhtmlcommon::row_headline()
                  .'<h3>'.$lt{'assp'}.'</h3>'                   .'<h3>'.$lt{'assp'}.'</h3>'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
Line 414  END Line 411  END
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
                  .&Apache::lonhtmlcommon::row_title($lt{'dsuc'})                   .&Apache::lonhtmlcommon::row_title($lt{'dsuc'})
                  .'<input type="checkbox" name="disablechat" /'                   .'<input type="checkbox" name="disablechat" />'
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
                  .&Apache::lonhtmlcommon::row_headline()                   .&Apache::lonhtmlcommon::row_headline()
Line 455  END Line 452  END
                  .$enroll_table                   .$enroll_table
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
                  .&Apache::lonhtmlcommon::row_title($lt{'dacc'})  
                  .$access_table  
                  .&Apache::lonhtmlcommon::row_closure()  
   
                  .&Apache::lonhtmlcommon::row_title($lt{'psam'})                   .&Apache::lonhtmlcommon::row_title($lt{'psam'})
                  .$lt{'pcda'}.'<br />'                   .$lt{'pcda'}.'<br />'
                  .$krbform.'<br />'                   .$krbform.'<br />'
Line 499  END Line 492  END
   
                  .&Apache::lonhtmlcommon::row_title($lt{'user'})                   .&Apache::lonhtmlcommon::row_title($lt{'user'})
                  .'<input type="text" size="15" name="ccuname" />'                   .'<input type="text" size="15" name="ccuname" />'
                    .&Apache::loncommon::studentbrowser_javascript()
                    .&Apache::loncommon::selectstudent_link('ccrs','ccuname','ccdomain')
                  .&Apache::lonhtmlcommon::row_closure()                   .&Apache::lonhtmlcommon::row_closure()
   
                  .&Apache::lonhtmlcommon::row_title($lt{'dmn'},"","LC_odd_row_value")                   .&Apache::lonhtmlcommon::row_title($lt{'dmn'},"","LC_odd_row_value")
Line 509  END Line 504  END
         );          );
   
         $r->print(<<ENDDOCUMENT);          $r->print(<<ENDDOCUMENT);
   </div>
 <p>  <p>
 <input type="hidden" name="prevphase" value="courseone" />  <input type="hidden" name="prevphase" value="courseone" />
 <input type="hidden" name="phase" value="coursetwo" />  <input type="hidden" name="phase" value="coursetwo" />
Line 774  sub create_course { Line 770  sub create_course {
  # Make the requested user a course coordinator or group coordinator   # Make the requested user a course coordinator or group coordinator
         #          #
  if (($ccdomain) && ($ccuname)) {   if (($ccdomain) && ($ccuname)) {
     $r->print(&mt('Assigning role of [_1] Coordinator to [_2] at [_3]: ',      $r->print(&mt('Assigning role of '.$crstype.' Coordinator to [_1]:',
   $crstype,$ccuname,$ccdomain).   ,'<i>'.$ccuname.':'.$ccdomain.'</i>')
       &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,        .&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,
   'cc','','','','','createcourse').'<p>');    'cc','','','','','createcourse').'<p>');
  }   }
  if ($env{'form.setkeys'}) {   if ($env{'form.setkeys'}) {
Line 788  sub create_course { Line 784  sub create_course {
  $r->print('<p>'.&mt('Roles will be active at next login').'.</p>');   $r->print('<p>'.&mt('Roles will be active at next login').'.</p>');
     }      }
     $r->print('<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.      $r->print('<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.
       &mt('Create Another [_1]',$crstype).'</a></p>'.        &mt("Create Another $crstype").'</a></p>'.
       &Apache::loncommon::end_page());        &Apache::loncommon::end_page());
 }  }
   
Line 850  sub upload_batchfile { Line 846  sub upload_batchfile {
     $r->print('<form name="batchcreate" method="post" '.      $r->print('<form name="batchcreate" method="post" '.
                 'enctype="multipart/form-data" action="/adm/createcourse">'.                  'enctype="multipart/form-data" action="/adm/createcourse">'.
               '<input type="file" name="coursecreatorxml" />'.                '<input type="file" name="coursecreatorxml" />'.
               '<input type="hidden" name="phase" value="batchtwo"><br /><br />'.                '<input type="hidden" name="phase" value="batchtwo" /><br /><br />'.
               '<input type="submit" name="batchsubmit" '.                '<input type="submit" name="batchsubmit" '.
               'value="Create Courses/Groups" /></form>');                'value="Create Courses/Groups" /></form>');
     $r->print($end_page);      $r->print($end_page);
Removed from v.1.111  
changed lines
  Added in v.1.122

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>