--- loncom/interface/lonpreferences.pm 2002/08/19 13:10:55 1.9 +++ loncom/interface/lonpreferences.pm 2002/08/21 17:18:08 1.10 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.9 2002/08/19 13:10:55 matthew Exp $ +# $Id: lonpreferences.pm,v 1.10 2002/08/21 17:18:08 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,14 +108,12 @@ sub screennamechanger { my $domain = $ENV{'user.domain'}; my %userenv = &Apache::lonnet::get('environment',['screenname']); my $screenname=$userenv{'screenname'}; + my $bodytag=&Apache::loncommon::bodytag( + 'Change Your Anonymous Screen Name'); $r->print(< - -

Preferences for $user

-

$user is a member of domain $domain

-

-Change anonymous discussion screen name for $user -

+$bodytag +
New screenname: @@ -143,13 +141,11 @@ sub verify_and_change_screenname { &Apache::lonnet::delenv('environment\.screenname'); $message='Reset screenname'; } + my $bodytag=&Apache::loncommon::bodytag( + 'Change Your Anonymous Screen Name'); $r->print(< - -

Preferences for $user

-

$user is a member of domain $domain

-

-Change anonymous discussion screen name for $user +$bodytag

$message @@ -198,9 +194,11 @@ sub passwordchanger { my $jsh=Apache::File->new($include."/londes.js"); $r->print(<$jsh>); } + my $bodytag=&Apache::loncommon::bodytag('Change Password','', + 'onLoad="init();"'); $r->print(< - +$bodytag -

Preferences for $user

-

$user is a member of domain $domain

$errormessage -

-Change password for $user -

+