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

Diff for /loncom/interface/resetpw.pm between versions 1.17.10.1 and 1.18

version 1.17.10.1, 2009/09/23 20:17:53 version 1.18, 2009/09/30 21:47:07
Line 76  sub handler { Line 76  sub handler {
                 my %userinfo =                   my %userinfo = 
     &Apache::lonnet::get('environment',\@emailtypes,      &Apache::lonnet::get('environment',\@emailtypes,
  $udom,$uname);   $udom,$uname);
                 my $email = '';                  my @allemails;
                 my $emailtarget;  
                 foreach my $type (@emailtypes) {                  foreach my $type (@emailtypes) {
                     $email = $userinfo{$type};                      my $email = $userinfo{$type};
                     if ($email =~ /[^\@]+\@[^\@]+/) {                      my @items;
                         $emailtarget = $type;                       if ($email =~ /,/) {
                         last;                          @items = split(',',$userinfo{$type});
                       } else {
                           @items = ($email);
                       }
                       foreach my $item (@items) {
                           if ($item =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {
                               unless(grep(/^\Q$item\E$/,@allemails)) { 
                                   push(@allemails,$item);
                               }
                           }
                     }                      }
                 }                  }
                 if ($email =~ /^[^\@]+\@[^\@]+\.[^\@\.]+$/) {                  if (@allemails > 0) {
                     if ($useremail eq $email) {                      if (grep(/^\Q$useremail\E$/,@allemails)) {
                         $output = &send_token($uname,$udom,$email,$server,                          $output = &send_token($uname,$udom,$useremail,$server,
                                               $domdesc,$contact_name,                                                $domdesc,$contact_name,
                                               $contact_email);                                                $contact_email);
                     } else {                      } else {
Line 133  sub get_uname { Line 141  sub get_uname {
 <form name="forgotpw" method="post">  <form name="forgotpw" method="post">
 <table>  <table>
 <tr><td>  <tr><td>
 <tr><td align="left">GCI WebCenter $lt{'unam'}:                      </td>  <tr><td align="left">LON-CAPA $lt{'unam'}:                      </td>
     <td><input type="text" name="uname" size="15" /></td></tr>      <td><input type="text" name="uname" size="15" /></td></tr>
 <tr><td align="left">GCI WebCenter $lt{'udom'}:                      </td>  <tr><td align="left">LON-CAPA $lt{'udom'}:                      </td>
     <td>|;      <td>|;
     $msg .= &Apache::loncommon::select_dom_form($defdom,'udom');      $msg .= &Apache::loncommon::select_dom_form($defdom,'udom');
     $msg .= qq|</td></tr>      $msg .= qq|</td></tr>
Removed from v.1.17.10.1  
changed lines
  Added in v.1.18

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