r1362@llin: dpavlin | 2007-10-30 02:46:05 +0100

[webpac2] / lib / WebPAC / Input.pm

diff --git a/lib/WebPAC/Input.pm b/lib/WebPAC/Input.pm
index d8a2f0b..430d197 100644 (file)
--- a/lib/WebPAC/Input.pm
+++ b/lib/WebPAC/Input.pm
@@ -531,12 +531,19 @@ sub stats {
                        my $o = sprintf("%4s %d ~", $f, $v);
 
                        if (defined($s->{sf}->{$f})) {
+                               my @subfields = keys %{ $s->{sf}->{$f} };
+warn "$f has subfields ",dump( @subfields );
                                map {
                                        $o .= sprintf(" %s:%d%s", $_, 
                                                $s->{sf}->{$f}->{$_}->{count},
                                                $s->{sf}->{$f}->{$_}->{repeatable} ? '*' : '',
                                        );
-                               } sort keys %{ $s->{sf}->{$f} };
+                               } (
+                                       # first indicators
+                                       sort( grep(  /^i[12]$/, @subfields ) ),
+                                       # then subfileds
+                                       sort( grep( !/^i[12]$/, @subfields ) ),
+                               );
                        }
 
                        if (my $v_r = $s->{repeatable}->{$f}) {