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

Diff for /loncom/interface/loncreateuser.pm between versions 1.242 and 1.245

version 1.242, 2008/06/04 21:24:20 version 1.245, 2008/06/27 16:31:16
Line 3245  sub print_selfenroll_menu { Line 3245  sub print_selfenroll_menu {
                 }                  }
                 my $add_domtitle = &mt('Additional domain:');                  my $add_domtitle = &mt('Additional domain:');
                 if ($curr_types eq '*') {                   if ($curr_types eq '*') { 
                     $add_domtitle = &mt('Specific Domain:');                      $add_domtitle = &mt('Specific domain:');
                 } elsif ($curr_types eq '') {                  } elsif ($curr_types eq '') {
                     $add_domtitle = &mt('Other domain:');                      $add_domtitle = &mt('Other domain:');
                 }                  }
Line 3266  sub print_selfenroll_menu { Line 3266  sub print_selfenroll_menu {
                     $regoff = ' checked="checked" ';                      $regoff = ' checked="checked" ';
                 }                  }
                 $output .= '<label>'.                  $output .= '<label>'.
                            '<input type="radio" name="registered" value="0"'.$regoff.'/>'.                             '<input type="radio" name="selfenroll_registered" value="1"'.$regon.'/>'.
                            &mt('No').'</label>&nbsp;&nbsp;<label>'.                             &mt('Yes').'</label>&nbsp;&nbsp;<label>'.
                            '<input type="radio" name="registered" value="1"'.$regon.'/>'.                             '<input type="radio" name="selfenroll_registered" value="0"'.$regoff.'/>'.
                            &mt('Yes').'</label>';                             &mt('No').'</label>';
             } elsif ($item eq 'enroll_dates') {              } elsif ($item eq 'enroll_dates') {
                 my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'};                  my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'};
                 my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_date'};                  my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_date'};
Line 3396  sub selfenroll_inst_types { Line 3396  sub selfenroll_inst_types {
 sub selfenroll_date_forms {  sub selfenroll_date_forms {
     my ($startform,$endform) = @_;      my ($startform,$endform) = @_;
     my $output .= &Apache::lonhtmlcommon::start_pick_box()."\n".      my $output .= &Apache::lonhtmlcommon::start_pick_box()."\n".
                   &Apache::lonhtmlcommon::row_title(&mt('Starts'),                    &Apache::lonhtmlcommon::row_title(&mt('Start date'),
                                                     'LC_oddrow_value')."\n".                                                      'LC_oddrow_value')."\n".
                   $startform."\n".                    $startform."\n".
                   &Apache::lonhtmlcommon::row_closure(1).                    &Apache::lonhtmlcommon::row_closure(1).
                   &Apache::lonhtmlcommon::row_title(&mt('Ends'),                    &Apache::lonhtmlcommon::row_title(&mt('End date'),
                                                    'LC_oddrow_value')."\n".                                                     'LC_oddrow_value')."\n".
                   $endform."\n".                    $endform."\n".
                   &Apache::lonhtmlcommon::row_closure(1).                    &Apache::lonhtmlcommon::row_closure(1).
Line 3669  sub user_search_result { Line 3669  sub user_search_result {
     if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') ||      if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') ||
         ($srch->{'srchin'} eq 'alc')) {          ($srch->{'srchin'} eq 'alc')) {
         if ($srch->{'srchby'} eq 'uname') {          if ($srch->{'srchby'} eq 'uname') {
             if ($srch->{'srchterm'} !~ /^$match_username$/) {              my $unamecheck = $srch->{'srchterm'};
               if ($srch->{'srchtype'} eq 'contains') {
                   if ($unamecheck !~ /^\w/) {
                       $unamecheck = 'a'.$unamecheck; 
                   }
               }
               if ($unamecheck !~ /^$match_username$/) {
                 $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');                  $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
             }              }
         }          }
Line 4381  sub update_selfenroll_config { Line 4387  sub update_selfenroll_config {
                         foreach my $type ('start','end') {                          foreach my $type ('start','end') {
                             if (exists($changes{'internal.selfenroll_'.$type.'_date'})) {                              if (exists($changes{'internal.selfenroll_'.$type.'_date'})) {
                                 my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_date'});                                  my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_date'});
                                 $r->print('<li>'.&mt('[_1]: [_2] set to "[_3]".',                                  $r->print('<li>'.&mt('[_1]: "[_2]" set to "[_3]".',
                                           $title,$type,$newdate).'</li>');                                            $title,$type,$newdate).'</li>');
                             }                              }
                         }                          }
Line 4389  sub update_selfenroll_config { Line 4395  sub update_selfenroll_config {
                         foreach my $type ('start','end') {                          foreach my $type ('start','end') {
                             if (exists($changes{'internal.selfenroll_'.$type.'_access'})) {                              if (exists($changes{'internal.selfenroll_'.$type.'_access'})) {
                                 my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_access'});                                  my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_access'});
                                 $r->print('<li>'.&mt('[_1]: [_2] set to "[_3]".',                                  $r->print('<li>'.&mt('[_1]: "[_2]" set to "[_3]".',
                                           $title,$type,$newdate).'</li>');                                            $title,$type,$newdate).'</li>');
                             }                              }
                         }                          }
Line 4402  sub update_selfenroll_config { Line 4408  sub update_selfenroll_config {
                                 } elsif ($newval eq '*') {                                  } elsif ($newval eq '*') {
                                     $newval = &mt('Any user in any domain');                                      $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('<li>'.&mt('[_1] set to "[_2]".',$title,$newval).'</li>'."\n");                              $r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval).'</li>'."\n");
                         }                          }
                     }                      }
                 }                  }
Line 4432  sub get_selfenroll_titles { Line 4444  sub get_selfenroll_titles {
     my @row = ('types','registered','enroll_dates','access_dates','section');      my @row = ('types','registered','enroll_dates','access_dates','section');
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                 types        => 'Users allowed to self-enroll in this course',                  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',                  enroll_dates => 'Dates self-enrollment available',
                 access_dates => 'Access dates for self-enrolled users',                  access_dates => 'Course access dates for self-enrolled users',
                 section      => 'Section assigned to self-enrolled users',                  section      => 'Section assigned to self-enrolled users',
              );               );
     return (\@row,\%lt);      return (\@row,\%lt);
Removed from v.1.242  
changed lines
  Added in v.1.245

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