/[webpac2]/trunk/lib/WebPAC/Input/ISIS.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/ISIS.pm

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

revision 624 by dpavlin, Sat Aug 26 12:00:25 2006 UTC revision 625 by dpavlin, Sat Aug 26 12:00:36 2006 UTC
# Line 88  sub fetch_rec { Line 88  sub fetch_rec {
88    
89          my ($isis_db, $mfn, $filter_coderef) = @_;          my ($isis_db, $mfn, $filter_coderef) = @_;
90    
 use Data::Dump qw/dump/;  
 warn "fetch_rec filter_coderef = ", dump($filter_coderef), $/;  
   
91          my $rec = $isis_db->to_hash({          my $rec = $isis_db->to_hash({
92                  mfn => $mfn,                  mfn => $mfn,
93                  include_subfields => 1,                  include_subfields => 1,
94                  hash_filter => sub {                  hash_filter => $filter_coderef,
95                          my ($l,$f) = @_;  #               hash_filter => sub {
96                          warn "## in hash_filter ($l,$f)\n";  #                       my ($l,$f) = @_;
97                          my $o = $filter_coderef->($l,$f);  #                       warn "## in hash_filter ($l,$f)\n";
98                          warn "## out hash_filter = $o\n";  #                       my $o = $filter_coderef->($l,$f) if ($filter_coderef);
99                          return $o;  #                       warn "## out hash_filter = $o\n";
100                  },  #                       return $o;
101    #               },
102          });          });
103    
104          return $rec;          return $rec;
Legend:
Removed from v.624  
changed lines
  Added in v.625
  ViewVC Help
Powered by ViewVC 1.1.26