/[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 844 by dpavlin, Sat May 26 10:40:01 2007 UTC revision 860 by dpavlin, Sun May 27 19:10:43 2007 UTC
# Line 540  sub stats { Line 540  sub stats {
540                          }                          }
541    
542                          $o;                          $o;
543                  } sort { $a cmp $b } keys %{ $s->{fld} }                  } sort { $a <=> $b } keys %{ $s->{fld} }
544          );          );
545    
546          $log->debug( sub { dump($s) } );          $log->debug( sub { dump($s) } );
# Line 559  sub dump_ascii { Line 559  sub dump_ascii {
559    
560          return unless $self->{ll_db};          return unless $self->{ll_db};
561    
562          if ($self->{ll_db}->can('dump_rec')) {          if ($self->{ll_db}->can('dump_ascii')) {
563                  return $self->{ll_db}->dump_ascii( $self->{pos} );                  return $self->{ll_db}->dump_ascii( $self->{pos} );
564          } else {          } else {
565                  return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) );                  return dump( $self->{ll_db}->fetch_rec( $self->{pos} ) );
Legend:
Removed from v.844  
changed lines
  Added in v.860
  ViewVC Help
Powered by ViewVC 1.1.26