--- loncom/lonnet/perl/lonnet.pm 2011/02/24 23:55:58 1.1104 +++ loncom/lonnet/perl/lonnet.pm 2011/03/06 21:17:18 1.1105 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1104 2011/02/24 23:55:58 raeburn Exp $ +# $Id: lonnet.pm,v 1.1105 2011/03/06 21:17:18 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7292,8 +7292,8 @@ sub store_userdata { $namevalue.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&'; } $namevalue=~s/\&$//; - $result = &reply("store:$env{'user.domain'}:$env{'user.name'}:". - "$namespace:$datakey:$namevalue",$uhome); + $result = &reply("store:$udom:$uname:$namespace:$datakey:". + $namevalue,$uhome); } } else { $result = 'error: data to store was not a hash reference';