loncom/interface/resetpw.pm - diff

Return to resetpw.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2008/10/04 00:09:18	version 1.11, 2008/11/28 18:28:52
Line 58 sub handler {	Line 58 sub handler {
{	{
'no_inline_link' => 1,});	'no_inline_link' => 1,});
$r->print($start_page);	$r->print($start_page);
$r->print(&mt('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>'));	$r->print('<h3>'.&mt('Reset forgotten LON-CAPA password').'</h3>');
my $output;	my $output;
if ($token) {	if ($token) {
$output = &reset_passwd($r,$token,$contact_name,$contact_email);	$output = &reset_passwd($r,$token,$contact_name,$contact_email);
Line 150 sub get_uname {	Line 150 sub get_uname {
sub send_token {	sub send_token {
my ($uname,$udom,$email,$server,$domdesc,$contact_name,	my ($uname,$udom,$email,$server,$domdesc,$contact_name,
$contact_email) = @_;	$contact_email) = @_;
my $msg = &mt('Thank you for your request to reset the password for your	my $msg = &mt('Thank you for your request to reset the password for your LON-CAPA account.').'<br /><br />';
LON-CAPA account.').'<br /><br />';

my $now = time;	my $now = time;
my $temppasswd = &create_passwd();	my $temppasswd = &create_passwd();