loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1223, 2013/05/21 18:57:45	version 1.1224, 2013/05/27 14:12:19
Line 4796 sub restore {	Line 4796 sub restore {
if ($stuname) { $home=&homeserver($stuname,$domain); }	if ($stuname) { $home=&homeserver($stuname,$domain); }

if (!$symb) {	if (!$symb) {
unless ($symb=escape(&symbread())) { return ''; }	return if ($namespace eq 'courserequests');
	unless ($symb=escape(&symbread())) { return ''; }
} else {	} else {
$symb=&escape(&symbclean($symb));	unless ($namespace eq 'courserequests') {
	$symb=&escape(&symbclean($symb));
	}
}	}
if (!$namespace) {	if (!$namespace) {
unless ($namespace=$env{'request.course.id'}) {	unless ($namespace=$env{'request.course.id'}) {
Line 8766 sub store_userdata {	Line 8769 sub store_userdata {
$namevalue.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&';	$namevalue.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&';
}	}
$namevalue=~s/\&$//;	$namevalue=~s/\&$//;
	unless ($namespace eq 'courserequests') {
	$datakey = &escape($datakey);
	}
$result = &reply("store:$udom:$uname:$namespace:$datakey:".	$result = &reply("store:$udom:$uname:$namespace:$datakey:".
$namevalue,$uhome);	$namevalue,$uhome);
}	}