[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /auth lonlogin.pm

[raeburn]

raeburn		Wed Aug 12 19:44:19 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/auth	lonlogin.pm 
  Log:
  - Backport 1.122
  
  
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.106.4.1 loncom/auth/lonlogin.pm:1.106.4.2
--- loncom/auth/lonlogin.pm:1.106.4.1	Mon May 18 12:59:47 2009
+++ loncom/auth/lonlogin.pm	Wed Aug 12 19:44:18 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.106.4.1 2009/05/18 12:59:47 raeburn Exp $
+# $Id: lonlogin.pm,v 1.106.4.2 2009/08/12 19:44:18 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -284,6 +284,7 @@
     my $js = (<<ENDSCRIPT);
 
  <script type="text/javascript">
+ // <![CDATA[
     function send()
     {
         this.document.server.elements.uname.value
@@ -327,6 +328,7 @@
         this.document.server.submit();
         return false;
     }
+ // ]]>
  </script>
 
 ENDSCRIPT
@@ -500,7 +502,7 @@
                  .'<h2>'.&mt('Text-based Interface Login').'</h2>'
                  .$announcements);
     }
-    $r->print('<form name="client" onsubmit="return(send())">');
+    $r->print('<form name="client" action="" onsubmit="return(send())">');
     unless ($fullgraph) {
         $r->print(<<ENDACCESSOPTIONS);
 <h3>$lt{'options_headline'}</h3>
@@ -659,8 +661,10 @@
  </table>
 
 <script type="text/javascript">
+// <![CDATA[
 // the if prevents the script error if the browser can not handle this
 if ( document.client.uname ) { document.client.uname.focus(); }
+// ]]>
 </script>
 $helpdeskscript
 
@@ -688,6 +692,7 @@
         my $thisurl = &escape('/adm/login');
         $$helpdeskscript = <<"ENDSCRIPT";
 <script type="text/javascript">
+// <![CDATA[
 function helpdesk() {
     var codedom = document.client.udom.value;
     if (codedom == '') {
@@ -697,6 +702,7 @@
     document.location.href = "/adm/helpdesk?"+querystr;
     return;
 }
+// ]]>
 </script>
 ENDSCRIPT
     }