/[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 507 by dpavlin, Mon May 15 13:15:01 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 243  sub open { Line 244  sub open {
244          my $to_rec = $size;          my $to_rec = $size;
245    
246          if (my $s = $self->{offset}) {          if (my $s = $self->{offset}) {
247                  $log->info("skipping to MFN $s");                  $log->debug("skipping to MFN $s");
248                  $from_rec = $s;                  $from_rec = $s;
249          } else {          } else {
250                  $self->{offset} = $from_rec;                  $self->{offset} = $from_rec;
# 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.507  
changed lines
  Added in v.523
  ViewVC Help
Powered by ViewVC 1.1.26