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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.127 and 1.130

version 1.127, 2009/09/28 19:21:38 version 1.130, 2009/10/29 16:18:02
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 982  sub print_creation_logs { Line 986  sub print_creation_logs {
                    '<th>'.&mt('Course Owner(s)').'</th>';                     '<th>'.&mt('Course 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>';
     }       }
     $tablehdr .= '<th>'.&mt('Course Type').'</th>'.      if ($curr{'type'} eq 'any') { 
                  '<th>'.&mt('Creation Context').'</th>'.          $tablehdr .= '<th>'.&mt('Course Type').'</th>';
                  &Apache::loncommon::end_data_table_header_row();      }
       if ($curr{'context'} eq 'any') {
           $tablehdr .= '<th>'.&mt('Creation Context').'</th>';
       }
       $tablehdr .= &Apache::loncommon::end_data_table_header_row();
     my ($minshown,$maxshown);      my ($minshown,$maxshown);
     $minshown = 1;      $minshown = 1;
     my $count = 0;      my $count = 0;
Line 1106  sub print_creation_logs { Line 1114  sub print_creation_logs {
         if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'any')) {          if (($curr{'type'} eq 'official') || ($curr{'type'} eq 'any')) {
             $r->print('<td>'.$courses{$cid}{'inst_code'}.'</td>');              $r->print('<td>'.$courses{$cid}{'inst_code'}.'</td>');
         }          }
         $r->print('<td>'.$showtype.'</td><td>'.$showcontext.'</td><td>'.&Apache::loncommon::end_data_table_row()."\n");          if ($curr{'type'} eq 'any') {
               $r->print('<td>'.$showtype.'</td>');
           }
           if ($curr{'context'} eq 'any') {
               $r->print('<td>'.$showcontext.'</td>');
           }
           $r->print('<td>'.&Apache::loncommon::end_data_table_row()."\n");
     }      }
     if ($showntablehdr) {      if ($showntablehdr) {
         $r->print(&Apache::loncommon::end_data_table().'<br />');          $r->print(&Apache::loncommon::end_data_table().'<br />');
Line 1241  sub course_types { Line 1255  sub course_types {
 }  }
   
 sub context_names {  sub context_names {
     my @contexts = qw(auto web dc_create requestcrs);      my @contexts = qw(auto web dc_create requestcourses);
     my %contextnames =       my %contextnames = 
         &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      => 'Single course created by Domain Coordinator', 
                             requestcrs => 'Processing of submitted course request',                          requestcourses => 'Processing of submitted course request',
         );          );
     return (\@contexts,\%contextnames);      return (\@contexts,\%contextnames);
 }  }
Removed from v.1.127  
changed lines
  Added in v.1.130

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