![[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.494, 2004/05/07 12:03:53 | version 1.495, 2004/05/07 17:17:50 |
|---|---|
| Line 1816 sub hash2str { | Line 1816 sub hash2str { |
| sub hashref2str { | sub hashref2str { |
| my ($hashref)=@_; | my ($hashref)=@_; |
| my $result='__HASH_REF__'; | my $result='__HASH_REF__'; |
| foreach (keys(%$hashref)) { | foreach (sort(keys(%$hashref))) { |
| if (ref($_) eq 'ARRAY') { | if (ref($_) eq 'ARRAY') { |
| $result.=&arrayref2str($_).'='; | $result.=&arrayref2str($_).'='; |
| } elsif (ref($_) eq 'HASH') { | } elsif (ref($_) eq 'HASH') { |