loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2013/02/05 15:45:18	version 1.32, 2013/03/25 16:33:08
Line 177 sub handler {	Line 177 sub handler {
sub get_uname {	sub get_uname {
my ($defdom) = @_;	my ($defdom) = @_;
my %lt = &Apache::lonlocal::texthash(	my %lt = &Apache::lonlocal::texthash(
unam => 'username',	unam => 'LON-CAPA username',
udom => 'domain',	udom => 'LON-CAPA domain',
uemail => 'E-mail address in LON-CAPA',	uemail => 'E-mail address in LON-CAPA',
proc => 'Proceed');	proc => 'Proceed');

Line 190 sub get_uname {	Line 190 sub get_uname {
.'</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($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).
&Apache::lonhtmlcommon::row_title('LON-CAPA '.$lt{'udom'}).	&Apache::lonhtmlcommon::row_title($lt{'udom'}).
&Apache::loncommon::select_dom_form($defdom,'udom').	&Apache::loncommon::select_dom_form($defdom,'udom').
&Apache::lonhtmlcommon::row_closure(1).	&Apache::lonhtmlcommon::row_closure(1).
&Apache::lonhtmlcommon::row_title($lt{'uemail'}).	&Apache::lonhtmlcommon::row_title($lt{'uemail'}).