--- loncom/interface/loncreatecourse.pm 2001/02/17 22:25:19 1.2 +++ loncom/interface/loncreatecourse.pm 2001/02/17 23:15:35 1.3 @@ -25,6 +25,7 @@ use Apache::lonnet; sub phase_one { my $r=shift; + my $defdom=$ENV{'user.domain'}; $r->print(< @@ -35,12 +36,12 @@ sub phase_one {

Create a new Course

Course Title

- +

Top-level Map

- +

Course Cooordinator

Username:
-Domain: +Domain:

@@ -73,7 +74,7 @@ ENDENHEAD # Verify data # if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') { - $r->print('No such user '.$ccuname.' at '.$ccdomain); + $r->print('No such user '.$ccuname.' at '.$ccdomain.''); return; } @@ -95,8 +96,8 @@ ENDENHEAD # $r->print('Assigning role of course coordinator to '. $ccuname.' at '.$ccdomain.': '. - &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'
'); - $r->print(''); + &Apache::lonnet::assignrole($ccdomain,$ccuname,$courseid,'cc').'

'); + $r->print('Roles will be active at next login.'); } # ===================================================================== Handler