--- loncom/interface/lonpreferences.pm 2005/01/20 21:32:55 1.52 +++ 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.52 2005/01/20 21:32:55 raeburn 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"); @@ -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