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

Diff for /loncom/interface/loncreateuser.pm between versions 1.174 and 1.176

version 1.174, 2007/08/16 21:36:13 version 1.176, 2007/08/25 17:46:24
Line 1472  sub update_user_data { Line 1472  sub update_user_data {
     <th>$lt{'lst'}</th>      <th>$lt{'lst'}</th>
     <th>$lt{'gen'}</th>      <th>$lt{'gen'}</th>
     <th>$lt{'mail'}</th>      <th>$lt{'mail'}</th>
     <th>$lt{'disk'}<th></tr>      <th>$lt{'disk'}</th></tr>
 <tr><td>$lt{'prvs'}</td>  <tr><td>$lt{'prvs'}</td>
     <td>$userenv{'firstname'}  </td>      <td>$userenv{'firstname'}  </td>
     <td>$userenv{'middlename'} </td>      <td>$userenv{'middlename'} </td>
Line 2194  sub user_search_result { Line 2194  sub user_search_result {
     my %inst_matches;      my %inst_matches;
     my %srch_results;      my %srch_results;
     my ($response,$state,$forcenewuser);      my ($response,$state,$forcenewuser);
       $srch->{'srchterm'} =~ s/^\s+//;
       $srch->{'srchterm'} =~ s/\s+$//;
   
     if ($srch->{'srchby'} !~ /^(uname|lastname|lastfirst)$/) {       if ($srch->{'srchby'} !~ /^(uname|lastname|lastfirst)$/) {
         $response = &mt('Invalid search.');          $response = &mt('Invalid search.');
     }      }
     if ($srch->{'srchin'} !~ /^(crs|dom|alc|instd)$/) {      if ($srch->{'srchin'} !~ /^(crs|dom|alc|instd)$/) {
Line 2215  sub user_search_result { Line 2217  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->{'srchterm'} !~ /^$match_username$/) {          if ($srch->{'srchby'} eq 'uname') {
             $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');              if ($srch->{'srchterm'} !~ /^$match_username$/) {
                   $response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @');
               }
         }          }
     }      }
     if ($srch->{'srchin'} eq 'instd') {      if ($srch->{'srchin'} eq 'instd') {
Removed from v.1.174  
changed lines
  Added in v.1.176

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