--- loncom/interface/loncreateuser.pm 2008/06/23 14:13:50 1.244 +++ loncom/interface/loncreateuser.pm 2008/06/27 16:31:16 1.245 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.244 2008/06/23 14:13:50 bisitz Exp $ +# $Id: loncreateuser.pm,v 1.245 2008/06/27 16:31:16 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3266,9 +3266,9 @@ sub print_selfenroll_menu { $regoff = ' checked="checked" '; } $output .= '  '; } elsif ($item eq 'enroll_dates') { my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'}; @@ -4408,6 +4408,12 @@ sub update_selfenroll_config { } elsif ($newval eq '*') { $newval = &mt('Any user in any domain'); } + } elsif ($item eq 'registered') { + if ($newval eq '1') { + $newval = &mt('Yes'); + } elsif ($newval eq '0') { + $newval = &mt('No'); + } } $r->print('
  • '.&mt('"[_1]" set to "[_2]".',$title,$newval).'
  • '."\n"); } @@ -4438,7 +4444,7 @@ sub get_selfenroll_titles { my @row = ('types','registered','enroll_dates','access_dates','section'); my %lt = &Apache::lonlocal::texthash ( types => 'Users allowed to self-enroll in this course', - registered => 'Restrict self-enrollment to registered students', + registered => 'Restrict self-enrollment to students officially registered for the course', enroll_dates => 'Dates self-enrollment available', access_dates => 'Course access dates for self-enrolled users', section => 'Section assigned to self-enrolled users',