loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1014, 2009/08/11 11:33:52	version 1.1015, 2009/08/14 17:35:08
Line 6529 sub is_course {	Line 6529 sub is_course {
return 0;	return 0;
}	}

sub store_coursereq {	sub store_userdata {
my ($requestkey,$storehash) = @_;	my ($storehash,$datakey,$namespace,$udom,$uname) = @_;
my $result;	my $result;
if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {	if $datakey ne '') {
if (ref($storehash) eq 'HASH') {	if (ref($storehash) eq 'HASH') {
my $namespace = 'courserequests';
my $uhome=&homeserver();	my $uhome=&homeserver();
if (($uhome eq '') \|\| ($uhome eq 'no_host')) {	if (($uhome eq '') \|\| ($uhome eq 'no_host')) {
$result = 'error: no_host';	$result = 'error: no_host';
Line 6548 sub store_coursereq {	Line 6547 sub store_coursereq {
}	}
$namevalue=~s/\&$//;	$namevalue=~s/\&$//;
$result = &reply("store:$env{'user.domain'}:$env{'user.name'}:".	$result = &reply("store:$env{'user.domain'}:$env{'user.name'}:".
"$namespace:$requestkey:$namevalue",$uhome);	"$namespace:$datakey:$namevalue",$uhome);
}	}
} else {	} else {
$result = 'error: data to store was not a hash reference';	$result = 'error: data to store was not a hash reference';