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

Diff for /loncom/interface/resetpw.pm between versions 1.23.2.2 and 1.27

version 1.23.2.2, 2010/12/24 21:21:51 version 1.27, 2012/02/16 22:18:07
Line 66  sub handler { Line 66  sub handler {
         return OK;          return OK;
     }      }
     my $contact_name = &mt('LON-CAPA helpdesk');      my $contact_name = &mt('LON-CAPA helpdesk');
     my $contact_email =  $r->dir_config('lonSupportEMail');      my $origmail =  $r->dir_config('lonSupportEMail');
     my $server = $r->dir_config('lonHostID');      my $server = $r->dir_config('lonHostID');
     my $defdom = &Apache::lonnet::default_login_domain();      my $defdom = &Apache::lonnet::default_login_domain();
       my $contacts =
           &Apache::loncommon::build_recipient_list(undef,'helpdeskmail',
                                                    $defdom,$origmail);
       my ($contact_email) = split(',',$contacts);
     my $handle = &Apache::lonnet::check_for_valid_session($r);      my $handle = &Apache::lonnet::check_for_valid_session($r);
     my $lonidsdir=$r->dir_config('lonIDsDir');      my $lonidsdir=$r->dir_config('lonIDsDir');
     if ($handle ne '') {      if ($handle ne '') {
Line 93  sub handler { Line 97  sub handler {
             {href => '/adm/resetpw',              {href => '/adm/resetpw',
              text => 'Update Password'});               text => 'Update Password'});
   
         $bread_crumbs_component = 'Reset Password';          $bread_crumbs_component = 'Reset Password'; 
     } else {      } else {
         push (@{$brcrum},          push (@{$brcrum},
             {href => '/adm/resetpw',              {href => '/adm/resetpw',
Line 104  sub handler { Line 108  sub handler {
                  text => 'Result'});                   text => 'Result'});
         }          }
     }      }
     my $args = {bread_crumbs           => $brcrum,      my $args = {bread_crumbs => $brcrum,
                 bread_crumbs_component => $bread_crumbs_component,                  bread_crumbs_component => $bread_crumbs_component};
                'no_inline_link'        => 1};  
     $r->print(&Apache::loncommon::start_page('Reset password','',$args));      $r->print(&Apache::loncommon::start_page('Reset password','',$args));
     $r->print('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>');      $r->print('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>');
     my $output;      my $output;
Line 186  sub get_uname { Line 189  sub get_uname {
            .'<li>'.&mt('Your LON-CAPA account must be of a type for which LON-CAPA can reset a password.')             .'<li>'.&mt('Your LON-CAPA account must be of a type for which LON-CAPA can reset a password.')
            .'</ul>';             .'</ul>';
     $msg .= '<form name="forgotpw" method="post" action="/adm/resetpw">'.      $msg .= '<form name="forgotpw" method="post" action="/adm/resetpw">'.
             &Apache::lonhtmlcommon::start_pick_box().              &Apache::lonhtmlcommon::start_pick_box(). 
             &Apache::lonhtmlcommon::row_title('LON-CAPA '.$lt{'unam'}).              &Apache::lonhtmlcommon::row_title('LON-CAPA '.$lt{'unam'}).
             '<input type="text" name="uname" size="20" />'.              '<input type="text" name="uname" size="20" />'.
             &Apache::lonhtmlcommon::row_closure(1).              &Apache::lonhtmlcommon::row_closure(1).
Removed from v.1.23.2.2  
changed lines
  Added in v.1.27

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