[LON-CAPA-cvs] cvs: loncom /interface resetpw.pm
raeburn
raeburn@source.lon-capa.org
Thu, 01 Oct 2009 17:22:13 -0000
raeburn Thu Oct 1 17:22:13 2009 EDT
Modified files:
/loncom/interface resetpw.pm
Log:
- Better choice of default domain for multi-domain servers.
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.18 loncom/interface/resetpw.pm:1.19
--- loncom/interface/resetpw.pm:1.18 Wed Sep 30 21:47:07 2009
+++ loncom/interface/resetpw.pm Thu Oct 1 17:22:13 2009
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Allow access to password changing via a token sent to user's e-mail.
#
-# $Id: resetpw.pm,v 1.18 2009/09/30 21:47:07 raeburn Exp $
+# $Id: resetpw.pm,v 1.19 2009/10/01 17:22:13 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -46,7 +46,7 @@
my $contact_name = &mt('LON-CAPA helpdesk');
my $contact_email = $r->dir_config('lonSupportEMail');
my $server = $r->dir_config('lonHostID');
- my $defdom = $r->dir_config('lonDefDomain');
+ my $defdom = &Apache::lonnet::default_login_domain();
&Apache::lonacc::get_posted_cgi($r);
&Apache::lonlocal::get_language_handle($r);
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['token']);