/[webpac2]/trunk/lib/WebPAC/Input.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 513 by dpavlin, Tue May 16 13:08:31 2006 UTC revision 519 by dpavlin, Thu May 18 13:48:51 2006 UTC
# Line 451  sub stats { Line 451  sub stats {
451                          my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";                          my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
452                          $max_fld = $v if ($v > $max_fld);                          $max_fld = $v if ($v > $max_fld);
453    
454                          my $o = sprintf("%4d %d ~", $f, $v);                          my $o = sprintf("%4s %d ~", $f, $v);
455    
456                          if (defined($s->{sf}->{$f})) {                          if (defined($s->{sf}->{$f})) {
457                                  map {                                  map {
# Line 464  sub stats { Line 464  sub stats {
464                          }                          }
465    
466                          $o;                          $o;
467                  } sort { $a <=> $b } keys %{ $s->{fld} }                  } sort { $a cmp $b } keys %{ $s->{fld} }
468          );          );
469    
470          $log->debug( sub { Dumper($s) } );          $log->debug( sub { Dumper($s) } );
Legend:
Removed from v.513  
changed lines
  Added in v.519
  ViewVC Help
Powered by ViewVC 1.1.26