[LON-CAPA-cvs] cvs: loncom /auth lonauth.pm lonlogin.pm

[www]

www		Tue Feb 18 16:11:17 2003 EDT

  Modified files:              
    /loncom/auth	lonauth.pm lonlogin.pm 
  Log:
  Switch off applets (if it was up to me, this would be default)
  
  
Index: loncom/auth/lonauth.pm
diff -u loncom/auth/lonauth.pm:1.38 loncom/auth/lonauth.pm:1.39
--- loncom/auth/lonauth.pm:1.38	Tue Feb 18 14:12:38 2003
+++ loncom/auth/lonauth.pm	Tue Feb 18 16:11:17 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # User Authentication Module
 #
-# $Id: lonauth.pm,v 1.38 2003/02/18 19:12:38 www Exp $
+# $Id: lonauth.pm,v 1.39 2003/02/18 21:11:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -151,7 +151,8 @@
                 $ENV{'browser.interface'}=$FORM{'interface'};
             }
             foreach 
-              ('imagesuppress','embedsuppress','fontenhance','blackwhite') {
+              ('imagesuppress','appletsuppress',
+               'embedsuppress','fontenhance','blackwhite') {
                 if (($FORM{$_} eq 'on') ||
                     ($userenv{$_} eq 'on')) {
                    print $idf "browser.$_=on\n";
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.33 loncom/auth/lonlogin.pm:1.34
--- loncom/auth/lonlogin.pm:1.33	Tue Feb 18 11:29:15 2003
+++ loncom/auth/lonlogin.pm	Tue Feb 18 16:11:17 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.33 2003/02/18 16:29:15 www Exp $
+# $Id: lonlogin.pm,v 1.34 2003/02/18 21:11:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -202,6 +202,9 @@
         this.document.server.elements.embedsuppress.value
        =this.document.client.elements.embedsuppress.value;
 
+        this.document.server.elements.appletsuppress.value
+       =this.document.client.elements.appletsuppress.value;
+
         this.document.server.elements.fontenhance.value
        =this.document.client.elements.fontenhance.value;
 
@@ -235,6 +238,7 @@
    <input type="hidden" name="upass" value="" />
    <input type="hidden" name="udom" value="" />
    <input type="hidden" name="imagesuppress"  value="" />
+   <input type="hidden" name="appletsuppress"  value="" />
    <input type="hidden" name="embedsuppress"  value="" />
    <input type="hidden" name="fontenhance"  value="" />
    <input type="hidden" name="blackwhite"  value="" />
@@ -305,6 +309,7 @@
 <tr>
 <td bgcolor="#FFFFFF">
 <input type="checkbox" name="imagesuppress" /> Suppress rendering of images<br />
+<input type="checkbox" name="appletsuppress" /> Suppress Java applets<br />
 <input type="checkbox" name="embedsuppress" /> Suppress rendering of embedded multimedia<br />
 <input type="checkbox" name="fontenhance" /> Increase font size<br />
 <input type="checkbox" name="blackwhite" /> Switch to black and white mode<br /></td></tr></table>
@@ -313,6 +318,7 @@
     $r->print(<<ENDNOOPT);
 <input type="hidden" name="imagesuppress"  value="" />
 <input type="hidden" name="embedsuppress"  value="" />
+<input type="hidden" name="appletsuppress"  value="" />
 <input type="hidden" name="fontenhance"  value="" />
 <input type="hidden" name="blackwhite"  value="" />
 ENDNOOPT