--- loncom/auth/lonlogin.pm 2010/05/06 16:15:59 1.137
+++ loncom/auth/lonlogin.pm 2010/08/25 17:47:21 1.141
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.137 2010/05/06 16:15:59 bisitz Exp $
+# $Id: lonlogin.pm,v 1.141 2010/08/25 17:47:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -152,15 +152,8 @@ sub handler {
my $loadpercent=sprintf("%.1f",100*$loadavg/$loadlim);
my $userloadpercent=&Apache::lonnet::userload();
-# ------------------------------------------------------- Do the load balancing
- my $otherserver= &Apache::lonnet::absolute_url($host_name);
my $firsturl=
($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'});
-# ---------------------------------------------------------- Are we overloaded?
- if ((($userloadpercent>100.0)||($loadpercent>100.0))) {
- my $unloaded=Apache::lonnet::spareserver($loadpercent,$userloadpercent);
- if ($unloaded) { $otherserver=$unloaded; }
- }
# ----------------------------------------------------------- Get announcements
my $announcements=&Apache::lonnet::getannounce();
@@ -269,11 +262,7 @@ my $loginbox_header_bgcol=&Apache::lonco
my $loginbox_header_textcol=&Apache::loncommon::designparm('login.textcol',$domain);
my $logo=&Apache::loncommon::designparm('login.logo',$domain);
my $img=&Apache::loncommon::designparm('login.img',$domain);
-my $domainlogo='
'.&Apache::loncommon::domainlogo($domain).'
';
-my $login=&Apache::loncommon::designparm('login.login',$domain);
-if ($login eq '') {
-$login = $iconpath.'/'.&mt('userauthentication.gif');
-}
+my $domainlogo=&Apache::loncommon::domainlogo($domain);
my $showbanner = 1;
my $showmainlogo = 1;
if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) {
@@ -285,7 +274,6 @@ if (defined(&Apache::loncommon::designpa
my $showadminmail=&Apache::loncommon::designparm('login.adminmail',$domain);
my $showcoursecat =
&Apache::loncommon::designparm('login.coursecatalog',$domain);
-my $loginheader =&Apache::loncommon::designparm('login.loginheader',$domain);
my $shownewuserlink =
&Apache::loncommon::designparm('login.newuser',$domain);
my $now=time;
@@ -318,6 +306,14 @@ this.document.client.elements.upass$now.
this.document.server.submit();
return false;
}
+
+function enableInput() {
+ this.document.client.elements.upass$now.removeAttribute("readonly");
+ this.document.client.elements.uname.removeAttribute("readonly");
+ this.document.client.elements.udom.removeAttribute("readonly");
+ return;
+}
+
// ]]>
@@ -330,7 +326,8 @@ my %add_entries = (
text => "$font",
link => "$link",
vlink => "$vlink",
- alink => "$alink",);
+ alink => "$alink",
+ onload => 'javascript:enableInput();',);
$r->print(&Apache::loncommon::start_page('The LearningOnline Network with CAPA Login',$js,
{ 'redirect' => [$expire,'/adm/roles'],
@@ -380,7 +377,7 @@ $r->print(
#
$r->print(<
+
LFORM
@@ -465,12 +457,12 @@ ENDTOP
}
$r->print(<
ENDTOP
$r->print(<
@@ -510,6 +502,11 @@ $r->print(<
|
+
+
+ $domainlogo
+
+