--- loncom/lonnet/perl/lonnet.pm 2013/05/21 18:57:45 1.1223 +++ loncom/lonnet/perl/lonnet.pm 2013/05/27 14:12:19 1.1224 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1223 2013/05/21 18:57:45 raeburn Exp $ +# $Id: lonnet.pm,v 1.1224 2013/05/27 14:12:19 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4796,9 +4796,12 @@ sub restore { if ($stuname) { $home=&homeserver($stuname,$domain); } if (!$symb) { - unless ($symb=escape(&symbread())) { return ''; } + return if ($namespace eq 'courserequests'); + unless ($symb=escape(&symbread())) { return ''; } } else { - $symb=&escape(&symbclean($symb)); + unless ($namespace eq 'courserequests') { + $symb=&escape(&symbclean($symb)); + } } if (!$namespace) { unless ($namespace=$env{'request.course.id'}) { @@ -8766,6 +8769,9 @@ sub store_userdata { $namevalue.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&'; } $namevalue=~s/\&$//; + unless ($namespace eq 'courserequests') { + $datakey = &escape($datakey); + } $result = &reply("store:$udom:$uname:$namespace:$datakey:". $namevalue,$uhome); }