--- loncom/interface/lonpreferences.pm	2002/03/30 23:27:00	1.6
+++ loncom/interface/lonpreferences.pm	2002/04/03 18:47:39	1.7
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.6 2002/03/30 23:27:00 www Exp $
+# $Id: lonpreferences.pm,v 1.7 2002/04/03 18:47:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -137,12 +137,12 @@ sub verify_and_change_screenname {
     $newscreen=~s/\W//g;
     my $message='';
     if ($newscreen) {
-	my %tmp;
-        $tmp{'screenname'}=$newscreen;
-        &Apache::lonnet::put('environment',\%tmp);
+        &Apache::lonnet::put('environment',{'screenname' => $newscreen});
+        &Apache::lonnet::appenv('environment.screenname' => $newscreen);
         $message='Set new screenname to '.$newscreen;
     } else {
         &Apache::lonnet::del('environment',['screenname']);
+        &Apache::lonnet::delenv('environment\.screenname');
         $message='Reset screenname';
     }
     $r->print(<<ENDVCSCREEN);