/[Biblio-Isis]/trunk/lib/Biblio/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/Biblio/Isis.pm

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

revision 25 by dpavlin, Fri Dec 31 05:43:20 2004 UTC revision 26 by dpavlin, Fri Dec 31 07:16:02 2004 UTC
# Line 331  sub fetch { Line 331  sub fetch {
331          # (XRFMFB - 1) * 512 + XRFMFP          # (XRFMFB - 1) * 512 + XRFMFP
332          # why do i have to do XRFMFP % 1024 ?          # why do i have to do XRFMFP % 1024 ?
333    
334          my $blk_off = (($XRFMFB - 1) * 512) + ($XRFMFP % 1024);          my $blk_off = (($XRFMFB - 1) * 512) + ($XRFMFP % 512);
335    
336          print STDERR "## pointer: $pointer XRFMFB: $XRFMFB XRFMFP: $XRFMFP offset: $blk_off\n" if ($self->{'debug'});          print STDERR "## pointer: $pointer XRFMFB: $XRFMFB XRFMFP: $XRFMFP offset: $blk_off\n" if ($self->{'debug'});
337    
# Line 345  sub fetch { Line 345  sub fetch {
345          print STDERR "## offset for rowid $value is $blk_off (blk $XRFMFB off $XRFMFP)\n" if ($self->{debug});          print STDERR "## offset for rowid $value is $blk_off (blk $XRFMFB off $XRFMFP)\n" if ($self->{debug});
346    
347          if ($value!=$mfn) {          if ($value!=$mfn) {
348                  carp "Error: MFN ".$mfn." not found in MST(".$value.")";                      if ($value == 0) {
349                  #return;                          print STDERR "## record $mfn is physically deleted\n" if ($self->{debug});
350                            $self->{deleted} = $mfn;
351                            return;
352                    }
353    
354                    carp "Error: MFN ".$mfn." not found in MST file, found $value";    
355                    return;
356          }          }
357    
358          read($self->{'fileMST'}, $buff, 14);          read($self->{'fileMST'}, $buff, 14);

Legend:
Removed from v.25  
changed lines
  Added in v.26

  ViewVC Help
Powered by ViewVC 1.1.26