|
version 1.345, 2014/08/07 19:53:19
|
version 1.346, 2014/12/11 01:23:55
|
|
Line 590 sub showarray {
|
Line 590 sub showarray {
|
| sub showhashsubset { |
sub showhashsubset { |
| my ($hash,$keyre) = @_; |
my ($hash,$keyre) = @_; |
| my $resultkey; |
my $resultkey; |
| foreach $resultkey (sort keys %$hash) { |
foreach $resultkey (sort(keys(%$hash))) { |
| if ($resultkey !~ /$keyre/) { next; } |
if ($resultkey !~ /$keyre/) { next; } |
| if (ref($$hash{$resultkey}) eq 'ARRAY' ) { |
if (ref($$hash{$resultkey}) eq 'ARRAY' ) { |
| &Apache::lonxml::debug("$resultkey ---- ". |
&Apache::lonxml::debug("$resultkey ---- ". |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework