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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.128 and 1.132

version 1.128, 2009/10/02 18:31:36 version 1.132, 2009/10/31 18:23:30
Line 172  function validate(formname) { Line 172  function validate(formname) {
                     'stco' => "standard courses only",                      'stco' => "standard courses only",
                     'blnk' => "Blank",                      'blnk' => "Blank",
                     'sllb' => "Syllabus",                      'sllb' => "Syllabus",
                     'navi' => "Navigate Contents",                      'navi' => "Course Contents",
                     'cid'  => "Course ID",                      'cid'  => "Course ID",
                     'dmn'  => "Domain",                      'dmn'  => "Domain",
                     'dsh'  => "Date Shift",                      'dsh'  => "Date Shift",
Line 787  sub create_course { Line 787  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)) {
               my $ccrole = 'cc';
               if ($crstype eq 'Community') {
                   $ccrole = 'co';
               }    
     $r->print(&mt('Assigning role of '.$crstype.' Coordinator to [_1]:',      $r->print(&mt('Assigning role of '.$crstype.' Coordinator to [_1]:',
  ,'<i>'.$ccuname.':'.$ccdomain.'</i>')   ,'<i>'.$ccuname.':'.$ccdomain.'</i>')
       .&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,        .&Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,
   'cc','','','','','createcourse').'<p>');    $ccrole,'','','','','createcourse').'<p>');
  }   }
  if ($env{'form.setkeys'}) {   if ($env{'form.setkeys'}) {
     $r->print(      $r->print(
Line 979  sub print_creation_logs { Line 983  sub print_creation_logs {
                    &Apache::loncommon::start_data_table_header_row().                     &Apache::loncommon::start_data_table_header_row().
                    '<th>&nbsp;</th><th>'.&mt('Creation Date').'</th>'.                     '<th>&nbsp;</th><th>'.&mt('Creation Date').'</th>'.
                    '<th>'.&mt('Creator').'</th><th>'.&mt('Description').'</th>'.                     '<th>'.&mt('Creator').'</th><th>'.&mt('Description').'</th>'.
                    '<th>'.&mt('Course Owner(s)').'</th>';                     '<th>'.&mt('Owner(s)').'</th>';
     if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'any')) {      if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'any')) {
        $tablehdr .= '<th>'.&mt('Institutional Code').'</th>';         $tablehdr .= '<th>'.&mt('Institutional Code').'</th>';
     }      }
     if ($curr{'type'} eq 'any') {       if ($curr{'type'} eq 'any') { 
         $tablehdr .= '<th>'.&mt('Course Type').'</th>';          $tablehdr .= '<th>'.&mt('Course Type').'</th>';
     }      }
     if ($curr{'context'} eq 'any')      if ($curr{'context'} eq 'any') {
         $tablehdr .= '<th>'.&mt('Creation Context').'</th>';          $tablehdr .= '<th>'.&mt('Creation Context').'</th>';
     }      }
     $tablehdr .= &Apache::loncommon::end_data_table_header_row();      $tablehdr .= &Apache::loncommon::end_data_table_header_row();
Line 1232  sub creation_display_filter { Line 1236  sub creation_display_filter {
   
     # Server version info      # Server version info
     $output .= '<p class="LC_info">'.      $output .= '<p class="LC_info">'.
                &mt('Only courses created from servers running LON-CAPA [_1] or later are displayed.','2.9.0');                 &mt('Only courses and communities created from servers running LON-CAPA [_1] or later are displayed.','2.9.0');
     if ($version) {      if ($version) {
         $output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);          $output .= ' '.&mt('This LON-CAPA server is version [_1]',$version);
     }      }
Line 1256  sub context_names { Line 1260  sub context_names {
         &Apache::lonlocal::texthash (          &Apache::lonlocal::texthash (
                         auto           => 'Automated creation from batch file',                          auto           => 'Automated creation from batch file',
                         web            => 'Batch creation from uploaded file',                          web            => 'Batch creation from uploaded file',
                         dc_create      => 'Single course created by Domain Coordinator',                           dc_create      => 'Course or community created by Dom. Coord.', 
                         requestcourses => 'Processing of submitted course request',                          requestcourses => 'Processing of submitted course request',
         );          );
     return (\@contexts,\%contextnames);      return (\@contexts,\%contextnames);
Line 1396  sub handler { Line 1400  sub handler {
                     &syllabuslink_javascript()."\n".                      &syllabuslink_javascript()."\n".
                     '// ]]>'."\n".                      '// ]]>'."\n".
                     '</script>';                      '</script>';
            my $start_page=&Apache::loncommon::start_page('Course Creation Logs',$js);             my $start_page=&Apache::loncommon::start_page('Course/Community Creation Logs',$js);
            my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Created Courses','Creation_Log',undef,'Creation_Log');             my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Created Courses/Communities','Creation_Log',undef,'Creation_Log');
            $r->print($start_page.$crumbs."\n".'<div>');             $r->print($start_page.$crumbs."\n".'<div>');
            &print_creation_logs($r);             &print_creation_logs($r);
            $r->print('</div>'.&Apache::loncommon::end_page());             $r->print('</div>'.&Apache::loncommon::end_page());
Removed from v.1.128  
changed lines
  Added in v.1.132

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