--- loncom/interface/lonpreferences.pm 2004/12/22 11:58:32 1.51 +++ loncom/interface/lonpreferences.pm 2005/02/17 08:29:43 1.53 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.51 2004/12/22 11:58:32 foxr Exp $ +# $Id: lonpreferences.pm,v 1.53 2005/02/17 08:29:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -567,7 +567,8 @@ sub passwordchanger { $lkey_npass2= hex($lkey_npass2); # Output javascript to deal with passwords # Output DES javascript - $r->print(""); + my $html=&Apache::lonxml::xmlbegin(); + $r->print($html.""); { my $include = $r->dir_config('lonIncludes'); my $jsh=Apache::File->new($include."/londes.js"); @@ -581,22 +582,22 @@ sub passwordchanger { lextkey=this.document.client.elements.lkey_cpass.value; initkeys(); - this.document.server.elements.currentpass.value + this.document.pserver.elements.currentpass.value =crypted(this.document.client.elements.currentpass.value); uextkey=this.document.client.elements.ukey_npass1.value; lextkey=this.document.client.elements.lkey_npass1.value; initkeys(); - this.document.server.elements.newpass_1.value + this.document.pserver.elements.newpass_1.value =crypted(this.document.client.elements.newpass_1.value); uextkey=this.document.client.elements.ukey_npass2.value; lextkey=this.document.client.elements.lkey_npass2.value; initkeys(); - this.document.server.elements.newpass_2.value + this.document.pserver.elements.newpass_2.value =crypted(this.document.client.elements.newpass_2.value); - this.document.server.submit(); + this.document.pserver.submit(); } @@ -607,7 +608,7 @@ $errormessage ensure that unencrypted passwords will not be sent out by a crappy browser --> -
+ @@ -648,8 +649,9 @@ sub verify_and_change_password { # Check for authentication types that allow changing of the password. return if ($currentauth !~ /^(unix|internal):/); # + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html LON-CAPA Preferences: Change password for $user @@ -1053,8 +1055,9 @@ sub handler { subroutine => \&toggle_debug, })); } + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html LON-CAPA Preferences