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

Diff for /loncom/interface/loncreatecourse.pm between versions 1.103 and 1.104

version 1.103, 2007/07/02 03:36:28 version 1.104, 2007/08/23 21:54:40
Line 669  sub create_course { Line 669  sub create_course {
         return;          return;
     }      }
     my ($courseid,$crsudom,$crsunum);      my ($courseid,$crsudom,$crsunum);
     $r->print(&Apache::loncommon::construct_course($args,\$logmsg,\$courseid,\$crsudom,\$crsunum,$env{'user.domain'},$env{'user.name'}));      my ($success,$output) = 
    &Apache::loncommon::construct_course($args,\$logmsg,\$courseid,
 #       \$crsudom,\$crsunum,
 # Make the requested user a course coordinator or group coordinator       $env{'user.domain'},
 #       $env{'user.name'});
     if (($ccdomain) && ($ccuname)) {      $r->print($output);
         $r->print(&mt('Assigning role of [_1] Coordinator to [_2] at [_3]: ',      if ($success) {
                      $crstype,$ccuname,$ccdomain).          #
                   &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,   # Make the requested user a course coordinator or group coordinator
                                               'cc').'<p>');          #
    if (($ccdomain) && ($ccuname)) {
       $r->print(&mt('Assigning role of [_1] Coordinator to [_2] at [_3]: ',
     $crstype,$ccuname,$ccdomain).
         &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,
     'cc').'<p>');
    }
    if ($env{'form.setkeys'}) {
       $r->print(
         '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');
    }
           # Flush the course logs so reverse user roles immediately updated
    &Apache::lonnet::flushcourselogs();
    $r->print('<p>'.&mt('Roles will be active at next login').'.</p>');
     }      }
     if ($env{'form.setkeys'}) {      $r->print('<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.
         $r->print(  
  '<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>');  
     }  
 # Flush the course logs so reverse user roles immediately updated  
     &Apache::lonnet::flushcourselogs();  
     $r->print('<p>'.&mt('Roles will be active at next login').'.</p>'.  
       '<p><a href="/adm/createcourse?phase='.lc($crstype).'one">'.  
       &mt('Create Another [_1]',$crstype).'</a></p>'.        &mt('Create Another [_1]',$crstype).'</a></p>'.
       &Apache::loncommon::end_page());        &Apache::loncommon::end_page());
 }  }
Removed from v.1.103  
changed lines
  Added in v.1.104

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