--- loncom/auth/lonlogin.pm 2010/08/25 16:34:32 1.140 +++ loncom/auth/lonlogin.pm 2010/08/26 14:16:23 1.144 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.140 2010/08/25 16:34:32 raeburn Exp $ +# $Id: lonlogin.pm,v 1.144 2010/08/26 14:16:23 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,6 +69,7 @@ sub handler { return OK; } + $env{'form.firsturl'} =~ s/(`)/'/g; # -------------------------------- Prevent users from attempting to login twice my $handle = &Apache::lonnet::check_for_valid_session($r); @@ -154,6 +155,7 @@ sub handler { my $firsturl= ($env{'request.firsturl'}?$env{'request.firsturl'}:$env{'form.firsturl'}); + # ----------------------------------------------------------- Get announcements my $announcements=&Apache::lonnet::getannounce(); # -------------------------------------------------------- Set login parameters @@ -261,7 +263,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 $domainlogo=&Apache::loncommon::domainlogo($domain); my $showbanner = 1; my $showmainlogo = 1; if (defined(&Apache::loncommon::designparm('login.showlogo_img',$domain))) { @@ -307,9 +309,9 @@ 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"); + this.document.client.elements.upass$now.removeAttribute("readOnly"); + this.document.client.elements.uname.removeAttribute("readOnly"); + this.document.client.elements.udom.removeAttribute("readOnly"); return; } @@ -456,12 +458,12 @@ ENDTOP } $r->print(<
ENDTOP $r->print(<
@@ -501,6 +503,11 @@ $r->print(<
+ +
+ $domainlogo +
+