/[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 523 by dpavlin, Sun May 21 19:29:26 2006 UTC
# Line 227  sub open { Line 227  sub open {
227          my ($db, $size) = $self->{open_db}->( $self,          my ($db, $size) = $self->{open_db}->( $self,
228                  path => $arg->{path},                  path => $arg->{path},
229                  filter => $filter_ref,                  filter => $filter_ref,
230                    %{ $arg },
231          );          );
232    
233          unless (defined($db)) {          unless (defined($db)) {
# Line 451  sub stats { Line 452  sub stats {
452                          my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";                          my $v = $s->{fld}->{$f} || die "no s->{fld}->{$f}";
453                          $max_fld = $v if ($v > $max_fld);                          $max_fld = $v if ($v > $max_fld);
454    
455                          my $o = sprintf("%4d %d ~", $f, $v);                          my $o = sprintf("%4s %d ~", $f, $v);
456    
457                          if (defined($s->{sf}->{$f})) {                          if (defined($s->{sf}->{$f})) {
458                                  map {                                  map {
# Line 464  sub stats { Line 465  sub stats {
465                          }                          }
466    
467                          $o;                          $o;
468                  } sort { $a <=> $b } keys %{ $s->{fld} }                  } sort { $a cmp $b } keys %{ $s->{fld} }
469          );          );
470    
471          $log->debug( sub { Dumper($s) } );          $log->debug( sub { Dumper($s) } );
Legend:
Removed from v.513  
changed lines
  Added in v.523
  ViewVC Help
Powered by ViewVC 1.1.26