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

Diff for /loncom/interface/loncreateuser.pm between versions 1.160 and 1.161

version 1.160, 2007/07/28 21:38:29 version 1.161, 2007/07/29 04:32:44
Line 762  ENDFORMINFO Line 762  ENDFORMINFO
         }          }
     }      }
     if ($uhome eq 'no_host') {      if ($uhome eq 'no_host') {
         my $instsrch = {           my $newuser;
           my $instsrch = {
                          srchin => 'instd',                           srchin => 'instd',
                          srchterm => $env{'form.seluname'},  
                          srchdomain => $env{'form.seludom'},  
                          srchby => 'uname',                           srchby => 'uname',
                          srchtype => 'exact',                           srchtype => 'exact',
                        };                         };
         my %inst_results;          if ((exists($env{'form.seluname'})) && (exists($env{'form.seludom'}))) {
         if (directorysrch_check($instsrch) eq 'ok') {              $instsrch->{'srchterm'} = $env{'form.seluname'};
             %inst_results = &Apache::lonnet::inst_directory_query($instsrch);              $instsrch->{'srchdomain'} = $env{'form.seludom'};
           } else {
               $instsrch->{'srchterm'} = $env{'form.srchterm'};
               $instsrch->{'srchdomain'} = $env{'form.srchdomain'},
           }
           if (($instsrch->{'srchterm'} ne '') && ($instsrch->{'srchdomain'} ne '')) {
               $newuser = $instsrch->{'srchterm'}.':'.$instsrch->{'srchdomain'};
           }
           my (%dirsrch_results,%inst_results);
           if ($newuser) {
               if (&directorysrch_check($instsrch) eq 'ok') {
                   %dirsrch_results = &Apache::lonnet::inst_directory_query($instsrch);
                   if (ref($dirsrch_results{$newuser}) eq 'HASH') { 
                       %inst_results = %{$dirsrch_results{$newuser}};
                   } 
               }
         }          }
         my $home_server_list=          my $home_server_list=
             '<option value="default" selected>default</option>'."\n".              '<option value="default" selected>default</option>'."\n".
Removed from v.1.160  
changed lines
  Added in v.1.161

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