![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.1015, 2009/08/14 17:35:08 | version 1.1016, 2009/08/14 17:46:10 |
|---|---|
| Line 6532 sub is_course { | Line 6532 sub is_course { |
| sub store_userdata { | sub store_userdata { |
| my ($storehash,$datakey,$namespace,$udom,$uname) = @_; | my ($storehash,$datakey,$namespace,$udom,$uname) = @_; |
| my $result; | my $result; |
| if $datakey ne '') { | if ($datakey ne '') { |
| if (ref($storehash) eq 'HASH') { | if (ref($storehash) eq 'HASH') { |
| my $uhome=&homeserver(); | my $uhome=&homeserver(); |
| if (($uhome eq '') || ($uhome eq 'no_host')) { | if (($uhome eq '') || ($uhome eq 'no_host')) { |